Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: qbkiller101 on April 01, 2020, 09:21:11 am

Title: Help
Post by: qbkiller101 on April 01, 2020, 09:21:11 am
Anybody, please help
when I run the following etch a sketch code it keeps on saying as in attachments
Code: QB64: [Select]
  1. REM Developed in QBasic by Omer B. Hijazi
  2. REM Date: 1/4/2020
  3. REM Etch a Sketch
  4.  
  5. DIM X, Y
  6.  
  7.  
  8.  
  10. LOCATE 6, 28: PRINT "Use arrow keys to draw"
  11. LOCATE 7, 28: PRINT "Home to move drawing point"
  12. LOCATE 8, 21: PRINT "Del(ete) button to clear the screen"
  13. LOCATE 9, 34: PRINT "End to end"
  16.  
  17. X = 319
  18. Y = 239
  19.  
  20. 1 CLS
  22.     Y = Y + 1
  24.     X = X - 1
  26.     Y = Y - 1
  28.     X = X + 1
  30.     CLS
  32.     GOTO 2
  34. PSET (X, Y)
  36.  
  37. 2 CLS
  39.     Y = Y + 1
  41.     X = X - 1
  43.     Y = Y - 1
  45.     X = X + 1
  47.     CLS
  49.     GOTO 1
  51. PRESET (X, Y)
  53.  
  54.  
Title: Re: Help
Post by: SMcNeill on April 01, 2020, 09:30:52 am
You need to set your screenmode for graphics.  Screen 0 (the default one) is text only.
Title: Re: Help
Post by: qbkiller101 on April 01, 2020, 09:40:54 am
ok I corrected it
Code: QB64: [Select]
  1. REM Developed in QBasic by Omer B. Hijazi
  2. REM Date: 1/4/2020
  3. REM Etch a Sketch
  4.  
  5. DIM X, Y
  6.  
  8.  
  10.  
  12.     COLOR 15
  13.     LOCATE 6, 28: PRINT "Use arrow keys to draw"
  14.     LOCATE 7, 28: PRINT "Home to move drawing point"
  15.     LOCATE 8, 21: PRINT "Del(ete) button to clear the screen"
  16.     LOCATE 9, 34: PRINT "End to end"
  17.     SLEEP
  18.     GOTO 1
  19.  
  20.     X = 319
  21.     Y = 239
  22.  
  23.     1 COLOR 1
  24.     IF _KEYDOWN(18432) = -1 THEN
  25.         Y = Y + 1
  26.     ELSEIF _KEYDOWN(19200) = -1 THEN
  27.         X = X - 1
  28.     ELSEIF _KEYDOWN(20480) = -1 THEN
  29.         Y = Y - 1
  30.     ELSEIF _KEYDOWN(19712) = -1 THEN
  31.         X = X + 1
  32.     ELSEIF _KEYDOWN(21248) = -1 THEN
  33.         CLS
  34.     ELSEIF _KEYDOWN(18176) = -1 THEN
  35.         GOTO 2
  36.     END IF
  37.     PSET (X, Y)
  38.     GOTO 1
  39.  
  40.     2 CLS
  41.     IF _KEYDOWN(18432) = -1 THEN
  42.         Y = Y + 1
  43.     ELSEIF _KEYDOWN(19200) = -1 THEN
  44.         X = X - 1
  45.     ELSEIF _KEYDOWN(20480) = -1 THEN
  46.         Y = Y - 1
  47.     ELSEIF _KEYDOWN(19712) = -1 THEN
  48.         X = X + 1
  49.     ELSEIF _KEYDOWN(21248) = -1 THEN
  50.         CLS
  51.     ELSEIF _KEYDOWN(18176) = -1 THEN
  52.         GOTO 1
  53.     END IF
  54.     PRESET (X, Y)
  55.     GOTO 2
  56. LOOP UNTIL _KEYDOWN(20224) = -1
still not drawing
just correct the code using simple programming as I'm no pro
Title: Re: Help
Post by: Petr on April 01, 2020, 11:25:26 am
Try do this easiest way.


Code: [Select]
REM Developed in QBasic by Omer B. Hijazi
REM Date: 1/4/2020
REM Etch a Sketch

SCREEN 12
COLOR 15
X = _WIDTH / 2
Y = _HEIGHT / 2

