IQ test developed using Inform 1.2

[TempodiBasic]

Hi
here is a simple IQtest that I have built to use and test Inform 1.2
For now I post these because I have NOT more complex or/and bigger program to show.
this is the code

Code: QB64: [Select]

1. ': This program uses
2. ': InForm - GUI library for QB64 - v1.2
3. ': Fellippe Heitor, 2016-2020 - fellippe@qb64.org - [member=2]FellippeHeitor[/member]
4. ': https://github.com/FellippeHeitor/InForm
5. '-----------------------------------------------------------
6.  
7. ': Controls' IDs: ------------------------------------------------------------------
8. DIM SHARED IQTest AS LONG
9. DIM SHARED ClickOnTheSTOPButtonBeforeTimeILB AS LONG
10. DIM SHARED STOPClickMeBT AS LONG
11. DIM SHARED ProgressBar1 AS LONG
12. DIM SHARED ProgressBar2 AS LONG
13. DIM SHARED PartialTimeLB AS LONG
14. DIM SHARED TotalTimeLB AS LONG
15. DIM SHARED tStatus AS INTEGER
16. ': External modules: ---------------------------------------------------------------
17. '$INCLUDE:'InForm\InForm.ui'
18. '$INCLUDE:'InForm\xp.uitheme'
19. '$INCLUDE:'IQTest.frm'
20.  
21. ': Event procedures: ---------------------------------------------------------------
22. SUB tt
23.     BEEP
24.     IF Control(ProgressBar2).Value >= 10 THEN
25.         BEEP
26.         Control(ProgressBar1).Value = Control(ProgressBar1).Value + 10
27.         Control(ProgressBar2).Value = 0
28.     ELSE
29.         Control(ProgressBar2).Value = Control(ProgressBar2).Value + 1
30.     END IF
31.     IF Control(ProgressBar1).Value >= 100 THEN
32.         _TITLE "BOOM!"
33.         Caption(STOPClickMeBT) = "TOO LATE!"
34.         TIMER OFF
35.         tStatus = False
36.     END IF
37. END SUB
38.  
39. SUB MoveButton
40.     Control(STOPClickMeBT).Left = __UI_MouseLeft + (RND * 100) + 50
41.     IF Control(STOPClickMeBT).Left > Control(IQTest).Width - Control(STOPClickMeBT).Width THEN Control(STOPClickMeBT).Left = 10
42.     Control(STOPClickMeBT).Top = __UI_MouseTop + (RND * 100) + 50
43.     IF Control(STOPClickMeBT).Top >= Control(IQTest).Height - Control(STOPClickMeBT).Height - 60 THEN Control(STOPClickMeBT).Top = 10
44. END SUB
45.  
46. SUB __UI_BeforeInit
47.  
48. END SUB
49.  
50. SUB __UI_OnLoad
51.     ON TIMER(1) tt
52.     TIMER ON
53.     tStatus = True
54. END SUB
55.  
56. SUB __UI_BeforeUpdateDisplay
57.     'This event occurs at approximately 30 frames per second.
58.     'You can change the update frequency by calling SetFrameRate DesiredRate%
59.     IF tStatus THEN
60.         IF _MOUSEINPUT THEN
61.             IF (__UI_MouseLeft < (Control(STOPClickMeBT).Left - 50)) OR (__UI_MouseLeft > (Control(STOPClickMeBT).Left + Control(STOPClickMeBT).Width + 50)) THEN
62.                 IF (__UI_MouseTop > (Control(STOPClickMeBT).Top - 50)) OR (__UI_MouseTop < (Control(STOPClickMeBT).Top + Control(stopmeclickbt).Height + 50)) THEN
63.                     __UI_MouseEnter STOPClickMeBT 'MoveButton
64.                 END IF
65.             END IF
66.         END IF
67.     END IF
68. END SUB
69.  
70. SUB __UI_BeforeUnload
71.     'If you set __UI_UnloadSignal = False here you can
72.     'cancel the user's request to close.
73.  
74. END SUB
75.  
76. SUB __UI_Click (id AS LONG)
77.     SELECT CASE id
78.         CASE IQTest
79.  
80.         CASE ClickOnTheSTOPButtonBeforeTimeILB
81.  
82.         CASE STOPClickMeBT
83.             IF Caption(STOPClickMeBT) = "TOO LATE!" THEN EXIT SUB
84.             ' the user wins
85.             _TITLE "YOU WIN!"
86.             TIMER OFF
87.             Caption(STOPClickMeBT) = "You GOT IT"
88.             tStatus = False
89.         CASE ProgressBar1
90.  
91.         CASE ProgressBar2
92.  
93.         CASE PartialTimeLB
94.  
95.         CASE TotalTimeLB
96.  
97.     END SELECT
98. END SUB
99.  
100. SUB __UI_MouseEnter (id AS LONG)
101.     SELECT CASE id
102.         CASE IQTest
103.  
104.         CASE ClickOnTheSTOPButtonBeforeTimeILB
105.  
106.         CASE STOPClickMeBT
107.             IF tStatus THEN MoveButton
108.         CASE ProgressBar1
109.  
110.         CASE ProgressBar2
111.  
112.         CASE PartialTimeLB
113.  
114.         CASE TotalTimeLB
115.  
116.     END SELECT
117. END SUB
118.  
119. SUB __UI_MouseLeave (id AS LONG)
120.     SELECT CASE id
121.         CASE IQTest
122.  
123.         CASE ClickOnTheSTOPButtonBeforeTimeILB
124.  
125.         CASE STOPClickMeBT
126.  
127.         CASE ProgressBar1
128.  
129.         CASE ProgressBar2
130.  
131.         CASE PartialTimeLB
132.  
133.         CASE TotalTimeLB
134.  
135.     END SELECT
136. END SUB
137.  
138. SUB __UI_FocusIn (id AS LONG)
139.     SELECT CASE id
140.         CASE STOPClickMeBT
141.  
142.     END SELECT
143. END SUB
144.  
145. SUB __UI_FocusOut (id AS LONG)
146.     'This event occurs right before a control loses focus.
147.     'To prevent a control from losing focus, set __UI_KeepFocus = True below.
148.     SELECT CASE id
149.         CASE STOPClickMeBT
150.  
151.     END SELECT
152. END SUB
153.  
154. SUB __UI_MouseDown (id AS LONG)
155.     SELECT CASE id
156.         CASE IQTest
157.  
158.         CASE ClickOnTheSTOPButtonBeforeTimeILB
159.  
160.         CASE STOPClickMeBT
161.  
162.         CASE ProgressBar1
163.  
164.         CASE ProgressBar2
165.  
166.         CASE PartialTimeLB
167.  
168.         CASE TotalTimeLB
169.  
170.     END SELECT
171. END SUB
172.  
173. SUB __UI_MouseUp (id AS LONG)
174.     SELECT CASE id
175.         CASE IQTest
176.  
177.         CASE ClickOnTheSTOPButtonBeforeTimeILB
178.  
179.         CASE STOPClickMeBT
180.  
181.         CASE ProgressBar1
182.  
183.         CASE ProgressBar2
184.  
185.         CASE PartialTimeLB
186.  
187.         CASE TotalTimeLB
188.  
189.     END SELECT
190. END SUB
191.  
192. SUB __UI_KeyPress (id AS LONG)
193.     'When this event is fired, __UI_KeyHit will contain the code of the key hit.
194.     'You can change it and even cancel it by making it = 0
195.     SELECT CASE id
196.         CASE STOPClickMeBT
197.  
198.     END SELECT
199. END SUB
200.  
201. SUB __UI_TextChanged (id AS LONG)
202.     SELECT CASE id
203.     END SELECT
204. END SUB
205.  
206. SUB __UI_ValueChanged (id AS LONG)
207.     SELECT CASE id
208.     END SELECT
209. END SUB
210.  
211. SUB __UI_FormResized
212.  
213. END SUB
214.  
215.  

