Public Class Form1
Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click
If nama.Text = "heru" And password.Text = "poernomo" Then
Form2.Show()
Me.Hide()
Else
MsgBox("username or password yg anda masukkan salah...!!!")
nama.Text = ""
password.Text = ""
End If
End Sub
Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
End
End Sub
End Class
Public Class Form2
Private Sub TagihanPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanPDAMToolStripMenuItem.Click
Form3.Show()
End Sub
Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click
End
End Sub
End Class
Public Class Form3
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
Dim x As String
x = Microsoft.VisualBasic.Left(kode.Text, 3)
If x = "pab" Then
tipepelanggan.Text = "pabrik"
hargaperkubik.Text = "500"
pemakaian.Text = "250000"
ElseIf x = "tok" Then
tipepelanggan.Text = "toko"
hargaperkubik.Text = "300"
pemakaian.Text = "25000"
ElseIf x = "rum" Then
tipepelanggan.Text = "rumah"
hargaperkubik.Text = "100"
pemakaian.Text = "15000"
ElseIf x = "swa" Then
tipepelanggan.Text = "swalayan"
hargaperkubik.Text = "200"
pemakaian.Text = "10000"
End If
x = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
If x = "med" Then
daerah.Text = "medan"
ElseIf x = "bel" Then
daerah.Text = "belawan"
ElseIf x = "tem" Then
daerah.Text = "aksara"
ElseIf x = "mar" Then
daerah.Text = "marendal"
ElseIf x = "bin" Then
daerah.Text = "binjai"
ElseIf x = "pak" Then
daerah.Text = "lubuk pakam"
End If
nourut.Text = Microsoft.VisualBasic.Right(kode.Text, 3)
End Sub
Private Sub jumlahpakai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahpemakaian.KeyPress
If Asc(e.KeyChar) = 13 Then
perbulan.Text = jumlahpemakaian.Text * hargaperkubik.Text
totaltagihan.Text = Val(pemakaian.Text) + Val(hargaperkubik.Text) * perbulan.Text
pajak.Text = totaltagihan.Text * 0.01
totalbayar.Text = Val(totaltagihan.Text) + Val(pajak.Text)
End If
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
kode.Text = ""
nourut.Text = ""
daerah.Text = ""
tipepelanggan.Text = ""
hargaperkubik.Text = ""
pemakaian.Text = ""
jumlahpemakaian.Text = ""
perbulan.Text = ""
totaltagihan.Text = ""
pajak.Text = ""
totalbayar.Text = ""
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
End Class
Public Class Form1
Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click
If nama.Text = "heru" And password.Text = "poernomo" Then
Form2.Show()
Me.Hide()
Else
MsgBox("username or password yg anda masukkan salah...!!!")
nama.Text = ""
password.Text = ""
End If
End Sub
Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
End
End Sub
End Class
Public Class Form2
Private Sub TagihanPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanPDAMToolStripMenuItem.Click
Form3.Show()
End Sub
Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click
End
End Sub
End Class
Public Class Form3
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
Dim x As String
x = Microsoft.VisualBasic.Left(kode.Text, 3)
If x = "pab" Then
tipepelanggan.Text = "pabrik"
hargaperkubik.Text = "500"
pemakaian.Text = "250000"
ElseIf x = "tok" Then
tipepelanggan.Text = "toko"
hargaperkubik.Text = "300"
pemakaian.Text = "25000"
ElseIf x = "rum" Then
tipepelanggan.Text = "rumah"
hargaperkubik.Text = "100"
pemakaian.Text = "15000"
ElseIf x = "swa" Then
tipepelanggan.Text = "swalayan"
hargaperkubik.Text = "200"
pemakaian.Text = "10000"
End If
x = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
If x = "med" Then
daerah.Text = "medan"
ElseIf x = "bel" Then
daerah.Text = "belawan"
ElseIf x = "tem" Then
daerah.Text = "aksara"
ElseIf x = "mar" Then
daerah.Text = "marendal"
ElseIf x = "bin" Then
daerah.Text = "binjai"
ElseIf x = "pak" Then
daerah.Text = "lubuk pakam"
End If
nourut.Text = Microsoft.VisualBasic.Right(kode.Text, 3)
End Sub
Private Sub jumlahpakai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahpemakaian.KeyPress
If Asc(e.KeyChar) = 13 Then
perbulan.Text = jumlahpemakaian.Text * hargaperkubik.Text
totaltagihan.Text = Val(pemakaian.Text) + Val(hargaperkubik.Text) * perbulan.Text
pajak.Text = totaltagihan.Text * 0.01
totalbayar.Text = Val(totaltagihan.Text) + Val(pajak.Text)
End If
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
kode.Text = ""
nourut.Text = ""
daerah.Text = ""
tipepelanggan.Text = ""
hargaperkubik.Text = ""
pemakaian.Text = ""
jumlahpemakaian.Text = ""
perbulan.Text = ""
totaltagihan.Text = ""
pajak.Text = ""
totalbayar.Text = ""
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
End Class