atarionline.pl [Turbo Basic] Odczyt klawiszy - Forum Atarum

    Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.

    • :
    • :

    Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.

      • 1:
         
        CommentAuthorbandolier
      • CommentTime31 Mar 2018 01:03
       
      Piszę w Turbo Basicu quiz w którym będzie się wybierało odpowiedzi pod klawiszami 1,2 i 3
      Stosuje komendę GET i odnośniki w procedurach.
      Chciałem "uodpornić" program na wciśnięcie dowolnego innego przycisku po przez zastosowanie takiej procedury

      5 PROC KLAWISZ
      10 GET KEY
      15 IF KEY=49 THEN PRINT ""
      20 IF KEY<>49 OR 50 OR 51 THEN GOTO 10
      25 ENDPROC


      Niestety to blokuje mi powrót do głównego programu
      Ma ktoś jakiś pomysł? Pozdrawiam
      • 2:
         
        CommentAuthorlarek
      • CommentTime31 Mar 2018 02:03 zmieniony
       
      Jeśli procedura ma czekać na wciśnięcie 1, 2 lub 3 i żadnego innego to:

      100 PROC KLAWISZ: REPEAT: GET KEY: UNTIL KEY=49 OR KEY=50 OR KEY=51: ENDPROC

      po powrocie z procedury mamy w KEY kod klawisza (49=1, 50=2, 51=3)



      PS.
      Wydaje mi się, że Twoja procedura też będzie działać, jeśli tylko poprawisz warunki w linii 20

      20 IF KEY<>49 AND KEY<>50 AND KEY<>51 THEN 10
      • 3:
         
        CommentAuthorbandolier
      • CommentTime31 Mar 2018 02:03
       
      Pomyślałem Larek będzie wiedział. Ale że mi odpisze o drugiej w nocy to nie. Dzięki;)
      • 4:
         
        CommentAuthorlarek
      • CommentTime31 Mar 2018 02:03
       
      :)
      • 5:
         
        CommentAuthorbandolier
      • CommentTime31 Mar 2018 02:03
       
      Zastąpiłem OR na AND i działa. Jeszcze raz dzięki Larku.