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 :
