Biblioteka allegro - obsługa klawiatury

Biblioteka allegro - obsługa klawiatury
PL
  • Rejestracja:ponad 10 lat
  • Ostatnio:ponad 9 lat
  • Postów:23
0

Próbuję napisać program, który będzie obsługiwał klawiaturę:

Kopiuj
Program Klawiatura;

uses
crt, allegro;

begin
        al_init; //inicjuję tryb graficzny
        al_set_gfx_mode(al_gfx_autodetect_windowed,1000, 700, 0, 0); //wlaczam tryb graficzny
        al_install_keyboard; //instaluje klawiature
        al_message('Wcisnij klawisz t'); 
        if al_key[al_key_t]<>0 then 
                al_message('Wcisnieto klawisz t') //to program ma wyswietlic po wcisnieciu klawisza t
        else
                al_message('Error'); //a to w przeciwnym razie
        al_message('Koniec');
        al_exit;
end.
 

Ale nie chce zajarzyć. Co robię nie tak?

EDIT: Jak napisałem tak:

Kopiuj
Program Klawiatura;

uses
crt, allegro;

begin
        al_init;
        al_set_gfx_mode(al_gfx_autodetect_windowed,1000, 700, 0, 0);
        al_install_keyboard;
        while al_key[al_key_t]=0 do;
        al_message('Wcisnieto klawisz t'); 
        al_message('Koniec');
        al_exit;
end.
 

To działa, ale program robi trochę co innego.

edytowany 1x, ostatnio: PLrc
flowCRANE
Moderator Delphi/Pascal
  • Rejestracja:ponad 13 lat
  • Ostatnio:około 8 godzin
  • Lokalizacja:Tuchów
  • Postów:12175
0

To działa, ale program robi trochę co innego.

Co to znaczy "co innego"? Robi to co mu kazałeś - póki klawisz t nie jest wciśnięty, pętla nic nie robi; Jak wciśniesz klawisz t to pętla się kończy, wyświetlone zostają dwa napisy i program jest zamykany.


Pracuję nad własną, arcade'ową, docelowo komercyjną grą z gatunku action/adventure w stylu retro (pixel art), programując silnik i powłokę gry od zupełnych podstaw, przy użyciu Free Pascala i SDL3. Więcej informacji znajdziesz na moim mikroblogu.
edytowany 1x, ostatnio: flowCRANE

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.