Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
lv.Columns.Add("kode",
80, HorizontalAlignment.Center)
lv.Columns.Add("nama",
80, HorizontalAlignment.Center)
lv.Columns.Add("Tipe",
80, HorizontalAlignment.Center)
lv.Columns.Add("Biaya
Beban", 80, HorizontalAlignment.Center)
lv.Columns.Add("Jumlah
Pemakaian", 80, HorizontalAlignment.Center)
lv.Columns.Add("total",
80, HorizontalAlignment.Center)
lv.Columns.Add("Harga",
80, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
kodepelanggan.Items.Add("001")
kodepelanggan.Items.Add("002")
tipe.Items.Add("A1")
tipe.Items.Add("A2")
tipe.Items.Add("A3")
End Sub
Private Sub kodepelanggan_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
kodepelanggan.SelectedIndexChanged
Select Case
kodepelanggan.Text
Case
"001"
nama.Text = "Toko"
biayabeban.Text = "25000"
Case
"002"
nama.Text = "Pabrik"
biayabeban.Text = "50000"
Case
"003"
nama.Text = "Rumah"
biayabeban.Text = "100000"
End Select
End Sub
Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
tipe.SelectedIndexChanged
Select Case tipe.Text
Case
"A1" : biayabeban.Text = "25000"
harga.Text = 300
Case
"A2" : biayabeban.Text = "50000"
harga.Text = 100
Case
"A3" : biayabeban.Text = "100000"
harga.Text = 500
End Select
End Sub
Private Sub btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnproses.Click
Dim lst
As New
ListViewItem
total.Text = Val(biayabeban.Text) +
Val(harga.Text) * Val(jmhpemakaian.Text)
lst.Text = kodepelanggan.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(tipe.Text)
lst.SubItems.Add(biayabeban.Text)
lst.SubItems.Add(jmhpemakaian.Text)
lst.SubItems.Add(total.Text)
lst.SubItems.Add(harga.Text)
lv.Items.Add(lst)
End Sub
Private Sub btuhapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btuhapus.Click
lv.Items.Clear()
End Sub
Private Sub btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnkeluar.Click
End
End Sub
End Class
