[Contoh latihan] Visual Basic I: Rental Mobil

LISTING:
Private Sub Check1_Click()
txtstick = 2000
End Sub

Private Sub Check2_Click()
txtpedal = 3000
End Sub

Private Sub cmbstudio_Click()
Select Case (cmbstudio)
Case "01"
txtstudio = "Studio 1"
txtharga = 10000
Case "02"
txtstudio = "Studio 2"
txtharga = 15000
Case "03"
txtstudio = "Studio3"
txtharga = 20000
End Select
End Sub

Private Sub cmdhit_Click()
txthit = Val(txtstick) + Val(txtpedal)
txttelp.SetFocus
End Sub

Private Sub cmdinput_Click()
Text1 = ""
Text1.SetFocus
txtband = ""
txtman = ""
cmbstudio = ""
txtstudio = ""
Option1 = 0
Option2 = 0
Check1 = 0
Check2 = 0
txtstick = 0
txtpedal = 0
txthit = 0
txttelp = ""
txtsewa = ""
txtharga = 0
txtpot = 0
txttot = 0
End Sub

Private Sub cmdtot_Click()
txttot = Val(txthit) + ((Val(txtharga) * Val(txtsewa)) - (Val(txtsewa) * Val(txtpot)))
End Sub

Private Sub Option1_Click()
txtpot = 0.1 * Val(txtharga)
End Sub

Private Sub Option2_Click()
txtpot = 0
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtband = ""
txtband.SetFocus
End If
End Sub

Private Sub Timer1_Timer()
ljam = Time
ltgl = Format(Date, "dddd,d mmmm yyyy")
End Sub

Private Sub txtband_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtman.SetFocus
End If
End Sub

Private Sub Form_Load()
cmbstudio.AddItem ("01")
cmbstudio.AddItem ("02")
cmbstudio.AddItem ("03")
End Sub

Private Sub txttelp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtsewa.SetFocus
End If
End Sub

Private Sub cmdkel_Click()
p = MsgBox("Mau Keluar Ga Sih?", vbQuestion + vbOKCancel, "Konfirmasi Lagi")
If p = vbOK Then
End
End If
End Sub