Find The Test Signal On The TV Game!

[SierraKen]

Find The Test Signal On The TV Game!
Move your mouse around on the screen like you are moving your antenna.
After you find it, press the left mouse button to find it again!
Just like the "Good 'Ol Days!"
There's no points but it's like a TV simulator. Does it remind you of your youth? :D

Code: QB64: [Select]

1. 'Find The Test Signal On The TV Game!
2. 'Move your mouse around on the screen like you are moving your antenna.
3. 'After you find it, press the left mouse button to find it again!
4. 'Just like the "Good 'Ol Days!"
5. '
6. 'By Sierraken on June 18, 2020.
7. '
8. _TITLE "Find the test signal by moving your mouse (antenna) around. Left mouse button to find another one."
9. SCREEN _NEWIMAGE(800, 600, 32)
10. t = 20
11. RANDOMIZE TIMER
12. lx = INT(RND * 800) + 1
13. ly = INT(RND * 600) + 1
14. DO
15.     mouseWheel = 0
16.     DO WHILE _MOUSEINPUT
17.         mouseX = _MOUSEX
18.         mouseY = _MOUSEY
19.         mouseLeftButton = _MOUSEBUTTON(1)
20.         mouseRightButton = _MOUSEBUTTON(2)
21.         mouseMiddleButton = _MOUSEBUTTON(3)
22.         mouseWheel = mouseWheel + _MOUSEWHEEL
23.         IF mouseLeftButton = -1 THEN
24.             lx = INT(RND * 800) + 1
25.             ly = INT(RND * 600) + 1
26.         END IF
27.     LOOP
28.     fx3 = (mouseX + mouseY) / 100
29.     IF mouseX > lx - 100 AND mouseX < lx + 100 AND mouseY > ly - 100 AND mouseY < ly + 100 THEN
30.         LINE (50, 50)-(750, 550), _RGB32(255, 255, 255), BF
31.         FOR lines = 0 TO 700 STEP 100
32.             IF lines = 100 THEN c = _RGB32(255, 255, 255)
33.             IF lines = 200 THEN c = _RGB32(255, 255, 127)
34.             IF lines = 300 THEN c = _RGB32(127, 255, 255)
35.             IF lines = 400 THEN c = _RGB32(0, 255, 0)
36.             IF lines = 500 THEN c = _RGB32(255, 127, 255)
37.             IF lines = 600 THEN c = _RGB32(255, 0, 0)
38.             IF lines = 700 THEN c = _RGB32(75, 75, 255)
39.             LINE (lines, 200)-(lines + 100, 400), c, BF
40.         NEXT lines
41.     END IF
42.     fx2 = fx2 + 1
43.     IF fx2 > 5 THEN fx2 = 1
44.     FOR fy = 50 TO 550
45.         FOR fx = 50 TO 750
46.             IF tt = 0 THEN t = t + 1
47.             IF t > 10 THEN tt = 1
48.             IF tt = 1 THEN t = t - 1
49.             IF t < -10 THEN tt = 0
50.             PSET ((SIN(fy * fx3 / fx2) * t) + fx, (SIN(fx * fx3 / fx2) * t) + fy), _RGB32(200, 200, 200)
51.         NEXT fx
52.     NEXT fy
53.     FOR tv = 0 TO 50
54.         LINE (50 - tv, 50 - tv)-(750 + tv, 550 + tv), _RGB32(150, 127, 0), B
55.     NEXT tv
56.     FOR sz = .25 TO 17 STEP .25
57.         CIRCLE (650, 575), sz, _RGB32(100, 100, 100)
58.         CIRCLE (700, 575), sz, _RGB32(100, 100, 100)
59.     NEXT sz
60.     _DISPLAY
61.     CLS
62.     a$ = INKEY$
63.     IF a$ = CHR$(27) THEN END
64. LOOP
65.  

[Ashish]

Very nice! I thought after finding the correct signal, it will play Tom n Jerry. :)

[bplus]

Hey!

[OldMoses]

That's pretty amazing.

[bplus]

One could demo screen shots from all or many of their programs on a bTV :-))

Maybe Ken can figure it out from this code:

Code: QB64: [Select]

1. 'Find The Test Signal On The TV Game!
2. 'Move your mouse around on the screen like you are moving your antenna.
3. 'After you find it, press the left mouse button to find it again!
4. 'Just like the "Good 'Ol Days!"
5. '
6. 'By Sierraken on June 18, 2020. B+ Mod for images 2020-06-19 AM
7. '
8. _TITLE "Find the test signal by moving your mouse (antenna) around. Left mouse button to find another one."
9. SCREEN _NEWIMAGE(800, 600, 32)
10. howManyDoYouHave = 1 'for now
11. DIM btv&(1 TO howManyDoYouHave)
12. btv&(1) = _LOADIMAGE("US flag.png")
13.  
14.  
15. t = 20
16. RANDOMIZE TIMER
17. lx = INT(RND * 800) + 1
18. ly = INT(RND * 600) + 1
19. DO
20.     mouseWheel = 0
21.     DO WHILE _MOUSEINPUT
22.         mouseX = _MOUSEX
23.         mouseY = _MOUSEY
24.         mouseLeftButton = _MOUSEBUTTON(1)
25.         mouseRightButton = _MOUSEBUTTON(2)
26.         mouseMiddleButton = _MOUSEBUTTON(3)
27.         mouseWheel = mouseWheel + _MOUSEWHEEL
28.         IF mouseLeftButton = -1 THEN
29.             lx = INT(RND * 800) + 1
30.             ly = INT(RND * 600) + 1
31.         END IF
32.     LOOP
33.     fx3 = (mouseX + mouseY) / 100
34.     IF mouseX > lx - 100 AND mouseX < lx + 100 AND mouseY > ly - 100 AND mouseY < ly + 100 THEN
35.  
36.         'decide how to get integer from 1 to howManyDoYouHave
37.         img = 1 ' for 1 image     need formula for many images from mouse and or button clicking of tv buttons
38.  
39.         _PUTIMAGE (50, 50)-(750, 550), btv&(img), 0
40.     END IF
41.     fx2 = fx2 + 1
42.     IF fx2 > 5 THEN fx2 = 1
43.     FOR fy = 50 TO 550
44.         FOR fx = 50 TO 750
45.             IF tt = 0 THEN t = t + 1
46.             IF t > 10 THEN tt = 1
47.             IF tt = 1 THEN t = t - 1
48.             IF t < -10 THEN tt = 0
49.             PSET ((SIN(fy * fx3 / fx2) * t) + fx, (SIN(fx * fx3 / fx2) * t) + fy), _RGB32(200, 200, 200)
50.         NEXT fx
51.     NEXT fy
52.     FOR tv = 0 TO 50
53.         LINE (50 - tv, 50 - tv)-(750 + tv, 550 + tv), _RGB32(150, 127, 0), B
54.     NEXT tv
55.     FOR sz = .25 TO 17 STEP .25
56.         CIRCLE (650, 575), sz, _RGB32(100, 100, 100)
57.         CIRCLE (700, 575), sz, _RGB32(100, 100, 100)
58.     NEXT sz
59.     _DISPLAY
60.     CLS
61.     a$ = INKEY$
62.     IF a$ = CHR$(27) THEN END
63. LOOP
64.  
65.  
66.