Qbasic games Arrow keys!!!

I need help with how to make the arrowkeys work in qbasic...For exmple if I want a little box to move....how do I do ==???

Please help me...Ive got the qbasic 4.5 if u need it...


Comments

  • The best method of getting the arrow keys is to use $INKEY. You can

    trap input with INKEY in the following manner:


    1 Varia$ = $Inkey: if Varia$ = "" then goto 1


    You next need to look up the keyboard scan codes

    for the arrow keys. You can find a listing of keyboard

    scan codes under the table of contents in QBASIC. However,

    here are the ones for the arrow keys:


    72 Up 77 Right

    75 Left 80 Down


    $INKEY returns the keyboard scan code with a null

    character in front of it, so you have to check for it

    in the following manner


    if Varia$ = Chr$(0) + Chr$(72) then GoUp





    URL:http://acheronx.ml.org/home/

  • DO

    q$ = INKEY$

    IF q$ = CHR$(0) + "K" THEN

    IF q$ = CHR$(0) + "M" THEN

    IF q$ = CHR$(0) + "H" THEN

    IF q$ = CHR$(0) + "P" THEN

    LOOP


    The arrow keys return 2 bytes. The first is CHR$(0), and the second corresponds to the above letters (CAPITAL). I don't recall which letter is which arrow, but it should be easy enough to figure out.


    Hope this helps!


    Ciao


  • DO

    q$ = INKEY$

    IF q$ = CHR$(0) + "K" THEN - what to do here

    IF q$ = CHR$(0) + "M" THEN - what to do here

    IF q$ = CHR$(0) + "H" THEN - what to do here

    IF q$ = CHR$(0) + "P" THEN - what to do here

    LOOP


    The arrow keys return 2 bytes. The first is CHR$(0), and the second corresponds to the above letters (CAPITAL). I don't recall which letter is which arrow, but it should be easy enough to figure out.


    Hope this helps!


    Ciao


Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories