Judul soal : Tugas Praktikum PENJUALAN KREDIT MOBIL
Berikut Jawaban Program :
Hasil Program :
Coding Program :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
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")
For i = 1 To 20
jumlahbeli.Items.Add(i)
Next
kondisi.Items.Add("Baru")
kondisi.Items.Add("Bekas")
For x = 12 To 48 Step 6
lamakredit.Items.Add(x)
Next
Call settable()
End Sub
Sub settable()
lv.Columns.Add("Kode", 100, HorizontalAlignment.Left)
lv.Columns.Add("Nama Mobil", 100, HorizontalAlignment.Left)
lv.Columns.Add("Tahun", 100, HorizontalAlignment.Left)
lv.Columns.Add("Kondisi", 100, HorizontalAlignment.Left)
lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)
lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
lv.Columns.Add("Total Harga", 100, HorizontalAlignment.Left)
lv.Columns.Add("Uang Muka", 100, HorizontalAlignment.Left)
lv.Columns.Add("Komisi Sales", 100, HorizontalAlignment.Left)
lv.Columns.Add("Total Kredit", 100, HorizontalAlignment.Left)
lv.Columns.Add("Lama Kredit", 100, HorizontalAlignment.Left)
lv.Columns.Add("Angsuran/Bln", 100, HorizontalAlignment.Left)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub isitable()
Dim cicak As New ListViewItem
cicak.Text = kode.Text
cicak.SubItems.Add(nama.Text)
cicak.SubItems.Add(tahun.Text)
cicak.SubItems.Add(kondisi.Text)
cicak.SubItems.Add(harga.Text)
cicak.SubItems.Add(jumlahbeli.Text)
cicak.SubItems.Add(totalharga.Text)
cicak.SubItems.Add(uangmuka.Text)
cicak.SubItems.Add(komisi.Text)
cicak.SubItems.Add(totalkredit.Text)
cicak.SubItems.Add(lamakredit.Text)
cicak.SubItems.Add(angsuranperbulan.Text)
lv.Items.Add(cicak)
kode.Text = ""
nama.Text = ""
tahun.Text = ""
kondisi.Text = ""
harga.Text = ""
jumlahbeli.Text = ""
totalharga.Text = ""
uangmuka.Text = ""
komisi.Text = ""
totalkredit.Text = ""
lamakredit.Text = ""
angsuranperbulan.Text = ""
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
If kode.Text = "MB1" Then
nama.Text = "Avanza Veloz"
ElseIf kode.Text = "MB2" Then
nama.Text = "Avanza 6"
ElseIf kode.Text = "MB3" Then
nama.Text = "Xenia"
ElseIf kode.Text = "MB4" Then
nama.Text = "Yaris"
End If
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 nama.Text = "Avanza Veloz" And kondisi.Text = "Baru" Then
harga.Text = 175
ElseIf kode.Text = "MB1" And tahun.Text = "2012" And nama.Text = "Avanza Veloz" And kondisi.Text = "Bekas" Then
harga.Text = 120
ElseIf kode.Text = "MB1" And tahun.Text = "2013" And nama.Text = "Avanza Veloz" And kondisi.Text = "Baru" Then
harga.Text = 195
ElseIf kode.Text = "MB1" And tahun.Text = "2013" And nama.Text = "Avanza Veloz" And kondisi.Text = "Bekas" Then
harga.Text = 130
ElseIf kode.Text = "MB1" And tahun.Text = "2014" And nama.Text = "Avanza Veloz" And kondisi.Text = "Baru" Then
harga.Text = 208
ElseIf kode.Text = "MB1" And tahun.Text = "2014" And nama.Text = "Avanza Veloz" And kondisi.Text = "Bekas" Then
harga.Text = 170
ElseIf kode.Text = "MB2" And tahun.Text = "2012" And nama.Text = "Avanza 6" And kondisi.Text = "Baru" Then
harga.Text = 189
ElseIf kode.Text = "MB2" And tahun.Text = "2012" And nama.Text = "Avanza 6" And kondisi.Text = "Bekas" Then
harga.Text = 120
ElseIf kode.Text = "MB2" And tahun.Text = "2013" And nama.Text = "Avanza 6" And kondisi.Text = "Baru" Then
harga.Text = 295
ElseIf kode.Text = "MB2" And tahun.Text = "2013" And nama.Text = "Avanza 6" And kondisi.Text = "Bekas" Then
harga.Text = 130
ElseIf kode.Text = "MB2" And tahun.Text = "2014" And nama.Text = "Avanza 6" And kondisi.Text = "Baru" Then
harga.Text = 308
ElseIf kode.Text = "MB2" And tahun.Text = "2014" And nama.Text = "Avanza 6" And kondisi.Text = "Bekas" Then
harga.Text = 170
ElseIf kode.Text = "MB3" And tahun.Text = "2012" And nama.Text = "Xenia" And kondisi.Text = "Baru" Then
harga.Text = 275
ElseIf kode.Text = "MB3" And tahun.Text = "2012" And nama.Text = "Xenia" And kondisi.Text = "Bekas" Then
harga.Text = 120
ElseIf kode.Text = "MB3" And tahun.Text = "2013" And nama.Text = "Xenia" And kondisi.Text = "Baru" Then
harga.Text = 295
ElseIf kode.Text = "MB3" And tahun.Text = "2013" And nama.Text = "Xenia" And kondisi.Text = "Bekas" Then
harga.Text = 130
ElseIf kode.Text = "MB3" And tahun.Text = "2014" And nama.Text = "Xenia" And kondisi.Text = "Baru" Then
harga.Text = 208
ElseIf kode.Text = "MB3" And tahun.Text = "2014" And nama.Text = "Xenia" And kondisi.Text = "Bekas" Then
harga.Text = 170
ElseIf kode.Text = "MB4" And tahun.Text = "2012" And nama.Text = "Yaris" And kondisi.Text = "Baru" Then
harga.Text = 675
ElseIf kode.Text = "MB4" And tahun.Text = "2012" And nama.Text = "Yaris" And kondisi.Text = "Bekas" Then
harga.Text = 420
ElseIf kode.Text = "MB4" And tahun.Text = "2013" And nama.Text = "Yaris" And kondisi.Text = "Baru" Then
harga.Text = 395
ElseIf kode.Text = "MB4" And tahun.Text = "2013" And nama.Text = "Yaris" And kondisi.Text = "Bekas" Then
harga.Text = 230
ElseIf kode.Text = "MB4" And tahun.Text = "2014" And nama.Text = "Yaris" And kondisi.Text = "Baru" Then
harga.Text = 408
ElseIf kode.Text = "MB4" And tahun.Text = "2014" And nama.Text = "Yaris" And kondisi.Text = "Bekas" Then
harga.Text = 270
End If
End Sub
Private Sub jumlahbeli_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahbeli.SelectedIndexChanged
totalharga.Text = harga.Text * jumlahbeli.Text
uangmuka.Text = 0.3 * harga.Text
komisi.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
angsuranperbulan.Text = Val(totalkredit.Text) * 0.03 * Val(lamakredit.Text) + Val(totalkredit.Text) / lamakredit.Text
End Sub
Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
nama.Text = ""
tahun.Text = ""
kondisi.Text = ""
harga.Text = ""
jumlahbeli.Text = ""
totalharga.Text = ""
uangmuka.Text = ""
komisi.Text = ""
totalkredit.Text = ""
lamakredit.Text = ""
angsuranperbulan.Text = ""
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Me.Close()
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
Call isitable()
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click
lv.Items.Clear()
End Sub
End Class
Berikut Setelah Program Dijalankan :
Demikianlah postingan saya sekian dan trimakasih
Nama :Waldi Ahmad
NPM : 13110518
Kelas : TI-P 1312
selamat belajar mas/bro di Pemrograman VB Net
Tidak ada komentar:
Posting Komentar