• Home
 · 
• Games
 · 
• For StopWatch

For StopWatch

For StopWatch

API Declarations


contect me 03457018418



Rate For StopWatch

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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