Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Считывание комбинаций клавиш с 60 порта 
:(
    Опции темы
ausar
Дата 16.8.2008, 16:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 127
Регистрация: 3.8.2007

Репутация: нет
Всего: нет
Подскажите пожалуйста. Этот код считывает с порта 60 клавиатуры сканкод нажатой клавиши
если нажать клавишу Esc сканкод которой - 1 то значение переменной а меняется циклически true/false
Можно естественно и на любую другую клавишу назначить. А вот как назначить комбинацию клавиш например ctrl+s или shift+s? Читал что при нажатии shift+клавиша формируется 2х байтный код а при нажатии просто на клавишу однобайтный. Как сделать то?
Код

var key,keyz:byte;
a:boolean;
...
Begin
keyz:=key;
key:=port[$60];
If key=1 then
a:=true;
Else if (key=1) and (a=true) then a:=false;
...





Это сообщение отредактировал(а) ausar - 16.8.2008, 16:01
PM MAIL   Вверх
volvo877
Дата 16.8.2008, 16:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
Цитата(ausar @  16.8.2008,  16:00 Найти цитируемый пост)
Как сделать то?

Скан-код всегда однобайтный. Причем его не волнует, была кнопка нажата с Shift-ом или без. Считай, что это просто местоположение кнопки на клавиатуре. Чтобы поймать регистровые клавиши - см. байты состояния $0:$417 и $0:$418. Подробнее - здесь: http://forum.vingrad.ru/index.php?showtopi...st&p=629767
PM MAIL   Вверх
Dobermann
Дата 17.8.2008, 01:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0
А как вариант нельзя ли создать динамическую переменную для шифта и контрола?! И добавить код, проверяющий пуста ли эта переменная, а потом уже считывать клавишу?!?! 
PM   Вверх
ausar
Дата 17.8.2008, 06:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 127
Регистрация: 3.8.2007

Репутация: нет
Всего: нет
key:=port[$60]; - отслеживает прерывание клавиатуры. Никак не могу додумать куда привинтить $0:$417. Пробовал соединить с фрагментами кода  отсюда http://forum.vingrad.ru/index.php?showtopi...st&p=629767, хотелось получить комбинацию с Rshift

Код

var key,keyz:byte;
var ct_byte: byte Absolute $0000:$0417;
a:boolean;
...
Begin
keyz:=key;
key:=port[$60];
If key=1 then
a:=true;
Else if (key=1) and (ct_byte and $01) then a:=false;
...
PM MAIL   Вверх
volvo877
Дата 17.8.2008, 08:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
И чего ты своим кодом хочешь добиться? Перевожу на человеческий:

если нажата кнопка Esc (scan = 1), то a = true
иначе
  если
    нажата Esc (да не нажата она, ты выше проверял уже)
    и
    вообще неправильное условие, то A := False


И что это было?

Если ты хочешь поймать 'A' + RShift, то лови:
Код

key := port[$60];
if (key = 30) and (ct_byte and $01 > 0) then ...
PM MAIL   Вверх
ausar
Дата 18.8.2008, 02:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 127
Регистрация: 3.8.2007

Репутация: нет
Всего: нет
Да! вот именно так оно и должно было работать. volvo877 Спасибо!
PM MAIL   Вверх
ausar
Дата 18.8.2008, 05:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 127
Регистрация: 3.8.2007

Репутация: нет
Всего: нет
Но вдруг возник еще вопрос!

ct_byte and $01 - $01 -это shift $02 - это левый шифт. А можно ли отловить это скопом т.е просто отловить нажатие любой специальной клавиши типа шифта альта или контрола?

Уж не чтото в таком ключе?
Код

(ct_byte>$00)
PM MAIL   Вверх
volvo877
Дата 18.8.2008, 10:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
Цитата(ausar @  18.8.2008,  05:05 Найти цитируемый пост)
Уж не чтото в таком ключе?

Если проверять все перечисленные кнопки (и шифты и контролы и альты, и нум-локи всякие), то можно и так... А если только одна из Shift, Alt или Ctrl, тогда
Код

if ... and (ct_byte and $0F > 0) then ...

, т.е. проверяешь любой из младших 4-х бит...
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0472 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.