Click Me Game - My First InForm Game

[SierraKen]

LOL I just made my very first InForm game. Try to click the button! Some of you might have seen this game before, I just decided to try to make it myself. It starts the score when you click the button.
On a side note, it is possible to keep clicking the button non-stop if you get it just right, it's not hard. lol Was just something I'm goofing around with.
 
(Note: To get the game scroll down to the post with the .zip file. Just this code below won't be enough I learned.)

Code: QB64: [Select]

1. ': This program uses
2. ': InForm - GUI library for QB64 - v1.0
3. ': Fellippe Heitor, 2016-2019 - fellippe@qb64.org - @fellippeheitor
4. ': https://github.com/FellippeHeitor/InForm
5. '-----------------------------------------------------------
6.  
7. ': Controls' IDs: ------------------------------------------------------------------
8. DIM SHARED Form1 AS LONG
9. DIM SHARED Label1 AS LONG
10. DIM SHARED CLICKBT AS LONG
11. DIM SHARED s AS SINGLE
12.  
13. ': External modules: ---------------------------------------------------------------
14. '$INCLUDE:'InForm\InForm.ui'
15. '$INCLUDE:'InForm\xp.uitheme'
16. '$INCLUDE:'ClickMeGame.frm'
17.  
18. ': Event procedures: ---------------------------------------------------------------
19.  
20.  
21.  
22.  
23. SUB __UI_BeforeInit
24.  
25. END SUB
26.  
27. SUB __UI_OnLoad
28.  
29.  
30. END SUB
31.  
32. SUB __UI_BeforeUpdateDisplay
33.     'This event occurs at approximately 30 frames per second.
34.     'You can change the update frequency by calling SetFrameRate DesiredRate%
35.  
36. END SUB
37.  
38. SUB __UI_BeforeUnload
39.     'If you set __UI_UnloadSignal = False here you can
40.     'cancel the user's request to close.
41.  
42. END SUB
43.  
44. SUB __UI_Click (id AS LONG)
45.     SELECT CASE id
46.         CASE Form1
47.  
48.         CASE Label1
49.  
50.         CASE CLICKBT
51.  
52.  
53.     END SELECT
54. END SUB
55.  
56. SUB __UI_MouseEnter (id AS LONG)
57.     SELECT CASE id
58.         CASE Form1
59.  
60.         CASE Label1
61.  
62.         CASE CLICKBT
63.             RANDOMIZE TIMER
64.             x = RND * 250
65.             y = RND * 250
66.             Control(CLICKBT).Top = y
67.             Control(CLICKBT).Left = x
68.  
69.     END SELECT
70. END SUB
71.  
72. SUB __UI_MouseLeave (id AS LONG)
73.     SELECT CASE id
74.         CASE Form1
75.  
76.         CASE Label1
77.  
78.         CASE CLICKBT
79.  
80.     END SELECT
81. END SUB
82.  
83. SUB __UI_FocusIn (id AS LONG)
84.     SELECT CASE id
85.         CASE CLICKBT
86.  
87.  
88.     END SELECT
89. END SUB
90.  
91. SUB __UI_FocusOut (id AS LONG)
92.     'This event occurs right before a control loses focus.
93.     'To prevent a control from losing focus, set __UI_KeepFocus = True below.
94.     SELECT CASE id
95.         CASE CLICKBT
96.  
97.     END SELECT
98. END SUB
99.  
100. SUB __UI_MouseDown (id AS LONG)
101.     SELECT CASE id
102.         CASE Form1
103.  
104.         CASE Label1
105.  
106.         CASE CLICKBT
107.             s = s + 1
108.             s$ = STR$(s)
109.             sc$ = "Score: " + s$
110.             Caption(Label1) = sc$
111.     END SELECT
112. END SUB
113.  
114. SUB __UI_MouseUp (id AS LONG)
115.     SELECT CASE id
116.         CASE Form1
117.  
118.         CASE Label1
119.  
120.         CASE CLICKBT
121.  
122.     END SELECT
123. END SUB
124.  
125. SUB __UI_KeyPress (id AS LONG)
126.     'When this event is fired, __UI_KeyHit will contain the code of the key hit.
127.     'You can change it and even cancel it by making it = 0
128.     SELECT CASE id
129.         CASE CLICKBT
130.  
131.     END SELECT
132. END SUB
133.  
134. SUB __UI_TextChanged (id AS LONG)
135.     SELECT CASE id
136.     END SELECT
137. END SUB
138.  
139. SUB __UI_ValueChanged (id AS LONG)
140.     SELECT CASE id
141.     END SELECT
142. END SUB
143.  
144. SUB __UI_FormResized
145.  
146. END SUB
147.  
148.  

[bplus]

Hi Ken,

Remember to post your form file too, .frm, best to put everything in zip so it's just extract and run through IDE compiler. You can't assume other people have InForm.

I am a little rusty but I think I have the package of files needed to go with InForm app.

[FellippeHeitor]

When you distribute your uncompiled InForm-based programs, the minimum you should add to your zip for distribution, besides your own data files (if any), is:

• Your .bas file
• Your .frm file
• falcon.h
• InForm/InForm.ui
• InForm/xp.uitheme
• InForm/InFormVersion.bas

That way you're including the InForm library files and anyone with QB64 on their system will be able to compile your program, even without having the full InForm package installed.

However, if you intend to distribute only your binary (not including the source code - probably not in this forum), you don't need to ship anything besides the binary itself. InForm-based programs are self-contained. In this case you'd only ship any files needed for your program to run, like icons, data files, images, etc.

[FellippeHeitor]

Here's an example of package: 

ThemePreview.zip

[SierraKen]

Thanks both of you. I wasn't sure and eventually I was going to ask about it. I do have one question though, is it OK that I save my .bas and .frm files in a different directory than QB64? I've been doing that forever for .bas files. Can I still put all the files as you say in the one .zip file the way you showed me? I actually have my QB64 folder inside my QBasic folder and keep all my .bas files in just the Qbasic folder. Inform still works this way but I just want to make sure it's still good your way inside the .zip file before I post it here. Thanks.

[bplus]

I would definitely recommend putting each InForm project in separate folder. It makes it easy to make zip file of the folder to attach to your post.

[FellippeHeitor]

Thanks both of you. I wasn't sure and eventually I was going to ask about it. I do have one question though, is it OK that I save my .bas and .frm files in a different directory than QB64? I've been doing that forever for .bas files. Can I still put all the files as you say in the one .zip file the way you showed me? I actually have my QB64 folder inside my QBasic folder and keep all my .bas files in just the Qbasic folder. Inform still works this way but I just want to make sure it's still good your way inside the .zip file before I post it here. Thanks.

No problem keeping your files elsewhere in your hard drive.

[SierraKen]

Here is the game, for QB64 programmers. The .exe is not included. The game is not impossible although at first it will seem like that. Just keep clicking the mouse real fast and toward the button. Soon you will  be right on top of the button and can click forever if you want on the button until you just don't want to click anymore. :) It's a goofy game. lol But it's my first one using InForm. :)

[bplus]

LOL Oh man, a bit of a cruel streak in you! ;-))

Code: QB64: [Select]

1. SUB __UI_MouseEnter (id AS LONG)
2.     SELECT CASE id
3.         CASE Form1
4.  
5.         CASE Label1
6.  
7.         CASE CLICKBT
8.             RANDOMIZE TIMER
9.             x = RND * 250
10.             y = RND * 250
11.             Control(CLICKBT).Top = y
12.             Control(CLICKBT).Left = x
13.  
14.     END SELECT
15. END SUB
16.  

[SierraKen]

LOL! The funny thing is, it wasn't even what I set out to make to begin with. I was just going to have the button move around. But I wanted to see what some of the SUBs did so I could get the right one and a better feel to them. So I just tried that first one and it came out like that. I was shocked because it's the same game a friend of mine made many years ago in Visual Basic LOL! So I kept it. :)))

[bplus]

It's really great you have ventured into the land of InForm!

[FellippeHeitor]

That was fun, SierraKen. Thanks for sharing!

[SierraKen]

Thank you both! I will be learning more about it soon.

[TempodiBasic]

Fine!
It is a good joke.
You let me remember IQ test made in QB45!
Also it has been ported to QB64, but in ASCII interface.
Can You  find it on this forum or on the other (.net)? I don't remember well and it doesn't matter!