LOGIN
Public Class LOGIN
Private Sub btnmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasuk.Click
If username.Text = "rico" And password.Text = "rico" Then
menu_utama.Show()
Me.Hide()
Else
MsgBox("data username/password salah")
username.Text = ""
password.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
HASIL GAMBAR
LISTING PROGRAM
MENU UTAMA
Public Class menu_utama
Private Sub DATATAGIHANPDAMToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATATAGIHANPDAMToolStripMenuItem.Click
TAGIHAN_PDAM.Show()
Me.Hide()
End Sub
Private Sub EXITToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EXITToolStripMenuItem1.Click
End
End Sub
End Class
Private Sub DATATAGIHANPDAMToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATATAGIHANPDAMToolStripMenuItem.Click
TAGIHAN_PDAM.Show()
Me.Hide()
End Sub
Private Sub EXITToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EXITToolStripMenuItem1.Click
End
End Sub
End Class
HASIL GAMBAR
LISTING PROGRAM
TAGIHAN PDAM
Public Class TAGIHAN_PDAM
Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
Dim x As String
x = Microsoft.VisualBasic.Left(kode_pelanggan.Text, 3)
If x = "TOK" Then
type_pelanggan.Text = "TOKO"
biaya_beban.Text = 25000
hargam3.Text = 300
ElseIf x = "RUM" Then
type_pelanggan.Text = "RUMAH"
biaya_beban.Text = 15000
hargam3.Text = 100
ElseIf x = "SWA" Then
type_pelanggan.Text = "SWALYAN"
biaya_beban.Text = 10000
hargam3.Text = 200
ElseIf x = "PAB" Then
type_pelanggan.Text = "PABRIK"
biaya_beban.Text = 25000
hargam3.Text = 500
End If
x = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 4, 1)
If x = "-" Then
End If
x = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 5, 3)
If x = "MED" Then
daerah_pelanggan.Text = "MEDAN"
ElseIf x = "BEL" Then
daerah_pelanggan.Text = "BELAWAN"
ElseIf x = "TEM" Then
daerah_pelanggan.Text = "AKSARA"
ElseIf x = "BIN" Then
daerah_pelanggan.Text = "BINJAI"
ElseIf x = "PAK" Then
daerah_pelanggan.Text = "LUBUK-PAKAM"
End If
x = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 8, 1)
If x = "-" Then
End If
no_urut.Text = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 9, 3)
total_tagihan.Text = Val(biaya_beban.Text) + Val(hargam3.Text) * pemakaian_Air.Text
pajak.Text = (1 / 100) * Val(total_tagihan.Text)
End Sub
End Class
Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
Dim x As String
x = Microsoft.VisualBasic.Left(kode_pelanggan.Text, 3)
If x = "TOK" Then
type_pelanggan.Text = "TOKO"
biaya_beban.Text = 25000
hargam3.Text = 300
ElseIf x = "RUM" Then
type_pelanggan.Text = "RUMAH"
biaya_beban.Text = 15000
hargam3.Text = 100
ElseIf x = "SWA" Then
type_pelanggan.Text = "SWALYAN"
biaya_beban.Text = 10000
hargam3.Text = 200
ElseIf x = "PAB" Then
type_pelanggan.Text = "PABRIK"
biaya_beban.Text = 25000
hargam3.Text = 500
End If
x = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 4, 1)
If x = "-" Then
End If
x = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 5, 3)
If x = "MED" Then
daerah_pelanggan.Text = "MEDAN"
ElseIf x = "BEL" Then
daerah_pelanggan.Text = "BELAWAN"
ElseIf x = "TEM" Then
daerah_pelanggan.Text = "AKSARA"
ElseIf x = "BIN" Then
daerah_pelanggan.Text = "BINJAI"
ElseIf x = "PAK" Then
daerah_pelanggan.Text = "LUBUK-PAKAM"
End If
x = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 8, 1)
If x = "-" Then
End If
no_urut.Text = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 9, 3)
total_tagihan.Text = Val(biaya_beban.Text) + Val(hargam3.Text) * pemakaian_Air.Text
pajak.Text = (1 / 100) * Val(total_tagihan.Text)
End Sub
End Class
HASIL GAMBAR
untuk melihat kasus lihat disini