by Aown Shah (1 Submission)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 12th October 2008
Date Added: Mon 8th February 2021
Rating: (1 Votes)
For StopWatch
API Declarations
contect me 03457018418
Private Sub Command1_Click()
If Command1.Caption = "Start" Then
Command1.Caption = "Stop"
Timer1.Enabled = True
Else
Command1.Caption = "Start"
Timer1.Enabled = False
End If
End Sub
Private Sub Command2_Click()
'If (lblmin >= 0) And (lblsec >= 0) Then
i = 0
Command1.Caption = "Start"
Timer1.Enabled = False
lblmin.Caption = "00"
lblsec.Caption = "00"
lblmsec.Caption = "00"
'End If
End Sub
Private Sub Form_Load()
min = 1
End Sub
Private Sub Timer1_Timer()
If lblmsec.Caption >= 59 Then
sec = sec + 1
lblsec.Caption = sec
i = 0
lblmsec.Caption = i
Else
i = i + 1
lblmsec.Caption = i
End If
If Val(lblsec.Caption) >= 59 Then
sec = 0
lblsec.Caption = sec
lblmin.Caption = min
min = min + 1
End If
End Sub