Simple mouse/cursor key driven menu

[Mad Axeman]

I needed a simple cursor up/down and mouse driven menu for a program I'm writing so I came up with the following. It's quite simple and could probably be written a lot better but I don't play around with basic very often so it'll do for what I need.  It might be of use to someone out there so here it is :-)

Code: QB64: [Select]

1. '
2. ' Simple mouse and cursor key menu
3. ' Written by Colin Birch
4. ' Software written is Wales :-)
5. '
6.  
7.  
8. ' First section - This is where your main program would go
9.  
10. DIM z$(20)
11. SCREEN 0
12. WIDTH 110
13. _PALETTECOLOR 7, _RGB32(255, 255, 255) 'change color 7 intensity
14. co1 = 0
15. co2 = 7
16. COLOR co1, co2
17.  
18. ' cls screen and call using menu 1
19.  
20. CLS
21. PRINT "First menu"
22.  
23. menuno = 1
24. GOSUB menu1
25.  
26. menu1 = menu
27.  
28. ' cls screen and call using menu 2
29.  
30. CLS
31. PRINT "Second menu"
32.  
33. menuno = 2
34. GOSUB menu1
35.  
36. menu2 = menu
37.  
38.  
39. CLS
40. PRINT "Returns - "; menu1; " from first menu"
41. PRINT "Returns - "; menu2; " from second menu"
42. END
43.  
44.  
45.  
46. ' **************************************************************************
47.  
48. ' Above is where the main program would go
49.  
50. ' **************************************************************************
51.  
52. ' Actual menu routine starts here
53.  
54. ' **************************************************************************
55.  
56.  
57. menu1:
58.  
59. ' info for menu1
60. IF menuno = 1 THEN
61.  
62.     z$(1) = " 1st Option "
63.     z$(2) = " 2nd Option "
64.     z$(3) = " 3rd Option "
65.     z$(4) = " 4th Option "
66.     z$(5) = " 5th Option "
67.     z$(6) = " 6th Option "
68.     z$(7) = " 7th Option "
69.     z$(8) = " 8th Option "
70.     z$(9) = " 9th Option "
71.     z$(10) = "10th Option "
72.     z$(11) = "11th Option "
73.     z$(12) = "12th Option "
74.     z$(13) = "13th Option "
75.     z$(14) = "14th Option "
76.     z$(15) = "15th Option "
77.  
78.     ' pt = number of menu entries
79.     pt = 15
80.  
81.     ' mr = right most column for mouse to work.
82.     ' usualy the length of longest menu entry
83.     mr = 12
84.  
85.     ' menu colours
86.     ' c1 & c2 non highlighted
87.     ' c3 & c4 highlighted
88.     c1 = 0
89.     c2 = 7
90.     c3 = 7
91.     c4 = 0
92.  
93.     ' px & py screen locations for top left of menu
94.     ' px row
95.     ' py column
96.     px = 4
97.     py = 3
98.  
99. END IF
100.  
101. ' info for menu 2
102. IF menuno = 2 THEN
103.  
104.     z$(1) = "1st Option                        "
105.     z$(2) = "2nd Option                        "
106.     z$(3) = "3rd Option - This is a long entry "
107.     z$(4) = "4th Option                        "
108.     z$(5) = "5th Option                        "
109.     z$(6) = "6th Option                        "
110.  
111.     ' pt = number of menu entries
112.     pt = 6
113.  
114.     ' mr = right most column for mouse to work.
115.     ' usualy length of longest menu entry
116.     mr = 34
117.  
118.     ' menu colours
119.     ' c1 & c2 non highlighted
120.     ' c3 & c4 highlighted
121.     c1 = 0
122.     c2 = 7
123.     c3 = 7
124.     c4 = 0
125.  
126.     ' px & py screen locations for top left of menu
127.     ' px row
128.     ' py column
129.     px = 6
130.     py = 6
131.  
132. END IF
133.  
134. ' Lets display the menu
135. z1 = 0
136.  
137. reprint:
138. IF z1 <= 0 THEN z1 = 0
139. IF z1 >= (pt - 1) THEN z1 = pt - 1
140.  
141. COLOR c1, c2
142. FOR i = 1 TO pt
143.     LOCATE py + (i - 1), px
144.     PRINT z$(i)
145. NEXT
146.  
147. LOCATE py + z1, px
148. COLOR c3, c4
149. PRINT z$(z1 + 1)
150.  
151. ' do the mouse and cursor key inputs
152. mousein:
153. DO
154.     DO WHILE _MOUSEINPUT '      Check the mouse status
155.         mx = _MOUSEX
156.         my = _MOUSEY
157.         mb1 = _MOUSEBUTTON(1)
158.         '       mb2 = _MOUSEBUTTON(2)
159.         '      mw = _MOUSEWHEEL
160.  
161.  
162.         IF mb1 = -1 THEN
163.             menu = z1 + 1
164.             COLOR co1, co2
165.             RETURN
166.         END IF
167.  
168.  
169.         IF omy <> my THEN
170.             IF mx >= px AND mx < (mr + px) AND my >= py AND my < pt + py THEN
171.                 z1 = my - py
172.                 omy = my
173.                 GOTO reprint
174.             END IF
175.         END IF
176.  
177.     LOOP
178.  
179.     x$ = INKEY$
180.  
181. LOOP UNTIL x$ <> ""
182. lx = ASC(x$)
183.  
184. ' Down Arrow
185. IF x$ = CHR$(0) + CHR$(80) THEN
186.     z1 = z1 + 1
187.     GOTO reprint
188. END IF
189.  
190. ' Up Arrow
191. IF x$ = CHR$(0) + CHR$(72) THEN
192.     z1 = z1 - 1
193.     GOTO reprint
194. END IF
195.  
196. ' Enter key
197. IF x$ = CHR$(13) THEN
198.     menu = z1 + 1
199.     COLOR co1, co2
200.     RETURN
201. END IF
202.  
203. GOTO mousein
204.  
205.  
206.  

