Membuat Program rekening Listrik sederhana menggunakan fungsi IF dengan VB 6.0

Pertama buat form seperti ini

 lalu setting seperti ini

kemudian ketikkan kode berikut

Const Brawat = 2000
Const Badmin = 1500

Private Sub ckelas_Click()
tawal.SetFocus
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
tid.Text = ""
tnama.Text = ""
ckelas.Text = ""
tawal.Text = ""
takhir.Text = ""
tjumlah.Text = ""
tharga.Text = ""
ttotal.Text = ""
tid.SetFocus
tk1.Text = ""
tk2.Text = ""
tk3.Text = ""
txtrawat.Text = ""
txtadmin.Text = ""
End Sub

Private Sub Form_Load()
ckelas.AddItem ("R1")
ckelas.AddItem ("R2")
ckelas.AddItem ("R3")
ckelas.AddItem ("R4")
tid.Text = ""
tnama.Text = ""
ckelas.Text = ""
tawal.Text = ""
takhir.Text = ""
tjumlah.Text = ""
tharga.Text = ""
ttotal.Text = ""
txtrawat.Text = ""
txtadmin.Text = ""
txtrawat.Enabled = False
txtadmin.Enabled = False
ttotal.Enabled = False
tharga.Enabled = False
tjumlah.Enabled = False
tk1.Text = ""
tk2.Text = ""
tk3.Text = ""
tk1.Enabled = False
tk2.Enabled = False
tk3.Enabled = False
End Sub

Private Sub takhir_Change()
tjumlah.Text = (Val(takhir.Text) - Val(tawal.Text))
lkelas.Caption = ckelas.Text
If ckelas.Text = "R1" Then
tk1.Text = "Rp. 1.000,-"
tk2.Text = "Rp. 2.000,-"
tk3.Text = "Rp. 3.000,-"
ElseIf ckelas.Text = "R2" Then
tk1.Text = "Rp. 2.000,-"
tk2.Text = "Rp. 3.000,-"
tk3.Text = "Rp. 4.000,-"
ElseIf ckelas.Text = "R3" Then
tk1.Text = "Rp. 3.000,-"
tk2.Text = "Rp. 4.000,-"
tk3.Text = "Rp. 5.000,-"
ElseIf ckelas.Text = "R4" Then
tk1.Text = "Rp. 3.500,-"
tk2.Text = "Rp. 4.500,-"
tk3.Text = "Rp. 5.500,-"
End If
txtrawat.Text = "Rp. 2.000,-"
txtadmin.Text = "Rp. 1.500,-"

If ckelas.Text = "R1" And Val(tjumlah.Text) <= 10 Then
tharga.Text = (Val(tjumlah.Text) * 1000)
ElseIf ckelas.Text = "R1" And Val(tjumlah.Text) <= 20 Then
tharga.Text = ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 1000) + (Val(tjumlah.Text) - 10) * 2000
ElseIf ckelas.Text = "R1" And Val(tjumlah.Text) >= 21 Then
tharga.Text = ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 1000) + ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 2000) + ((Val(tjumlah.Text) - 20) * 3000)
ElseIf ckelas.Text = "R2" And Val(tjumlah.Text) <= 10 Then
tharga.Text = (Val(tjumlah.Text) * 2000)
ElseIf ckelas.Text = "R2" And Val(tjumlah.Text) <= 20 Then
tharga.Text = ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 2000) + (Val(tjumlah.Text) - 10) * 3000
ElseIf ckelas.Text = "R2" And Val(tjumlah.Text) >= 21 Then
tharga.Text = ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 2000) + ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 3000) + ((Val(tjumlah.Text) - 20) * 4000)
ElseIf ckelas.Text = "R3" And Val(tjumlah.Text) <= 10 Then
tharga.Text = (Val(tjumlah.Text) * 3000)
ElseIf ckelas.Text = "R3" And Val(tjumlah.Text) <= 20 Then
tharga.Text = ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 3000) + (Val(tjumlah.Text) - 10) * 4000
ElseIf ckelas.Text = "R3" And Val(tjumlah.Text) >= 21 Then
tharga.Text = ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 3000) + ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 4000) + ((Val(tjumlah.Text) - 20) * 5000)
ElseIf ckelas.Text = "R4" And Val(tjumlah.Text) <= 10 Then
tharga.Text = (Val(tjumlah.Text) * 3500)
ElseIf ckelas.Text = "R4" And Val(tjumlah.Text) <= 20 Then
tharga.Text = ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 3500) + (Val(tjumlah.Text) - 10) * 4500
ElseIf ckelas.Text = "R4" And Val(tjumlah.Text) >= 21 Then
tharga.Text = ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 3500) + ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 4500) + ((Val(tjumlah.Text) - 20) * 5500)
End If
ttotal.Text = ("Rp. " & (Val(tharga.Text) + Brawat + Badmin) & ",-")
tharga.Text = ("Rp. " & Val(tharga.Text) & ",-")
End Sub