Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

PENJUALAN KREDIT MOBIL.

Berikut ini adalah jawaban program :

PublicClassForm1

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Call buattable()

        kode.Items.Add("SO1")

        kode.Items.Add("SO2")

        kode.Items.Add("SO3")

        kode.Items.Add("SO4")

        tahun.Items.Add("2012")

        tahun.Items.Add("2013")

        tahun.Items.Add("2014")

        kondisi.Items.Add("Baru")

        kondisi.Items.Add("Bekas")

For i = 1 To 20 Step 1

            jumlahbeli.Items.Add(i)

Next i

For z = 1 To 12 Step 1

            lamakredit.Items.Add(z)

Next z

EndSub

Sub buattable()

        LV.Columns.Add("kode", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Mobil", 130, HorizontalAlignment.Left)

        LV.Columns.Add("Tahun", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Kondisi", 70, HorizontalAlignment.Left)

        LV.Columns.Add("Jumlah beli", 70, HorizontalAlignment.Left)

        LV.Columns.Add("Harga", 120, HorizontalAlignment.Left)

        LV.Columns.Add("Total harga", 120, HorizontalAlignment.Left)

        LV.Columns.Add("Uang muka", 120, HorizontalAlignment.Left)

        LV.Columns.Add("Komisi sales", 120, HorizontalAlignment.Left)

        LV.Columns.Add("Total kredit", 120, HorizontalAlignment.Left)

        LV.Columns.Add("Lama kredit", 120, HorizontalAlignment.Left)

        LV.Columns.Add("Angsuran perbulan", 150, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

EndSub

Sub isitable()

Dim lst AsNewListViewItem

        lst.Text = kode.Text

        lst.SubItems.Add(mobil.Text)

        lst.SubItems.Add(tahun.Text)

        lst.SubItems.Add(kondisi.Text)

        lst.SubItems.Add(jumlahbeli.Text)

        lst.SubItems.Add(harga.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)

EndSub

PrivateSub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

EndSub

PrivateSub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

If kode.Text = "SO1"Then

            mobil.Text = "Marcedez Benz"

ElseIf kode.Text = "SO2"Then

            mobil.Text = "Lamborghini"

ElseIf kode.Text = "SO3"Then

            mobil.Text = "Jaguar"

Else

            mobil.Text = "Lexus"

EndIf

EndSub

PrivateSub kondisi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kondisi.SelectedIndexChanged

If kode.Text = "SO1"And tahun.Text = "2012"And kondisi.Text = "Baru"Then

            harga.Text = "185000000"

ElseIf kode.Text = "SO1"And tahun.Text = "2012"And kondisi.Text = "Bekas"Then

            harga.Text = "130000000"

ElseIf kode.Text = "SO1"And tahun.Text = "2013"And kondisi.Text = "Baru"Then

            harga.Text = "195000000"

ElseIf kode.Text = "SO1"And tahun.Text = "2013"And kondisi.Text = "Bekas"Then

            harga.Text = "140000000"

ElseIf kode.Text = "SO1"And tahun.Text = "2014"And kondisi.Text = "Baru"Then

            harga.Text = "218000000"

ElseIf kode.Text = "SO1"And tahun.Text = "2014"And kondisi.Text = "Bekas"Then

            harga.Text = "180000000"

ElseIf kode.Text = "SO2"And tahun.Text = "2012"And kondisi.Text = "Baru"Then

            harga.Text = "145000000"

ElseIf kode.Text = "SO2"And tahun.Text = "2012"And kondisi.Text = "Bekas"Then

            harga.Text = "110000000"

ElseIf kode.Text = "SO2"And tahun.Text = "2013"And kondisi.Text = "Baru"Then

            harga.Text = "170000000"

ElseIf kode.Text = "SO2"And tahun.Text = "2013"And kondisi.Text = "Bekas"Then

            harga.Text = "140000000"

ElseIf kode.Text = "SO2"And tahun.Text = "2014"And kondisi.Text = "Baru"Then

            harga.Text = "195000000"

ElseIf kode.Text = "SO2"And tahun.Text = "2014"And kondisi.Text = "Bekas"Then

            harga.Text = "160000000"

ElseIf kode.Text = "SO3"And tahun.Text = "2012"And kondisi.Text = "Baru"Then

            harga.Text = "155000000"

ElseIf kode.Text = "SO3"And tahun.Text = "2012"And kondisi.Text = "Bekas"Then

            harga.Text = "120000000"

ElseIf kode.Text = "SO3"And tahun.Text = "2013"And kondisi.Text = "Baru"Then

            harga.Text = "199000000"

ElseIf kode.Text = "SO3"And tahun.Text = "2013"And kondisi.Text = "Bekas"Then

            harga.Text = "160000000"

ElseIf kode.Text = "SO3"And tahun.Text = "2014"And kondisi.Text = "Baru"Then

            harga.Text = "22000000"

ElseIf kode.Text = "SO3"And tahun.Text = "2014"And kondisi.Text = "Bekas"Then

            harga.Text = "19000000"

ElseIf kode.Text = "SO4"And tahun.Text = "2012"And kondisi.Text = "Baru"Then

            harga.Text = "144000000"

ElseIf kode.Text = "SO4"And tahun.Text = "2012"And kondisi.Text = "Bekas"Then

            harga.Text = "122000000"

ElseIf kode.Text = "SO4"And tahun.Text = "2013"And kondisi.Text = "Baru"Then

            harga.Text = "166000000"

ElseIf kode.Text = "SO4"And tahun.Text = "2013"And kondisi.Text = "Bekas"Then

            harga.Text = "133000000"

ElseIf kode.Text = "SO4"And tahun.Text = "2014"And kondisi.Text = "Baru"Then

            harga.Text = "19900000"

ElseIf kode.Text = "SO4"And tahun.Text = "2014"And kondisi.Text = "Bekas"Then

            harga.Text = "16700000"

EndIf

EndSub

PrivateSub jumlahbeli_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahbeli.SelectedIndexChanged

        totalharga.Text = Val(jumlahbeli.Text) * Val(harga.Text)

        uangmuka.Text = 0.3 * Val(totalharga.Text)

        komisisales.Text = 0.2 * Val(jumlahbeli.Text) * Val(uangmuka.Text)

        Totalkredit.Text = Val(totalharga.Text) - Val(uangmuka.Text)

EndSub

PrivateSub btnisilist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnisilist.Click

Call isitable()

        kode.Text = ""

        mobil.Text = ""

        tahun.Text = ""

        kondisi.Text = ""

        jumlahbeli.Text = ""

        harga.Text = ""

        totalharga.Text = ""

        uangmuka.Text = ""

        komisisales.Text = ""

        Totalkredit.Text = ""

        lamakredit.Text = ""

        angsuran.Text = ""

EndSub

PrivateSub btnhapuskode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuskode.Click

        LV.Items.Remove(LV.SelectedItems(0))

EndSub

PrivateSub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click

        kode.Text = ""

        mobil.Text = ""

        tahun.Text = ""

        kondisi.Text = ""

        jumlahbeli.Text = ""

        harga.Text = ""

        totalharga.Text = ""

        uangmuka.Text = ""

        komisisales.Text = ""

        Totalkredit.Text = ""

        lamakredit.Text = ""

        angsuran.Text = ""

EndSub

PrivateSub btnhapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslist.Click

        LV.Items.Clear()

EndSub

PrivateSub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

Me.Close()

EndSub

PrivateSub lamakredit_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lamakredit.SelectedIndexChanged

        angsuran.Text = Val(Totalkredit.Text) * Val(0.3 * Val(lamakredit.Text)) + Val(Totalkredit.Text) / Val(lamakredit.Text)

EndSub

EndClass

Berikut adalah hasilnya :

Terima kasih telah membaca Artikel Yuk!Belajar Pemrograman Visual Basic dot Net Di Mesran.Net.

Demikian hasil postigan saya  
 Nama : M.Alhamdani         
 NPM : 13110113

Selamat Belajar Pemorograman VB NET.