[bplus]

Nice! and like Pete said should be easy to add scroller with _MOUSEWHEEL

[Mad Axeman]

Scroll should be easy enough but I don't have  a mouse with a mouse wheel with me.

Just made a small mod and added an option to draw a border around the options. The joys of working away from home and being bored sat in a hotel room on a rainy day

Code: QB64: [Select]

1. '
2. ' Simple mouse and cursor key menu
3. ' Written by Colin Birch
4. ' Software written is Wales :-)
5. '
6. ' V0.2 - Added optional border
7.  
8.  
9.  
10. ' First section - This is where your main program would go
11.  
12. DIM z$(20)
13. SCREEN 0
14. WIDTH 110
15. _PALETTECOLOR 7, _RGB32(255, 255, 255) 'change color 7 intensity
16. co1 = 0
17. co2 = 7
18. COLOR co1, co2
19.  
20. ' cls screen and call using menu 1
21.  
22. CLS
23. PRINT "First menu"
24.  
25. menuno = 1
26. GOSUB menu1
27.  
28. menu1 = menu
29.  
30. ' cls screen and call using menu 2
31.  
32. CLS
33. PRINT "Second menu"
34.  
35. menuno = 2
36. GOSUB menu1
37.  
38. menu2 = menu
39.  
40.  
41. CLS
42. PRINT "Returns - "; menu1; " from first menu"
43. PRINT "Returns - "; menu2; " from second menu"
44. END
45.  
46.  
47.  
48. ' **************************************************************************
49.  
50. ' Above is where the main program would go
51.  
52. ' **************************************************************************
53.  
54. ' Actual menu routine starts here
55.  
56. ' **************************************************************************
57.  
58.  
59. menu1:
60.  
61. ' info for menu1
62. IF menuno = 1 THEN
63.  
64.     z$(1) = " 1st Option "
65.     z$(2) = " 2nd Option "
66.     z$(3) = " 3rd Option "
67.     z$(4) = " 4th Option "
68.     z$(5) = " 5th Option "
69.     z$(6) = " 6th Option "
70.     z$(7) = " 7th Option "
71.     z$(8) = " 8th Option "
72.     z$(9) = " 9th Option "
73.     z$(10) = "10th Option "
74.     z$(11) = "11th Option "
75.     z$(12) = "12th Option "
76.     z$(13) = "13th Option "
77.     z$(14) = "14th Option "
78.     z$(15) = "15th Option "
79.  
80.     ' pt = number of menu entries
81.     pt = 15
82.  
83.     ' mr = right most column for mouse to work.
84.     ' usualy the length of longest menu entry
85.     mr = 12
86.  
87.     ' menu colours
88.     ' c1 & c2 non highlighted
89.     ' c3 & c4 highlighted
90.     c1 = 0
91.     c2 = 7
92.     c3 = 7
93.     c4 = 0
94.  
95.     ' px & py screen locations for top left of menu
96.     ' px row
97.     ' py column
98.     px = 4
99.     py = 3
100.  
101.     ' border on/off
102.     ' pb = 1 border on
103.     ' pb = 0 border off
104.  
105.     pb = 1
106.  
107. END IF
108.  
109. ' info for menu 2
110. IF menuno = 2 THEN
111.  
112.     z$(1) = "1st Option                        "
113.     z$(2) = "2nd Option                        "
114.     z$(3) = "3rd Option - This is a long entry "
115.     z$(4) = "4th Option                        "
116.     z$(5) = "5th Option                        "
117.     z$(6) = "6th Option                        "
118.  
119.     ' pt = number of menu entries
120.     pt = 6
121.  
122.     ' mr = right most column for mouse to work.
123.     ' usualy length of longest menu entry
124.     mr = 34
125.  
126.     ' menu colours
127.     ' c1 & c2 non highlighted
128.     ' c3 & c4 highlighted
129.     c1 = 0
130.     c2 = 7
131.     c3 = 7
132.     c4 = 0
133.  
134.     ' px & py screen locations for top left of menu
135.     ' px row
136.     ' py column
137.     px = 6
138.     py = 6
139.  
140.     ' border on/off
141.     ' pb = 1 border on
142.     ' pb = 0 border off
143.  
144.     pb = 0
145.  
146. END IF
147.  
148. ' draw the border if needed
149.  
150. IF pb = 1 THEN
151.  
152.     pb = 0
153.  
154.     LOCATE py, px
155.     PRINT "Õ";
156.     FOR i = 1 TO mr
157.         PRINT "Í";
158.     NEXT
159.     PRINT "¸"
160.  
161.     FOR i = 1 TO pt
162.         LOCATE py + i, px
163.         PRINT "³"; STRING$(mr, 32); "³"
164.     NEXT
165.  
166.     LOCATE py + pt + 1, px
167.     PRINT "Ô";
168.     FOR i = 1 TO mr
169.         PRINT "Í";
170.     NEXT
171.     PRINT "¾"
172.  
173.     py = py + 1
174.     px = px + 1
175.  
176. END IF
177.  
178. ' Border finished
179.  
180.  
181. ' Lets display the menu
182. z1 = 0
183.  
184. reprint:
185. IF z1 <= 0 THEN z1 = 0
186. IF z1 >= (pt - 1) THEN z1 = pt - 1
187.  
188. COLOR c1, c2
189. FOR i = 1 TO pt
190.     LOCATE py + (i - 1), px
191.     PRINT z$(i)
192. NEXT
193.  
194. LOCATE py + z1, px
195. COLOR c3, c4
196. PRINT z$(z1 + 1)
197.  
198. ' do the mouse and cursor key inputs
199. mousein:
200. DO
201.     DO WHILE _MOUSEINPUT '      Check the mouse status
202.         mx = _MOUSEX
203.         my = _MOUSEY
204.         mb1 = _MOUSEBUTTON(1)
205.         '       mb2 = _MOUSEBUTTON(2)
206.         '      mw = _MOUSEWHEEL
207.  
208.  
209.         IF mb1 = -1 THEN
210.             menu = z1 + 1
211.             COLOR co1, co2
212.             RETURN
213.         END IF
214.  
215.  
216.         IF omy <> my THEN
217.             IF mx >= px AND mx < (mr + px) AND my >= py AND my < pt + py THEN
218.                 z1 = my - py
219.                 omy = my
220.                 GOTO reprint
221.             END IF
222.         END IF
223.  
224.     LOOP
225.  
226.     x$ = INKEY$
227.  
228. LOOP UNTIL x$ <> ""
229. lx = ASC(x$)
230.  
231. ' Down Arrow
232. IF x$ = CHR$(0) + CHR$(80) THEN
233.     z1 = z1 + 1
234.     GOTO reprint
235. END IF
236.  
237. ' Up Arrow
238. IF x$ = CHR$(0) + CHR$(72) THEN
239.     z1 = z1 - 1
240.     GOTO reprint
241. END IF
242.  
243. ' Enter key
244. IF x$ = CHR$(13) THEN
245.     menu = z1 + 1
246.     COLOR co1, co2
247.     RETURN
248. END IF
249.  
250. GOTO mousein
251.  
252.  

