Minggu, 07 Desember 2014

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

By No comments
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
Read More