11-03-2022, 05:58 PM
You guys really do like to complicate things.
Stick to the simple BASICs:
Stick to the simple BASICs:
Code: (Select All)
Do
Locate 1, 1
s = s + 1: If s > 59 Then s = 0: m = m + 1
If m > 59 Then m = 0: h = h + 1
_Limit 1
Print StopWatch(h, m, s)
Loop Until _KeyHit
Function StopWatch$ (h, m, s)
o$ = "00:00:00"
h$ = _Trim$(Str$(h)): m$ = _Trim$(Str$(m)): s$ = _Trim$(Str$(s))
Mid$(o$, 3 - Len(h$)) = h$
Mid$(o$, 6 - Len(m$)) = m$
Mid$(o$, 9 - Len(s$)) = s$
StopWatch$ = o$
End Function