Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
NO.Items.Add("1")
NO.Items.Add("2")
NO.Items.Add("3")
NO.Items.Add("4")
NO.Items.Add("5")
KODE.Items.Add("1")
KODE.Items.Add("2")
KODE.Items.Add("3")
LV.Columns.Add("NO",
50, HorizontalAlignment.Center)
LV.Columns.Add("KODE",
50, HorizontalAlignment.Center)
LV.Columns.Add("PRODUK",
100, HorizontalAlignment.Left)
LV.Columns.Add("HARGA",
150, HorizontalAlignment.Left)
LV.Columns.Add("JUMLAH",
100, HorizontalAlignment.Center)
LV.Columns.Add("TOTAL",
150, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = False
End Sub
Private Sub btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnproses.Click
TOTAL.Text = Val(HARGA.Text) *
Val(JUMLAH.Text)
Dim
list As New
ListViewItem
list.Text = NO.Text
list.SubItems.Add(KODE.Text)
list.SubItems.Add(PRODUK.Text)
list.SubItems.Add(HARGA.Text)
list.SubItems.Add(JUMLAH.Text)
list.SubItems.Add(TOTAL.Text)
LV.Items.Add(list)
End Sub
Private Sub KODE_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
KODE.SelectedIndexChanged
If
KODE.Text = 1 Then
PRODUK.Text = "TV"
HARGA.Text = 2000000
ElseIf
KODE.Text = 2 Then
PRODUK.Text = "DVD"
HARGA.Text = 650000
ElseIf
KODE.Text = 3 Then
PRODUK.Text = "CD ROOM"
HARGA.Text = 450000
End If
End Sub
Private Sub btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub btnhapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapus.Click
No.Text = ""
KODE.Text = ""
PRODUK.Text = ""
HARGA.Text = ""
JUMLAH.Text = ""
TOTAL.Text = ""
LV.Text = ""
End Sub
Private Sub LV_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
LV.SelectedIndexChanged
End Class
