Keypressed - had – Pascal – Fórum – Programujte.com

Dobrý den,

na střední škole mám prvním rokem programování v Pascalu. Jelikož mě programování zaujalo a úkoly od učitelů pro mě zatím nebyli náročné, rozhodl jsem se zkusit napsat klasickou hru had. Nedíval jsem se na žádný kód, chtěl jsem, aby řešení bylo mé, třebaže nebude nejefektivnější.

Nicméně jsem nejspíše nepochopil funkci keypressed, kterou jsem si našel na netu. Jestli správně chápu, pozná, jestli jsem zmáčkl klávesu. (laicky řečeno)  Mám tedy podmínky:

repeat begin

delay(1000);
if Keypressed  then begin
if ord(readkey)=(87 or 119)  then begin
  gotoxy(x, y-1);
  ...
 
  end;
if ord(readkey)=(83 or 115)  then begin
  ...
  end;
  end;

atd...

Problémem je, že program čeká, než bude stisknuta klávesa, přitom by podle zapsání neměl. Zkoušel jsem procedurou vyprázdnit poslední buffer, na programu se však nic nezměnilo:

procedure ClearBuffer;
  var c: Char;
  begin
  while (keypressed) do
  c := ReadKey;
  end;

Program je zatím v rané fázi, má okolo 150 řádků. Nemá však cenu pokračovat, když mi nefunguje základní mechanismus. Chtěl bych tedy pomoci s řešením načítání kláves, ne řešením celého hada.

no pokazdy kdyz zavolas readkey, tak to nacita dalsi znak.. a u keypressed mas jistotu ze je tam aspon jeden...

budes ty pocty readkey trosku zredukovat.. napriklad nactenim do promenne a pak si to muzes testovat kolikrat chces

+ ses si opravdu jist tim  "ord(readkey)=(83 or 115)"  ?? mam takovy pocit ze  83 or 115 == 115:

0b1010011 or 0b1110011 = 0b1110011

Na jednoduchou otázku, jednoduchá odpověď. Chce si to hodit do samostané proměnné.

Tím 83 or 115 jsem chtěl zamezit možnosti, že má člověk náhodou zaplý Capslock. Případně to v budoucnu přepsat na šipky.

no nebude to fungovat .. velky pismena to stejne nepozna ...

Pozor na prioritu operátorů. Logické operátory (and, or a xor) se vyhodnocují před porovnávacími (=, <> atd.), takže je potřeba závorkovat:

klavesa:=ord(readkey);
if (klavesa=87)or(klavesa=119) then ...
if (klavesa=83)or(klavesa=115) then ...

Mimochodem, znaky se dají psát přímo, stačí použít místo čísla typ char:

klavesa:=readkey;
if (klavesa='W')or(klavesa='w') then ...
if (klavesa='S')or(klavesa='s') then ...

Držím palce ;-).

#5 Mircosoft
V takovém případě bych doporučil rovnou:

klavesa:=upcase(readkey);
if klavesa='W' then ...
if klavesa='S' then ...

nebo ještě lépe:

klavesa:=upcase(readkey);
case klavesa of
  'W' : ...
  'S' : ...
  ....
  else ...
 end;

Díky. Povedlo se mi vytvořit prvnotní pohyb hada. Nyní přijde na řadu to, čeho jsem se od začátku obával - víceúrovnové zatačení, tedy had se bude pohybovat ve dvou a více kloubech. Nějaké nápady mám, uvidíme, jestli budou fungovat :)

Než řešit klouby, spíš bych doporučil ukládat si do kruhové fronty souřadnice všech článků hada. Jedním koncem by se do ní sypaly nové polohy hlavy, z druhého by se odmazával odplazivší se ocas. Prakticky se to dá řešit buď polem nebo spojovým seznamem, ten seznam mi přijde jednodušší. Ale kecat ti do toho nebudu :-).

Právě to jsem chtěl vyzkoušet. Mít pod kontrolou všechny body hada. A musím říct, že to funguje, had se pohybuje již přesně, jak má :-). Řešil jsem to přes pole recordů (souřadnice x, y). Spojový seznam je pro mě novinka, budu se muset hold více vzdělávat. 

Ještě bych se rád zeptal, jelikož školní rok je téměř u konce, jak se vzdělávat a učit novým věcem v pascalu. Dva měsíce je dlouhá doba a nechce se mi vypustit tempo, když jsem se do toho už pomalu dostával. Ve škole jsme skončili někde u bubble sortu.

Si zkus udělat nějakej větší projekt .. zkus udělat třeba textový editor, Databázi,

#9 ronin: Na tohle se mi nejlíp osvědčilo psát hry - nemusí být moc komplikované, ale i tak tě donutí naučit se spoustu různých věcí. A zároveň se u nich pobavíš. Textový editor je dost složitá věc, tím bych radši nezačínal.

Kdybys chtěl nějaké materiály pro inspiraci, zkus třeba http://mircosoft.mzf.cz (no jo no, musím se pochlubit :-]).

Tak ať ti to nadšení vydrží ;-).