Подскажите коды клавиш (ASCII);

Колядин Максим · 19 ноя 2006, 19:47

Задравствуйте. Подскажите мне, пожалуйста, коды (ASCII)клавиш

Клавиши Enter
Клавиши пробел и Escape

Заранее благодарен!

LAngel · 20 ноя 2006, 08:41

13, 32, 27 соответственно.

Колядин Максим · 20 ноя 2006, 15:11

Спасибо, но почему тогда программа не работает:
____________________________________________________________________
КОД:

Program keys;
uses crt;
Var
done: boolean;
ch:char;
Begin
textbackground(blue);
clrScr;
Write('Program key pressed . . .');
gotoxy(2,5);
write('Нажми кнопку: ');
textcolor(red);
done:=false;
repeat
ch:=readkey;
if ch=#0 then begin
ch:=readkey;
case ch of
#13: writeln('Нажата клавиша ENTER');
#32: writeln('Нажата клавиша SPACE');
#27: writeln('Нажата клавиша ESC');
#59: done:=true; { F1 - ВЫХОД }
end;
end;
until done;
END.

LAngel · 20 ноя 2006, 16:00

потому что, ch = 0 будет только у F1, остальные будут только свой код передавать.
попробуй так:
[syntax:281b1bc87a="pascal"]Program keys;
uses crt;
Var
done: boolean;
ch:char;
Begin
textbackground(blue);
clrScr;
Write('Program key pressed . . .');
gotoxy(2,5);
write('Нажми кнопку: ');
textcolor(red);
done:=false;
repeat
ch:=readkey;
if ch=#0 then
ch:=readkey;
case ch of
#13: writeln('Нажата клавиша ENTER');
#32: writeln('Нажата клавиша SPACE');
#27: writeln('Нажата клавиша ESC');
#59: done:=true; { F1 - ВЫХОД }
end;
until done;
END.[/syntax:281b1bc87a]