Selesaikanlah Kasus Berikut : Penjualan Kredit Mobil
Design gambar seperti di bawah ini
Berikut Jawaban Program :
Masukkan listing programnya sebagai berikut:
Public Class Form1
Sub BuatTabel()
lv.Columns.Add("Kode", 50, HorizontalAlignment.Center)
lv.Columns.Add("Nama", 80, HorizontalAlignment.Left)
lv.Columns.Add("Tahun", 50, HorizontalAlignment.Center)
lv.Columns.Add("Kondisi", 50, HorizontalAlignment.Center)
lv.Columns.Add("T.Harga", 70, HorizontalAlignment.Left)
lv.Columns.Add("DP", 70, HorizontalAlignment.Left)
lv.Columns.Add("Komisi", 60, HorizontalAlignment.Left)
lv.Columns.Add("T.Kredit", 80, HorizontalAlignment.Left)
lv.Columns.Add("L.Kredit", 50, HorizontalAlignment.Left)
lv.Columns.Add("Angsuran per Bulan", 110, HorizontalAlignment.Left)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub Isitabel()
Dim lst As New ListViewItem
lst.Text = kode.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(tahun.Text)
lst.SubItems.Add(kondisi.Text)
lst.SubItems.Add(tharga.Text)
lst.SubItems.Add(um.Text)
lst.SubItems.Add(komisi.Text)
lst.SubItems.Add(tkredit.Text)
lst.SubItems.Add(lamakredit.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
Call BuatTabel()
For i = 5 To 1 Step -1
jumlah.Items.Add(i)
Next i
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")
lamakredit.Items.Add("12")
lamakredit.Items.Add("18")
lamakredit.Items.Add("24")
lamakredit.Items.Add("30")
lamakredit.Items.Add("36")
lamakredit.Items.Add("42")
lamakredit.Items.Add("48")
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Select Case kode.Text
Case "MB1"
nama.Text = "Avanza Velos"
Case "MB2"
nama.Text = "Avanza"
Case "MB3"
nama.Text = "Xenia"
Case "MB4"
nama.Text = "Yaris"
End Select
End Sub
Private Sub kondisi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kondisi.SelectedIndexChanged
If kode.Text = "MB1" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
harga.Text = "175000000"
ElseIf kode.Text = "MB1" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
harga.Text = "150000000"
ElseIf kode.Text = "MB1" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
harga.Text = "195000000"
ElseIf kode.Text = "MB1" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
harga.Text = "175000000"
ElseIf kode.Text = "MB1" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
harga.Text = "208000000"
ElseIf kode.Text = "MB1" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
harga.Text = "190000000"
ElseIf kode.Text = "MB2" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
harga.Text = "155000000"
ElseIf kode.Text = "MB2" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
harga.Text = "130000000"
ElseIf kode.Text = "MB2" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
harga.Text = "185000000"
ElseIf kode.Text = "MB2" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
harga.Text = "165000000"
ElseIf kode.Text = "MB2" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
harga.Text = "190000000"
ElseIf kode.Text = "MB2" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
harga.Text = "165000000"
ElseIf kode.Text = "MB3" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
harga.Text = "185000000"
ElseIf kode.Text = "MB3" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
harga.Text = "160000000"
ElseIf kode.Text = "MB3" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
harga.Text = "200000000"
ElseIf kode.Text = "MB3" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
harga.Text = "185000000"
ElseIf kode.Text = "MB3" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
harga.Text = "225000000"
ElseIf kode.Text = "MB3" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
harga.Text = "200000000"
ElseIf kode.Text = "MB4" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
harga.Text = "165000000"
ElseIf kode.Text = "MB4" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
harga.Text = "135000000"
ElseIf kode.Text = "MB4" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
harga.Text = "195000000"
ElseIf kode.Text = "MB4" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
harga.Text = "175000000"
ElseIf kode.Text = "MB4" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
harga.Text = "24000000"
ElseIf kode.Text = "MB4" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
harga.Text = "210000000"
End If
End Sub
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
tharga.Text = jumlah.Text * harga.Text
um.Text = 0.3 * tharga.Text
komisi.Text = 0.02 * jumlah.Text * um.Text
tkredit.Text = tharga.Text - um.Text
angsuran.Text = (Val(tkredit.Text) * (0.03 * lamakredit.Text) + Val(tkredit.Text)) / lamakredit.Text
End Sub
Private Sub isilist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles isilist.Click
Call Isitabel()
End Sub
Private Sub hapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapuslist.Click
lv.Items.Clear()
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
Me.Close()
End Sub
Private Sub hdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hdata.Click
kode.Text = ""
nama.Text = ""
tahun.Text = ""
kondisi.Text = ""
harga.Text = ""
jumlah.Text = ""
tharga.Text = ""
um.Text = ""
komisi.Text = ""
tkredit.Text = ""
lamakredit.Text = ""
angsuran.Text = ""
End Sub
End Class
Maka tampilannya akan seperti ini:
Demikilahlah postingan saya
Nama : Agnes Siregar NPM : 13110649
Selamat Belajar Pemrograman VB NET
Design gambar seperti di bawah ini
Berikut Jawaban Program :
Masukkan listing programnya sebagai berikut:
Public Class Form1
Sub BuatTabel()
lv.Columns.Add("Kode", 50, HorizontalAlignment.Center)
lv.Columns.Add("Nama", 80, HorizontalAlignment.Left)
lv.Columns.Add("Tahun", 50, HorizontalAlignment.Center)
lv.Columns.Add("Kondisi", 50, HorizontalAlignment.Center)
lv.Columns.Add("T.Harga", 70, HorizontalAlignment.Left)
lv.Columns.Add("DP", 70, HorizontalAlignment.Left)
lv.Columns.Add("Komisi", 60, HorizontalAlignment.Left)
lv.Columns.Add("T.Kredit", 80, HorizontalAlignment.Left)
lv.Columns.Add("L.Kredit", 50, HorizontalAlignment.Left)
lv.Columns.Add("Angsuran per Bulan", 110, HorizontalAlignment.Left)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub Isitabel()
Dim lst As New ListViewItem
lst.Text = kode.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(tahun.Text)
lst.SubItems.Add(kondisi.Text)
lst.SubItems.Add(tharga.Text)
lst.SubItems.Add(um.Text)
lst.SubItems.Add(komisi.Text)
lst.SubItems.Add(tkredit.Text)
lst.SubItems.Add(lamakredit.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
Call BuatTabel()
For i = 5 To 1 Step -1
jumlah.Items.Add(i)
Next i
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")
lamakredit.Items.Add("12")
lamakredit.Items.Add("18")
lamakredit.Items.Add("24")
lamakredit.Items.Add("30")
lamakredit.Items.Add("36")
lamakredit.Items.Add("42")
lamakredit.Items.Add("48")
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Select Case kode.Text
Case "MB1"
nama.Text = "Avanza Velos"
Case "MB2"
nama.Text = "Avanza"
Case "MB3"
nama.Text = "Xenia"
Case "MB4"
nama.Text = "Yaris"
End Select
End Sub
Private Sub kondisi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kondisi.SelectedIndexChanged
If kode.Text = "MB1" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
harga.Text = "175000000"
ElseIf kode.Text = "MB1" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
harga.Text = "150000000"
ElseIf kode.Text = "MB1" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
harga.Text = "195000000"
ElseIf kode.Text = "MB1" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
harga.Text = "175000000"
ElseIf kode.Text = "MB1" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
harga.Text = "208000000"
ElseIf kode.Text = "MB1" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
harga.Text = "190000000"
ElseIf kode.Text = "MB2" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
harga.Text = "155000000"
ElseIf kode.Text = "MB2" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
harga.Text = "130000000"
ElseIf kode.Text = "MB2" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
harga.Text = "185000000"
ElseIf kode.Text = "MB2" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
harga.Text = "165000000"
ElseIf kode.Text = "MB2" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
harga.Text = "190000000"
ElseIf kode.Text = "MB2" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
harga.Text = "165000000"
ElseIf kode.Text = "MB3" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
harga.Text = "185000000"
ElseIf kode.Text = "MB3" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
harga.Text = "160000000"
ElseIf kode.Text = "MB3" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
harga.Text = "200000000"
ElseIf kode.Text = "MB3" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
harga.Text = "185000000"
ElseIf kode.Text = "MB3" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
harga.Text = "225000000"
ElseIf kode.Text = "MB3" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
harga.Text = "200000000"
ElseIf kode.Text = "MB4" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
harga.Text = "165000000"
ElseIf kode.Text = "MB4" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
harga.Text = "135000000"
ElseIf kode.Text = "MB4" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
harga.Text = "195000000"
ElseIf kode.Text = "MB4" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
harga.Text = "175000000"
ElseIf kode.Text = "MB4" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
harga.Text = "24000000"
ElseIf kode.Text = "MB4" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
harga.Text = "210000000"
End If
End Sub
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
tharga.Text = jumlah.Text * harga.Text
um.Text = 0.3 * tharga.Text
komisi.Text = 0.02 * jumlah.Text * um.Text
tkredit.Text = tharga.Text - um.Text
angsuran.Text = (Val(tkredit.Text) * (0.03 * lamakredit.Text) + Val(tkredit.Text)) / lamakredit.Text
End Sub
Private Sub isilist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles isilist.Click
Call Isitabel()
End Sub
Private Sub hapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapuslist.Click
lv.Items.Clear()
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
Me.Close()
End Sub
Private Sub hdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hdata.Click
kode.Text = ""
nama.Text = ""
tahun.Text = ""
kondisi.Text = ""
harga.Text = ""
jumlah.Text = ""
tharga.Text = ""
um.Text = ""
komisi.Text = ""
tkredit.Text = ""
lamakredit.Text = ""
angsuran.Text = ""
End Sub
End Class
Maka tampilannya akan seperti ini:
Demikilahlah postingan saya
Nama : Agnes Siregar NPM : 13110649
Selamat Belajar Pemrograman VB NET




























