CODING VB.NET

Public Class QUIS

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isi()
        bersh()
    End Sub

    Private Sub QUIS_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rancang()
        kobar.Items.Add("TS001")
        kobar.Items.Add("TS002")
        kobar.Items.Add("VG001")
        kobar.Items.Add("VG002")
    End Sub

    Private Sub kobar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kobar.SelectedIndexChanged
        If kobar.Text = "TS001" Then
            nabar.Text = "FLASHDISCK 4GB"
            merk.Text = "TOSHIBA"
            harga.Text = "105000"
        ElseIf kobar.Text = "TS002" Then
            nabar.Text = "FLASHDISK 2GB"
            merk.Text = "TOSHIBA"
            harga.Text = "75000"
        ElseIf kobar.Text = "VG001" Then
            nabar.Text = "FLASHDISK 4GB"
            merk.Text = "V-GEN"
            harga.Text = "90000"
        Else
            nabar.Text = "FLASHDISK 2GB"
            merk.Text = "V-GEN"
            harga.Text = "60000"
        End If
        jumbel.Focus()
    End Sub

    Private Sub jumbel_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumbel.KeyPress
        If e.KeyChar = Chr(13) Then
            If jumbel.Text = "" Then
                MsgBox("MASUKAN JUMLAH BELI TERLEBIH DAHULU")
            Else
                tohar.Text = harga.Text * jumbel.Text
            End If
        End If
    End Sub
    Sub rancang()
        lv.Columns.Add("NO Pembelian", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Harga", 90, HorizontalAlignment.Center)
        lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Total Harga", 110, HorizontalAlignment.Center)
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.View = View.Details

    End Sub
    Sub isi()
        Dim lst As New ListViewItem
        lst.Text = nopem.Text
        lst.SubItems.Add(kobar.Text)
        lst.SubItems.Add(nabar.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumbel.Text)
        lst.SubItems.Add(tohar.Text)
        lv.Items.Add(lst)

    End Sub
    Sub bersh()
        nopem.Text = ""
        kobar.Text = ""
        nabar.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumbel.Text = ""
        tohar.Text = ""
        nopem.Focus()
    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        bersh()
    End Sub

    Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click
        lv.Items.Clear()
    End Sub

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

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End
    End Sub
End Class