Program kredit mobil dengan vb net 2008

kreditPapa zaman sekarang ini mungkin tidak asing lagi yang namanya Kredit. Bisa kredit Sepeda Motor, Mobil, Barang Elektronik, dan lain-lain. Oleh karena itu tidak ada salanya kita membuat sebuah Program kredit mobil dengan vb net 2008 .









Next to Coding :


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

        For i = 1 To 100 Step 1
            jumlahbeli.Items.Add(i)
        Next

        For i = 12 To 48 Step 12
            lamakredit.Items.Add(i)
        Next
    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        If kode.Text = "MB1" Then
            merek.Text = "Avanza Veloz"
        ElseIf kode.Text = "MB2" Then
            merek.Text = "Avanza G"
        ElseIf kode.Text = "MB3" Then
            merek.Text = "Xenia"
        Else
            merek.Text = "Yarris"
        End If
    End Sub

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

        If tahun.Text = "2012" And kondisi.Text = "Baru" And merek.Text = "Avanza Veloz" Then
            harga.Text = 175000000
        ElseIf tahun.Text = "2012" And kondisi.Text = "Bekas" And merek.Text = "Avanza Veloz" Then
            harga.Text = 120000000

        End If
        If tahun.Text = "2013" And kondisi.Text = "Baru" And merek.Text = "Avanza Veloz" Then
            harga.Text = 195000000
        ElseIf tahun.Text = "2013" And kondisi.Text = "Bekas" And merek.Text = "Avanza Veloz" Then
            harga.Text = 130000000
        End If

        If tahun.Text = "2014" And kondisi.Text = "Baru" And merek.Text = "Avanza Veloz" Then
            harga.Text = 208000000
        ElseIf tahun.Text = "2014" And kondisi.Text = "Bekas" And merek.Text = "Avanza Veloz" Then
            harga.Text = 170000000
        End If


        If tahun.Text = "2012" And kondisi.Text = "Baru" And merek.Text = "Avanza G" Then
            harga.Text = 160000000
        ElseIf tahun.Text = "2012" And kondisi.Text = "Bekas" And merek.Text = "Avanza G" Then
            harga.Text = 110000000

        End If
        If tahun.Text = "2013" And kondisi.Text = "Baru" And merek.Text = "Avanza G" Then
            harga.Text = 175000000
        ElseIf tahun.Text = "2013" And kondisi.Text = "Bekas" And merek.Text = "Avanza G" Then
            harga.Text = 120000000
        End If

        If tahun.Text = "2014" And kondisi.Text = "Baru" And merek.Text = "Avanza G" Then
            harga.Text = 188000000
        ElseIf tahun.Text = "2014" And kondisi.Text = "Bekas" And merek.Text = "Avanza G" Then
            harga.Text = 160000000
        End If


        If tahun.Text = "2012" And kondisi.Text = "Baru" And merek.Text = "Xenia" Then
            harga.Text = 155000000
        ElseIf tahun.Text = "2012" And kondisi.Text = "Bekas" And merek.Text = "Xenia" Then
            harga.Text = 110000000

        End If
        If tahun.Text = "2013" And kondisi.Text = "Baru" And merek.Text = "Xenia" Then
            harga.Text = 175000000
        ElseIf tahun.Text = "2013" And kondisi.Text = "Bekas" And merek.Text = "Xenia" Then
            harga.Text = 120000000
        End If

        If tahun.Text = "2014" And kondisi.Text = "Baru" And merek.Text = "Xenia" Then
            harga.Text = 168000000
        ElseIf tahun.Text = "2014" And kondisi.Text = "Bekas" And merek.Text = "Xenia" Then
            harga.Text = 130000000
        End If

        If tahun.Text = "2012" And kondisi.Text = "Baru" And merek.Text = "Xenia" Then
            harga.Text = 202500000
        ElseIf tahun.Text = "2012" And kondisi.Text = "Bekas" And merek.Text = "Xenia" Then
            harga.Text = 170000000

        End If
        If tahun.Text = "2013" And kondisi.Text = "Baru" And merek.Text = "Xenia" Then
            harga.Text = 165000000
        ElseIf tahun.Text = "2013" And kondisi.Text = "Bekas" And merek.Text = "Xenia" Then
            harga.Text = 120000000
        End If

        If tahun.Text = "2014" And kondisi.Text = "Baru" And merek.Text = "Xenia" Then
            harga.Text = 188000000
        ElseIf tahun.Text = "2014" And kondisi.Text = "Bekas" And merek.Text = "Xenia" 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 = 0.3 * totalharga.Text
        komisisales.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
        angsuran.Text = (((totalharga.Text) * (0.03 * lamakredit.Text)) + Val(totalkredit.Text)) / lamakredit.Text
    End Sub
    Sub buattabel()
        lv.Columns.Add("Kode", 40, HorizontalAlignment.Center)
        lv.Columns.Add("Merek Mobil", 120, HorizontalAlignment.Center)
        lv.Columns.Add("Tahun", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Kondisi", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Harga", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Jumlah Beli", 130, HorizontalAlignment.Center)
        lv.Columns.Add("Total Harga", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Uang Muka", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Komisi Sales", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Total Kredit", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Lama Kredit", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Angsuran Perbulan", 150, 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(merek.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(angsuran.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
        merek.Text = ""
        jumlahbeli.Text = ""
        komisisales.Text = ""
        kondisi.Text = ""
        uangmuka.Text = ""
        tahun.Text = ""
        totalharga.Text = ""
        kode.Text = ""
        lamakredit.Text = ""
        harga.Text = ""
        totalkredit.Text = ""
        angsuran.Text = ""
    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        Call isitable()
        merek.Text = ""
        jumlahbeli.Text = ""
        komisisales.Text = ""
        kondisi.Text = ""
        uangmuka.Text = ""
        tahun.Text = ""
        totalharga.Text = ""
        kode.Text = ""
        lamakredit.Text = ""
        harga.Text = ""
        totalkredit.Text = ""
        angsuran.Text = ""
    End Sub

    Private Sub Hapusemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapusemua.Click
        lv.Items.Clear()
    End Sub

    Private Sub hapusperkode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusperkode.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Close()

    End Sub
End Class



Semoga artikel Program kredit mobil dengan vb net 2008 bermanfaat!!!

Related Posts

Berlangganan update artikel terbaru via email:

Tampilkan Komentar
Sembunyikan Komentar

0 Response to "Program kredit mobil dengan vb net 2008"

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel