![]() |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
![]() |
ДенисС |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 9 Репутация: ![]() ![]() ![]() |
Стал вот потихоньку разбираться с паскалем, вроде что то получается. Вот возникла проблема: как задействовать стрелки и прочии несимвольные клавиши? С буквами-цифирьками вроде все просто, пишешь например C:=readln, а потом разными способами опредиляешь, что надо сделать с этой клавишей. А вот как быть со стрелками - как то непойму. Они вроде таким способом в строковую переменную ничего не записывают. Где-то краем уха услышал, что используется запись каким-то сложным шифром, а вот как его после этого опредилять, и какие кнопки каким шифром опредиляются - не слышал. Может здесь кто подскажет, как это все надо делать?
|
![]() ![]() |
P@sh@ |
![]()
Сообщение
#2
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 180 Пол: Мужской Репутация: ![]() ![]() ![]() |
процедурка для проверки нажатых клавиш - обычных, модификаторов (shift, ctrl, alt) и переключателей (Num Lock, Caps Lock, Scroll Lock). Если нет нажатых клавиш - везде нули... нажатий не ждет...
вариант чисто на Паскале: Код uses dos; procedure ReadKeyExt(var ASCII,Scan,Reg:Byte); var Regs:Registers; begin Regs.AH:=2; Intr($16,Regs); Reg:=Regs.AL; Scan:=0; Regs.AH:=1; Intr($16,Regs); ASCII:=0; if Regs.Flags and fZero=0 then begin Regs.AH:=0; Intr($16,Regs); Scan:=Regs.AH; ASCII:=Regs.AL; end; end; Reg рассматривать как набор битов - флагов клавиш-модификаторов Scan - сканкод клавиши (любой) ASCII - код нажатого символа (в текущей кодировке/состоянии регистров) если хотите, можете переписать на ассемблере |
![]() ![]() |
![]() |
Текстовая версия | 28.04.2025 9:26 |