Listview Perhitungan Penjualan Barang

Ketentuan :
-    Kode barang menentukan nama barang dan merk
-    2 digit karakter dari sebelah kiri menentukan merk barang.
-    3 digit karakter dari sebelah kanan adalah menentukan nama barang.
-    Total harga muncul ketika terjadi penekanan Enter di jumlah beli.
-    Total Harga = Harga * Jumlah Beli

Contoh : Kode Barang = TS001, Merk = Toshiba, Nama Barang = Flashdisk 4GB.
Kode Barang = TS002, Merk = Toshiba, Nama Barang = Flashdisk 2GB.
Kode Barang = VG001, Merk = V-Gen, Nama Barang = Flashdisk 4GB.
Kode Barang = VG002, Merk = V-Gen, Nama Barang = Flashdisk 2GB.

Ketentuan Harga :

Kode Barang	001	002
TS	105000	75000
VG	90000	60000

Berikut ini adalah Program VB design nya.

Public Class Quiz1

    Sub BuatTabel()

        Storage.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Harga", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Merk", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Jumlah Pembelian", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)

        Storage.View = View.Details

        Storage.GridLines = True

        Storage.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = No_Pembelian.Text

        Lst.SubItems.Add(Kd_Barang.Text)

        Lst.SubItems.Add(Nm_Barang.Text)

        Lst.SubItems.Add(Harga.Text)

        Lst.SubItems.Add(Merk.Text)

        Lst.SubItems.Add(Jumlah.Text)

        Lst.SubItems.Add(Total.Text)

        Storage.Items.Add(Lst)

    End Sub

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

        Kd_Barang.Items.Add("TS001")

        Kd_Barang.Items.Add("TS002")

        Kd_Barang.Items.Add("VG001")

        Kd_Barang.Items.Add("VG002")

        Call BuatTabel()

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_Barang.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Left(Kd_Barang.Text, 2)

        If x = "TS" Then

            Merk.Text = "Toshiba"

        ElseIf x = "VG" Then

            Merk.Text = "V-Gen"

        End If

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

        If x = "001" Then

            Nm_Barang.Text = "Flashdisk 4GB"

        ElseIf x = "002" Then

            Nm_Barang.Text = "Flashdisk 2GB"

        End If

        Select Case Kd_Barang.Text

            Case "TS001"

                Harga.Text = "105000"

            Case "TS002"

                Harga.Text = "75000"

            Case "VG001"

                Harga.Text = "90000"

            Case "VG002"

                Harga.Text = "60000"

        End Select

    End Sub

    Private Sub Btn_Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Tambah.Click

        IsiTabel()

        No_Pembelian.Text = ""

        Kd_Barang.Text = ""

        Nm_Barang.Text = ""

        Harga.Text = ""

        Merk.Text = ""

        Jumlah.Text = ""

        Total.Text = ""

    End Sub

    Private Sub Total_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Total.KeyPress

        Total.Text = Harga.Text * Val(Jumlah.Text)

    End Sub

    Private Sub Btn_Hapus_yg_Dipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus_yg_Dipilih.Click

        Storage.Items.Remove(Storage.SelectedItems(0))

    End Sub

    Private Sub Btn_Hapus_Semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus_Semua.Click

        Storage.Items.Clear()

    End Sub

    Private Sub Btn_Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click

        End

    End Sub

    Private Sub Btn_Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Bersih.Click

        No_Pembelian.Text = ""

        Kd_Barang.Text = ""

        Nm_Barang.Text = ""

        Harga.Text = ""

        Merk.Text = ""

        Jumlah.Text = ""

        Total.Text = ""

    End Sub

End Class