Public Class Form1
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
KP.Items.Add("TOK-MED-100")
KP.Items.Add("PAB-BEL-101")
KP.Items.Add("SWA-BEL-102")
KP.Items.Add("PAB-MED-103")
KP.Items.Add("RUM-MED-104")
End Sub
Private Sub
KP_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
KP.SelectedIndexChanged
Dim x As String
x =
Microsoft.VisualBasic.Right(KP.Text, 3)
If x = "100"
Then
Nama.Text =
"Muhammad Ardianto"
ElseIf x = "101"
Then
Nama.Text =
"Jekson Sinaga"
ElseIf x = "102"
Then
Nama.Text =
"Triani Arista"
ElseIf x = "103"
Then
Nama.Text =
"Aldyan"
End If
x =
Microsoft.VisualBasic.Left(KP.Text, 3)
If x = "PAB"
Then
HargaM3.Text = 500
BBeban.Text
= 250000
Tipe.Text =
"Pabrik"
ElseIf x = "TOK"
Then
HargaM3.Text = 500
BBeban.Text
= 25000
Tipe.Text =
"Toko"
ElseIf x = "RUM"
Then
HargaM3.Text = 500
BBeban.Text
= 10000
Tipe.Text =
"Rumah"
ElseIf x = "SWA"
Then
HargaM3.Text = 200
BBeban.Text
= 15000
Tipe.Text =
"Swalayan"
End If
x =
Microsoft.VisualBasic.Mid(KP.Text, 5, 3)
If x = "MED"
Then
Daerah.Text
= "Medan"
ElseIf x = "BEL"
Then
Daerah.Text
= "Belawan"
End If
End Sub
Private Sub
Pemakaian_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
Pemakaian.KeyPress
If Asc(e.KeyChar) = 13 Then
TTagihan.Text = HargaM3.Text *
Pemakaian.Text + Val(BBeban.Text)
Pajak.Text
= 0.01 * TTagihan.Text
Pembayaran.Text = Val(TTagihan.Text) + Val(Pajak.Text)
End If
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button1.Click
End
End Sub
Private Sub
btnHapus_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnHapus.Click
KP.Text = ""
Nama.Text = ""
Tipe.Text = ""
TTagihan.Text =
""
HargaM3.Text = ""
Pajak.Text = ""
Pembayaran.Text
= ""
Pemakaian.Text
= ""
Daerah.Text = ""
BBeban.Text = ""
End Sub
End Class