Public Class Form1
Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
kode.Text = " "
jenis.Text = " "
beban.Text = " "
pemakaian.Text = ""
pembayaran.Text = ""
harga.Text = ""
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
Me.Close()
End
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Select Case kode.Text
Case "01"
jenis.Text = "RUMAH"
Case "02"
jenis.Text = "TOKO"
Case "03"
jenis.Text = "PABRIK"
End Select
Dim i As String
i = Microsoft.VisualBasic.Left(kode.Text, 2)
If i = "01" Then
harga.Text = "3000"
beban.Text = " 25000"
ElseIf i = "02" Then
harga.Text = "5000"
beban.Text = "50000"
ElseIf i = "03" Then
harga.Text = "10000"
beban.Text = "100000"
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kode.Items.Add("01")
kode.Items.Add("02")
kode.Items.Add("03")
Dim i As Integer
For i = 1 To 100
pemakaian.Items.Add(i)
Next i
End Sub
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
pembayaran.Text = beban.Text + harga.Text * pemakaian.Text
If pembayaran.Text >= 50 Then
beban.Text = "25000"
beban.Text = "50000"
beban.Text = "100000"
Else
harga.Text = "3000"
harga.Text = "5000"
harga.Text = "10000"
pemakaian.Text = ""
End If
End Sub
Private Sub beban_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles beban.TextChanged
End Sub
End Class
