Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on May 10, 2020, 11:04:45 pm

Title: Giant Red Button
Post by: SierraKen on May 10, 2020, 11:04:45 pm
I know we can use InForm, but I decided to make my own circular red button. I was being goofy and made it into a war simulation button sorta. Click it 5 times and see what happens. The same thing happens every time you do it.
Feel free to use any of this code or change it how you wish.

Edit: I added a generic form of the Giant Red Button after this post so you can add your own code on what you want it to do.

Code: QB64: [Select]
  1. 'Press the GIANT RED BUTTON 5 times!
  2. _TITLE "GIANT RED BUTTON - Press 5 times."
  3. SCREEN _NEWIMAGE(800, 600, 32)
  4. b = 127
  5. FOR sz = .25 TO 150 STEP .25
  6.     CIRCLE (400, 300), sz, _RGB32(255, 0, 0)
  7. NEXT sz
  9.     _LIMIT 500
  10.     mouseWheel = 0
  12.         mouseX = _MOUSEX
  13.         mouseY = _MOUSEY
  14.         mouseLeftButton = _MOUSEBUTTON(1)
  15.         mouseRightButton = _MOUSEBUTTON(2)
  16.         mouseMiddleButton = _MOUSEBUTTON(3)
  17.         mouseWheel = mouseWheel + _MOUSEWHEEL
  18.         IF mouseLeftButton = -1 AND POINT(mouseX, mouseY) = _RGB32(255, 0, 0) THEN
  19.             FOR sz = 150 TO .25 STEP -.25
  20.                 b = b - 1
  21.                 IF b < 0 THEN b = 0
  22.                 CIRCLE (400, 300), sz, _RGB32(255 - b, 0, b)
  23.             NEXT sz
  24.             press = 1
  25.         END IF
  26.         IF mouseLeftButton = 0 THEN
  27.             FOR sz = .25 TO 150 STEP .25
  28.                 CIRCLE (400, 300), sz, _RGB32(255, 0, 0)
  29.             NEXT sz
  30.             b = 127
  31.             press = 0
  32.         END IF
  33.     LOOP
  34.     IF press = 1 THEN
  35.         FOR snd = 500 TO 200 STEP -5
  36.             SOUND snd, 1
  37.         NEXT snd
  38.         _DELAY 3
  39.         FOR explosion = 1 TO 50
  40.             RANDOMIZE TIMER
  41.             xx = INT(RND * 800)
  42.             yy = INT(RND * 600)
  43.             FOR sz = 1 TO 50 STEP 2
  44.                 CIRCLE (xx, yy), sz, _RGB32(155, 0, 0)
  45.             NEXT sz
  46.         NEXT explosion
  47.         SOUND 150, .5
  48.         SOUND 150, .5
  49.         SOUND 150, .5
  50.         SOUND 150, .5
  51.         press = 0
  52.         p = p + 1
  53.         IF p = 5 THEN GOTO done:
  54.     END IF
  56. done:
  58. xx2 = INT(RND * 800)
  59. yy2 = INT(RND * 600)
  60. FOR turn = 1 TO 400
  62.     xx3 = INT(RND * 800)
  63.     yy3 = INT(RND * 600)
  64.     LINE (xx2, yy2)-(xx3, yy3), _RGB32(0, 0, 0)
  65.     LINE (xx2 + 1, yy2 + 1)-(xx3 + 1, yy3 + 1), _RGB32(0, 0, 0)
  66.     LINE (xx2 + 2, yy2 + 2)-(xx3 + 2, yy3 + 2), _RGB32(0, 0, 0)
  67.     xx2 = xx3
  68.     yy2 = yy3
  69.     _DELAY .02
  70. NEXT turn
  71.  
Title: Re: Giant Red Button
Post by: SierraKen on May 11, 2020, 01:17:00 pm
Here's a generic Giant Red Button where you can make it do anything you want when you click it. I added the area on where to add your own code.
For example, you can make a bunch of DATA lines and have it display a sentence of text every time you click it to make a story.

Code: QB64: [Select]
  1. 'Press the GIANT RED BUTTON
  2. _TITLE "GIANT RED BUTTON"
  3. SCREEN _NEWIMAGE(800, 600, 32)
  4. b = 127
  5. FOR sz = .25 TO 150 STEP .25
  6.     CIRCLE (400, 300), sz, _RGB32(255, 0, 0)
  7. NEXT sz
  9.     _LIMIT 500
  10.     mouseWheel = 0
  12.         mouseX = _MOUSEX
  13.         mouseY = _MOUSEY
  14.         mouseLeftButton = _MOUSEBUTTON(1)
  15.         mouseRightButton = _MOUSEBUTTON(2)
  16.         mouseMiddleButton = _MOUSEBUTTON(3)
  17.         mouseWheel = mouseWheel + _MOUSEWHEEL
  18.         IF mouseLeftButton = -1 AND POINT(mouseX, mouseY) = _RGB32(255, 0, 0) THEN
  19.             FOR sz = 150 TO .25 STEP -.25
  20.                 b = b - 1
  21.                 IF b < 0 THEN b = 0
  22.                 CIRCLE (400, 300), sz, _RGB32(255 - b, 0, b)
  23.             NEXT sz
  24.             press = 1
  25.         END IF
  26.         IF mouseLeftButton = 0 THEN
  27.             FOR sz = .25 TO 150 STEP .25
  28.                 CIRCLE (400, 300), sz, _RGB32(255, 0, 0)
  29.             NEXT sz
  30.             b = 127
  31.             press = 0
  32.         END IF
  33.     LOOP
  34.     IF press = 1 THEN
  35.         '---------------------------------------------------------------
  36.         'Add your own code here that you want the Giant Red Button to do.
  37.  
  38.  
  39.  
  40.         '----------------------------------------------------------------
  41.         press = 0
  42.     END IF
  44.  
