Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
KP.Items.Add("TOK-MED-100")
KP.Items.Add("PAB-BEL-101")
KP.Items.Add("SWA-BEL-102")
KP.Items.Add("PAB-MED-103")
KP.Items.Add("RUM-MED-104")
Call buat_tabel()
End Sub
Sub buat_tabel()
lv.GridLines = True
lv.View = View.Details
lv.FullRowSelect = True
lv.Columns.Add("KP")
lv.Columns.Add("Nama")
lv.Columns.Add("Tipe")
lv.Columns.Add("Daerah")
lv.Columns.Add("HargaM3")
lv.Columns.Add("BBeban")
lv.Columns.Add("Pemakaian")
lv.Columns.Add("TTagihan")
lv.Columns.Add("Pajak")
lv.Columns.Add("Pembayaran")
End Sub
Private Sub btnmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasuk.Click
Dim lst As New ListViewItem
lst.Text = KP.Text
lst.SubItems.Add(Nama.Text)
lst.SubItems.Add(Tipe.Text)
lst.SubItems.Add(Daerah.Text)
lst.SubItems.Add(HargaM3.Text)
lst.SubItems.Add(BBeban.Text)
lst.SubItems.Add(Pemakaian.Text)
lst.SubItems.Add(TTagihan.Text)
lst.SubItems.Add(Pajak.Text)
lst.SubItems.Add(Pembayaran.Text)
lv.Items.Add(lst)
End Sub
Private Sub btnhapuslistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslistview.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
Private Sub lv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged
End Sub
Private Sub KP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KP.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Right(KP.Text, 3)
If x = "100" Then
nama.Text = "Muhammad Ardianto"
ElseIf x = "101" Then
nama.Text = "Jekson Sinaga"
ElseIf x = "102" Then
nama.Text = "Triani Arista"
ElseIf x = "103" Then
nama.Text = "Aldyan"
End If
x = Microsoft.VisualBasic.Left(KP.Text, 3)
If x = "PAB" Then
HargaM3.Text = 500
BBeban.Text = 250000
Tipe.Text = "Pabrik"
ElseIf x = "TOK" Then
HargaM3.Text = 500
BBeban.Text = 25000
Tipe.Text = "Toko"
ElseIf x = "RUM" Then
HargaM3.Text = 500
BBeban.Text = 10000
Tipe.Text = "Rumah"
ElseIf x = "SWA" Then
HargaM3.Text = 200
BBeban.Text = 15000
Tipe.Text = "Swalayan"
End If
x = Microsoft.VisualBasic.Mid(KP.Text, 5, 3)
If x = "MED" Then
Daerah.Text = "Medan"
ElseIf x = "BEL" Then
Daerah.Text = "Belawan"
End If
End Sub
Private Sub Pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Pemakaian.KeyPress
If Asc(e.KeyChar) = 13 Then
TTagihan.Text = HargaM3.Text * Pemakaian.Text + Val(BBeban.Text)
Pajak.Text = 0.01 * TTagihan.Text
Pembayaran.Text = Val(TTagihan.Text) + Val(Pajak.Text)
End If
End Sub
Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
KP.Text = ""
Nama.Text = ""
Tipe.Text = ""
TTagihan.Text = ""
HargaM3.Text = ""
Pajak.Text = ""
Pembayaran.Text = ""
Pemakaian.Text = ""
Daerah.Text = ""
BBeban.Text = ""
End Sub
End Class
