Latihan ListView Perhitungan Penjualan Barang

Public Class Form1

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

        kdbrg.Items.Add("TS001")
        kdbrg.Items.Add("TS002")
        kdbrg.Items.Add("VG001")
        kdbrg.Items.Add("VG002")


    End Sub



    Private Sub kdbrng_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbrg.SelectedIndexChanged
        Dim X As String
        Dim y As String

        X = Microsoft.VisualBasic.Left(kdbrg.Text, 2)
        y = Microsoft.VisualBasic.Right(kdbrg.Text, 3)
        Select Case X
            Case "TS" : merk.Text = "Toshiba"
            Case "VG" : merk.Text = "V-GEN"
        End Select
        Select Case y
            Case "001" : nmbrg.Text = "Flashdisk 4GB"
            Case "002" : nmbrg.Text = "Flashdisk 2GB"
        End Select

        If X = "TS" And y = "001" Then
            harga.Text = 105000
        ElseIf X = "TS" And y = "002" Then
            harga.Text = 75000
        ElseIf X = "VG" And y = "001" Then
            harga.Text = 50000
        ElseIf X = "VG" And y = "002" Then
            harga.Text = 80000

        End If
    End Sub


    Sub BuatTabel()
        lv.Columns.Add("Pembeli", 80, 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 Harga", 100, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = pembeli.Text
        lst.SubItems.Add(kdbrg.Text)
        lst.SubItems.Add(nmbrg.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(jlhbeli.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(ttalharga.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        pembeli.Text = ""
        kdbrg.Text = ""
        nmbrg.Text = ""
        merk.Text = ""
        harga.Text = ""
        ttalharga.Text = ""
        jlhbeli.Text = ""

    End Sub

    Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
        pembeli.Text = ""
        kdbrg.Text = ""
        nmbrg.Text = ""
        merk.Text = ""
        harga.Text = ""
        ttalharga.Text = ""
        jlhbeli.Text = ""

    End Sub

    Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
        pembeli.Text = ""
        kdbrg.Text = ""
        nmbrg.Text = ""
        merk.Text = ""
        harga.Text = ""
        ttalharga.Text = ""
        jlhbeli.Text = ""
    End Sub

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

    End Sub

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

        isitabel()
        ttalharga.Text = harga.Text * jlhbeli.Text


    End Sub

   
    Private Sub jlhbeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlhbeli.TextChanged
        ttalharga.Text = harga.Text * jlhbeli.Text
    End Sub
End Class

hasilnya :