[bplus]

Ohhhh! man I'd be lost without the wheel, forums and editing, wow!

You should know, the only thing that has to go between this loop is _MOUSEWHEEL

Code: QB64: [Select]

1.     DO WHILE _MOUSEINPUT '      Check the mouse status
2.         mx = _MOUSEX
3.         my = _MOUSEY
4.         mb1 = _MOUSEBUTTON(1)
5.         '       mb2 = _MOUSEBUTTON(2)
6.         '      mw = _MOUSEWHEEL
7.  
8.  
9.         IF mb1 = -1 THEN
10.             menu = z1 + 1
11.             COLOR co1, co2
12.             RETURN
13.         END IF
14.  
15.  
16.         IF omy <> my THEN
17.             IF mx >= px AND mx < (mr + px) AND my >= py AND my < pt + py THEN
18.                 z1 = my - py
19.                 omy = my
20.                 GOTO reprint
21.             END IF
22.         END IF
23.  
24.     LOOP
25.  

Check it out!

Code: QB64: [Select]

1. '
2. ' Simple mouse and cursor key menu
3. ' Written by Colin Birch
4. ' Software written is Wales :-)
5. '
6. ' V0.2 - Added optional border
7.  
8.  
9.  
10. ' First section - This is where your main program would go
11.  
12. DIM z$(20)
13. SCREEN 0
14. WIDTH 110
15. _PALETTECOLOR 7, _RGB32(255, 255, 255) 'change color 7 intensity
16. co1 = 0
17. co2 = 7
18. COLOR co1, co2
19.  
20. ' cls screen and call using menu 1
21.  
22. CLS
23. PRINT "First menu"
24.  
25. menuno = 1
26. GOSUB menu1
27.  
28. menu1 = menu
29.  
30. ' cls screen and call using menu 2
31.  
32. CLS
33. PRINT "Second menu"
34.  
35. menuno = 2
36. GOSUB menu1
37.  
38. menu2 = menu
39.  
40.  
41. CLS
42. PRINT "Returns - "; menu1; " from first menu"
43. PRINT "Returns - "; menu2; " from second menu"
44. END
45.  
46.  
47.  
48. ' **************************************************************************
49.  
50. ' Above is where the main program would go
51.  
52. ' **************************************************************************
53.  
54. ' Actual menu routine starts here
55.  
56. ' **************************************************************************
57.  
58.  
59. menu1:
60.  
61. ' info for menu1
62. IF menuno = 1 THEN
63.  
64.     z$(1) = " 1st Option "
65.     z$(2) = " 2nd Option "
66.     z$(3) = " 3rd Option "
67.     z$(4) = " 4th Option "
68.     z$(5) = " 5th Option "
69.     z$(6) = " 6th Option "
70.     z$(7) = " 7th Option "
71.     z$(8) = " 8th Option "
72.     z$(9) = " 9th Option "
73.     z$(10) = "10th Option "
74.     z$(11) = "11th Option "
75.     z$(12) = "12th Option "
76.     z$(13) = "13th Option "
77.     z$(14) = "14th Option "
78.     z$(15) = "15th Option "
79.  
80.     ' pt = number of menu entries
81.     pt = 15
82.  
83.     ' mr = right most column for mouse to work.
84.     ' usualy the length of longest menu entry
85.     mr = 12
86.  
87.     ' menu colours
88.     ' c1 & c2 non highlighted
89.     ' c3 & c4 highlighted
90.     c1 = 0
91.     c2 = 7
92.     c3 = 7
93.     c4 = 0
94.  
95.     ' px & py screen locations for top left of menu
96.     ' px row
97.     ' py column
98.     px = 4
99.     py = 3
100.  
101.     ' border on/off
102.     ' pb = 1 border on
103.     ' pb = 0 border off
104.  
105.     pb = 1
106.  
107. END IF
108.  
109. ' info for menu 2
110. IF menuno = 2 THEN
111.  
112.     z$(1) = "1st Option                        "
113.     z$(2) = "2nd Option                        "
114.     z$(3) = "3rd Option - This is a long entry "
115.     z$(4) = "4th Option                        "
116.     z$(5) = "5th Option                        "
117.     z$(6) = "6th Option                        "
118.  
119.     ' pt = number of menu entries
120.     pt = 6
121.  
122.     ' mr = right most column for mouse to work.
123.     ' usualy length of longest menu entry
124.     mr = 34
125.  
126.     ' menu colours
127.     ' c1 & c2 non highlighted
128.     ' c3 & c4 highlighted
129.     c1 = 0
130.     c2 = 7
131.     c3 = 7
132.     c4 = 0
133.  
134.     ' px & py screen locations for top left of menu
135.     ' px row
136.     ' py column
137.     px = 6
138.     py = 6
139.  
140.     ' border on/off
141.     ' pb = 1 border on
142.     ' pb = 0 border off
143.  
144.     pb = 0
145.  
146. END IF
147.  
148. ' draw the border if needed
149.  
150. IF pb = 1 THEN
151.  
152.     pb = 0
153.  
154.     LOCATE py, px
155.     PRINT "Õ";
156.     FOR i = 1 TO mr
157.         PRINT "Í";
158.     NEXT
159.     PRINT "¸"
160.  
161.     FOR i = 1 TO pt
162.         LOCATE py + i, px
163.         PRINT "³"; STRING$(mr, 32); "³"
164.     NEXT
165.  
166.     LOCATE py + pt + 1, px
167.     PRINT "Ô";
168.     FOR i = 1 TO mr
169.         PRINT "Í";
170.     NEXT
171.     PRINT "¾"
172.  
173.     py = py + 1
174.     px = px + 1
175.  
176. END IF
177.  
178. ' Border finished
179.  
180.  
181. ' Lets display the menu
182. z1 = 0
183.  
184. reprint:
185. IF z1 <= 0 THEN z1 = 0
186. IF z1 >= (pt - 1) THEN z1 = pt - 1
187.  
188. COLOR c1, c2
189. FOR i = 1 TO pt
190.     LOCATE py + (i - 1), px
191.     PRINT z$(i)
192. NEXT
193.  
194. LOCATE py + z1, px
195. COLOR c3, c4
196. PRINT z$(z1 + 1)
197.  
198. ' do the mouse and cursor key inputs
199. mousein:
200. DO
201.     DO WHILE _MOUSEINPUT '      Check the mouse status
202.  
203.         '      mw = _MOUSEWHEEL
204.  
205.     LOOP
206.     mx = _MOUSEX
207.     my = _MOUSEY
208.     mb1 = _MOUSEBUTTON(1)
209.     '       mb2 = _MOUSEBUTTON(2)
210.     IF mb1 = -1 THEN
211.         menu = z1 + 1
212.         COLOR co1, co2
213.         RETURN
214.     END IF
215.  
216.  
217.     IF omy <> my THEN
218.         IF mx >= px AND mx < (mr + px) AND my >= py AND my < pt + py THEN
219.             z1 = my - py
220.             omy = my
221.             GOTO reprint
222.         END IF
223.     END IF
224.  
225.  
226.     x$ = INKEY$
227.  
228. LOOP UNTIL x$ <> ""
229. lx = ASC(x$)
230.  
231. ' Down Arrow
232. IF x$ = CHR$(0) + CHR$(80) THEN
233.     z1 = z1 + 1
234.     GOTO reprint
235. END IF
236.  
237. ' Up Arrow
238. IF x$ = CHR$(0) + CHR$(72) THEN
239.     z1 = z1 - 1
240.     GOTO reprint
241. END IF
242.  
243. ' Enter key
244. IF x$ = CHR$(13) THEN
245.     menu = z1 + 1
246.     COLOR co1, co2
247.     RETURN
248. END IF
249.  
250. GOTO mousein
251.  
252.  
253.  
254.  

