Program kredit mobil dengan vb net 2008

Next to Coding :
Public Class Form1
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
merek.Text = "Avanza Veloz"
ElseIf kode.Text = "MB2" Then
merek.Text = "Avanza G"
ElseIf kode.Text = "MB3" Then
merek.Text = "Xenia"
Else
merek.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 merek.Text = "Avanza Veloz" Then
harga.Text = 175000000
ElseIf tahun.Text = "2012" And kondisi.Text = "Bekas" And merek.Text = "Avanza Veloz" Then
harga.Text = 120000000
End If
If tahun.Text = "2013" And kondisi.Text = "Baru" And merek.Text = "Avanza Veloz" Then
harga.Text = 195000000
ElseIf tahun.Text = "2013" And kondisi.Text = "Bekas" And merek.Text = "Avanza Veloz" Then
harga.Text = 130000000
End If
If tahun.Text = "2014" And kondisi.Text = "Baru" And merek.Text = "Avanza Veloz" Then
harga.Text = 208000000
ElseIf tahun.Text = "2014" And kondisi.Text = "Bekas" And merek.Text = "Avanza Veloz" Then
harga.Text = 170000000
End If
If tahun.Text = "2012" And kondisi.Text = "Baru" And merek.Text = "Avanza G" Then
harga.Text = 160000000
ElseIf tahun.Text = "2012" And kondisi.Text = "Bekas" And merek.Text = "Avanza G" Then
harga.Text = 110000000
End If
If tahun.Text = "2013" And kondisi.Text = "Baru" And merek.Text = "Avanza G" Then
harga.Text = 175000000
ElseIf tahun.Text = "2013" And kondisi.Text = "Bekas" And merek.Text = "Avanza G" Then
harga.Text = 120000000
End If
If tahun.Text = "2014" And kondisi.Text = "Baru" And merek.Text = "Avanza G" Then
harga.Text = 188000000
ElseIf tahun.Text = "2014" And kondisi.Text = "Bekas" And merek.Text = "Avanza G" Then
harga.Text = 160000000
End If
If tahun.Text = "2012" And kondisi.Text = "Baru" And merek.Text = "Xenia" Then
harga.Text = 155000000
ElseIf tahun.Text = "2012" And kondisi.Text = "Bekas" And merek.Text = "Xenia" Then
harga.Text = 110000000
End If
If tahun.Text = "2013" And kondisi.Text = "Baru" And merek.Text = "Xenia" Then
harga.Text = 175000000
ElseIf tahun.Text = "2013" And kondisi.Text = "Bekas" And merek.Text = "Xenia" Then
harga.Text = 120000000
End If
If tahun.Text = "2014" And kondisi.Text = "Baru" And merek.Text = "Xenia" Then
harga.Text = 168000000
ElseIf tahun.Text = "2014" And kondisi.Text = "Bekas" And merek.Text = "Xenia" Then
harga.Text = 130000000
End If
If tahun.Text = "2012" And kondisi.Text = "Baru" And merek.Text = "Xenia" Then
harga.Text = 202500000
ElseIf tahun.Text = "2012" And kondisi.Text = "Bekas" And merek.Text = "Xenia" Then
harga.Text = 170000000
End If
If tahun.Text = "2013" And kondisi.Text = "Baru" And merek.Text = "Xenia" Then
harga.Text = 165000000
ElseIf tahun.Text = "2013" And kondisi.Text = "Bekas" And merek.Text = "Xenia" Then
harga.Text = 120000000
End If
If tahun.Text = "2014" And kondisi.Text = "Baru" And merek.Text = "Xenia" Then
harga.Text = 188000000
ElseIf tahun.Text = "2014" And kondisi.Text = "Bekas" And merek.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("Merek Mobil", 120, HorizontalAlignment.Center)
lv.Columns.Add("Tahun", 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(merek.Text)
lst.SubItems.Add(tahun.Text)
lst.SubItems.Add(kondisi.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jumlahbeli.Text)
lst.SubItems.Add(totalharga.Text)
lst.SubItems.Add(uangmuka.Text)
lst.SubItems.Add(komisisales.Text)
lst.SubItems.Add(totalkredit.Text)
lst.SubItems.Add(lamakredit.Text)
lst.SubItems.Add(angsuran.Text)
lv.Items.Add(lst)
End Sub
Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
merek.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 simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
Call isitable()
merek.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 Hapusemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapusemua.Click
lv.Items.Clear()
End Sub
Private Sub hapusperkode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusperkode.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
Me.Close()
End Sub
End Class
Semoga artikel Program kredit mobil dengan vb net 2008 bermanfaat!!!
0 Response to "Program kredit mobil dengan vb net 2008"
Oops...nggak boleh masukin link aktif disini kak! Mau nyepam ya? Komen dinonaktifkan otomatis oleh Admin Ganteng