DO

    LOCATE 6, 28: PRINT "Use arrow keys to draw"
    LOCATE 7, 28: PRINT "Home to move drawing point"
    LOCATE 8, 21: PRINT "Del(ete) button to clear the screen"
    LOCATE 9, 34: PRINT "End to end"


    k& = _KEYHIT
    SELECT CASE k&
        CASE 18432: Y = Y - 1
        CASE 19200: X = X - 1
        CASE 20480: Y = Y + 1
        CASE 19712: X = X + 1
        CASE 21248: CLS
        CASE 18176: SYSTEM
    END SELECT
    PSET (X, Y)
    SELECT CASE X
        CASE IS <= 0: X = 1
        CASE IS >= _WIDTH: X = _WIDTH
    END SELECT
    SELECT CASE Y
        CASE IS <= 0: Y = 1
        CASE IS >= _HEIGHT: Y = _HEIGHT
    END SELECT
LOOP UNTIL _KEYDOWN(20224) = -1
SYSTEM

or this, using _KEYDOWN + support pressing direction arrows simultaneously for oblique drawing (up and left arrow can be used simultaneously and so on):

Code: [Select]
REM Developed in QBasic by Omer B. Hijazi
REM Date: 1/4/2020
REM Etch a Sketch

SCREEN 12
COLOR 15
X = _WIDTH / 2
Y = _HEIGHT / 2

DO

    LOCATE 6, 28: PRINT "Use arrow keys to draw"
    LOCATE 7, 28: PRINT "Home to move drawing point"
    LOCATE 8, 21: PRINT "Del(ete) button to clear the screen"
    LOCATE 9, 34: PRINT "End to end"

    _LIMIT 20
    IF _KEYDOWN(18432) AND NOT _KEYDOWN(19200) THEN Y = Y - 1
    IF _KEYDOWN(19200) AND NOT _KEYDOWN(18432) THEN X = X - 1
    IF _KEYDOWN(19200) AND _KEYDOWN(18432) THEN Y = Y - 1: X = X - 1

    IF _KEYDOWN(20480) AND NOT _KEYDOWN(19712) THEN Y = Y + 1
    IF _KEYDOWN(19712) AND NOT _KEYDOWN(20480) THEN X = X + 1
    IF _KEYDOWN(19712) AND _KEYDOWN(20480) THEN Y = Y + 1: X = X + 1


    SELECT CASE _KEYHIT
        CASE 21248: CLS
        CASE 18176: SYSTEM
    END SELECT
    PSET (X, Y)
    SELECT CASE X
        CASE IS <= 0: X = 1
        CASE IS >= _WIDTH: X = _WIDTH
    END SELECT
    SELECT CASE Y
        CASE IS <= 0: Y = 1
        CASE IS >= _HEIGHT: Y = _HEIGHT
    END SELECT
LOOP UNTIL _KEYDOWN(20224) = -1
SYSTEM
Title: Re: Help
Post by: qbkiller101 on April 02, 2020, 04:41:54 am
thanks but what about my code what was wrong with it
and btw plz add the home button for moving the drawing point
example:
Code: QB64: [Select]
  1. 2 IF _KEYDOWN(18432) = -1 THEN
  2.     Y = Y + 1
  3. ELSEIF _KEYDOWN(19200) = -1 THEN
  4.     X = X - 1
  5. ELSEIF _KEYDOWN(20480) = -1 THEN
  6.     Y = Y - 1
  7. ELSEIF _KEYDOWN(19712) = -1 THEN
  8.     X = X + 1
  9. ELSEIF _KEYDOWN(21248) = -1 THEN
  10.     CLS
  11. ELSEIF _KEYDOWN(18176) = -1 THEN
  12.     GOTO 1
  13. ELSEIF _KEYDOWN(20224) = -1 THEN
  14.     SYSTEM
  16. PRESET (X, Y)
