Option Explicit
Dim f As Boolean
Dim num As Integer
Dim ora As Integer, min As Integer, sec As Integer, mil As Integer
Private Sub Command1_Click()
num = num + 1
Label1.Caption = Text3.Text
Label2.Visible = True
Label1.Visible = True
List1.AddItem num & " - " & Text3.Text
End Sub
Private Sub Command2_Click()
If Timer1.Enabled = True Then
Command2.Caption = "Start"
Timer1.Enabled = False
Timer2.Enabled = False
Command1.Enabled = False
Else
Timer1.Enabled = True
Timer2.Enabled = True
Command2.Caption = "Stop"
Command1.Enabled = True
End If
End Sub
Private Sub Command3_Click()
Call Form_Load
End Sub
Private Sub Form_Load()
min = 0
ora = 0
sec = 0
mil = 0
Text3.Text = "00.00.00.00"
Command1.Enabled = False
Label2.Visible = False
Label1.Visible = False
Timer1.Enabled = False
Timer2.Enabled = False
List1.Clear
End Sub
Private Sub Timer1_Timer()
sec = sec + 1
If sec > 59 Then
sec = 0
min = min + 1
End If
If min > 59 Then
min = 0
sec = 0
ora = ora + 1
End If
If sec > 9 Then
Text3.Text = "0" & CStr(ora) & "." & "0" & CStr(min) & "." & CStr(sec) _
& "." & CStr(mil)
Else
Text3.Text = "0" & CStr(ora) & "." & "0" & CStr(min) & "." & "0" & CStr(sec) _
& "." & CStr(mil)
End If
If min > 9 Then
Text3.Text = "0" & CStr(ora) & "." & CStr(min) & "." & CStr(sec) _
& "." & CStr(mil)
Else
Text3.Text = "0" & CStr(ora) & "." & "0" & CStr(min) & "." & CStr(sec) _
& "." & CStr(mil)
End If
End Sub
Private Sub Timer2_Timer()
mil = mil + 1
If mil > 99 Then
mil = 0
End If
If sec > 9 Then
Text3.Text = "0" & CStr(ora) & "." & "0" & CStr(min) & "." & CStr(sec) _
& "." & CStr(mil)
Else
Text3.Text = "0" & CStr(ora) & "." & "0" & CStr(min) & "." & "0" & CStr(sec) _
& "." & CStr(mil)
Exit Sub
End If
If min > 9 Then
Text3.Text = "0" & CStr(ora) & "." & CStr(min) & "." & CStr(sec) _
& "." & CStr(mil)
Else
Text3.Text = "0" & CStr(ora) & "." & "0" & CStr(min) & "." & CStr(sec) _
& "." & CStr(mil)
End If
End Sub