Tugas Praktikum PENJUALAN KREDIT MOBIL
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("FB01")
Kode.Items.Add("FB02")
Kode.Items.Add("FB03")
Kode.Items.Add("FB04")
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 = "FB01" Then
jenismobil.Text = "FORTUNER"
ElseIf Kode.Text = "FB02" Then
jenismobil.Text = "TERIOS"
ElseIf Kode.Text = "FBO3" Then
jenismobil.Text = "PAJERO SPORT"
Else
jenismobil.Text = "HONDA JAZZ"
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 = "FORTUNER" Then
harga.Text = 175000000
ElseIf tahun.Text = "2012" And kondisi.Text = "Bekas" And jenismobil.Text = "FORTUNER" Then
harga.Text = 120000000
End If
If tahun.Text = "2013" And kondisi.Text = "Baru" And jenismobil.Text = "FORTUNER" Then
harga.Text = 195000000
ElseIf tahun.Text = "2013" And kondisi.Text = "Bekas" And jenismobil.Text = "FORTUNER" Then
harga.Text = 130000000
End If
If tahun.Text = "2014" And kondisi.Text = "Baru" And jenismobil.Text = "FORTUNER" Then
harga.Text = 208000000
ElseIf tahun.Text = "2014" And kondisi.Text = "Bekas" And jenismobil.Text = "FORTUNER" Then
harga.Text = 170000000
End If
If tahun.Text = "2012" And kondisi.Text = "Baru" And jenismobil.Text = "PAJERO SPORT" Then
harga.Text = 160000000
ElseIf tahun.Text = "2012" And kondisi.Text = "Bekas" And jenismobil.Text = "PAJERO SPORT" Then
harga.Text = 110000000
End If
If tahun.Text = "2013" And kondisi.Text = "Baru" And jenismobil.Text = "PAJERO SPORT" Then
harga.Text = 175000000
ElseIf tahun.Text = "2013" And kondisi.Text = "Bekas" And jenismobil.Text = "PAJERO SPORT" Then
harga.Text = 120000000
End If
If tahun.Text = "2014" And kondisi.Text = "Baru" And jenismobil.Text = "PAJERO SPORT" Then
harga.Text = 188000000
ElseIf tahun.Text = "2014" And kondisi.Text = "Bekas" And jenismobil.Text = "PAJERO SPORT" Then
harga.Text = 160000000
End If
If tahun.Text = "2012" And kondisi.Text = "Baru" And jenismobil.Text = "TERIOS" Then
harga.Text = 155000000
ElseIf tahun.Text = "2012" And kondisi.Text = "Bekas" And jenismobil.Text = "TERIOS" Then
harga.Text = 110000000
End If
If tahun.Text = "2013" And kondisi.Text = "Baru" And jenismobil.Text = "TERIOS" Then
harga.Text = 175000000
ElseIf tahun.Text = "2013" And kondisi.Text = "Bekas" And jenismobil.Text = "TERIOS" Then
harga.Text = 120000000
End If
If tahun.Text = "2014" And kondisi.Text = "Baru" And jenismobil.Text = "TERIOS" Then
harga.Text = 168000000
ElseIf tahun.Text = "2014" And kondisi.Text = "Bekas" And jenismobil.Text = "TERIOS" Then
harga.Text = 130000000
End If
If tahun.Text = "2012" And kondisi.Text = "Baru" And jenismobil.Text = "HONDA JAZZ" Then
harga.Text = 202500000
ElseIf tahun.Text = "2012" And kondisi.Text = "Bekas" And jenismobil.Text = "HONDA JAZZ" Then
harga.Text = 170000000
End If
If tahun.Text = "2013" And kondisi.Text = "Baru" And jenismobil.Text = "HONDA JAZZ" Then
harga.Text = 165000000
ElseIf tahun.Text = "2013" And kondisi.Text = "Bekas" And jenismobil.Text = "HONDA JAZZ" Then
harga.Text = 120000000
End If
If tahun.Text = "2014" And kondisi.Text = "Baru" And jenismobil.Text = "HONDA JAZZ" Then
harga.Text = 188000000
ElseIf tahun.Text = "2014" And kondisi.Text = "Bekas" And jenismobil.Text = "HONDA JAZZ" 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("jenis Mobil", 120, HorizontalAlignment.Center)
LV.Columns.Add("Tahun Beli", 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("Uang Muka", 150, HorizontalAlignment.Center)
LV.Columns.Add("Lama Kredit", 150, HorizontalAlignment.Center)
LV.Columns.Add("Komisi Sales", 150, HorizontalAlignment.Center)
LV.Columns.Add("Total Kredit", 150, HorizontalAlignment.Center)
LV.Columns.Add("Angsuran Perbulan", 150, HorizontalAlignment.Center)
LV.Columns.Add("Total Harga", 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(tahun.Text)
lst.SubItems.Add(kondisi.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jumlahbeli.Text)
lst.SubItems.Add(uangmuka.Text)
lst.SubItems.Add(lamakredit.Text)
lst.SubItems.Add(angsuran.Text)
lst.SubItems.Add(komisisales.Text)
lst.SubItems.Add(totalkredit.Text)
lst.SubItems.Add(totalharga.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()
Kode.Text = ""
jenismobil.Text = ""
tahun.Text = ""
kondisi.Text = ""
harga.Text = ""
jumlahbeli.Text = ""
uangmuka.Text = ""
lamakredit.Text = ""
angsuran.Text = ""
komisisales.Text = ""
totalkredit.Text = ""
totalharga.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
Tampilan Form Program
Nama : Sabam Tumanggor
NPM : 13111052
Terima Kasih untuk mengenal program lebih lanjut kunjungi web ini www.mesran.net