ListView Perhitungan Penjualan Barang

Pembuatan listview penjualan barang dengan menggunakan visual studio 2008 :

Public Class Form1

    Sub buattabel()

        lv.Columns.Add("No", 50, HorizontalAlignment.Center)

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

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

        lv.Columns.Add("Merk", 100, HorizontalAlignment.Left)

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

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

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

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = no.Text

        lst.SubItems.Add(kb.Text)

        lst.SubItems.Add(nb.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(jumlah.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(th.Text)

        lv.Items.Add(lst)

    End Sub

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

        buattabel()

        kb.Items.Add("TS001")

        kb.Items.Add("TS002")

        kb.Items.Add("VG001")

        kb.Items.Add("VG002")

    End Sub

    Private Sub kb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb.SelectedIndexChanged

        Dim m As String

        Dim i As String

        m = Microsoft.VisualBasic.Left(kb.Text, 2)

        i = Microsoft.VisualBasic.Right(kb.Text, 3)

        Select Case m

            Case "TS" : merk.Text = "Toshiba"

            Case "VG" : merk.Text = "V-GEN"

        End Select

        Select Case i

            Case "001" : nb.Text = "Flashdisk 4GB"

            Case "002" : nb.Text = "Flashdisk 2GB"

        End Select

        If m = "TS" And i = "001" Then

            harga.Text = 105000

        ElseIf m = "TS" And i = "002" Then

            harga.Text = 75000

        ElseIf m = "VG" And i = "001" Then

            harga.Text = 90000

        ElseIf m = "VG" And i = "002" Then

            harga.Text = 60000

        End If

    End Sub

    Private Sub btnlis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlis.Click

        isitabel()

        no.Text = ""

        kb.Text = ""

        nb.Text = ""

        merk.Text = ""

        jumlah.Text = ""

        harga.Text = ""

        th.Text = ""

    End Sub

    Private Sub btnhapussem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussem.Click

        lv.Items.Clear()

    End Sub

    Private Sub btnhapusdat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdat.Click

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

    End Sub

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

        End

    End Sub

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

        lv.Items.Clear()

    End Sub

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

        Dim Tombol As Integer = Asc(e.KeyChar)

        If Tombol = 13 Then

            jumlah_TextChanged(sender, e)

            th.Text = jumlah.Text * harga.Text

        End If

    End Sub

    Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.TextChanged

    End Sub

End Class

Terimakasih.