Sistem Informasi Pembayaran Uang Tagihan Air Minum di VB.NET 2008
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
kode.Items.Add("PAB-PAK-100")
kode.Items.Add("PAB-BEL-100")
kode.Items.Add("RUM-BEL-100")
kode.Items.Add("SWA-MED-100")
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
kode.SelectedIndexChanged
Dim x As String
x = Mid(kode.Text, 1, 3)
Select Case x
Case
"TOK"
type.Text = "TOKO"
beban.Text = 25000
harga.Text = 300
Case
"RUM"
type.Text = "RUMAH"
beban.Text = 1500
harga.Text = 100
Case
"SWA"
type.Text = "SWALAYAN"
beban.Text = 10000
harga.Text = 200
Case
"PAB"
type.Text = "PABRIK"
beban.Text = 75000
harga.Text = 500
End Select
x = Mid(kode.Text, 5, 3)
Select Case x
Case
"MED" : daerah.Text = "MEDAN"
Case
"BEL" : daerah.Text = "BELAWAN"
Case
"PAK" : daerah.Text = "PATUMBAK"
End Select
If
kode.Text = "PAB-PAK-100" Then
nama.Text = "Nasib Marbun"
pemakaian.Text = "3"
ElseIf
kode.Text = "PAB-BEL-100" Then
nama.Text = "Hazmi Putra"
pemakaian.Text = "2"
ElseIf kode.Text = "RUM-BEL-100"
Then
nama.Text = "Depriadi"
pemakaian.Text = "1"
Else
nama.Text = "Julius Laia"
pemakaian.Text = "6"
End If
End Sub
Private Sub Proses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Proses.Click
tota.Text = (harga.Text *
pemakaian.Text) + beban.Text
pajak.Text = 0.01 * tota.Text
pembayaran.Text = tota.Text +
Val(pajak.Text)
End Sub
Private Sub Hapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Hapus.Click
kode.Text = ""
nama.Text = ""
type.Text = ""
daerah.Text = ""
beban.Text = ""
harga.Text = ""
pemakaian.Text = ""
tota.Text = ""
pajak.Text = ""
pembayaran.Text = ""
End Sub
Private Sub Keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Keluar.Click
Me.Close()
End Sub
End Class