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

 Selesaikanlah Kasus Berikut :

PENJUALAN KREDIT MOBIL

Berikut Jawaban Program :

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("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")
        lkredit.Items.Add("12")
        lkredit.Items.Add("24")
        lkredit.Items.Add("36")
        lkredit.Items.Add("48")

        For i = 1 To 20
            jumlah.Items.Add(i)
        Next
    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 Veloz")
            Case "MB2"
                nama.Text = ("Avanza G")
            Case "MB3"
                nama.Text = ("Xenia G")
            Case "MB4"
                nama.Text = ("Yaris")
        End Select
  


    End Sub

    Private Sub harga_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles harga.MouseClick
       
    End Sub

    Private Sub lkredit_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lkredit.SelectedIndexChanged
        angsuran.Text = ((totalk.Text) * (0.03 * lkredit.Text))
    End Sub

    Private Sub BtnIsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIsi.Click
        Call IsiTabel()
        kode.Text = ""
        nama.Text = ""
        tahun.Text = ""
        kondisi.Text = ""
        jumlah.Text = ""
        harga.Text = ""
        tharga.Text = ""
        dp.Text = ""
        komisi.Text = ""
        totalk.Text = ""
        lkredit.Text = ""
        angsuran.Text = ""
    End Sub
    Sub BuatTabel()
        Lv.Columns.Add("Kode", 50, HorizontalAlignment.Center)
        Lv.Columns.Add("NAMA", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("Tahun Keluaran", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("Kondisi", 60, HorizontalAlignment.Left)
        Lv.Columns.Add("Jumlah", 60, HorizontalAlignment.Left)
        Lv.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Total Harga", 150, HorizontalAlignment.Left)
        Lv.Columns.Add("Uang Muka", 120, HorizontalAlignment.Left)
        Lv.Columns.Add("Komisi Sales", 90, HorizontalAlignment.Left)
        Lv.Columns.Add("Total Komisi", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("Lama Kredit", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Angsuran / Bulan", 120, 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(jumlah.Text)
        Lst.SubItems.Add(harga.Text)
        Lst.SubItems.Add(tharga.Text)
        Lst.SubItems.Add(dp.Text)
        Lst.SubItems.Add(komisi.Text)
        Lst.SubItems.Add(totalk.Text)
        Lst.SubItems.Add(lkredit.Text)
        Lst.SubItems.Add(angsuran.Text)
        Lv.Items.Add(Lst)
    End Sub

    Private Sub BtnHapusList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusList.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub

    Private Sub BtnData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnData.Click
        kode.Text = ""
        nama.Text = ""
        tahun.Text = ""
        kondisi.Text = ""
        jumlah.Text = ""
        harga.Text = ""
        tharga.Text = ""
        dp.Text = ""
        komisi.Text = ""
        totalk.Text = ""
        lkredit.Text = ""
        angsuran.Text = ""
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        Dim Tanya As String
        Tanya = MsgBox("Are You Sure Close Program ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        If Tanya = vbYes Then

        End If
        Me.Close()
    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 = "165000000"
        ElseIf kode.Text = "MB2" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
            harga.Text = "100000000"
        ElseIf kode.Text = "MB2" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
            harga.Text = "190000000"
        ElseIf kode.Text = "MB2" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
            harga.Text = "125000000"
        ElseIf kode.Text = "MB2" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
            harga.Text = "205000000"
        ElseIf kode.Text = "MB2" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
            harga.Text = "180000000"
        ElseIf kode.Text = "MB3" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
            harga.Text = "176000000"
        ElseIf kode.Text = "MB3" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
            harga.Text = "130000000"
        ElseIf kode.Text = "MB3" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
            harga.Text = "196000000"
        ElseIf kode.Text = "MB3" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
            harga.Text = "210000000"
        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 = "205000000"
        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 = "215000000"
        ElseIf kode.Text = "MB4" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
            harga.Text = "147000000"
        ElseIf kode.Text = "MB4" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
            harga.Text = "225000000"
        ElseIf kode.Text = "MB4" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
            harga.Text = "180000000"
        End If

    End Sub

    Private Sub jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.SelectedIndexChanged
        tharga.Text = jumlah.Text * harga.Text
        dp.Text = (0.3 * tharga.Text)
        komisi.Text = (0.02 * jumlah.Text * dp.Text)
        totalk.Text = Val(tharga.Text) - Val(dp.Text)
    End Sub
End Class











Nah,,, Akan muncul Hasilnya Seperti Gambar di Bawah ini..

Demikilahlah postingan saya 
Nama : Sinema Waruwu
NPM : 13110066
Selamat Belajar Pemrograman VB NET Pemrograman VB NET