Страница 1 из 1
Подскажите коды клавиш (ASCII);
Добавлено: 19 ноя 2006, 19:47
Колядин Максим
Задравствуйте. Подскажите мне, пожалуйста, коды (ASCII)клавиш
- Клавиши Enter
Клавиши пробел и Escape
Заранее благодарен!
Добавлено: 20 ноя 2006, 08:41
LAngel
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.
Добавлено: 20 ноя 2006, 16:00
LAngel
потому что, 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]
Добавлено: 20 ноя 2006, 21:56
Колядин Максим
Спасибо Lost Angel, так всё работает!!
Как лечить
Добавлено: 15 май 2017, 17:17
AndreyGob
Заболевания
Добавлено: 15 май 2017, 17:19
AndreyGob
Лечение
Добавлено: 15 май 2017, 17:31
AndreyGob
Как лечить
Добавлено: 15 май 2017, 20:20
AndreyGob
Как лечить
Добавлено: 15 май 2017, 20:34
AndreyGob