Demikian Program untuk Penjualan ................

Perhitungan Penjualan Barang

Public Class Form1

    Sub buatTabel()

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

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

        lv.Columns.Add("Nama Barang", 180, HorizontalAlignment.Left)

        lv.Columns.Add("Merk", 180, HorizontalAlignment.Left)

        lv.Columns.Add("Harga", 180, HorizontalAlignment.Left)

        lv.Columns.Add("Jumlah Beli", 180, HorizontalAlignment.Left)

        lv.Columns.Add("Total Harga", 180, HorizontalAlignment.Left)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = np.Text

        lst.SubItems.Add(kb.Text)

        lst.SubItems.Add(nb.Text)

        lst.SubItems.Add(mrk.Text)

        lst.SubItems.Add(hrg.Text)

        lst.SubItems.Add(jp.Text)

        lst.SubItems.Add(th.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

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

        buatTabel()

        kb.Items.Add("ts001")

        kb.Items.Add("ts002")

        kb.Items.Add("vg001")

        kb.Items.Add("vg002")

    End Sub

    Private Sub kb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb.SelectedIndexChanged

        Select Case kb.Text

            Case "ts001"

                mrk.Text = "Toshiba"

                nb.Text = "Flashdisk 4 GB"

                hrg.Text = 105000

            Case "ts002"

                mrk.Text = "toshiba"

                nb.Text = "flashdisk 2 GB"

                hrg.Text = 75000

            Case "vg001"

                mrk.Text = "v-gen"

                nb.Text = "flashdisk 4 GB"

                hrg.Text = 900000

            Case "vg002"

                mrk.Text = "vgen"

                nb.Text = "flashdisk 2 GB"

                hrg.Text = 60000

        End Select

    End Sub

    Private Sub mrk_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mrk.TextChanged

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        th.Text = jp.Text * hrg.Text

        isitabel()

        np.Text = ""

        kb.Text = ""

        nb.Text = ""

        mrk.Text = ""

        hrg.Text = ""

        jp.Text = ""

        th.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        lv.Items.Clear()

    End Sub

    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

End Class