Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on August 14, 2020, 02:34:21 am

Title: Ken's Widget
Post by: SierraKen on August 14, 2020, 02:34:21 am
Is it a waste of time? Sure! What does it do? Probably nothing. What is it for? To prove one thing: A programming hobby can be fun even though you aren't making hardly anything!
Get yours now while the price is cheap (FREE!)
Maybe it will remind you of the simpler days, of the GREAT BIG BUTTON website that did absolutely nothing. But hey, at least this widget moves "stuff" around. Can the code be used to make anything in the future? That's up to you my friend. Maybe a game widget? An organizing widget? A PAC-MAN Widget! Do I need royalties? I wouldn't go that far. ;)

Use the arrow keys and mouse wheel in order to see intersections scatter and move. Hey, at least I tried another maze, that went South pretty fast. :)

Edit: I switched up and down arrow keys.

Code: QB64: [Select]
  1.  
  2. _TITLE "Ken's Widget - Use Arrow Keys and Mouse Wheel"
  3. SCREEN _NEWIMAGE(600, 600, 32)
  4. _LIMIT 100
  5. PAINT (2, 2), _RGB32(255, 255, 255)
  7. xx = 10
  8. yy = 10
  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.     LOOP
  19.     a$ = INKEY$
  20.     IF a$ = CHR$(0) + CHR$(72) THEN yy = yy - 5
  21.     IF a$ = CHR$(0) + CHR$(80) THEN yy = yy + 5
  22.  
  23.     IF a$ = CHR$(0) + CHR$(75) THEN xx = xx - 5
  24.     IF a$ = CHR$(0) + CHR$(77) THEN xx = xx + 5
  25.  
  26.     IF mouseWheel = -1 THEN xx = xx + 1: yy = yy + 1
  27.     IF mouseWheel = 1 THEN xx = xx - 1: yy = yy - 1
  28.     IF xx < 1 THEN xx = 1
  29.     IF yy < 1 THEN yy = 1
  30.     IF xx > 200 THEN xx = 200
  31.     IF yy > 200 THEN yy = 200
  32.     FOR iy = 50 + yy TO 550 + yy STEP 30 + yy
  33.         FOR ix = 50 + xx TO 550 + xx STEP 30 + xx
  34.             LINE (ix, iy)-(ix, iy + 10), _RGB32(0, 0, 0)
  35.             LINE (ix, iy + 10)-(ix - 10, iy + 10), _RGB32(0, 0, 0)
  36.  
  37.             LINE (ix + 10, iy)-(ix + 10, iy + 10), _RGB32(0, 0, 0)
  38.             LINE (ix + 10, iy + 10)-(ix + 20, iy + 10), _RGB32(0, 0, 0)
  39.  
  40.             LINE (ix, iy + 30)-(ix, iy + 20), _RGB32(0, 0, 0)
  41.             LINE (ix, iy + 20)-(ix - 10, iy + 20), _RGB32(0, 0, 0)
  42.  
  43.             LINE (ix + 10, iy + 30)-(ix + 10, iy + 20), _RGB32(0, 0, 0)
  44.             LINE (ix + 10, iy + 20)-(ix + 20, iy + 20), _RGB32(0, 0, 0)
  45.         NEXT ix
  46.     NEXT iy
  47.     _DISPLAY
  48.     CLS
  49.     PAINT (2, 2), _RGB32(255, 255, 255)
  51.  
Title: Re: Ken's Widget
Post by: bplus on August 14, 2020, 12:02:02 pm
OK nice grid practice.

Tip: Use this
Code: QB64: [Select]
  1. COLOR , &HFFFFFFFF
  2.  

before main DO loop and then you wont need the PAINT near end of loop.
Title: Re: Ken's Widget
Post by: SierraKen on August 14, 2020, 12:55:58 pm
Awesome! I never knew what those color hex memories did. I'll update it below.
Yeah it was just a grid practice like you said. I thought about trying to make a maze using a grid first and randomly placing walls but it was harder than it sounds. I might work on it more another time.

