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

Модераторы: Duncon, Naeel Maqsudov, Хыиуду, Игорь Акопян

Ответить
Аватара пользователя
Колядин Максим
Сообщения: 285
Зарегистрирован: 16 ноя 2006, 19:09
Откуда: Seattle, WA
Контактная информация:

19 ноя 2006, 19:47

Задравствуйте. Подскажите мне, пожалуйста, коды (ASCII)клавиш
  • Клавиши Enter
    Клавиши пробел и Escape
Заранее благодарен!
Программист - это человек, который решает способом, который вы не понимаете, проблемы, о которых вы даже не подозревали...
Аватара пользователя
LAngel
Сообщения: 277
Зарегистрирован: 30 мар 2005, 08:19
Откуда: Ульяновск
Контактная информация:

20 ноя 2006, 08:41

13, 32, 27 соответственно.
С уважением, Lost Angel...
Аватара пользователя
Колядин Максим
Сообщения: 285
Зарегистрирован: 16 ноя 2006, 19:09
Откуда: Seattle, WA
Контактная информация:

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
Сообщения: 277
Зарегистрирован: 30 мар 2005, 08:19
Откуда: Ульяновск
Контактная информация:

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]
С уважением, Lost Angel...
Аватара пользователя
Колядин Максим
Сообщения: 285
Зарегистрирован: 16 ноя 2006, 19:09
Откуда: Seattle, WA
Контактная информация:

20 ноя 2006, 21:56

Спасибо Lost Angel, так всё работает!!
Программист - это человек, который решает способом, который вы не понимаете, проблемы, о которых вы даже не подозревали...
Ответить