Sistem Penjualan Televisi

Public Class Form1

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

        kode.Items.Add("1")

        kode.Items.Add("2")

        kode.Items.Add("2")

        kode.Items.Add("1")

        kode.Items.Add("3")

        jumlah.Items.Add("1")

        jumlah.Items.Add("2")

        jumlah.Items.Add("3")

        Call buattable()

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        If kode.Text = "1" Then

            produk.Text = "TV"

            harga.Text = "2000000"

        ElseIf kode.Text = "2" Then

            produk.Text = "DVD"

            harga.Text = "650000"

        ElseIf kode.Text = "3" Then

            produk.Text = "CD ROOM"

            harga.Text = "4500000"

        End If

    End Sub

    Private Sub Jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.SelectedIndexChanged

        total.Text = jumlah.Text * harga.Text

    End Sub

    Sub buattable()

        lv.Columns.Add("kode", 100, HorizontalAlignment.Center)

        lv.Columns.Add("produk", 100, HorizontalAlignment.Center)

        lv.Columns.Add("harga", 100, HorizontalAlignment.Center)

        lv.Columns.Add("jumlah", 100, HorizontalAlignment.Center)

        lv.Columns.Add("total", 100, HorizontalAlignment.Center)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitable()

        Dim lst As New ListViewItem

        lst.Text = kode.Text

        lst.SubItems.Add(produk.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jumlah.Text)

        lst.SubItems.Add(total.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call isitable()

        kode.Text = ""

        produk.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        total.Text = ""

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        kode.Text = ""

        produk.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        total.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        lv.Items.Clear()

    End Sub

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

        Close()

    End Sub

End Class