Yuk Belajar Pemograman Visual Basic

Public Class Form1

    Sub Buat_Table()
        LV.Columns.Add("Kode Mobil", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Mobil", 150, HorizontalAlignment.Center)
        LV.Columns.Add("Tahun", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Kondisi", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Uang Muka", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Komisi Sales", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Kredit", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Lama Kredit", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Angsuran", 80, HorizontalAlignment.Center)
        LV.GridLines = True
        LV.FullRowSelect = True
        LV.View = View.Details
    End Sub

    Sub Isi_Table()
        Dim lst As New ListViewItem
        lst.Text = Kode_Mobil.Text
        lst.SubItems.Add(Nama_Mobil.Text)
        lst.SubItems.Add(Tahun.Text)
        lst.SubItems.Add(Kondisi.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(Jumlah.Text)
        lst.SubItems.Add(Total_Harga.Text)
        lst.SubItems.Add(Uang_Muka.Text)
        lst.SubItems.Add(Komisi_Sales.Text)
        lst.SubItems.Add(Total_Kredit.Text)
        lst.SubItems.Add(Lama_Kredit.Text)
        lst.SubItems.Add(Angsuran.Text)
        LV.Items.Add(lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kode_Mobil.Items.Add("MB1")
        Kode_Mobil.Items.Add("MB2")
        Kode_Mobil.Items.Add("MB3")
        Kode_Mobil.Items.Add("MB4")

        Tahun.Items.Add("2012")
        Tahun.Items.Add("2013")
        Tahun.Items.Add("2014")

        Kondisi.Items.Add("Baru")
        Kondisi.Items.Add("Bekas")

        For i = 1 To 3
            Jumlah.Items.Add(i)
        Next i

        For i = 48 To 12 Step -12
            Lama_Kredit.Items.Add(i)
        Next i

        Call Buat_Table()

    End Sub

    Private Sub Kode_Mobil_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Mobil.SelectedIndexChanged
        If Kode_Mobil.Text = "MB1" Then
            Nama_Mobil.Text = "Avanza Veloz"
        ElseIf Kode_Mobil.Text = "MB2" Then
            Nama_Mobil.Text = "Avanza G"
        ElseIf Kode_Mobil.Text = "MB3" Then
            Nama_Mobil.Text = "Xenia G"
        ElseIf Kode_Mobil.Text = "MB4" Then
            Nama_Mobil.Text = "Yaris"
        Else
            Nama_Mobil.Text = ""
        End If
    End Sub

    Private Sub Kondisi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kondisi.SelectedIndexChanged
        If Kode_Mobil.Text = "MB1" And Tahun.Text = "2012" And Kondisi.Text = "Baru" Then
            Harga.Text = "175000000"
        ElseIf Kode_Mobil.Text = "MB1" And Tahun.Text = "2012" And Kondisi.Text = "Bekas" Then
            Harga.Text = "120000000"
        ElseIf Kode_Mobil.Text = "MB1" And Tahun.Text = "2013" And Kondisi.Text = "Baru" Then
            Harga.Text = "195000000"
        ElseIf Kode_Mobil.Text = "MB1" And Tahun.Text = "2013" And Kondisi.Text = "Bekas" Then
            Harga.Text = "130000000"
        ElseIf Kode_Mobil.Text = "MB1" And Tahun.Text = "2014" And Kondisi.Text = "Baru" Then
            Harga.Text = "208000000"
        ElseIf Kode_Mobil.Text = "MB1" And Tahun.Text = "2014" And Kondisi.Text = "Bekas" Then
            Harga.Text = "170000000"
        ElseIf Kode_Mobil.Text = "MB2" And Tahun.Text = "2012" And Kondisi.Text = "Baru" Then
            Harga.Text = "165000000"
        ElseIf Kode_Mobil.Text = "MB2" And Tahun.Text = "2012" And Kondisi.Text = "Bekas" Then
            Harga.Text = "110000000"
        ElseIf Kode_Mobil.Text = "MB2" And Tahun.Text = "2013" And Kondisi.Text = "Baru" Then
            Harga.Text = "185000000"
        ElseIf Kode_Mobil.Text = "MB2" And Tahun.Text = "2013" And Kondisi.Text = "Bekas" Then
            Harga.Text = "120000000"
        ElseIf Kode_Mobil.Text = "MB2" And Tahun.Text = "2014" And Kondisi.Text = "Baru" Then
            Harga.Text = "198000000"
        ElseIf Kode_Mobil.Text = "MB2" And Tahun.Text = "2014" And Kondisi.Text = "Bekas" Then
            Harga.Text = "160000000"
        ElseIf Kode_Mobil.Text = "MB3" And Tahun.Text = "2012" And Kondisi.Text = "Baru" Then
            Harga.Text = "160000000"
        ElseIf Kode_Mobil.Text = "MB3" And Tahun.Text = "2012" And Kondisi.Text = "Bekas" Then
            Harga.Text = "95000000"
        ElseIf Kode_Mobil.Text = "MB3" And Tahun.Text = "2013" And Kondisi.Text = "Baru" Then
            Harga.Text = "180000000"
        ElseIf Kode_Mobil.Text = "MB3" And Tahun.Text = "2013" And Kondisi.Text = "Bekas" Then
            Harga.Text = "115000000"
        ElseIf Kode_Mobil.Text = "MB3" And Tahun.Text = "2014" And Kondisi.Text = "Baru" Then
            Harga.Text = "193000000"
        ElseIf Kode_Mobil.Text = "MB3" And Tahun.Text = "2014" And Kondisi.Text = "Bekas" Then
            Harga.Text = "155000000"
        ElseIf Kode_Mobil.Text = "MB4" And Tahun.Text = "2012" And Kondisi.Text = "Baru" Then
            Harga.Text = "185000000"
        ElseIf Kode_Mobil.Text = "MB4" And Tahun.Text = "2012" And Kondisi.Text = "Bekas" Then
            Harga.Text = "130000000"
        ElseIf Kode_Mobil.Text = "MB4" And Tahun.Text = "2013" And Kondisi.Text = "Baru" Then
            Harga.Text = "205000000"
        ElseIf Kode_Mobil.Text = "MB4" And Tahun.Text = "2013" And Kondisi.Text = "Bekas" Then
            Harga.Text = "140000000"
        ElseIf Kode_Mobil.Text = "MB4" And Tahun.Text = "2014" And Kondisi.Text = "Baru" Then
            Harga.Text = "218000000"
        ElseIf Kode_Mobil.Text = "MB4" And Tahun.Text = "2014" And Kondisi.Text = "Bekas" Then
            Harga.Text = "180000000"
        End If
    End Sub

    Private Sub Jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.SelectedIndexChanged
        Total_Harga.Text = Jumlah.Text * Harga.Text
        Uang_Muka.Text = 0.3 * Total_Harga.Text
        Komisi_Sales.Text = 0.02 * Jumlah.Text * Uang_Muka.Text
        Total_Kredit.Text = Total_Harga.Text - Uang_Muka.Text
    End Sub

    Private Sub Lama_Kredit_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lama_Kredit.SelectedIndexChanged
        Angsuran.Text = (Total_Kredit.Text * (0.03 * Lama_Kredit.Text) + Val(Total_Kredit.Text) / (Lama_Kredit.Text))
    End Sub

    Private Sub btnSimpan_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        Call Isi_Table()
    End Sub

    Private Sub btnHapus_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        LV.Items.Clear()
    End Sub

    Private Sub btnKeluar_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Me.Close()
    End Sub
End Class

hasil programnya :