Berikut Jawaban Program :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
Call RancangTabel()
kode.Items.Add("MB1")
kode.Items.Add("MB2")
kode.Items.Add("MB3")
kode.Items.Add("MB4")
For i = 0 To 20
jumlah.Items.Add(i)
Next
kondisi.Items.Add("Baru")
kondisi.Items.Add("Bekas")
thn.Items.Add("2012")
thn.Items.Add("2013")
thn.Items.Add("2014")
For t = 12 To 48 Step 6
lkredit.Items.Add(t)
Next
End Sub
Sub RancangTabel()
lv.Columns.Add("Kode", 50, HorizontalAlignment.Left)
lv.Columns.Add("Nama", 100, HorizontalAlignment.Left)
lv.Columns.Add("Tahun", 120, HorizontalAlignment.Left)
lv.Columns.Add("Jumlah", 120, HorizontalAlignment.Center)
lv.Columns.Add("Kondisi", 80, HorizontalAlignment.Center)
lv.Columns.Add("Harga", 100, 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", 100, HorizontalAlignment.Center)
lv.Columns.Add("Uang Muka", 90, HorizontalAlignment.Center)
lv.Columns.Add("Total Harga", 90, HorizontalAlignment.Center)
lv.FullRowSelect = True
lv.GridLines = True
lv.View = View.Details
End Sub
Sub MasukTabel()
Dim a As New ListViewItem
a.Text = kode.Text
a.SubItems.Add(kode.Text)
a.SubItems.Add(nama.Text)
a.SubItems.Add(thn.Text)
a.SubItems.Add(jumlah.Text)
a.SubItems.Add(kondisi.Text)
a.SubItems.Add(harga.Text)
a.SubItems.Add(ksales.Text)
a.SubItems.Add(tkredit.Text)
a.SubItems.Add(lkredit.Text)
a.SubItems.Add(angsuran.Text)
a.SubItems.Add(umuka.Text)
a.SubItems.Add(tharga.Text)
lv.Items.Add(a)
End Sub
Private Sub kode_SelectedIndexChanged(ByVa
If kode.Text = "MB1" Then
nama.Text = "AVANZA Veloz"
ElseIf kode.Text = "MB2" Then
nama.Text = "AVANZA"
ElseIf kode.Text = "MB3" Then
nama.Text = "XENIA"
ElseIf kode.Text = "MB4" Then
nama.Text = "YARIS"
End If
End Sub
Private Sub kondisi_SelectedIndexChanged(B
If kode.Text = "MB1" And thn.Text = "2012" Andkondisi.Text = "Baru" Then
harga.Text = 175000000
ElseIf kode.Text = "MB1" And thn.Text = "2012" Andkondisi.Text = "Bekas" Then
harga.Text = 120000000
ElseIf kode.Text = "MB1" And thn.Text = "2013" Andkondisi.Text = "Baru" Then
harga.Text = 195000000
ElseIf kode.Text = "MB1" And thn.Text = "2013" Andkondisi.Text = "Bekas" Then
harga.Text = 130000000
ElseIf kode.Text = "MB1" And thn.Text = "2014" Andkondisi.Text = "Baru" Then
harga.Text = 208000000
ElseIf kode.Text = "MB1" And thn.Text = "2014" Andkondisi.Text = "Bekas" Then
harga.Text = 170000000
ElseIf kode.Text = "MB2" And thn.Text = "2012" Andkondisi.Text = "Baru" Then
harga.Text = 200000000
ElseIf kode.Text = "MB2" And thn.Text = "2012" Andkondisi.Text = "Bekas" Then
harga.Text = 190000000
ElseIf kode.Text = "MB2" And thn.Text = "2013" Andkondisi.Text = "Baru" Then
harga.Text = 220000000
ElseIf kode.Text = "MB2" And thn.Text = "2013" Andkondisi.Text = "Bekas" Then
harga.Text = 197000000
ElseIf kode.Text = "MB2" And thn.Text = "2014" Andkondisi.Text = "Baru" Then
harga.Text = 230000000
ElseIf kode.Text = "MB2" And thn.Text = "2014" Andkondisi.Text = "Bekas" Then
harga.Text = 150000000
ElseIf kode.Text = "MB3" And thn.Text = "2012" Andkondisi.Text = "Baru" Then
harga.Text = 300000000
ElseIf kode.Text = "MB3" And thn.Text = "2012" Andkondisi.Text = "Bekas" Then
harga.Text = 140000000
ElseIf kode.Text = "MB3" And thn.Text = "2013" Andkondisi.Text = "Baru" Then
harga.Text = 290000000
ElseIf kode.Text = "MB3" And thn.Text = "2013" Andkondisi.Text = "Bekas" Then
harga.Text = 122000000
ElseIf kode.Text = "MB3" And thn.Text = "2014" Andkondisi.Text = "Baru" Then
harga.Text = 208000000
ElseIf kode.Text = "MB3" And thn.Text = "2014" Andkondisi.Text = "Bekas" Then
harga.Text = 166000000
ElseIf kode.Text = "MB4" And thn.Text = "2012" Andkondisi.Text = "Baru" Then
harga.Text = 400000000
ElseIf kode.Text = "MB4" And thn.Text = "2012" Andkondisi.Text = "Bekas" Then
harga.Text = 322000000
ElseIf kode.Text = "MB4" And thn.Text = "2013" Andkondisi.Text = "Baru" Then
harga.Text = 367000000
ElseIf kode.Text = "MB4" And thn.Text = "2013" Andkondisi.Text = "Bekas" Then
harga.Text = 221000000
ElseIf kode.Text = "MB4" And thn.Text = "2014" Andkondisi.Text = "Baru" Then
harga.Text = 359000000
ElseIf kode.Text = "MB4" And thn.Text = "2014" Andkondisi.Text = "Bekas" Then
harga.Text = 277000000
End If
End Sub
Private Sub jumlah_SelectedIndexChanged(By
tharga.Text = Val(jumlah.Text) * Val(harga.Text)
umuka.Text = Val(tharga.Text) * 0.3
ksales.Text = Val(jumlah.Text) * 0.02 * Val(umuka.Text)
End Sub
Private Sub lkredit_SelectedIndexChanged(B
tkredit.Text = Val(tharga.Text) - Val(umuka.Text)
angsuran.Text = Val(Val(tkredit.Text) * Val(lkredit.Text * 0.03)) - Val(tkredit.Text) / Val(lkredit.Text)
End Sub
Private Sub simpan_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles simpan.Click
Call MasukTabel()
kode.Text = ""
nama.Text = ""
thn.Text = ""
jumlah.Text = ""
harga.Text = ""
kondisi.Text = ""
lkredit.Text = ""
tkredit.Text = ""
angsuran.Text = ""
umuka.Text = ""
ksales.Text = ""
tharga.Text = ""
End Sub
Sub h()
kode.Text = ""
nama.Text = ""
thn.Text = ""
jumlah.Text = ""
harga.Text = ""
kondisi.Text = ""
lkredit.Text = ""
tkredit.Text = ""
angsuran.Text = ""
umuka.Text = ""
ksales.Text = ""
tharga.Text = ""
End Sub
Private Sub hapus_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles hapus.Click
Call h()
End Sub
Private Sub keluar_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
Private Sub bersih_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles bersih.Click
lv.Items.Clear()
End Sub
End Class
Tampilan Hasil :
Demikianlah Postingan Saya
Nama : Rizka Miranti
NPM : 13110683
Selamat Belajar Pemrograman VB NET
