Версия для печати темы

Автор: 4epenOK 6.05.2007 23:49

Прошу прощенья, если такая тема уже существует. Искал искал, но не нашёл то, что мне нужно. А нужно мне вот что: Как обрабатывать одновременное нажатие нескольких клавиш (от 2-х и более). Причём нужно, чтобы можно было использовать любые клавиши в связке с любыми, в том числе Ctrl, F1-F-12, Shift, Tab, Caps Lock, Alt... Например Esc + Alt или Ctrl + 'B'. Коды цифр и букв я знаю, а коды Alt, Ctrl и им подобных-нет. Также хочется знать как Паскаль оперирует с событиями Клавиши_нажата, Клавиша_отпущена. Хочется сделать так, чтобы при одновременном нажатии клавиш программа делала одно, при отпускании обоих клавиш- другое.

P.S. Одновременное нажатие не обязательно значит в одно мгновение. Допускается нажатие одной клаваши и не отпуская её, нажатие другой.

Использую Turbo Pascal 7.0
Просветите по этому вопросу Plz

Автор: volvo 6.05.2007 23:57

Посмотри здесь: http://forum.pascal.net.ru/index.php?s=&showtopic=4584&view=findpost&p=38481

При нажатии клавиши генерируется ее скан-код, при отпускании - тот же скан-код, увеличенный на 128 ...

Автор: 4epenOK 7.05.2007 1:28

На счёт твоей программы... Мне непонятно что это за переменная такая scan и как ты булевской переменной присваиваешь значения не true или false например isCtrl:=(scan=29).
Ищё одно. Объясни пожалуйста какие виды скан кодов есть и для чего они нужны. Например для одной и той же клавиши я встречал разные цифровые и даже цифро-буквенные значения. Что такое DEC и HEX? И для чего служат символы @ $ # в Паскале?

Автор: volvo 7.05.2007 1:50

Да что ты? Это как раз будет равно True, если Scan будет равен 29, и False - в любом другом случае... В переменную isCtrl заносится результат сравнения, который есть величина логическая, и следовательно True/False...

В обработчике прерывания клавиатуры я в эту переменную читаю содержимое $60-го порта, то есть, это и есть скан-код клавиши...

DECimal (десятичное) и HEXadecimal (16-ричное)

@ - взятие адреса
$ - префикс описания 16-ричной константы
# - следом за этим идет 10-ный ASCII-код символа, результат выражения - символ с заданным кодом...

А вот с этого места - поподробнее... Я всегда считал, что скан-код - это однозначно определяющее клавишу число, зависящее только от ее расположения на клавиатуре... А что, есть еще какие-то?

Автор: 4epenOK 7.05.2007 3:59

Значит DEC это то число, которое мы вводим поле #. Например if readkey=#27 then ...
А почему же я знаю, что код Esc 27, а в этой таблице (да и других подобных) он равен 1 (01)?
http://systemgroup.narod.ru/tema/hardware/scancode.html
http://ntlib.chat.ru/ware/tables/scan.htm
И ещё. Я так и не понял какие коды у клавиш Ctrl, Shift... Видимо нужно почаще информатикой заниматься

Автор: volvo 7.05.2007 4:10

Не путай Ascii - код и скан-код... Ascii-код кнопки Escape действительно равен 27, а вот ее скан-код - единица...

У Ctrl скан-код = $1D(29₁₀), а у Shift-а их два - у того, что слева - $2A(49₁₀), а у правого - $36(54₁₀)

Автор: 4epenOK 7.05.2007 4:40

Спасибо, что разъяснил. А как же тогда работать со скан кодами? Например я ведь не могу написать if readkey=$1D then writeln('Зажат Ctrl');
Можно ли перевести Ascii-код в скан?
И ещё ты сказал

Это значит что если я отпущу Ctrl то сгенерируется $1D+128 ?

Автор: volvo 7.05.2007 4:53

А еще я сказал, что, то есть ответ на предыдущий вопрос - нет... Нельзя перевести в общем случае Ascii -> скан-код...

Нет конечно... Ты вообще не можешь работать со служебными клавишами типа Ctrl/Alt/Shift через ReadKey - только через Scan-codes (для чего тебе понадобится писать обработчик прерывания) или так, как написано здесь:
http://forum.pascal.net.ru/index.php?s=&showtopic=3481&view=findpost&p=31199

Автор: TarasBer 7.05.2007 18:23

Я вот скачал __IV.PAS и что-то она стрелочки неправильно показывает...
Могу предложить свой модуль KEYS.PAS.
Для его использования надо его подключить, в начале программы написать InitKeys, в конце - DoneKeys. И в процессе работы использовать функцию Pressed.
Программа, демонстрирующая работу модуля и одновременно помогающая понять, какой клавише какой код соответствует там же в архиве.
В модуль специально вставлен код, вырубающий программу при нажатии CTRL+C, даже если программа занята другими делами. Типа защита от зависаний. А если требуется, например, чтобы программа при таком выходе закрывала графику, то надо присвоить процедурной переменной HaltProc процедуру, закрывающую графику. Если ничего не присваивать, то при таком вырубании программа просто прерывания на место вернёт и надпись выведет, что типа нажато было CTRL+C.
Ещё модуль не занимается очисткой клавиатурного буфера, поэтому либо он засоряется, либо его очищает сама программа, использующая модуль.
И определить одновременное нажатие трёх буквенных клавиш она не может. По-моему, тут уже дело в конструкции клавиатуры.



Прикрепленные файлы
 keys.rar ( 1.01 килобайт ) Кол-во скачиваний: 270

Автор: volvo 7.05.2007 18:38

А я вот скачал Keys - так у меня OPOZN.PAS вообще компилироваться отказывается:


Это так задумано, или что?

Автор: TarasBer 7.05.2007 18:56

Не, так не задумано. Это такие настройки компилятора у вас.
У меня из опций синтаксиса (прочие опции тут вроде неважны) включены: (TP7.1) Strict var-strings, Extended Syntax, Open Parameters. Выключены: Complete Boolean Eval и Typed @ Operator
Какая-то из этих опций и запрещает присваивание. А вообще можно обхитрить компилятор.
То есть заменить
HaltProc := AtLast
на
@HaltProc := @AtLast

правда, для этого Typed @ Operator вроде надо вырубить.