мыхотим иметь определенную подпрограмму дляполучения
Alt 0000 1000 08
Num Lock 0010 0000 20
Caps Lock 0100 0000 40
----------------------------------------------------
Предположим в качестве примера,что мы желаем отследить
"Shift-Escape";т.е. мыхотим иметь определенную подпрограмму дляполучения уп-
равления всякий раз ,когда клавиша Escape нажимается вместе с одной из кла-
виш Shift.Прежде всего мы должны построить маску сдвига -состояния.Вы хотите
распознавать обе клавиши Shift,поэтому должны сложить маски для обе-
их:01H+02H=03H.Далее вы можете проконсультироваться по таблице кодов скани-
рования приложения F и обнаружить ,чтo клавиша Escape имеет код сканирования
1.О вашем плане Турбо-Бейсику сообщает следущий оператор
KEY 15,CHR$(&03)+CHR$(1)
Вы обязаны использовать значение клавиши 15,поскольку первые 14 ранее оп-
ределены для представления функциональных клавиш и клавиш управления курсо-
ром.Теперь вы определяете подпрограмму отслеживания ,которая Будет вызывать-
ся при всяком нажатии Shift-Esc:
ON KEY(15) GOSUB ShiftEscape
где ShiftEscape-это метка в начале отслеживающей подпрограммы.Наконец,вы
включаете отслеживание для клавиши 15 с помощью оператора:
KEY(15) ON
См.также KEY(n)
ON KEY
Пример FOR N%=1 TO 10
READ A$
KEY N%,A$+CHR$(13)
NEXT N%
KEY LIST
KEY ON
WHILE NOT INSTAT
WEND
DATA Help,Enter,Edit,Change,Report,Print,Setup
DATA DOS Copy,Quit
END
Оператор KEY(n)
---------------
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий