Пример для второго секундомера из первого примера:
| Код |
|---|
Dim Start, Pause, Triger
Sub StartClock2()
Pause = 1
Triger = 0
[M9] = "00:00:00"
UpdateClock2
End Sub
Sub StopClock2()
Triger = 1
End Sub
Sub UpdateClock2()
Start = Timer
Do While Timer < Start + Pause And Triger = 0
DoEvents
Loop
If Triger = 0 Then
[M9] = [M9] + TimeValue("00:00:01")
UpdateClock2
End If
End Sub
|
И повесить правильные макросы на нажатие кнопок.
