Ken's Widget

[SierraKen]

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)
6. RANDOMIZE TIMER
7. xx = 10
8. yy = 10
9. DO
10.     mouseWheel = 0
11.     DO WHILE _MOUSEINPUT
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)
50. LOOP
51.  

[bplus]

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.

[SierraKen]

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
4. RANDOMIZE TIMER
5. xx = 10
6. yy = 10
7. COLOR , &HFFFFFFFF
8. DO
9.     mouseWheel = 0
10.     DO WHILE _MOUSEINPUT
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
48. LOOP
49.  

[SpriggsySpriggs]

Very interesting, Ken!

[bplus]

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)

[SierraKen]

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)
3. RANDOMIZE TIMER
4. x = 5
5. y = 5
6. player$ = CHR$(1)
7. COLOR , _RGB32(0, 0, 255)
8. DO
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
55. LOOP
56.