Program :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Sub Cek()
Dim x As String
x = Microsoft.VisualBasic.Left(Kode_Plggn.Text, 3)
If x = "TOK" Then
Type_Plggn.Text = "TOKO"
Biaya.Text = 25000
Hrg.Text = 300
ElseIf x = "RUM" Then
Type_Plggn.Text = "RUMAH"
Biaya.Text = 15000
Hrg.Text = 100
ElseIf x = "SWA" Then
Type_Plggn.Text = "SWALAYAN"
Biaya.Text = 10000
Hrg.Text = 200
ElseIf x = "PAB" Then
Type_Plggn.Text = "PABRIK"
Biaya.Text = 250000
Hrg.Text = 500
Else
Type_Plggn.Text = "0"
Biaya.Text = "0"
Hrg.Text = "0"
End If
x = Microsoft.VisualBasic.Mid(Kode_Plggn.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 = "Binje"
ElseIf x = "PAK" Then
Daerah.Text = "Pakam"
Else
Daerah.Text = ""
End If
No_Urut.Text = Microsoft.VisualBasic.Right(Kode_Plggn.Text, 3)
End Sub
Sub Bayar()
Total_Tghan.Text = Val(Biaya.Text) + (Val(Pemakaian.Text) * Val(Hrg.Text))
End Sub
Sub totalBayar()
Pjk.Text = 0.01 * Val(Total_Tghan.Text)
Total_Byr.Text = Val(Total_Tghan.Text) + Val(Pjk.Text)
End Sub
Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_proses.Click
Call Cek()
Call Bayar()
Call totalBayar()
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click
End
End Sub
End Class