Title: Re: Giant Red Button
Post by: bplus on May 11, 2020, 01:53:47 pm
Maybe a little _DELAY after you redraw Button with color change when Mouse Down on it.

Since you are getting mouse wheel you could increase and decrease button radius to a min or max limit?
Title: Re: Giant Red Button
Post by: SierraKen on May 11, 2020, 02:23:43 pm
Thanks bplus. It works a bit better now and I changed the color for when you click it.
I'm just changing the generic button so people can have a better one.
Changing the size of it seems to be a bit difficult, for now anyway.


Code: QB64: [Select]
  1. 'Press the GIANT RED BUTTON
  2. _TITLE "GIANT RED BUTTON"
  3. SCREEN _NEWIMAGE(800, 600, 32)
  4. b = 127
  5. FOR sz = .25 TO 150 STEP .25
  6.     CIRCLE (400, 300), sz, _RGB32(255, 0, 0)
  7. NEXT sz
  9.     _LIMIT 500
  10.     mouseWheel = 0
  12.         mouseX = _MOUSEX
  13.         mouseY = _MOUSEY
  14.         mouseLeftButton = _MOUSEBUTTON(1)
  15.         mouseRightButton = _MOUSEBUTTON(2)
  16.         mouseMiddleButton = _MOUSEBUTTON(3)
  17.         mouseWheel = mouseWheel + _MOUSEWHEEL
  18.         IF mouseLeftButton = -1 AND POINT(mouseX, mouseY) = _RGB32(255, 0, 0) THEN
  19.             FOR sz = 150 TO .25 STEP -.25
  20.                 b = b - .1
  21.                 IF b < 0 THEN b = 0
  22.                 CIRCLE (400, 300), sz, _RGB32(255 - b, 0, b)
  23.             NEXT sz
  24.             press = 1
  25.             _DELAY .02
  26.         END IF
  27.         IF mouseLeftButton = 0 THEN
  28.             FOR sz = .25 TO 150 STEP .25
  29.                 CIRCLE (400, 300), sz, _RGB32(255, 0, 0)
  30.             NEXT sz
  31.             b = 127
  32.             press = 0
  33.         END IF
  34.     LOOP
  35.     IF press = 1 THEN
  36.         '---------------------------------------------------------------
  37.         'Add your own code here that you want the Giant Red Button to do.
  38.  
  39.  
  40.  
  41.         '----------------------------------------------------------------
  42.         press = 0
  43.     END IF
  45.  
Title: Re: Giant Red Button
Post by: SierraKen on May 11, 2020, 02:36:37 pm
OK I did it! People can now change the size of the button using the Mouse Wheel. :)

Code: QB64: [Select]
  1. 'Press the GIANT RED BUTTON
  2. _TITLE "GIANT RED BUTTON - Use mouse wheel to change size."
  3. SCREEN _NEWIMAGE(800, 600, 32)
  4. b = 127
  5. FOR sz = .25 TO 150 STEP .25
  6.     CIRCLE (400, 300), sz, _RGB32(255, 0, 0)
  7. NEXT sz
  9.     _LIMIT 500
  10.     mouseWheel = 0
  12.         mouseX = _MOUSEX
  13.         mouseY = _MOUSEY
  14.         mouseLeftButton = _MOUSEBUTTON(1)
  15.         mouseRightButton = _MOUSEBUTTON(2)
  16.         mouseMiddleButton = _MOUSEBUTTON(3)
  17.         mouseWheel = mouseWheel + _MOUSEWHEEL
  18.         IF mouseWheel < 0 THEN CLS: size = size + 1: mouseWheel = 0
  19.         IF mouseWheel > 0 THEN CLS: size = size - 1: mouseWheel = 0
  20.         IF size < -149 THEN size = -149
  21.         IF size > 100 THEN size = 100
  22.         IF mouseLeftButton = -1 AND POINT(mouseX, mouseY) = _RGB32(255, 0, 0) THEN
  23.             FOR sz = 150 + size TO .25 STEP -.25
  24.                 b = b - .1
  25.                 IF b < 0 THEN b = 0
  26.                 CIRCLE (400, 300), sz, _RGB32(255 - b, 0, b)
  27.             NEXT sz
  28.             press = 1
  29.             _DELAY .02
  30.         END IF
  31.         IF mouseLeftButton = 0 THEN
  32.             FOR sz = .25 TO 150 + size STEP .25
  33.                 CIRCLE (400, 300), sz, _RGB32(255, 0, 0)
  34.             NEXT sz
  35.             b = 127
  36.             press = 0
  37.         END IF
  38.     LOOP
  39.     IF press = 1 THEN
  40.         '---------------------------------------------------------------
  41.         'Add your own code here that you want the Giant Red Button to do.
  42.  
  43.  
  44.  
  45.         '----------------------------------------------------------------
  46.         press = 0
  47.     END IF
  49.  
Title: Re: Giant Red Button
Post by: Pete on May 11, 2020, 06:26:47 pm
Thanks Ken. Now if Steve can just hack me those nuclear codes, I can combine the two programs and put an end to FreeBASIC, forever!

Pete
Title: Re: Giant Red Button
Post by: SierraKen on May 11, 2020, 08:45:31 pm
Quote from: Pete on May 11, 2020, 06:26:47 pm
Thanks Ken. Now if Steve can just hack me those nuclear codes, I can combine the two programs and put an end to FreeBASIC, forever!

Pete

ROFL!
Text Only | Text with Attachments