': This program uses
': InForm - GUI library for QB64 - Beta version 8
': Fellippe Heitor, 2016-2018 - fellippe@qb64.org - @fellippeheitor
': https://github.com/FellippeHeitor/InForm
'-----------------------------------------------------------
': Controls' IDs: ------------------------------------------------------------------
': External modules: ---------------------------------------------------------------
'$INCLUDE:'InForm\InForm.ui'
'$INCLUDE:'InForm\xp.uitheme'
'$INCLUDE:'Stopwatch.frm'
': Event procedures: ---------------------------------------------------------------
__UI_DefaultButtonID = StartBT
SUB __UI_BeforeUpdateDisplay
second = second + 1
elapsed = elapsed - 1
start = start + 1
second = second - 60
minute = minute + 1
minute = minute - 60
hour = hour + 1
theTime$
= hour$
+ ":" + min$
+ ":" + sec$
+ "," + LEFT$(elapsed$
, 3)
Caption(TimeLB) = theTime$
Caption(id) = "Start"
Running = False
Control(StopBT).Disabled = False
Control(LapBT).Disabled = True
Caption(id) = "Pause"
Running = True
Control(StopBT).Disabled = True
Control(LapBT).Disabled = False
AddItem ListBox1, Caption(TimeLB)
second = 0
minute = 0
hour = 0
elapsed = 0
Caption(TimeLB) = "00:00:00,000"
ResetList ListBox1