latihan listview perhitungan penjualan barang

Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbarang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kdbarang.Text, 2)

        If x = "TS" Then
            merk.Text = "TOSHIBA"
        ElseIf x = "VG" Then
            merk.Text = "V-GEN"
        End If
        x = Microsoft.VisualBasic.Right(kdbarang.Text, 3)

        If x = "001" Then
            nmbarang.Text = "flashdisk 4 GB"
        ElseIf x = "002" Then
            nmbarang.Text = "flashdisk 2 GB"
        End If

        Select Case kdbarang.Text
            Case "TS001" : harga.Text = "10500"
            Case "TS002" : harga.Text = "75000"
            Case "VG001" : harga.Text = "90000"
            Case "VG002" : harga.Text = "60000"
        End Select
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kdbarang.Items.Add("TS001")
        kdbarang.Items.Add("TS002")
        kdbarang.Items.Add("VG001")
        kdbarang.Items.Add("VG002")
        buattabel()
    End Sub
    Sub buattabel()
        LV.Columns.Add("no pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("kode barang", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Nama barang", 80, HorizontalAlignment.Left)
        LV.Columns.Add("merk", 80, HorizontalAlignment.Left)
        LV.Columns.Add("harga", 80, HorizontalAlignment.Left)
        LV.Columns.Add("jumlah beli", 80, HorizontalAlignment.Left)
        LV.Columns.Add("total harga", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nopem.Text
        lst.SubItems.Add(kdbarang.Text)
        lst.SubItems.Add(nmbarang.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumbel.Text)
        lst.SubItems.Add(totharga.Text)
        LV.Items.Add(lst)
    End Sub

    Private Sub jumbel_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumbel.KeyPress
        If Asc(e.KeyChar) = 13 Then
            totharga.Text = Val(harga.Text) * jumbel.Text
        End If
    End Sub

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

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        nopem.Text = ""
        kdbarang.Text = ""
        nmbarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumbel.Text = ""
        totharga.Text = ""
    End Sub

    Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
        LV.Items.Clear()
    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 btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class