PROGRAM PERHITUNGAN PENJUALAN BARANG

Public Class Form1

    Sub buattabel()
        lv.Columns.Add("No", 50, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Merk", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Total", 80, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True

    End Sub

    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = no.Text
        lst.SubItems.Add(kb.Text)
        lst.SubItems.Add(nb.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(jumlah.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(th.Text)
        lv.Items.Add(lst)
    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
        Dim m As String
        Dim i As String

        m = Microsoft.VisualBasic.Left(kb.Text, 2)
        i = Microsoft.VisualBasic.Right(kb.Text, 3)
        Select Case m
            Case "TS" : merk.Text = "Toshiba"
            Case "VG" : merk.Text = "V-GEN"
        End Select
        Select Case i
            Case "001" : nb.Text = "Flashdisk 4GB"
            Case "002" : nb.Text = "Flashdisk 2GB"
        End Select

        If m = "TS" And i = "001" Then
            harga.Text = 105000
        ElseIf m = "TS" And i = "002" Then
            harga.Text = 75000
        ElseIf m = "VG" And i = "001" Then
            harga.Text = 90000
        ElseIf m = "VG" And i = "002" Then
            harga.Text = 60000

        End If

    End Sub

    Private Sub btnlis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlis.Click
        isitabel()
        no.Text = ""
        kb.Text = ""
        nb.Text = ""
        merk.Text = ""
        jumlah.Text = ""
        harga.Text = ""
        th.Text = ""

    End Sub

    Private Sub btnhapussem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussem.Click
        lv.Items.Clear()

    End Sub

    Private Sub btnhapusdat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdat.Click
        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

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

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        lv.Items.Clear()

    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
        Dim Tombol As Integer = Asc(e.KeyChar)
        If Tombol = 13 Then
            jumlah_TextChanged(sender, e)

            th.Text = jumlah.Text * harga.Text

        End If
    End Sub

    Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.TextChanged

    End Sub
End Class