Public
Class
Form1
Private
Sub
Form1_Load(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles
MyBase.Load
KP.Items.Add("PAB-PAK-100")
KP.Items.Add("PAB-MED-100")
KP.Items.Add("RUM-BEL-101")
KP.Items.Add("SWA-MED-100")
KP.Items.Add("TOK-MED-100")
KP.Items.Add("PAB-PAK-100")
KP.Items.Add("PAB-MAR-100")
KP.Items.Add("RUM-BEL-100")
KP.Items.Add("SWA-BIN-100")
KP.Items.Add("TOK-MED-100")
End
Sub
Private
Sub
KP_SelectedIndexChanged(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles
KP.SelectedIndexChanged
Dim
x As
String
x
= Mid(KP.Text, 1, 3)
Select
Case
x
Case
"TOK"
Tipe.Text = "TOKO"
Biaya.Text = 150000
Harga.Text = 500
Case
"RUM"
Tipe.Text = "RUMAH"
Biaya.Text = 50000
Harga.Text = 200
Case
"SWA"
Tipe.Text = "SWALAYAN"
Biaya.Text = 400000
Harga.Text = 1500
Case
"PAB"
Tipe.Text = "PABRIK"
Biaya.Text = 1000000
Harga.Text = 10000
End
Select
x
= Mid(KP.Text, 5, 3)
Select
Case
x
Case
"MED"
: Daerah.Text = "MEDAN"
Case
"BEL"
: Daerah.Text = "BELAWAN"
Case
"TEM"
: Daerah.Text = "AKSARA"
Case
"MAR"
: Daerah.Text = "MARENDAL"
Case
"BIN"
: Daerah.Text = "BINJAI"
Case
"PAK"
: Daerah.Text = "LUBUKPAKAM"
End
Select
End
Sub
Private
Sub
TProses_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles
TProses.Click
TH.Text
= Val(Biaya.Text) + (Harga.Text * Pemakaian.Text)
Pajak.Text
= 0.015 * TH.Text
Bayar.Text
= Val(TH.Text) + Val(Pajak.Text)
End
Sub
Private
Sub
THapus_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles
THapus.Click
KP.Text
= ""
Tipe.Text
= ""
Biaya.Text
= ""
Harga.Text
= ""
Pemakaian.Text = ""
TH.Text
= ""
Pajak.Text
= ""
Bayar.Text
= ""
End
Sub
Private
Sub
TKeluar_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles
TKeluar.Click
Dim
x As
String
x
= MsgBox("Tekan
OK Jika Ingin Keluar",
MsgBoxStyle.OkCancel, "Pesan")
If
x = vbOK Then
Me.Close()
End
If
End
Sub
End
Class
Demikian Postingan Saya
Nama : Putra Heri
NPM : 13110732
