Latihan Listview Perhitungan Penjualan Barang

Tampialan Design Awal

Public Class Form1
    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", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = KodeBarang.Text
        lst.SubItems.Add(no.Text)
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(JmlhPembeli.Text)
        lst.SubItems.Add(total.Text)
        LV.Items.Add(lst)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KodeBarang.Items.Add("TS001")
        KodeBarang.Items.Add("TS002")
        KodeBarang.Items.Add("VG001")
        KodeBarang.Items.Add("VG002")

        buattabel()
    End Sub

    Private Sub KodeBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeBarang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(KodeBarang.Text, 2)
        Select Case x
            Case "TS" : Merk.Text = "Toshiba"
            Case "VG" : Merk.Text = "V-Gen"

        End Select

        Dim y As String
        y = Microsoft.VisualBasic.Right(KodeBarang.Text, 3)
        Select Case y
            Case "001" : Nama.Text = "flashdisk 4 GB"
            Case "002" : Nama.Text = "flashdisk 2 GB"

        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 = "90000"
        ElseIf x = "VG" And y = "002" Then
            Harga.Text = "60000"
        Else
            Harga.Text = "0"
        End If
    End Sub
    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        End
    End Sub
   Private Sub BtnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        LV.Items.Clear()
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub JmlhPembeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JmlhPembeli.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Total.Text = JmlhPembeli.Text * Harga.Text
        End If
    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        No.Text = ""
        KodeBarang.Text = ""
        Nama.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        JmlhPembeli.Text = ""
        Total.Text = ""
    End Sub

    Private Sub BtnSimpanKeListview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpanKeListview.Click
        isitabel()
        No.Text = ""
        KodeBarang.Text = ""
        Nama.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        JmlhPembeli.Text = ""
        Total.Text = ""
    End Sub
End Class

Hasil Design nya