"Okamžité přečtení klávesy" – Pascal – Fórum – Programujte.com

Omlouvám se za trochu neohrabaný titulek, ale nevím, jak ten problém přesně pojmenovat.

Když si v mých dosavadních prográmcích vytvořím menu (A., B., C., ..), tak je jeho ovládání realizováno stylem "Zvolte písmeno: ", uživatel stiskne požadované písmeno (A, B, C), ono se vypíše za výše zmiňovanou hlášku na obrazovce a program čeká na uživatelovo potvrzení Enterem.
To všechno je sice fajn a funkční, ale přijde mi to nesmírně neohrabané.
Viděl jsem, že se nějakým způsobem dá s programem komunikovat "interaktivně", tedy okamžitě. Člověk jen zmáčkne klávesu a žádný potvrzovací Enter už není zapotřebí.
Mohli byste poradit, jak na to? Rád bych své prográmky pozvedl na trochu vyšší úroveň. :)

A hned mě napadlo, že by se na tom mohla založit spousta her. Třeba takový Had (ale to je ještě úroveň výš :) ) se určitě s omocí něčeho takového dělá..

Díky za pomoc.

knihovna crt a jeji funkce readkey

KIIV napsal:
knihovna crt a jeji funkce readkey

Jeyekomon napsal:Aspoň už vím, co googlit. :)

Na co internet, když máme přímo v Pascalu výborný help? Stačí v editoru napsat CRT, najet na to kurzorem, zmáčknout Ctrl+F1. Vyskočí ti stručné informační okno o jednotce CRT, ve kterém mimo jiné najdeš odkaz "procedures and functions". Tak na něj najeď kurzorem, zmáčkni Enter a otevře se ti seznam, který hledáš.
Nebo se k tomu můžeš proklikat z menu Help vpravo nahoře.

Ctrl+F1 funguje obecně na jakékoli slovo, které Pascal zná, tedy názvy veškerých standardních jednotek, proměnných, typů, klíčových slov, procedur a funkcí.

Jinak jednotku CRT k programu připojíš příkazem uses crt; hned za hlavičkou programu.

Mircosoft napsal:
Na co internet, když máme přímo v Pascalu výborný help?

Jo, štrejchnul jsi nápovědu k Freepascalu - to je nejlepší možný zdroj.
Normální vstup do nápovědy je ale tudy:
http://www.freepascal.org/docs.var

uses crt;
var x:char;
x:=readkey;

//ja to resival takto
pak je aj dobrý to převádět na velky pismena
např
uses crt;//
var x:char;//pokud pracujeme s promennymi
//procedury funkce... a jedna znich treba menu();
/...pak do hlavniho programu
repeat//vstup se bude opakovat dokut...
//...programovy kod napr. uvedeni programu apod.
//...tady se dá nejaké to menu
writeln('********MENU*********');
writeln('*******Scitani(S)*******');
writeln('******Odcitani(O)******');
writeln('*******Nasobeni(N)****');
writeln('*******Děleni(D)*******');
writeln('********Konec(Esc)****');
writeln('*********MENU********');
a:=UpCase(readkey);//prevedem na velky pismena aby to nedelalo rotiku
//..pak muzeme pouzit prepinac
case a of
'A'://...zvolena procedura treba scitani;
'B'://...dalsi procedura treba odcitani;
'C'://...treba nasobeni;
'D'://...a třeba i dělení:);
end;
until(a=chr(27));//chr 27 je klavesa Ecs...
end.
//...ps dev pascal jsem taky zkousel ale mam radsi freepascal

Tato funkce cte klavesu ale nezastavi beh programu a jeste pozna specialni klavesy.

uses crt;



function kbd:integer;

var  kl:word;

begin

 kl:=0;

 if keypressed then 

		 begin

  		  kl:=ord(readkey);

  		  if keypressed then kl:=256+ord(kl);

  		 end;

 kbd:=kl;

end;

var klavesa: word;

Begin

 repeat

  klavesa:=kbd;

  if kl<>0 then {ve chvili kdy neco zmacknes}

                 begin

                  Write('Stisknul jsi klavesu cislo:',kl);

                  if kl<256 then writeln(' = "',chr(kl),'"')

                      else writeln;

                 end;

 until klavesa=27;

end.

Udělal.
Druhá podmínka ve funkci Kbd má být "if kl=0" (což by odlišilo rozšířené klávesy) a ne "if keypressed" (což by při zavolání funkce ve chvíli, kdy jsou v bufferu dvě obyčejné klávesy, vracelo nesmysly).
Druhá potenciální chyba je funkce vracející typ integer, zatímco pomocná proměnná na počítání výsledku je word (protože hodně velký word znamená záporný integer). V tomhle konkrétním případě potíže nehrozí, ale je dobré si na takové věci nezvykat.

To Mircosoft :
no zaprve ta funkce ma vypadat takto (mam tam chybu)
a za druhe je to koncepcne dobre:

function kbd:word;



var  kl:word;



begin

 kl:=0;

 if keypressed then

    begin

     kl:=ord(readkey);

     if keypressed then

     kl:=ord(readkey)+256;

    end;

 kbd:=kl;

end;

Jaj, nepodstatných chyb si všímám a to nejdůležitější mi unikne. Ostuda :smile14: .

Ovšem pozor, že rozšířené klávesy sice vracejí dva byty, jenže ten první není 256, ale 0.

S těmi dvěma klávesami po sobě jsem to myslel takhle:

uses crt;

var klavesa: word;

Begin

 repeat

 write('Děje se něco dlouhého...');

 delay(3000); {<<<< teď dvakrát po sobě zmáčkni třeba 'A' a uvidíš}

 writeln(' ...a už je to hotovo, teď vyřídíme klávesnici.');

  klavesa:=kbd;

  if kl<>0 then

                 begin

                  Write('Stisknul jsi klavesu cislo:',kl);

                  if kl<256 then writeln(' = "',chr(kl),'"')

                      else writeln;

                 end;

 until klavesa=27;

end.

To Mircosoft :
to mate pravdu ta fukce by mela vypadat takto, jinak jsem se dival na 0 to u sebe skutecne testuji, jen jak jsem to psal z hlavy jsem si na to nevzpomel.

var  kl:word;

begin

 kl:=0;

 if keypressed then

    begin

    delay(brzda);

     kl:=ord(readkey);

    delay(brzda);

     if keypressed and (kl=0) then

     begin

      delay(brzda);

      kl:=ord(readkey)+256;

      delay(brzda);

     end

    end;

    delay(brzda);

 kbd:=kl;

end;