Penjualan barang

Buat desain seperti dibawah ini :

Public Class Form1

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

        Call BuatTabel()

        kdbrg.Items.Add("TS-001")

        kdbrg.Items.Add("TS-002")

        kdbrg.Items.Add("VG-001")

        kdbrg.Items.Add("VG-002")

    End Sub

    Sub BuatTabel()

        lv.Columns.Add("No.pelanggan", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Merek Barang", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Harga", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Total", 80, HorizontalAlignment.Left)

        lv.GridLines = True

        lv.FullRowSelect = True

        lv.View = View.Details

    End Sub

    Sub IsiTabel()

        Dim lst As New ListViewItem

        lst.Text = nopembelian.Text

        lst.SubItems.Add(kdbrg.Text)

        lst.SubItems.Add(nmbrg.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jumlahbeli.Text)

        lst.SubItems.Add(totalharga.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub kode_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbrg.SelectedIndexChanged

        Dim x As String

        x = Mid(kdbrg.Text, 1, 2)

        Select Case x

            Case "TS"

                merk.Text = "Toshiba"

            Case "VG"

                merk.Text = "V-Gen"

        End Select

        x = Mid(kdbrg.Text, 4, 6)

        Select Case x

            Case "001"

                nmbrg.Text = "Flashdisk 4GB"

                harga.Text = 105000

            Case "002"

                nmbrg.Text = "Flashdisk 2GB"

                harga.Text = 75000

            Case "001"

                nmbrg.Text = "Flashdisk 4GB"

                harga.Text = 90000

            Case "001"

                nmbrg.Text = "Flashdisk 2GB"

                harga.Text = 60000

        End Select

        jumlahbeli.Focus()

    End Sub

    Private Sub jumlah_beli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahbeli.TextChanged

        totalharga.Text = harga.Text * jumlahbeli.Text

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

        Call IsiTabel()

        MsgBox("Data Telah Tersimpan")

        Call Hapus()

        nopembelian.Focus()

    End Sub

    Sub Hapus()

        nopembelian.Text = ""

        kdbrg.Text = ""

        nmbrg.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click

        Call bersih()

    End Sub

    Private Sub no_pembelian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nopembelian.KeyPress

    End Sub

    Private Sub no_pembelian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nopembelian.TextChanged

    End Sub

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

        If MsgBox("Yakin Mau Keluar?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then Me.Close()

    End Sub

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

        lv.Items.Clear()

    End Sub

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

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

    Private Sub Btnsimpan_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

        Call IsiTabel()

        MsgBox("Data Telah Tersimpan")

        Call Hapus()

        nopembelian.Focus()

    End Sub

    Sub bersih()

        nopembelian.Text = ""

        kdbrg.Text = ""

        nmbrg.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

    End Sub

    Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

    Private Sub totalharga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles totalharga.TextChanged

    End Sub

End Class

Maka hasilnya seperti ini :