Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LV.Columns.Add("Kode", 70, HorizontalAlignment.Center)
LV.Columns.Add("Harga", 100, HorizontalAlignment.Left)
LV.Columns.Add("Jenis", 100, HorizontalAlignment.Left)
LV.Columns.Add("Beban", 100, HorizontalAlignment.Left)
LV.Columns.Add("Pemakaian", 100, HorizontalAlignment.Left)
LV.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)
LV.View = View.Details
LV.FullRowSelect = True
LV.GridLines = True
Kode.Items.Add(1)
Kode.Items.Add(2)
Kode.Items.Add(3)
End Sub
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
If Kode.Text = 1 Then
Jenis.Text = "Rumah"
Beban.Text = 25000
Harga.Text = 3000
ElseIf Kode.Text = 2 Then
Jenis.Text = "Toko"
Beban.Text = 50000
Harga.Text = 5000
ElseIf Kode.Text = 3 Then
Jenis.Text = "Pabrik"
Beban.Text = 100000
Harga.Text = 10000
End If
End Sub
Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
Pembayaran.Text = Val(Beban.Text) + Val(Harga.Text) * Val(Pemakaian.Text)
Dim lst As New ListViewItem
lst.Text = Kode.Text
lst.SubItems.Add(Harga.Text)
lst.SubItems.Add(Jenis.Text)
lst.SubItems.Add(Beban.Text)
lst.SubItems.Add(Pemakaian.Text)
lst.SubItems.Add(Pembayaran.Text)
LV.Items.Add(lst)
End Sub
Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
Kode.Text = ""
Harga.Text = ""
Jenis.Text = ""
Beban.Text = ""
Pemakaian.Text = ""
Pembayaran.Text = ""
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
