Listing Program
Public Class LOGIN
Private Sub btnmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasuk.Click
If username.Text = "yadi" And password.Text = "suhendro" Then
tampil.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
Menu
Public Class tampil
Private Sub DATATAGIHANPDAMToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATATAGIHANPDAMToolStripMenuItem.Click
DATA_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
Data Tagihan PDAM
Public Class DATA_PDAM
Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
Dim y As String
y = Microsoft.VisualBasic.Left(kd_plnggan.Text, 3)
If y = "TOK" Then
tipe_pelanggan.Text = "TOKO"
biayabbn.Text = 25000
harga.Text = 300
ElseIf y = "RUM" Then
tipe_pelanggan.Text = "RUMAH"
biayabbn.Text = 15000
harga.Text = 100
ElseIf y = "SWA" Then
tipe_pelanggan.Text = "SWALYAN"
biayabbn.Text = 10000
harga.Text = 200
ElseIf y = "PAB" Then
tipe_pelanggan.Text = "PABRIK"
biayabbn.Text = 25000
harga.Text = 500
End If
y = Microsoft.VisualBasic.Mid(kd_plnggan.Text, 4, 1)
If y = "-" Then
End If
y = Microsoft.VisualBasic.Mid(kd_plnggan.Text, 5, 3)
If y = "MED" Then
daerah_plggn.Text = "MEDAN"
ElseIf y = "BEL" Then
daerah_plggn.Text = "BELAWAN"
ElseIf y = "TEM" Then
daerah_plggn.Text = "AKSARA"
ElseIf y = "BIN" Then
daerah_plggn.Text = "BINJAI"
ElseIf y = "PAK" Then
daerah_plggn.Text = "LUBUK-PAKAM"
End If
y = Microsoft.VisualBasic.Mid(kd_plnggan.Text, 8, 1)
If y = "-" Then
End If
no_urutan.Text = Microsoft.VisualBasic.Mid(kd_plnggan.Text, 9, 4)
totaltagihan.Text = Val(biayabbn.Text) + Val(harga.Text) * pemakaian_air.Text
pajak.Text = (1 / 100) * Val(totaltagihan.Text)
End Sub
End Class
Hasil Gambar