[InForm] Stopwatch

[FellippeHeitor]

A simple stopwatch using InForm for the interface. Code below provided for quick glimpse, as you'll need the complementary files in the zip attached to actually compile the program.

Code: QB64: [Select]

1. ': This program uses
2. ': InForm - GUI library for QB64 - Beta version 8
3. ': Fellippe Heitor, 2016-2018 - fellippe@qb64.org - @fellippeheitor
4. ': https://github.com/FellippeHeitor/InForm
5. '-----------------------------------------------------------
6.  
7. ': Controls' IDs: ------------------------------------------------------------------
8. DIM SHARED Stopwatch AS LONG
9. DIM SHARED TimeLB AS LONG
10. DIM SHARED StartBT AS LONG
11. DIM SHARED LapBT AS LONG
12. DIM SHARED StopBT AS LONG
13. DIM SHARED ListBox1 AS LONG
14.  
15. DIM SHARED start AS SINGLE, Running AS _BYTE
16. DIM SHARED second AS INTEGER, minute AS INTEGER, hour AS INTEGER
17. DIM SHARED elapsed AS SINGLE
18.  
19. ': External modules: ---------------------------------------------------------------
20. '$INCLUDE:'InForm\InForm.ui'
21. '$INCLUDE:'InForm\xp.uitheme'
22. '$INCLUDE:'Stopwatch.frm'
23.  
24. ': Event procedures: ---------------------------------------------------------------
25. SUB __UI_BeforeInit
26. END SUB
27.  
28. SUB __UI_OnLoad
29.     __UI_DefaultButtonID = StartBT
30. END SUB
31.  
32. SUB __UI_BeforeUpdateDisplay
33.     IF Running THEN
34.         DIM theTime$
35.  
36.         elapsed = TIMER - start
37.         IF elapsed >= 1 THEN
38.             second = second + 1
39.             elapsed = elapsed - 1
40.             start = start + 1
41.             IF second >= 60 THEN
42.                 second = second - 60
43.                 minute = minute + 1
44.                 IF minute >= 60 THEN
45.                     minute = minute - 60
46.                     hour = hour + 1
47.                 END IF
48.             END IF
49.         END IF
50.  
51.         hour$ = RIGHT$("00" + LTRIM$(STR$(hour)), 2)
52.         min$ = RIGHT$("00" + LTRIM$(STR$(minute)), 2)
53.         sec$ = RIGHT$("00" + LTRIM$(STR$(second)), 2)
54.         elapsed$ = MID$(STR$(elapsed), INSTR(STR$(elapsed), ".") + 1) + "000"
55.  
56.         theTime$ = hour$ + ":" + min$ + ":" + sec$ + "," + LEFT$(elapsed$, 3)
57.  
58.         Caption(TimeLB) = theTime$
59.     END IF
60. END SUB
61.  
62. SUB __UI_BeforeUnload
63. END SUB
64.  
65. SUB __UI_Click (id AS LONG)
66.     SELECT CASE id
67.         CASE Stopwatch
68.  
69.         CASE TimeLB
70.  
71.         CASE StartBT
72.             IF Running THEN
73.                 Caption(id) = "Start"
74.                 Running = False
75.                 Control(StopBT).Disabled = False
76.                 Control(LapBT).Disabled = True
77.             ELSE
78.                 Caption(id) = "Pause"
79.                 start = TIMER - elapsed
80.                 Running = True
81.                 Control(StopBT).Disabled = True
82.                 Control(LapBT).Disabled = False
83.             END IF
84.         CASE LapBT
85.             AddItem ListBox1, Caption(TimeLB)
86.         CASE StopBT
87.             second = 0
88.             minute = 0
89.             hour = 0
90.             elapsed = 0
91.             Caption(TimeLB) = "00:00:00,000"
92.             ResetList ListBox1
93.         CASE ListBox1
94.  
95.     END SELECT
96. END SUB
97.  
98. SUB __UI_MouseEnter (id AS LONG)
99. END SUB
100.  
101. SUB __UI_MouseLeave (id AS LONG)
102. END SUB
103.  
104. SUB __UI_FocusIn (id AS LONG)
105. END SUB
106.  
107. SUB __UI_FocusOut (id AS LONG)
108. END SUB
109.  
110. SUB __UI_MouseDown (id AS LONG)
111. END SUB
112.  
113. SUB __UI_MouseUp (id AS LONG)
114. END SUB
115.  
116. SUB __UI_KeyPress (id AS LONG)
117. END SUB
118.  
119. SUB __UI_TextChanged (id AS LONG)
120. END SUB
121.  
122. SUB __UI_ValueChanged (id AS LONG)
123. END SUB
124.  
125. SUB __UI_FormResized
126. END SUB
127.  

[Ashish]

Looks nice Fellippe! :D

[FellippeHeitor]

Thanks, Ashish. Let me know if you run it and if you find any issues.