Program Latihan Listview PerhitunganPenjualan Barang

Kasus Pemrograman : latihan listview perhitungan penjualan barang

Desainlah Form seperti gambar dibawah ini :

Ketikan Di kodenya seperti dibawah:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kodebrang.Items.Add("TS001")
        kodebrang.Items.Add("TS002")
        kodebrang.Items.Add("VG001")
        kodebrang.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("Merek", 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 = nopembelian.Text
        lst.SubItems.Add(kodebrang.Text)
        lst.SubItems.Add(namabarang.Text)
        lst.SubItems.Add(merek.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlahbeli.Text)
        lst.SubItems.Add(totalharga.Text)
        LV.Items.Add(lst)
    End Sub

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

        If x = "TS" Then
            merek.Text = "Toshiba"
        ElseIf x = "VG" Then
            merek.Text = "V-Gen"
        End If

        x = Microsoft.VisualBasic.Right(kodebrang.Text, 3)

        If x = "001" Then
            namabarang.Text = "Flashdisk 4GB"

        ElseIf x = "002" Then
            namabarang.Text = "Flashdisk 2GB"
        End If

        Select Case kodebrang.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 jumlahbeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahbeli.KeyPress
        If Asc(e.KeyChar) = 13 Then
            totalharga.Text = Val(harga.Text) * Val(jumlahbeli.Text)
        End If
    End Sub

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

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

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

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

    Private Sub bbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbersih.Click
        nopembelian.Text = ""
        kodebrang.Text = ""
        namabarang.Text = ""
        merek.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        totalharga.Text = ""
    End Sub
End Class

Tampilan Programnya seperti ini