Code: QB64: [Select]
  1. _TITLE "Ken's Widget - Use Arrow Keys and Mouse Wheel"
  2. SCREEN _NEWIMAGE(600, 600, 32)
  3. _LIMIT 100
  5. xx = 10
  6. yy = 10
  7. COLOR , &HFFFFFFFF
  9.     mouseWheel = 0
  11.         mouseX = _MOUSEX
  12.         mouseY = _MOUSEY
  13.         mouseLeftButton = _MOUSEBUTTON(1)
  14.         mouseRightButton = _MOUSEBUTTON(2)
  15.         mouseMiddleButton = _MOUSEBUTTON(3)
  16.         mouseWheel = mouseWheel + _MOUSEWHEEL
  17.     LOOP
  18.     a$ = INKEY$
  19.     IF a$ = CHR$(0) + CHR$(72) THEN yy = yy - 5
  20.     IF a$ = CHR$(0) + CHR$(80) THEN yy = yy + 5
  21.  
  22.     IF a$ = CHR$(0) + CHR$(75) THEN xx = xx - 5
  23.     IF a$ = CHR$(0) + CHR$(77) THEN xx = xx + 5
  24.  
  25.     IF mouseWheel = -1 THEN xx = xx + 1: yy = yy + 1
  26.     IF mouseWheel = 1 THEN xx = xx - 1: yy = yy - 1
  27.     IF xx < 1 THEN xx = 1
  28.     IF yy < 1 THEN yy = 1
  29.     IF xx > 200 THEN xx = 200
  30.     IF yy > 200 THEN yy = 200
  31.     FOR iy = 50 + yy TO 550 + yy STEP 30 + yy
  32.         FOR ix = 50 + xx TO 550 + xx STEP 30 + xx
  33.             LINE (ix, iy)-(ix, iy + 10), _RGB32(0, 0, 0)
  34.             LINE (ix, iy + 10)-(ix - 10, iy + 10), _RGB32(0, 0, 0)
  35.  
  36.             LINE (ix + 10, iy)-(ix + 10, iy + 10), _RGB32(0, 0, 0)
  37.             LINE (ix + 10, iy + 10)-(ix + 20, iy + 10), _RGB32(0, 0, 0)
  38.  
  39.             LINE (ix, iy + 30)-(ix, iy + 20), _RGB32(0, 0, 0)
  40.             LINE (ix, iy + 20)-(ix - 10, iy + 20), _RGB32(0, 0, 0)
  41.  
  42.             LINE (ix + 10, iy + 30)-(ix + 10, iy + 20), _RGB32(0, 0, 0)
  43.             LINE (ix + 10, iy + 20)-(ix + 20, iy + 20), _RGB32(0, 0, 0)
  44.         NEXT ix
  45.     NEXT iy
  46.     _DISPLAY
  47.     CLS
  49.  
Title: Re: Ken's Widget
Post by: SpriggsySpriggs on August 14, 2020, 01:00:05 pm
Very interesting, Ken!
Title: Re: Ken's Widget
Post by: bplus on August 14, 2020, 01:17:01 pm
Oh I missed the arrow keys thing, yeah good practice, this stuff comes in handy later if it does not inspire something while fooling around.

Maybe try some plaid patterns? Colorful overlapping grids with different thickness lines (BF's)
Title: Re: Ken's Widget
Post by: SierraKen on August 14, 2020, 09:02:47 pm
Today I started on a game project using a grid. You move your guy around city blocks. I think I will have things you collect on the way. I have the blocks and a chr$(1) happy face you move around. I might change the happy face to something else since he's so tiny. I wish I could make him larger. Anyway, here is what I have so far:

Code: QB64: [Select]
  1. _TITLE "City Blocks - Use Arrow Keys"
  2. SCREEN _NEWIMAGE(600, 600, 32)
  4. x = 5
  5. y = 5
  6. player$ = CHR$(1)
  7. COLOR , _RGB32(0, 0, 255)
  9.     _LIMIT 100
  10.     a$ = INKEY$
  11.     IF a$ = CHR$(0) + CHR$(72) THEN d = 1
  12.     IF a$ = CHR$(0) + CHR$(80) THEN d = 2
  13.     IF a$ = CHR$(0) + CHR$(75) THEN d = 3
  14.     IF a$ = CHR$(0) + CHR$(77) THEN d = 4
  15.     IF a$ = CHR$(27) THEN END
  16.  
  17.     FOR iy = 50 TO 550 STEP 60
  18.         FOR ix = 50 TO 550 STEP 60
  19.             FOR t = -7 TO 30
  20.                 FOR tt = -7 TO 30
  21.                     IF x = ix + tt AND y = iy + t THEN
  22.                         IF d = 3 THEN x = x + 2
  23.                         IF d = 4 THEN x = x - 2
  24.                         IF d = 1 THEN y = y + 2
  25.                         IF d = 2 THEN y = y - 2
  26.                         d = 0
  27.                         GOTO nex:
  28.                     END IF
  29.                 NEXT tt
  30.             NEXT t
  31.         NEXT ix
  32.     NEXT iy
  33.  
  34.     IF d = 1 THEN y = y - 1
  35.     IF d = 2 THEN y = y + 1
  36.     IF d = 3 THEN x = x - 1
  37.     IF d = 4 THEN x = x + 1
  38.     nex:
  39.  
  40.  
  41.     IF x < 1 THEN x = 600
  42.     IF y < 1 THEN y = 600
  43.     IF x > 600 THEN x = 1
  44.     IF y > 600 THEN y = 1
  45.     COLOR _RGB32(0, 255, 0)
  46.     _FONT 16
  47.     _PRINTSTRING (x, y), player$
  48.     FOR iy = 50 TO 550 STEP 60
  49.         FOR ix = 50 TO 550 STEP 60
  50.             LINE (ix, iy)-(ix + 30, iy + 30), _RGB32(255, 0, 0), BF
  51.         NEXT ix
  52.     NEXT iy
  53.     _DISPLAY
  54.     CLS
  56.  
Text Only | Text with Attachments