Ĺadny brzuch
W ostatnim numerze Eksperta był kod:
program ascii; uses CRT; var znak: char; begin ClrScr; repeat znak:=readkey; if znak=#0 then begin znak:=readkey; writeln('Kod ASCII: 0 ',ord(znak)); end else writeln('Znak ',znak,' kod ASCII ',ord(znak)); until readkey=#27; end.
Zauważyłem, że używanie drugi raz readkey po begin nie ma sensu, bo wychodzi to samo. Jednak ten kod jest dziwny... Aby otrzymać kod ASCII muszę dwa razy nacisnąć na ten sam klawisz. Jak napisać ten kod, aby wystarczało jedno naciśnięcie klawisza?
ma sens bo z tego co pamietam klawisze strzalek wysylaja dwa kody
na moim twardzielu znalazlem taki kod
USES CRT; var KL:CHAR; Begin CLRSCR; repeat KL:=readkey; IF Ord(KL)=0 THEN Begin KL:=readkey; writeln('klawisz z numerem rozszezonym'); end; Write('Nacisneles klawisz :',kl); Writeln(' odpowiada mu numer :',Ord(kl)); until Kl=#27; end.
Użytkownik DrizeR edytował ten post 13 lipiec 2006, 19:20
Dzięki, już rozumiem :)...
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
program ascii; uses CRT; var znak: char; begin ClrScr; repeat znak:=readkey; if znak=#0 then begin znak:=readkey; writeln('Kod ASCII: 0 ',ord(znak)); end else writeln('Znak ',znak,' kod ASCII ',ord(znak)); until readkey=#27; end.
Zauważyłem, że używanie drugi raz readkey po begin nie ma sensu, bo wychodzi to samo. Jednak ten kod jest dziwny... Aby otrzymać kod ASCII muszę dwa razy nacisnąć na ten sam klawisz. Jak napisać ten kod, aby wystarczało jedno naciśnięcie klawisza?
ma sens bo z tego co pamietam klawisze strzalek wysylaja dwa kody
na moim twardzielu znalazlem taki kod
USES CRT; var KL:CHAR; Begin CLRSCR; repeat KL:=readkey; IF Ord(KL)=0 THEN Begin KL:=readkey; writeln('klawisz z numerem rozszezonym'); end; Write('Nacisneles klawisz :',kl); Writeln(' odpowiada mu numer :',Ord(kl)); until Kl=#27; end.
Użytkownik DrizeR edytował ten post 13 lipiec 2006, 19:20
Dzięki, już rozumiem :)...