Public Class Form1
Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
If un.Text = "jaka putra" And pass.Text = "darafatimah" Then
menuutama.show()
Me.Hide()
Else
MsgBox("data username/password salah")
un.Text = ""
pass.Text = ""
End If
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
End Class
Listing Program Menu
Public Class menuutama
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub
Private Sub TagihanPDAMToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanPDAMToolStripMenuItem1.Click
Tagihan_PDAM.show()
End Sub
End Class
Listing Program Tagihan PDAM
Public Class Tagihan_PDAM
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
lv.Items.Clear()
End Sub
Private Sub btnpilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpilih.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Sub buattabel()
lv.Columns.Add("Kode Pelanggan", 100, HorizontalAlignment.Center)
lv.Columns.Add("Tipe Pelanggan", 100, HorizontalAlignment.Center)
lv.Columns.Add("Daerah Pelanggan", 120, HorizontalAlignment.Center)
lv.Columns.Add("No Urut", 50, HorizontalAlignment.Center)
lv.Columns.Add("Harga/m3", 80, HorizontalAlignment.Center)
lv.Columns.Add("Pemakaian/bln", 100, HorizontalAlignment.Center)
lv.Columns.Add("Pajak", 75, HorizontalAlignment.Center)
lv.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = kp.Text
lst.SubItems.Add(tp.Text)
lst.SubItems.Add(dp.Text)
lst.SubItems.Add(nu.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(bln.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(total.Text)
lv.Items.Add(lst)
End Sub
Private Sub btnsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsemua.Click
kp.Text = ""
tp.Text = ""
dp.Text = ""
nu.Text = ""
bb.Text = ""
harga.Text = ""
bln.Text = ""
pajak.Text = ""
total.Text = ""
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
kp.Text = ""
tp.Text = ""
dp.Text = ""
nu.Text = ""
bb.Text = ""
harga.Text = ""
bln.Text = ""
pajak.Text = ""
total.Text = ""
End Sub
Private Sub Tagihan_PDAM_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buattabel()
End Sub
Private Sub kp_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.TextChanged
Dim x As String
Microsoft.VisualBasic.Left(kp.Text, 3)
x = Microsoft.VisualBasic.Left(kp.Text, 3)
If x = "TOK" Then
tp.Text = "TOKO"
bb.Text = 25000
harga.Text = 300
ElseIf x = "RUM" Then
tp.Text = "RUMAH"
bb.Text = 15000
harga.Text = 100
ElseIf x = "SWA" Then
tp.Text = "SWALAYAN"
bb.Text = 10000
harga.Text = 200
ElseIf x = "PAB" Then
tp.Text = "PABRIK"
bb.Text = 250000
harga.Text = 500
End If
x = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)
If x = "MED" Then
dp.Text = "MEDAN"
ElseIf x = "BEL" Then
dp.Text = "BELAWAN"
ElseIf x = "TEM" Then
dp.Text = "AKSARA"
ElseIf x = "MAR" Then
dp.Text = "MARENDAL"
ElseIf x = "BIN" Then
dp.Text = "BINJAI"
ElseIf x = "PAK" Then
dp.Text = "LUBUK PAKAM"
End If
x = Microsoft.VisualBasic.Right(kp.Text, 3)
nu.Text = x
End Sub
Private Sub bln_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles bln.KeyDown
If e.KeyCode = Keys.Enter Then
total.Text = Val(bb.Text) + Val(harga.Text) * bln.Text
pajak.Text = total.Text * 1 / 100
End if
End Sub
End Class
Hasil Program
