Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Mad Axeman on November 03, 2020, 07:47:54 am

Title: Simple mouse/cursor key driven menu
Post by: Mad Axeman on November 03, 2020, 07:47:54 am
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)
  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.  
  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.  
  31. PRINT "Second menu"
  32.  
  33. menuno = 2
  34. GOSUB menu1
  35.  
  36. menu2 = menu
  37.  
  38.  
  40. PRINT "Returns - "; menu1; " from first menu"
  41. PRINT "Returns - "; menu2; " from second menu"
  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.  
  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.  
  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)
  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:
  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
  189.  
  190. ' Up Arrow
  191. IF x$ = CHR$(0) + CHR$(72) THEN
  192.     z1 = z1 - 1
  193.     GOTO reprint
  195.  
  196. ' Enter key
  197. IF x$ = CHR$(13) THEN
  198.     menu = z1 + 1
  199.     COLOR co1, co2
  200.     RETURN
  202.  
  203. GOTO mousein
  204.  
  205.  
  206.  
Title: Re: Simple mouse/cursor key driven menu
Post by: bplus on November 03, 2020, 10:11:41 am
Nice! and like Pete said should be easy to add scroller with _MOUSEWHEEL
Title: Re: Simple mouse/cursor key driven menu
Post by: Mad Axeman on November 03, 2020, 11:09:07 am
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)
  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.  
  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.  
  33. PRINT "Second menu"
  34.  
  35. menuno = 2
  36. GOSUB menu1
  37.  
  38. menu2 = menu
  39.  
  40.  
  42. PRINT "Returns - "; menu1; " from first menu"
  43. PRINT "Returns - "; menu2; " from second menu"
  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.  
  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.  
  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.  
  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)
  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:
  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
  236.  
  237. ' Up Arrow
  238. IF x$ = CHR$(0) + CHR$(72) THEN
  239.     z1 = z1 - 1
  240.     GOTO reprint
  242.  
  243. ' Enter key
  244. IF x$ = CHR$(13) THEN
  245.     menu = z1 + 1
  246.     COLOR co1, co2
  247.     RETURN
  249.  
  250. GOTO mousein
  251.  
  252.  
Title: Re: Simple mouse/cursor key driven menu
Post by: bplus on November 03, 2020, 11:18:54 am
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)
  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.  
  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.  
  33. PRINT "Second menu"
  34.  
  35. menuno = 2
  36. GOSUB menu1
  37.  
  38. menu2 = menu
  39.  
  40.  
  42. PRINT "Returns - "; menu1; " from first menu"
  43. PRINT "Returns - "; menu2; " from second menu"
  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.  
  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.  
  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.  
  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)
  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:
  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
  236.  
  237. ' Up Arrow
  238. IF x$ = CHR$(0) + CHR$(72) THEN
  239.     z1 = z1 - 1
  240.     GOTO reprint
  242.  
  243. ' Enter key
  244. IF x$ = CHR$(13) THEN
  245.     menu = z1 + 1
  246.     COLOR co1, co2
  247.     RETURN
  249.  
  250. GOTO mousein
  251.  
  252.  
  253.  
  254.  
Title: Re: Simple mouse/cursor key driven menu
Post by: bplus on November 03, 2020, 11:26:43 am
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.
Title: Re: Simple mouse/cursor key driven menu
Post by: Mad Axeman on November 03, 2020, 12:15:50 pm
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!

Title: Re: Simple mouse/cursor key driven menu
Post by: bplus on November 03, 2020, 01:42:48 pm
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 ;-)
Title: Re: Simple mouse/cursor key driven menu
Post by: bplus on November 03, 2020, 02:16:06 pm
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 ;-)
Text Only | Text with Attachments