by using preset for drawing in no color
Title: Re: Help
Post by: qbkiller101 on April 02, 2020, 06:03:22 am
ok no need I've done it
here take a look
(you've gotta press slightly and quickly the home key)
Code: QB64: [Select]
  1. REM Developed in QBasic by Omer B. Hijazi (aka qbkiller101) : https://www.qb64.org/forum/index.php?action=profile;u=525
  2. REM Mostly because of help from Petr : https://www.qb64.org/forum/index.php?action=profile;u=7
  3. REM Date: 1/4/2020
  4. REM Etch a Sketch
  5.  
  6. DIM X, Y
  7.  
  11. X = _WIDTH / 2
  12. Y = _HEIGHT / 2
  13.  
  14. LOCATE 6, 28: PRINT "Use arrow keys to draw"
  15. LOCATE 7, 28: PRINT "Home to move drawing point or erase"
  16. LOCATE 8, 21: PRINT "Del(ete) button to clear the screen"
  17. LOCATE 9, 34: PRINT "End to end"
  21.     _LIMIT 20
  22.    1 DO
  23.  
  24.         _LIMIT 20
  25.         IF _KEYDOWN(18432) AND NOT _KEYDOWN(19200) THEN Y = Y - 1
  26.         IF _KEYDOWN(19200) AND NOT _KEYDOWN(18432) THEN X = X - 1
  27.         IF _KEYDOWN(19200) AND _KEYDOWN(18432) THEN Y = Y - 1: X = X - 1
  28.  
  29.         IF _KEYDOWN(20480) AND NOT _KEYDOWN(19712) THEN Y = Y + 1
  30.         IF _KEYDOWN(19712) AND NOT _KEYDOWN(20480) THEN X = X + 1
  31.         IF _KEYDOWN(19712) AND _KEYDOWN(20480) THEN Y = Y + 1: X = X + 1
  32.  
  33.         SELECT CASE _KEYHIT
  34.             CASE 21248: CLS
  35.         END SELECT
  36.         PSET (X, Y)
  37.         SELECT CASE X
  38.             CASE IS <= 0: X = 1
  39.             CASE IS >= _WIDTH: X = _WIDTH
  40.         END SELECT
  41.         SELECT CASE Y
  42.             CASE IS <= 0: Y = 1
  43.             CASE IS >= _HEIGHT: Y = _HEIGHT
  44.         END SELECT
  45.  
  46.     LOOP UNTIL _KEYDOWN(18176) = -1
  47.     IF _KEYDOWN(20224) = -1 THEN SYSTEM ELSE GOTO 2
  48.    2 DO
  49.         _LIMIT 20
  50.         IF _KEYDOWN(18432) AND NOT _KEYDOWN(19200) THEN Y = Y - 1
  51.         IF _KEYDOWN(19200) AND NOT _KEYDOWN(18432) THEN X = X - 1
  52.         IF _KEYDOWN(19200) AND _KEYDOWN(18432) THEN Y = Y - 1: X = X - 1
  53.  
  54.         IF _KEYDOWN(20480) AND NOT _KEYDOWN(19712) THEN Y = Y + 1
  55.         IF _KEYDOWN(19712) AND NOT _KEYDOWN(20480) THEN X = X + 1
  56.         IF _KEYDOWN(19712) AND _KEYDOWN(20480) THEN Y = Y + 1: X = X + 1
  57.  
  58.         SELECT CASE _KEYHIT
  59.             CASE 21248: CLS
  60.         END SELECT
  61.         PRESET (X, Y)
  62.         SELECT CASE X
  63.             CASE IS <= 0: X = 1
  64.             CASE IS >= _WIDTH: X = _WIDTH
  65.         END SELECT
  66.         SELECT CASE Y
  67.             CASE IS <= 0: Y = 1
  68.             CASE IS >= _HEIGHT: Y = _HEIGHT
  69.         END SELECT
  70.  
  71.     LOOP UNTIL _KEYDOWN(18176) = -1 OR _KEYDOWN(20224) = -1
  72.     IF _KEYDOWN(20224) = -1 THEN SYSTEM ELSE GOTO 1
  73. LOOP UNTIL _KEYDOWN(20224) = -1
plus I've added credits to you:-)
Title: Re: Help
Post by: OldMoses on April 02, 2020, 07:21:01 am
This is pretty cool. I like the home key no draw function, except that I can't really tell where my insertion point is. Never had that on the original etch-a-sketch.
Title: Re: Help
Post by: Richard Frost on April 02, 2020, 07:42:43 am
An Etch-A-Sketch watch has been around for decades.

Might be the perfect tool to write/display "Will you marry me?" for a geek.
Title: Re: Help
Post by: qbkiller101 on April 02, 2020, 12:31:26 pm
Spoiler Alert:
I've never actually used an etch a sketch
Title: Re: Help
Post by: bplus on April 02, 2020, 12:41:39 pm
Hi killer,

Are you aware of the DRAW command? you might find it interesting. It's like a very fancy Etch-A-Sketch with code.
Text Only | Text with Attachments