Cafe programı

'İnternet Cafeler'de bulunan bilgisayarları kontrol eder...

Private Sub Timer1_Timer()
a = a + 1
Text3(0) = a
Text4(0) = s
Text2(0) = d
Text1(0) = f
If a = 30 Or a = 59 Then
s = s + 500000
End If
If a = 60 Then a = 0: d = d + 1
End Sub
Private Sub Command1_Click(Index As Integer)
Timer1.Enabled = True
StatusBar1.Panels.Add
StatusBar1.Panels(1).Text = "1.masa açık"
End Sub
Private Sub Command2_Click(Index As Integer)
Timer1.Enabled = False
StatusBar1.Panels(1).Text = "1.masa kapalı"
End Sub
Private Sub Command3_Click(Index As Integer)
StatusBar1.Panels.Remove (1)
Timer1.Enabled = False
Text1(0) = ""
Text2(0) = ""
Text3(0) = ""
Text4(0) = ""
s = 0
a = 0
d = 0
f = 0
End Sub