vb1/sewa lap futsal

LISTING :

Private Sub ckmandi_Click()

If ckmandi.Value = Checked Then

mandi.Text = 10000
Else
mandi.Text = 0
End If
lase.SetFocus
End Sub

Private Sub ckpijat_Click()
If ckpijat.Value = Checked Then
pijat.Text = 20000
Else
pijat.Text = 0
End If
lase.SetFocus
End Sub

Private Sub cmdbaru_Click()
bersih
aktif
list.SetFocus
End Sub

Private Sub cmdhitung_Click()
total.Text = (Val(lase.Text) * Val(tarif.Text)) + Val(mandi.Text) + Val(pijat.Text)
tobay.Text = Val(total.Text) – Val(diskon.Text)
ukem.Text = Val(ubay.Text) – Val(tobay.Text)
If ubay.Text < tobay.Text Then
MsgBox “uang bayar kurang”, vbInformation + vbOKOnly, “informasi”
ubay.Text = “”
ukem.Text = “”
End If
End Sub

Private Sub cmdkeluar_Click()
p = MsgBox(“yakin ingin keluar?”, vbQuestion + vbOKCancel, “INFO”)
If p = vbOK Then
Unload Me
End If
End Sub

Private Sub combo_Click()
If combo.Text = “pitch1” Then
jenis.Text = “vinyl”
tarif.Text = 200000
ElseIf combo.Text = “pitch2” Then
jenis.Text = “turf”
tarif.Text = 150000
Else
jenis.Text = “plesteran”
tarif.Text = 100000
End If
End Sub

Private Sub combo2_click()
If combo2.Text = “1” Then
pj.Text = “jam 01.00”
ElseIf combo2.Text = “2” Then
pj.Text = “jam 02.00”
ElseIf combo2.Text = “3” Then
pj.Text = “jam 03.00”
ElseIf combo2.Text = “4” Then
pj.Text = “jam 04.00”
ElseIf combo2.Text = “5” Then
pj.Text = “jam 05.00”
ElseIf combo2.Text = “6” Then
pj.Text = “jam 06.00”
ElseIf combo2.Text = “7” Then
pj.Text = “jam 07.00”
ElseIf combo2.Text = “8” Then
pj.Text = “jam 08.00”
ElseIf combo2.Text = “9” Then
pj.Text = “jam 09.00”
ElseIf combo2.Text = “10” Then
pj.Text = “jam 10.00”
ElseIf combo2.Text = “11” Then
pj.Text = “jam 11.00”
ElseIf combo2.Text = “12” Then
pj.Text = “jam 12.00”
ElseIf combo2.Text = “13” Then
pj.Text = “jam 13.00”
ElseIf combo2.Text = “14” Then
pj.Text = “jam 14.00”
ElseIf combo2.Text = “15” Then
pj.Text = “jam 15.00”
ElseIf combo2.Text = “16” Then
pj.Text = “jam 16.00”
ElseIf combo2.Text = “17” Then
pj.Text = “jam 17.00”
ElseIf combo2.Text = “18” Then
pj.Text = “jam 18.00”
ElseIf combo2.Text = “19” Then
pj.Text = “jam 19.00”
ElseIf combo2.Text = “20” Then
pj.Text = “jam 20.00”
ElseIf combo2.Text = “21” Then
pj.Text = “jam 21.00”
ElseIf combo2.Text = “22” Then
pj.Text = “jam 22.00”
ElseIf combo2.Text = “23” Then
pj.Text = “jam 23.00”
Else
pj.Text = “jam 24.00”
End If
End Sub

Private Sub Form_Activate()
bersih
nonaktif
End Sub
Private Sub lase_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
total.Text = (Val(lase.Text) * Val(tarif.Text)) + Val(mandi.Text) + Val(pijat.Text)
tobay.Text = Val(total.Text) – Val(diskon.Text)
End If
End Sub

Private Sub list_Click()
If list.Text = “p-1” Then
nape.Text = “rizky gustav”
ElseIf list.Text = “p-2” Then
nape.Text = “jhon edward”
ElseIf list.Text = “p-3” Then
nape.Text = “vendik triatna”
Else
nape.Text = “sony sintani”
End If
End Sub

Private Sub omember_Click()
diskon.Text = 0.2 * Val(tarif.Text)
lase.SetFocus
End Sub

Private Sub onon_Click()
diskon.Text = 0
lase.SetFocus
End Sub

Private Sub Timer1_Timer()
tjam.Text = Time
ttgl.Text = Date
End Sub
Sub bersih()
nape.Text = “”
nama.Text = “”
telp.Text = “”
jenis.Text = “”
tarif.Text = “”
diskon.Text = “”
pijat.Text = “”
mandi.Text = “”
lase.Text = “”
total.Text = “”
tobay.Text = “”
ubay.Text = “”
ukem.Text = “”
omember.Value = False
onon.Value = False
ckpijat.Value = False
ckmandi.Value = False
list.Text = “”
combo.Text = “”
combo2.Text = “”
pj.Text = “”
End Sub

Sub aktif()
list.Enabled = True
nama.Enabled = True
telp.Enabled = True
combo.Enabled = True
omember.Enabled = True
onon.Enabled = True
ckpijat.Enabled = True
ckmandi.Enabled = True
lase.Enabled = True
ubay.Enabled = True
End Sub

Sub nonaktif()
nape.Enabled = False
jenis.Enabled = False
tarif.Enabled = False
diskon.Enabled = False
mandi.Enabled = False
pijat.Enabled = False
total.Enabled = False
tobay.Enabled = False
ukem.Enabled = False
pj.Enabled = False
End Sub

setelah form di running hasilnya :