Contoh program penjualan pada visual basic 2008

è Buat lah 7 label pada from1

è Buatlah 6 textbox pada from1

è Buatlah 1 combobox pada from1

è 3 botton

Gantikan properties nya seperti gambar berikut:

Lalu klik 2 kali form1

Lalu ketikan seperti di bawah ini:

Public Class Form1

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

     

        kodebarang.Items.Add("TS001")

        kodebarang.Items.Add("TS002")

        kodebarang.Items.Add("VG001")

        kodebarang.Items.Add("VG002")

       

    End Sub

Setelah itu klik 2 kali combobox kode barang, lalu isikan kode berikut ini:

  Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged

        If kodebarang.Text = "VG001" Then

            namabarang.Text = "flashdisk 4GB"

            merk.Text = "V-gen"

            harga.Text = "30000"

        ElseIf kodebarang.Text = "VG002" Then

            namabarang.Text = "flashdisk 2GB"

            merk.Text = "V-gen"

            harga.Text = "25000"

        ElseIf kodebarang.Text = "TS001" Then

            namabarang.Text = "flashdisk 4GB"

            merk.Text = "Thosiba"

            harga.Text = "45000"

        ElseIf kodebarang.Text = "TS002" Then

            namabarang.Text = "flashdisk 2GB"

            merk.Text = "Thosiba"

            harga.Text = "40000"

        End If

    End Sub

Dan kembali ke form1, klik2 kali total harga:

Untuk total harga disini saya menggunakan keypress:

Dan isikan kode di bawah ini:

If Asc(e.KeyChar) = 13 Then

            totalharga.Focus()

            totalharga.Text = harga.Text * jumlahbeli.Text

        End If

    End Sub

 Karena kita telah menggunakan keypress, kita tidak perlu lagi mengisikan kode di botton proses,,
 

Dan untuk botton hapus kita dapat mengisikan kode seperti di bawah ini:

   Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        nopembelian.Text = ""

        kodebarang.Text = ""

        namabarang.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

    End Sub

Dan untuk botton keluar, hanya perlu mengisikankode “end”, lihat seperti kode di bawah ini:

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

        End

    End Sub

Setelah selesai kita dapat menjalan kan file nya dengan menekan F5,,
dan lihat hasil nya,,

Tapi maaf gaan disini saya tidak dapat membuat no.pembelian. karena saya juga masih newbie dibidang pemprograman,,

cukup sekian dari saya untuk pemprograman sederhana visual basic 2008:

Semoga bermafaat bagi kita semua,, :)