Pitanje je gore iz naslova, imam jedan domaci na faksu koji treba da uradim i u sklopu programa treba da se napravi meni, pa sad me zanima kako da detektujem strelice i enter?
Hvala
Hvala
Kako detektovati strelice i enter u pascalu
Zaključano
Zakačeno
> Pitanje je gore iz naslova, imam jedan domaci na faksu koji treba da uradim i u sklopu programa treba da se napravi meni, pa sad me zanima kako
> da detektujem strelice i enter?
Vrtiš se u petlji i čitaš ReadKey pa dalje preko case odrediš kod pritisnutog karaktera.
> da detektujem strelice i enter?
Vrtiš se u petlji i čitaš ReadKey pa dalje preko case odrediš kod pritisnutog karaktera.
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
Ovaj program hvata sta je pritisnuto. Kada se pritisne ESC program zavrsava sa radom.
Code:
program trap_key;
uses crt;
var
c : char;
begin
c:=#0;
while c<>#27 do
begin
c:=readkey;
if c=#0 then { If extended codes, }
begin
c:=readkey; { read the code once more }
writeln('Extended : ',ord(c));
end
else writeln(ord(c));
end;
end.
program trap_key;
uses crt;
var
c : char;
begin
c:=#0;
while c<>#27 do
begin
c:=readkey;
if c=#0 then { If extended codes, }
begin
c:=readkey; { read the code once more }
writeln('Extended : ',ord(c));
end
else writeln(ord(c));
end;
end.
Ovo isto, ali malo drugacije:
Code:
program trap_key;
uses crt;
var
c : integer;
function GetKey : Integer
var
ch : char;
begin
ch := readkey;
if ch = 0 then result := readkey + 256
else result := ch;
end;
begin
repeat
c:=GetKey;
writeln('Code : ',c);
until c<>27;
end.
program trap_key;
uses crt;
var
c : integer;
function GetKey : Integer
var
ch : char;
begin
ch := readkey;
if ch = 0 then result := readkey + 256
else result := ch;
end;
begin
repeat
c:=GetKey;
writeln('Code : ',c);
until c<>27;
end.
Potpis
Inspiration exists, but it has to find us working.
Da ali kad iscitam strelicu sa readkey on mi vrati 0?
> Da ali kad iscitam strelicu sa readkey on mi vrati 0?
Pa i treba da vrati 0
Zato ocitas jos jednom tastaturu sa READKEY i tada dobijas to sto treba :o)
To isto vrijedi i za funkcijske tastere, insert,delete,...
Poz
JaMi
Pa i treba da vrati 0
Zato ocitas jos jednom tastaturu sa READKEY i tada dobijas to sto treba :o)
To isto vrijedi i za funkcijske tastere, insert,delete,...
Poz
JaMi