JAWABAN SOAL 3 ( MUHAMMAD ARDIANSYAH DAMANIK)

KLIK SOAL 3 PDAM UNTUK LIHAT KASUS

LISTING PROGRAM

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If name1.Text = "ardiansyah" And pass.Text = "ardi" Then
menu1.Show()
Me.Hide()
Else
MsgBox("maaf name/password anda salah!")
name1.Text = ""
pass.Text = ""

End If
End Sub
End Class

Public Class menu1

Private Sub ENDToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ENDToolStripMenuItem.Click
End
End Sub

Private Sub TagihanPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanPDAMToolStripMenuItem.Click
tagihan.Show()
Me.Hide()
End Sub
End Class

Public Class tagihan




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


total.Text = Val(biaya.Text) + Val(hrg.Text) * pmkaian.Text
pjk.Text = (1 / 100) * Val(total.Text)
PEMBAYARAN.Text = Val(pjk.Text) + Val(total.Text)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x As String
x = Microsoft.VisualBasic.Left(kodp.Text, 3)
If x = "TOK" Then
typ.Text = "TOKO"
biaya.Text = 25000
hrg.Text = 300


ElseIf x = "RUM" Then
typ.Text = "RUMAH"
biaya.Text = 15000
hrg.Text = 100


ElseIf x = "SWA" Then
typ.Text = "SWALYAN"
biaya.Text = 10000
hrg.Text = 200



ElseIf x = "PAB" Then
typ.Text = "PABRIK"
biaya.Text = 25000
hrg.Text = 500

End If





x = Microsoft.VisualBasic.Mid(kodp.Text, 4, 1)

If x = "-" Then


End If




x = Microsoft.VisualBasic.Mid(kodp.Text, 5, 3)
If x = "MED" Then
dae.Text = "MEDAN"
ElseIf x = "BEL" Then
dae.Text = "BELAWAN"
ElseIf x = "TEM" Then
dae.Text = "AKSARA"
ElseIf x = "BIN" Then
dae.Text = "BINJAI"
ElseIf x = "PAK" Then
dae.Text = "LUBUK-PAKAM"



End If





x = Microsoft.VisualBasic.Mid(kodp.Text, 8, 1)

If x = "-" Then


End If


no.Text = Microsoft.VisualBasic.Mid(kodp.Text, 9, 3)


End Sub
Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click
kodp.Text = ""
typ.Text = ""
no.Text = ""
dae.Text = ""
pmkaian.Text = ""
biaya.Text = ""
hrg.Text = ""
pjk.Text = ""
total.Text = ""
PEMBAYARAN.Text = ""
End Sub
End Class