Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call buattabel()
Kode.Items.Add("MB1")
Kode.Items.Add("MB2")
Kode.Items.Add("MB3")
Kode.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 100 Step 1
jumlahbeli.Items.Add(i)
Next
For i = 12 To 48 Step 12
lamakredit.Items.Add(i)
Next
End Sub
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
If Kode.Text = "MB1" Then
jenismobil.Text = "Avanza Veloz"
ElseIf Kode.Text = "MB2" Then
jenismobil.Text = "Avanza G"
ElseIf Kode.Text = "MB3" Then
jenismobil.Text = "Xenia"
Else
jenismobil.Text = "Yarris"
End If
End Sub
Private Sub kondisi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kondisi.SelectedIndexChanged
If tahun.Text = "2012" And kondisi.Text = "Baru" And jenismobil.Text = "Avanza Veloz" Then
harga.Text = 175000000
ElseIf tahun.Text = "2012" And kondisi.Text = "Bekas" And jenismobil.Text = "Avanza Veloz" Then
harga.Text = 120000000
End If
If tahun.Text = "2013" And kondisi.Text = "Baru" And jenismobil.Text = "Avanza Veloz" Then
harga.Text = 195000000
ElseIf tahun.Text = "2013" And kondisi.Text = "Bekas" And jenismobil.Text = "Avanza Veloz" Then
harga.Text = 130000000
End If
If tahun.Text = "2014" And kondisi.Text = "Baru" And jenismobil.Text = "Avanza Veloz" Then
harga.Text = 208000000
ElseIf tahun.Text = "2014" And kondisi.Text = "Bekas" And jenismobil.Text = "Avanza Veloz" Then
harga.Text = 170000000
End If
If tahun.Text = "2012" And kondisi.Text = "Baru" And jenismobil.Text = "Avanza G" Then
harga.Text = 160000000
ElseIf tahun.Text = "2012" And kondisi.Text = "Bekas" And jenismobil.Text = "Avanza G" Then
harga.Text = 110000000
End If
If tahun.Text = "2013" And kondisi.Text = "Baru" And jenismobil.Text = "Avanza G" Then
harga.Text = 175000000
ElseIf tahun.Text = "2013" And kondisi.Text = "Bekas" And jenismobil.Text = "Avanza G" Then
harga.Text = 120000000
End If
If tahun.Text = "2014" And kondisi.Text = "Baru" And jenismobil.Text = "Avanza G" Then
harga.Text = 188000000
ElseIf tahun.Text = "2014" And kondisi.Text = "Bekas" And jenismobil.Text = "Avanza G" Then
harga.Text = 160000000
End If
If tahun.Text = "2012" And kondisi.Text = "Baru" And jenismobil.Text = "Xenia" Then
harga.Text = 155000000
ElseIf tahun.Text = "2012" And kondisi.Text = "Bekas" And jenismobil.Text = "Xenia" Then
harga.Text = 110000000
End If
If tahun.Text = "2013" And kondisi.Text = "Baru" And jenismobil.Text = "Xenia" Then
harga.Text = 175000000
ElseIf tahun.Text = "2013" And kondisi.Text = "Bekas" And jenismobil.Text = "Xenia" Then
harga.Text = 120000000
End If
If tahun.Text = "2014" And kondisi.Text = "Baru" And jenismobil.Text = "Xenia" Then
harga.Text = 168000000
ElseIf tahun.Text = "2014" And kondisi.Text = "Bekas" And jenismobil.Text = "Xenia" Then
harga.Text = 130000000
End If
If tahun.Text = "2012" And kondisi.Text = "Baru" And jenismobil.Text = "Xenia" Then
harga.Text = 202500000
ElseIf tahun.Text = "2012" And kondisi.Text = "Bekas" And jenismobil.Text = "Xenia" Then
harga.Text = 170000000
End If
If tahun.Text = "2013" And kondisi.Text = "Baru" And jenismobil.Text = "Xenia" Then
harga.Text = 165000000
ElseIf tahun.Text = "2013" And kondisi.Text = "Bekas" And jenismobil.Text = "Xenia" Then
harga.Text = 120000000
End If
If tahun.Text = "2014" And kondisi.Text = "Baru" And jenismobil.Text = "Xenia" Then
harga.Text = 188000000
ElseIf tahun.Text = "2014" And kondisi.Text = "Bekas" And jenismobil.Text = "Xenia" Then
harga.Text = 150000000
End If
End Sub
Private Sub jumlahbeli_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahbeli.SelectedIndexChanged
totalharga.Text = jumlahbeli.Text * harga.Text
uangmuka.Text = 0.3 * totalharga.Text
komisisales.Text = 0.02 * jumlahbeli.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 = ((totalharga.Text) * (0.03 * lamakredit.Text)) + Val(totalkredit.Text) / lamakredit.Text
End Sub
Sub buattabel()
lv.Columns.Add("Kode", 40, HorizontalAlignment.Center)
lv.Columns.Add("Mobil", 120, HorizontalAlignment.Center)
lv.Columns.Add("Tahun 2012", 150, HorizontalAlignment.Center)
lv.Columns.Add("Tahun 2013", 150, HorizontalAlignment.Center)
lv.Columns.Add("Tahun 2014", 150, HorizontalAlignment.Center)
lv.Columns.Add("Kondisi", 150, HorizontalAlignment.Center)
lv.Columns.Add("Harga", 150, HorizontalAlignment.Center)
lv.Columns.Add("Jumlah Beli", 130, HorizontalAlignment.Center)
lv.Columns.Add("Total Harga", 150, HorizontalAlignment.Center)
lv.Columns.Add("Uang Muka", 150, HorizontalAlignment.Center)
lv.Columns.Add("Komisi Sales", 150, HorizontalAlignment.Center)
lv.Columns.Add("Total Kredit", 150, HorizontalAlignment.Center)
lv.Columns.Add("Lama Kredit", 150, HorizontalAlignment.Center)
lv.Columns.Add("Angsuran Perbulan", 150, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
LV.FullRowSelect = True
End Sub
Sub isitable()
Dim lst As New ListViewItem
lst.Text = kode.Text
lst.SubItems.Add(jenismobil.Text)
lst.SubItems.Add(jumlahbeli.Text)
lst.SubItems.Add(komisisales.Text)
lst.SubItems.Add(kondisi.Text)
lst.SubItems.Add(totalharga.Text)
lst.SubItems.Add(lamakredit.Text)
lst.SubItems.Add(angsuran.Text)
lst.SubItems.Add(tahun.Text)
lst.SubItems.Add(uangmuka.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(angsuran.Text)
lst.SubItems.Add(totalkredit.Text)
lst.SubItems.Add(angsuran.Text)
LV.Items.Add(lst)
End Sub
Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click
jenismobil.Text = ""
jumlahbeli.Text = ""
komisisales.Text = ""
kondisi.Text = ""
uangmuka.Text = ""
tahun.Text = ""
totalharga.Text = ""
Kode.Text = ""
lamakredit.Text = ""
harga.Text = ""
totalkredit.Text = ""
angsuran.Text = ""
End Sub
Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
Call isitable()
jenismobil.Text = ""
jumlahbeli.Text = ""
komisisales.Text = ""
kondisi.Text = ""
uangmuka.Text = ""
tahun.Text = ""
totalharga.Text = ""
Kode.Text = ""
lamakredit.Text = ""
harga.Text = ""
totalkredit.Text = ""
angsuran.Text = ""
End Sub
Private Sub Btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdata.Click
LV.Items.Clear()
End Sub
Private Sub Btnhapusdi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdi.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
Me.Close()
End Sub
End Class
demikianlah postingan saya:
NAMA:BUKHARI
NPM:13110434
0 komentar:
Posting Komentar