Kasus Latihan Listview Perhitungan Penjualan Barang

Listing Program :
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kode_Barang.Items.Add("TS001")
        Kode_Barang.Items.Add("TS002")
        Kode_Barang.Items.Add("VG001")
        Kode_Barang.Items.Add("VG002")

        rancang_tabel()

    End Sub

    Private Sub Kode_Barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Barang.SelectedIndexChanged
        Dim X, Y As String
        X = Microsoft.VisualBasic.Left(Kode_Barang.Text, 2)
        Y = Microsoft.VisualBasic.Right(Kode_Barang.Text, 3)

        If X = "TS" Then
            If Y = "001" Then
                Merk.Text = "THOSIBA"
                Nama_Barang.Text = "Flasdisk 4 GB"
                Harga.Text = "105000"
            ElseIf Y = "002" Then

                Merk.Text = "THOSIBA"
                Nama_Barang.Text = "Flashdisk 2GB"
                Harga.Text = "75000"
            End If
        ElseIf X = "VG" Then

            If Y = "001" Then
                Merk.Text = "V-Gen"
                Nama_Barang.Text = "Flasdisk 4 GB"
                Harga.Text = "90000"
            ElseIf Y = "002" Then

                Merk.Text = "V-Gen"
                Nama_Barang.Text = "Flashdisk 2GB"
                Harga.Text = "60000"
            End If
        End If

    End Sub



    Private Sub Jumlah_Beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah_Beli.KeyPress
        If e.KeyChar = Chr(13) Then
            Tohar.Text = Val(Harga.Text * Jumlah_Beli.Text)
        End If
    End Sub

    Sub rancang_tabel()

        LV.Columns.Add("No.Pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
        LV.GridLines = True
        LV.FullRowSelect = True
        LV.View = View.Details

    End Sub

    Sub isi_tabel()
        Dim x As New ListViewItem
        x.Text = No_Pembelian.Text
        x.SubItems.Add(Kode_Barang.Text)
        x.SubItems.Add(Nama_Barang.Text)
        x.SubItems.Add(Merk.Text)
        x.SubItems.Add(Harga.Text)
        x.SubItems.Add(Jumlah_Beli.Text)
        x.SubItems.Add(Tohar.Text)
        LV.Items.Add(x)
    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        isi_tabel()
        No_Pembelian.Text = ""
        Kode_Barang.Text = ""
        Nama_Barang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        Jumlah_Beli.Text = ""
        Tohar.Text = ""

    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        No_Pembelian.Text = ""
        Kode_Barang.Text = ""
        Nama_Barang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        Jumlah_Beli.Text = ""
        Tohar.Text = ""
    End Sub

    Private Sub Hapus_Semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_Semua.Click
        LV.Items.Clear()
    End Sub

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

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Dim s As String
        s = MsgBox("Apakah Anda Yakin ingin Keluar?", MsgBoxStyle.YesNoCancel)
        If s = vbYes Then
            Me.Close()
        End If

    End Sub
End Class