Perintahnya:
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
isitabel()
buattabel()
Kode.Items.Add("TS001")
Kode.Items.Add("TS002")
Kode.Items.Add("VG001")
Kode.Items.Add("VG002")
End Sub
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
Kode.SelectedIndexChanged
Select Case Kode.Text
Case
"TS001"
Merk.Text = "Toshiba"
Nama.Text = "Flashdisk 4G"
harga.Text = 105000
jumlahbeli.Text = "3"
Case
"TS002"
Merk.Text = "Toshiba"
Nama.Text = "Flashdisk 2G"
harga.Text = 75000
jumlahbeli.Text = "5"
Case
"VG001"
Merk.Text = "V-Gen"
Nama.Text = "Flashdisk 4G"
harga.Text = 90000
jumlahbeli.Text = "2"
Case
"VG002"
Merk.Text = "V-Gen"
Nama.Text = "Flashdisk 2G"
harga.Text = 60000
jumlahbeli.Text = "2"
End Select
End Sub
Private Sub totalharga_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
totalharga.KeyPress
If
Asc(e.KeyChar) = 13 Then
totalharga.Text = jumlahbeli.Text *
harga.Text
End If
End Sub
Sub
buattabel()
LV.Columns.Add("no
pembelian", 80, HorizontalAlignment.Center)
LV.Columns.Add("kode
barang", 180, HorizontalAlignment.Left)
LV.Columns.Add("nama
barang", 180, HorizontalAlignment.Left)
LV.Columns.Add("merk",
180, HorizontalAlignment.Left)
LV.Columns.Add("harga",
180, HorizontalAlignment.Left)
LV.Columns.Add("jumlah
beli", 180, HorizontalAlignment.Left)
LV.Columns.Add("total
harga", 180, 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(Kode.Text)
lst.SubItems.Add(Nama.Text)
lst.SubItems.Add(Merk.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jumlahbeli.Text)
lst.SubItems.Add(totalharga.Text)
LV.Items.Add(lst)
End Sub
Private Sub btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnproses.Click
isitabel()
No.Text = ""
Kode.Text = ""
Nama.Text = ""
Merk.Text = ""
harga.Text = ""
jumlahbeli.Text = ""
totalharga.Text = ""
End Sub
Private Sub btnhapussemua_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapussemua.Click
LV.Items.Clear()
End Sub
Private Sub btnhapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapus.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
Me.Close()
End Sub
