Quis Online

Public Class form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "PENJUALAN BARANG"

        KB.Items.Add("TS001")
        KB.Items.Add("TS002")
        KB.Items.Add("VG001")
        KB.Items.Add("VG002")

    End Sub
    Sub Buattabel()
        LV.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        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(KB.Text)
        LST.SubItems.Add(NamaBarang.Text)
        LST.SubItems.Add(Merk.Text)
        LST.SubItems.Add(Harga.Text)
        LST.SubItems.Add(JB.Text)
        LST.SubItems.Add(TH.Text)
        LV.Items.Add(LST)
    End Sub
 
    Private Sub KB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim x As String
        x = Microsoft.VisualBasic.Left(KB.Text, 2)
        Select Case x
            Case "TS" : Merk.Text = "Toshiba"
            Case "VG" : Merk.Text = "V-Gen"
        End Select
        Dim y As String
        y = Microsoft.VisualBasic.Right(KB.Text, 3)
        Select Case y
            Case "001" : NamaBarang.Text = "Flashdisk 4GB"
            Case "002" : NamaBarang.Text = "Flashdisk 2GB"
        End Select
        Dim z As String
        z = Microsoft.VisualBasic.Mid(KB.Text, 1)
        Select Case z
            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_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
        TH.Text = Val(Harga.Text) * Val(JB.Text)
    End Sub


    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub


    Private Sub btn_hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapussemua.Click
        LV.Items.Clear()
    End Sub

    Private Sub Btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_bersih.Click
        Nopembelian.Text = ""
        KB.Text = ""
        NamaBarang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        JB.Text = ""
        TH.Text = ""
    End Sub

End Class