Contoh Koding Program VB Keredit mobil

Public Class Form1
    Sub kode()
        If kdmobil.Text = "MB1" Then
            nama.Text = "Avanza Velos"
        ElseIf kdmobil.Text = "MB2" Then
            nama.Text = "Avanza G"
        ElseIf kdmobil.Text = "MB3" Then
            nama.Text = "Xenia G"
        ElseIf kdmobil.Text = "MB4" Then
            nama.Text = " Yaris"
        Else
            nama.Text = ""
        End If
    End Sub
    Sub BuatTable()
        LV.Columns.Add("Kode Mobil", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Mobil", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Tahun", 60, HorizontalAlignment.Center)
        LV.Columns.Add("Kondisi", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 60, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Uang Muka", 90, HorizontalAlignment.Center)
        LV.Columns.Add("Komisi Sales", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Total Kredit", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Lama Kredit", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Angsuran PerBulan", 130, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kdmobil.Items.Add("MB1")
        kdmobil.Items.Add("MB2")
        kdmobil.Items.Add("MB3")
        kdmobil.Items.Add("MB4")
        For T = 2012 To 2014
            tahun.Items.Add(T)
        Next
        kondisi.Items.Add("Baru")
        kondisi.Items.Add("Bekas")
        For J = 1 To 100
            jmlhbeli.Items.Add(J)
        Next
        For K = 12 To 48 Step 6
            lamakredit.Items.Add(K)
        Next
        Call BuatTable()

        kdmobil.Enabled = True
        nama.Enabled = False
        tahun.Enabled = True
        kondisi.Enabled = True
        harga.Enabled = False
        jmlhbeli.Enabled = True
        totalharga.Enabled = False
        uangmuka.Enabled = False
        komisisales.Enabled = False
        totalkredit.Enabled = False
        lamakredit.Enabled = True
        angsuran.Enabled = False
    End Sub
    Private Sub kdmobil_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmobil.SelectedIndexChanged
        Call kode()
    End Sub
    Private Sub kondisi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kondisi.SelectedIndexChanged
        If kondisi.Text = "Baru" And nama.Text = "Avanza Velos" And tahun.Text = "2012" Then
            harga.Text = 175
        ElseIf kondisi.Text = "Bekas" And nama.Text = "Avanza Velos" And tahun.Text = "2012" Then
            harga.Text = 120
        ElseIf kondisi.Text = "Baru" And nama.Text = "Avanza Velos" And tahun.Text = "2013" Then
            harga.Text = 195
        ElseIf kondisi.Text = "Bekas" And nama.Text = "Avanza Velos" And tahun.Text = "2013" Then
            harga.Text = 130
        ElseIf kondisi.Text = "Baru" And nama.Text = "Avanza Velos" And tahun.Text = "2014" Then
            harga.Text = 208
        ElseIf kondisi.Text = "Bekas" And nama.Text = "Avanza Velos" And tahun.Text = "2014" Then
            harga.Text = 170

        ElseIf nama.Text = "Avanza G" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
            harga.Text = 170
        ElseIf nama.Text = "Avanza G" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
            harga.Text = 125
        ElseIf nama.Text = "Avanza G" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
            harga.Text = 200
        ElseIf nama.Text = "Avanza G" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
            harga.Text = 150
        ElseIf nama.Text = "Avanza G" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
            harga.Text = 210
        ElseIf nama.Text = "Avanza G" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
            harga.Text = 180

        ElseIf nama.Text = "Xenia G" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
            harga.Text = 175
        ElseIf nama.Text = "Xenia G" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
            harga.Text = 130
        ElseIf nama.Text = "Xenia G" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
            harga.Text = 205
        ElseIf nama.Text = "Xenia G" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
            harga.Text = 155
        ElseIf nama.Text = "Xenia G" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
            harga.Text = 215
        ElseIf nama.Text = "Xenia G" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
            harga.Text = 185

        ElseIf nama.Text = "Yaris" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
            harga.Text = 190
        ElseIf nama.Text = "Yaris" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
            harga.Text = 120
        ElseIf nama.Text = "Yaris" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
            harga.Text = 190
        ElseIf nama.Text = "Yaris" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
            harga.Text = 140
        ElseIf nama.Text = "Yaris" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
            harga.Text = 200
        ElseIf nama.Text = "Yaris" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
            harga.Text = 170
        End If
    End Sub

    Private Sub jmlhbeli_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlhbeli.SelectedIndexChanged
        totalharga.Text = jmlhbeli.Text * harga.Text
        uangmuka.Text = 0.3 * totalharga.Text
        komisisales.Text = 0.02 * jmlhbeli.Text * uangmuka.Text
        totalkredit.Text = totalharga.Text - uangmuka.Text
    End Sub

    Private Sub lamakredit_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lamakredit.SelectedIndexChanged
        angsuran.Text = (((totalkredit.Text) * (0.03 * lamakredit.Text)) + totalkredit.Text) / lamakredit.Text
    End Sub

    Private Sub Btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_keluar.Click
        Dim AbdulSalam As String
        AbdulSalam = MsgBox("Are You Sure Want To Quit?", MsgBoxStyle.OkCancel)
        If AbdulSalam = vbOK Then
            Me.Close()
        End If
    End Sub
    Sub IsiTable()
        Dim abdulsalam As New ListViewItem
        abdulsalam.Text = kdmobil.Text
        abdulsalam.SubItems.Add(nama.Text)
        abdulsalam.SubItems.Add(tahun.Text)
        abdulsalam.SubItems.Add(kondisi.Text)
        abdulsalam.SubItems.Add(harga.Text)
        abdulsalam.SubItems.Add(jmlhbeli.Text)
        abdulsalam.SubItems.Add(totalharga.Text)
        abdulsalam.SubItems.Add(uangmuka.Text)
        abdulsalam.SubItems.Add(komisisales.Text)
        abdulsalam.SubItems.Add(totalkredit.Text)
        abdulsalam.SubItems.Add(lamakredit.Text)
        abdulsalam.SubItems.Add(angsuran.Text)
        LV.Items.Add(abdulsalam)
    End Sub
    Private Sub Btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_simpan.Click
        Call IsiTable()
        kdmobil.Text = ""
        nama.Text = ""
        tahun.Text = ""
        kondisi.Text = ""
        harga.Text = ""
        jmlhbeli.Text = ""
        totalharga.Text = ""
        uangmuka.Text = ""
        komisisales.Text = ""
        totalkredit.Text = ""
        lamakredit.Text = ""
        angsuran.Text = ""
        MsgBox("Data Telah TerSimpan")
    End Sub
    Private Sub Btn_hpssatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hpssatu.Click
        If LV.SelectedItems.Count <> 0 Then
            LV.Items.Remove(LV.SelectedItems(0))
            MsgBox("Data Telah Terhapus")
        Else
            MsgBox("Pilih duluh yg mau di hapus")
        End If
    End Sub
    Private Sub Btn_hpssemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hpssemua.Click
        LV.Items.Clear()
        MsgBox("Data Telah Terhapus")
    End Sub
End Class



Semoga Kodingnya Bermanfaat , Selamat Mencoba.....!