[bplus]

Oh I just noticed your new code with box around it isn't selecting from second menu anymore.

I thought I screwed it up with Mouse Polling Change, nope, it's there before that.

Update:
I took a deeper look into your code setup to see if it just needed a quick fix,...  GOTO's have me bouncing around like a pinball! Yikes!

Consider this:

Code: QB64: [Select]

1. FUNCTION MenuChoice$(Menu$())  'this function takes a menu array and returns the choice the user selected
2.  
3. CLS   'own the screen save previous screen colors what not...
4.  
5. ub = UBOUND(Menu$)  'get upper and lower bounds of menu
6. lb = LBOUND(Menu$)
7.  
8. 'print out menu
9. 'wait for keys or mouse
10. 'ect...
11.  
12.  
13. END FUNTION  ' <<<<<<<<<<<<<<<<<<<<<<< Oh Ha! Ha! love my spelling errors
14.  
15.  

 

Now you just feed the function a menu array and wait for the function to return the user's choice.

[Mad Axeman]

The border not working on the second menu was intentional. If you look there's the following lines:

    ' border on/off
    ' pb = 1 border on
    ' pb = 0 border off
 
    pb = 1

It's set to '1' on the first menu (draws border) and '0' on the second (no border) just to show the difference.
Yup, there's a few goto's in there. I'm afraid I grew up in the days of the Commodore VIC20 and C64 and back then it was the only way. I should know better as I do a lot with PHP which is a lot more structured. I think it's just me being lazy!

[bplus]

Ha! lazy, I think it more work to create and track 2 to N sets of menus and variables.
I should finish the function and we can compare results and ports to other apps. :)

You know with a function, all you have to do is get it written for one and make it general enough and you have it for any menu or small arrays or child menus off parent menus.

Then you can worry where to park them on screen, colors, borders all the bells and whistles, next thing you know, you are doing mini-widows ;-)

[bplus]

Oh crud Dav and Steve already have nice ones:
Dav's          https://www.qb64.org/forum/index.php?topic=2767.msg120095#msg120095
Steve mod: https://www.qb64.org/forum/index.php?topic=2767.msg120261#msg120261

Definitely a great project for work out!

Now maybe I can go back to flying lessons ;-)