Tugas Praktikum Penjualan Kredit Mobil

Public Class Form1

    Sub BuatTabel()

        LV.Columns.Add("Kode", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Jenis Mobil", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Tahun", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Kondisi", 72, HorizontalAlignment.Center)

        LV.Columns.Add("Harga", 70, HorizontalAlignment.Center)

        LV.Columns.Add("Jumlah Beli", 70, HorizontalAlignment.Center)

        LV.Columns.Add("TotalHarga", 90, HorizontalAlignment.Center)

        LV.Columns.Add("Uang Muka", 90, HorizontalAlignment.Center)

        LV.Columns.Add("Komisi Sales", 90, HorizontalAlignment.Center)

        LV.Columns.Add("Total Kredit", 90, HorizontalAlignment.Center)

        LV.Columns.Add("Lama Kredit", 90, HorizontalAlignment.Center)

        LV.Columns.Add("Angsuran Per Bulan", 90, 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(jenis.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(ansuran.Text)

        LV.Items.Add(Lst)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        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")

        lamakredit.Items.Add("12")

        lamakredit.Items.Add("24")

        lamakredit.Items.Add("36")

        lamakredit.Items.Add("48")

        For i = 1 To 10

            jumlahbeli.Items.Add(i)

        Next

    End Sub

    Private Sub jenis_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles jenis.MaskInputRejected

    End Sub

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

        If kode.Text = "MB1" Then

            jenis.Text = "Avanza Velos"

        ElseIf kode.Text = "MB2" Then

            jenis.Text = "Avanza G"

        ElseIf kode.Text = "MB3" Then

            jenis.Text = "Xenia G"

        ElseIf kode.Text = "MB4" Then

            jenis.Text = "Yaris"

        End If

    End Sub

    Private Sub harga_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles harga.MaskInputRejected

    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 = 120000000

        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 = 130000000

        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 = 170000000

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

            harga.Text = 170000000

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

            harga.Text = 115000000

        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 = 130000000

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

            harga.Text = 200000000

        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 = 160000000

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

            harga.Text = 120000000

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

            harga.Text = 175000000

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

            harga.Text = 125000000

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

            harga.Text = 190000000

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

            harga.Text = 155000000

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

            harga.Text = 150000000

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

            harga.Text = 120000000

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

            harga.Text = 165000000

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

            harga.Text = 115000000

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

            harga.Text = 185000000

        ElseIf kode.Text = "MB4" And tahun.Text = "2014" And kondisi.Text = "Bekas" 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 = totalharga.Text * 0.3

        komisisales.Text = 0.2 * jumlahbeli.Text * uangmuka.Text

        totalkredit.Text = (totalharga.Text - uangmuka.Text)

    End Sub

    Private Sub uangmuka_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles uangmuka.MaskInputRejected

    End Sub

    Private Sub totalharga_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles totalharga.MaskInputRejected

    End Sub

    Private Sub komisisales_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles komisisales.MaskInputRejected

        totalkredit.Text = (totalharga.Text - uangmuka.Text)

    End Sub

    Private Sub totalkredit_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles totalkredit.MaskInputRejected

    End Sub

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

        ansuran.Text = (((totalkredit.Text) * (0.3 * lamakredit.Text)) + totalkredit.Text) / lamakredit.Text

    End Sub

    Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

    Private Sub Btnreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnreset.Click

        kode.Text = ""

        jenis.Text = ""

        tahun.Text = ""

        kondisi.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

        uangmuka.Text = ""

        komisisales.Text = ""

        totalkredit.Text = ""

        lamakredit.Text = ""

        ansuran.Text = ""

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        isitable()

        kode.Text = ""

        jenis.Text = ""

        tahun.Text = ""

        kondisi.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

        uangmuka.Text = ""

        komisisales.Text = ""

        totalkredit.Text = ""

        lamakredit.Text = ""

        ansuran.Text = ""

    End Sub

    Private Sub Btnhapusygdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusygdipilih.Click

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

    End Sub

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

    End Sub

End Class




Demikilahlah postingan saya  Nama : (GUSTI WANDA MUHALIM)  NPM : (13110875)
Selamat Belajar Pemrograman VB NET (http://mesran.net/quiz.html)