Listview Perhitungan Penjualan Barang

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KB.Items.Add("TS0001")
        KB.Items.Add("TS0002")
        KB.Items.Add("VG0001")
        KB.Items.Add("VG0002")

        Call BuatTabel()

    End Sub
    Sub BuatTabel()
        LV.Columns.Add("No. Pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 180, HorizontalAlignment.Center)

        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim Lst As New ListViewItem
        Lst.Text = NP.Text
        Lst.SubItems.Add(KB.Text)
        Lst.SubItems.Add(NB.Text)
        Lst.SubItems.Add(merk.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(JB.Text)
        Lst.SubItems.Add(TH.Text)

        LV.Items.Add(Lst)
    End Sub

        Private Sub SkL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SkL.Click
        Call isitabel()
    End Sub

    Private Sub KB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(KB.Text, 2)
        If x = "TS" Then
            merk.Text = "Toshiba"
        ElseIf x = "TS" Then
            merk.Text = "Toshiba"
        ElseIf x = "VG" Then
            merk.Text = "V-Gen"
        ElseIf x = "VG" Then
            merk.Text = "V-Gen"
        End If
        x = Microsoft.VisualBasic.Right(KB.Text, 3)
        If x = "001" Then
            NB.Text = "Flashdisk 4 GB"
        ElseIf x = "TS" Then
            NB.Text = "Flashdisk 2 GB"
        ElseIf x = "VG" Then
            NB.Text = "Flashdisk 4 GB"
        ElseIf x = "VG" Then
            merk.Text = "Flashdisk 2 GB"
        End If
    End Sub

    Private Sub TH_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TH.KeyPress
        TH.Text = Harga.Text * JB.Text

    End Sub

      Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End

    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        NP.Text = ""
        KB.Text = ""
        NB.Text = ""
        merk.Text = ""
        Harga.Text = ""
        JB.Text = ""
        TH.Text = ""

    End Sub

    Private Sub HSD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HSD.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub HDP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HDP.Click
        LV.Items.Clear()
    End Sub
End Class