Опрос клавиатуры

Обмен значениями

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

Пример:
'Программа для демонстрации SWAP
DIMa%,b%,aS,bS
а%=1
b%=4
a$= "А"
b$="B"
SWAPa%,b%
SWAP aS, bS
PRINT "a%-"; a%, "b%-"; b%, "aS-"; aS, "bS"; bS

С помощью функции INKEY$ во время выполнения программы можно узнать, какая клавиша была только что нажата. Эта функция возвращает строковое значение, которое может быть пустой строкой (") либо состоять из одного или двух символов. Если значение функции — пустая строка, то это означает, что никакие клавиши не нажимались; если возвращается один символ, то это символ, только что набранный на клавиатуре.

Пример 1:
'INKEY$ для программных прерываний
CLS
PRINT "Для продолжения нажать любую клавишу"
DO WHILE INKEY$-""
LOOP
PRINT "Спасибо!"
'Конец программы

Пример 2:

Функция INKEY$ интересна тем, что она может опрашивать специальные и функциональные клавиши. Коды клавиатуры можно узнать либо в справочной системе QBASIC, либо использовать следующую программу:

'Коды клавиш
DIM taste$
DO
CLS
PRINT "Нажать любую клавишу"
DO
TASTE$=INKEY$
LOOPWHILEtaste$=""
PRINT "Код клавиши: "; taste$
PRINT "Длина кода клавиши: "; LEN(taste$)
PRINT
PRINT "Опросить еще одну клавишу? (Y)"
DO
Taste$-INKEY$
LOOP WHILEtaste$-"" LOOP UNTIL UCASTS(taste$)< > "Y"

Из этого примера видно, что специальные клавиши отличаются тем, что их коды состоят из двух символов.

Дата добавления: 2014-01-06