Membuat Aplikasi pada Penjualan Mobil dengan Menggunakan Visual Studio 2008

Di sini kita menggunakan dua form, form yang pertama untuk background showroom dan disitu ada menu toolbarnya dan form yang kedua itu adalah data-data penjualan mobil.
Nah kemudian toolbar yang kita gunakan pada form1 itu adalah Menustrip dan di dalam menustrip kita bisa membuat beberapa menu yang akan kita gunakan.
Sedangkan form yang kedua itu adalah data penjualannya dengan menggunakan toolbar-toolbar yang sering di gunakan pada umumnya.

Bentuk form1  :

Codingnya  :

Public Class Form1

    Private Sub KeluarProgramToolStripMenuItem_Click( .... ) Handles
    KeluarProgramToolStripMenuItem.Click
        End
    End Sub

    Private Sub DataPenjualanToolStripMenuItem_Click( ... ) Handles
    DataPenjualanToolStripMenuItem.Click
        Form2.Show()
    End Sub

End Class


Bentuk form2  :

Codingnya :

Public Class Form2

    Sub Bersih()
        faktur.Text = ""
        merk.Text = ""
        tipe.Text = ""
        harga.Text = ""
        tahun.Text = ""
        jlh_beli.Text = ""
        dp.Text = ""
        lama.Text = ""
        cicilan.Text = ""
    End Sub

    Private Sub Form2_Load( ... ) Handles MyBase.Load
        'Faktur Penjualan'
        faktur.Items.Add("001-TOYAVZ13")
        faktur.Items.Add("001-TOYINO15")
        faktur.Items.Add("002-HONBRI15")
        faktur.Items.Add("002-HONJAZ20")
        faktur.Items.Add("003-SUZSWI10")
        faktur.Items.Add("003-SUZXOV12")

        'Tahun'
        tahun.Items.Add("2010")
        tahun.Items.Add("2011")
        tahun.Items.Add("2012")

        'Jumlah Beli'
        Dim i As Integer
        For i = 1 To 10
            jlh_beli.Items.Add(i)
        Next

        'Lama'
        lama.Items.Add("12")
        lama.Items.Add("24")
        lama.Items.Add("36")

        Call Bersih()
        Call BUAT_TABEL()
    End Sub

    Private Sub faktur_SelectedIndexChanged( ... ) Handles
    faktur.SelectedIndexChanged
        Dim x, y As String
        x = Microsoft.VisualBasic.Mid(faktur.Text, 5, 3)
        If x = "TOY" Then
            merk.Text = "TOYOTA"
        ElseIf x = "HON" Then
            merk.Text = "HONDA"
        ElseIf x = "SUZ" Then
            merk.Text = "SUZUKI"
        End If

        y = Microsoft.VisualBasic.Mid(faktur.Text, 8, 3)
        If y = "AVZ" Then
            tipe.Text = "AVANZA"
        ElseIf y = "INO" Then
            tipe.Text = "INOVA"
        ElseIf y = "BRI" Then
            tipe.Text = "BRIO"
        ElseIf y = "JAZ" Then
            tipe.Text = "JAZZ"
        ElseIf y = "SWI" Then
            tipe.Text = "SWIFT"
        ElseIf y = "XOV" Then
            tipe.Text = "X-OVER"
        End If
    End Sub

    Private Sub tahun_SelectedIndexChanged( ... ) Handles
    tahun.SelectedIndexChanged
        If tipe.Text = "AVANZA" And tahun.Text = "2010" Then
            harga.Text = 110000000
            dp.Text = 0.2 * harga.Text
        ElseIf tipe.Text = "AVANZA" And tahun.Text = "2011" Then
            harga.Text = 125000000
            dp.Text = 0.2 * harga.Text
        ElseIf tipe.Text = "AVANZA" And tahun.Text = "2012" Then
            harga.Text = 150000000
            dp.Text = 0.2 * harga.Text
        ElseIf tipe.Text = "INOVA" And tahun.Text = "2010" Then
            harga.Text = 150000000
            dp.Text = 0.2 * harga.Text
        ElseIf tipe.Text = "INOVA" And tahun.Text = "2011" Then
            harga.Text = 165000000
            dp.Text = 0.2 * harga.Text
        ElseIf tipe.Text = "INOVA" And tahun.Text = "2012" Then
            harga.Text = 170000000
            dp.Text = 0.2 * harga.Text
        ElseIf tipe.Text = "BRIO" And tahun.Text = "2010" Then
            harga.Text = 180000000
            dp.Text = 0.2 * harga.Text
        ElseIf tipe.Text = "BRIO" And tahun.Text = "2011" Then
            harga.Text = 200000000
            dp.Text = 0.2 * harga.Text
        ElseIf tipe.Text = "BRIO" And tahun.Text = "2012" Then
            harga.Text = 225000000
            dp.Text = 0.2 * harga.Text
        ElseIf tipe.Text = "JAZZ" And tahun.Text = "2010" Then
            harga.Text = 225000000
            dp.Text = 0.2 * harga.Text
        ElseIf tipe.Text = "JAZZ" And tahun.Text = "2011" Then
            harga.Text = 250000000
            dp.Text = 0.2 * harga.Text
        ElseIf tipe.Text = "JAZZ" And tahun.Text = "2012" Then
            harga.Text = 226000000
            dp.Text = 0.2 * harga.Text
        ElseIf tipe.Text = "SWIFT" And tahun.Text = "2010" Then
            harga.Text = 185000000
            dp.Text = 0.2 * harga.Text
        ElseIf tipe.Text = "SWIFT" And tahun.Text = "2011" Then
            harga.Text = 190000000
            dp.Text = 0.2 * harga.Text
        ElseIf tipe.Text = "SWIFT" And tahun.Text = "2012" Then
            harga.Text = 200000000
            dp.Text = 0.2 * harga.Text
        ElseIf tipe.Text = "X-OVER" And tahun.Text = "2010" Then
            harga.Text = 150000000
            dp.Text = 0.2 * harga.Text
        ElseIf tipe.Text = "X-OVER" And tahun.Text = "2011" Then
            harga.Text = 180000000
            dp.Text = 0.2 * harga.Text
        ElseIf tipe.Text = "X-OVER" And tahun.Text = "2012" Then
            harga.Text = 200000000
            dp.Text = 0.2 * harga.Text
        End If
    End Sub

    Private Sub keluar_Click( ... ) Handles keluar.Click
        Me.Close()
    End Sub

    Private Sub lama_SelectedIndexChanged( ... ) Handles
    lama.SelectedIndexChanged
        If lama.Text = "12" Then
            cicilan.Text = (0.1 * harga.Text + Val(harga.Text)) / 12
        ElseIf lama.Text = "24" Then
            cicilan.Text = (0.1 * harga.Text + Val(harga.Text)) / 24
        ElseIf lama.Text = "36" Then
            cicilan.Text = (0.1 * harga.Text + Val(harga.Text)) / 36
        End If
    End Sub

    Private Sub masuk_Click( ... ) Handles masuk.Click
        Dim lst As New ListViewItem
        lst.Text = faktur.Text
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(tipe.Text)
        lst.SubItems.Add(tahun.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jlh_beli.Text)
        lst.SubItems.Add(dp.Text)
        lst.SubItems.Add(lama.Text)
        lst.SubItems.Add(cicilan.Text)
        lv.Items.Add(lst)
    End Sub

    Sub BUAT_TABEL()
        lv.GridLines = True
        lv.View = View.Details
        lv.FullRowSelect = True
        lv.Columns.Add("Faktur Penjualan")
        lv.Columns.Add("Merk Mobil")
        lv.Columns.Add("Tipe")
        lv.Columns.Add("Tahun")
        lv.Columns.Add("Harga")
        lv.Columns.Add("Jlh Beli")
        lv.Columns.Add("DP")
        lv.Columns.Add("Lama")
        lv.Columns.Add("Cicilan")
    End Sub

    Private Sub hps_record_Click( ... ) Handles hps_record.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub hps_list_Click( ... ) Handles hps_list.Click
        lv.Items.Clear()
    End Sub
End Class

:):):) Selamat Mencoba :):):