Forum Programowanie c++, delphi Ostatnio aktywny: Nigdy
Nie zalogowany [Zaloguj ]
Pokaż koniec
Wersja do druku | Zapisz | Dodaj do Ulubionych   Wyślij nową wiadomość Sonda:
Autor: Temat: pytanie Pascal - typ proceduralny
lukaszek29
Newbie
*




Postów: 1
Zarejestrowano: 14-10-2008
Offline


[*] wysłano w 14-10-2008 o godz. 11:39 Odpowiedz cytując
pytanie Pascal - typ proceduralny



Mam problem. Jak dorobić typ proceduralny do tego co już mam? Podobno to jest łatwe i krótkie do zrobienia jak się ktos na tym naprawde zna... Prosze o pomoc.
Oto moduł:

unit klawiatura;
interface
USES Dos;
CONST
K_Prawo = #77; {strzałka w prawo}
K_Lewo = #75; {strzałka w lewo}
K_Gora = #72; {strzałka w górę}
K_Dol = #80; {strzałka w dół}
K_Spacja = #32; {klawisz spacja}
K_Esc = #27; {klawisz ESCAPE}
K_P = #112; {klawisz P}

PROCEDURE obsluga_klawiatury;

IMPLEMENTATION
VAR wyjscie:boolean;
klawisz:char;

PROCEDURE obsluga_klawiatury;
BEGIN

IF (keypressed) THEN
BEGIN

klawisz := ReadKey;
CASE klawisz of
K_Prawo : BEGIN
END;
K_Lewo : BEGIN
END;
K_Gora : BEGIN
END;
K_Dol : BEGIN
END;
K_P : BEGIN
END;
K_Spacja : BEGIN
END;
K_ESC : BEGIN
wyjscie := true;
END;
END;
END;
END;


BEGIN
wyjsce := false;
END.
Pokaż profil użytkownika Pokaż wszystkie wiadomości użytkownika Użytkownik U2U
Wyślij nową wiadomość Sonda:


Pokaż początek

Sitemap
Copyright © 2005-2007 by coding-portal.com
Programowaniedla każdego. Programowanie w c++, java, delphi, pascal, perl oraz innych językach. Tworzenie stron w html, xhtml, php z użyciem mysql, css oraz ich pozycjonowanie. Zapraszamy do udziału w życiu naszego forum!
[zapytań: 15]
[PHP: 75.0% - SQL: 25.0%]