Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on June 19, 2020, 01:14:10 am

Title: Find The Test Signal On The TV Game!
Post by: SierraKen on June 19, 2020, 01:14:10 am
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
  12. lx = INT(RND * 800) + 1
  13. ly = INT(RND * 600) + 1
  15.     mouseWheel = 0
  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
  65.  
Title: Re: Find The Test Signal On The TV Game!
Post by: Ashish on June 19, 2020, 01:52:10 am
Very nice! I thought after finding the correct signal, it will play Tom n Jerry. :)
Title: Re: Find The Test Signal On The TV Game!
Post by: bplus on June 19, 2020, 02:19:16 am
Hey!

Title: Re: Find The Test Signal On The TV Game!
Post by: OldMoses on June 19, 2020, 07:18:58 am
That's pretty amazing.
Title: Re: Find The Test Signal On The TV Game!
Post by: bplus on June 19, 2020, 11:24:20 am
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
  17. lx = INT(RND * 800) + 1
  18. ly = INT(RND * 600) + 1
  20.     mouseWheel = 0
  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
  64.  
  65.  
  66.  
Text Only | Text with Attachments