I'll attach the files .BAS  .FRM and you must remember that to compile it you must install InForm 1.2 or at least include falcon.h in the same folder of QB64.
Thanks to try

[SMcNeill]

I just scored a -126.

Now I just need to decide if that’s an overflow error, or if I’m really as dumb as my family thinks I am...

[FellippeHeitor]

LOL, thanks for sharing, Tempo!

[TempodiBasic]

@FellippeHeitor Glad to see you take a look at. I hope to find time to test for news Inform 1.2.

@Steve but QB64 stops at _INTEGER64...it's clear that container is too small!

[segura]

I just scored a -126.

Now I just need to decide if that’s an overflow error, or if I’m really as dumb as my family thinks I am...

Seems like I'm even dumber because I couldn't even reach the test level and failed in starting it... Could anyone explain to me how to run the code? I'm a beginner at it. I know Python and C, decided to learn QB64 to survive the quarantine in my flat in Greece but frankly it's not going very well...

[TempodiBasic]

Hi segura
if you're ready to test your IQ with this app you need of Qb64  (best the latest) and in the same folder Inform. 
Today it's simpler than the past to install Inform with its installer.
You can get here QB64 and Inform https://www.qb64.org/portal/  or from here Inform  https://www.qb64.org/inform/  AND Qb64 https://github.com/QB64Team/qb64/releases/tag/v1.4.

After compiling you can post here your score!
Welcome into QB64 community