Quis no 1

Public Class Quiz1

    Sub BuatTabel()
        Storage.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Jumlah Pembelian", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        Storage.View = View.Details
        Storage.GridLines = True
        Storage.FullRowSelect = True
    End Sub

    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = No_Pembelian.Text
        Lst.SubItems.Add(Kd_Barang.Text)
        Lst.SubItems.Add(Nm_Barang.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(Merk.Text)
        Lst.SubItems.Add(Jumlah.Text)
        Lst.SubItems.Add(Total.Text)
        Storage.Items.Add(Lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kd_Barang.Items.Add("TS001")
        Kd_Barang.Items.Add("TS002")
        Kd_Barang.Items.Add("VG001")
        Kd_Barang.Items.Add("VG002")

        Call BuatTabel()

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_Barang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(Kd_Barang.Text, 2)
        If x = "TS" Then
            Merk.Text = "Toshiba"
        ElseIf x = "VG" Then
            Merk.Text = "V-Gen"
        End If

        x = Microsoft.VisualBasic.Right(Kd_Barang.Text, 3)
        If x = "001" Then
            Nm_Barang.Text = "Flashdisk 4GB"
        ElseIf x = "002" Then
            Nm_Barang.Text = "Flashdisk 2GB"
        End If

        Select Case Kd_Barang.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 Btn_Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Tambah.Click
        IsiTabel()
        No_Pembelian.Text = ""
        Kd_Barang.Text = ""
        Nm_Barang.Text = ""
        Harga.Text = ""
        Merk.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub

    Private Sub Total_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Total.KeyPress
        Total.Text = Harga.Text * Val(Jumlah.Text)
    End Sub

    Private Sub Btn_Hapus_yg_Dipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus_yg_Dipilih.Click
        Storage.Items.Remove(Storage.SelectedItems(0))
    End Sub

    Private Sub Btn_Hapus_Semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus_Semua.Click
        Storage.Items.Clear()
    End Sub

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

    Private Sub Btn_Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Bersih.Click
        No_Pembelian.Text = ""
        Kd_Barang.Text = ""
        Nm_Barang.Text = ""
        Harga.Text = ""
        Merk.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub
End Class