Penjualan Barang Flashdisk

Listing Program dari tabel di atas adalah :

Public Class Form1

    Private Sub Buttonkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonkeluar.Click

        Me.Close()

    End Sub

    Private Sub Buttonbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonbersih.Click

        bersih()

    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

    Sub bersih()

        nopembelian.Text = ""

        kodebarang.Text = ""

        namabarang.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

    End Sub

    Sub buattabel()

        Lv.Columns.Add("No Pembelian", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("Nama Barang", 120, HorizontalAlignment.Left)

        Lv.Columns.Add("Merk", 100, HorizontalAlignment.Left)

        Lv.Columns.Add("Harga", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("Jumlah Pembelian", 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 = nopembelian.Text()

        lst.SubItems.Add(kodebarang.Text)

        lst.SubItems.Add(namabarang.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jumlahbeli.Text)

        lst.SubItems.Add(totalharga.Text)

        Lv.Items.Add(lst)

    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

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

        Select Case x

            Case "001" : namabarang.Text = "Flashdisk 4GB"

            Case "002" : namabarang.Text = "Flashdisk 2GB"

        End Select

        Select Case kodebarang.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 jumlahbeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahbeli.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            totalharga.Text = Val(harga.Text) * Val(jumlahbeli.Text)

        End If

    End Sub

    Private Sub Buttonsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonsimpan.Click

        isitabel()

        bersih()

    End Sub

    Private Sub Buttonhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonhapussemua.Click

        Lv.Items.Clear()

    End Sub

    Private Sub Buttonhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonhapusdata.Click

        Lv.Items.Remove(Lv.SelectedItems(0))

    End Sub

End Class