Программирование клавиатуры

Дополнительные возможности управления клавиатурой реализуются двумя функциями: KeyPressed и ReadKey.

Функция KeyPressed.

Возвращает значение типа Boolean, указывающее состояние буфера клавиатуры: False означает, что буфер пуст, a True - что в буфере есть хотя бы один символ, еще не прочитанный программой.

В MS-DOS реализуется так называемый асинхронный буферизованный ввод с клавиатуры. По мере нажатия на клавиши соответствующие коды помещаются в особый буфер, откуда они могут быть затем прочитаны программой. Стандартная длина буфера рассчитана на хранение до 16 кодов символов. Если программа достаточно долго не обращается к клавиатуре, а пользователь нажимает клавиши, буфер может оказаться переполненным. В этот момент раздается звуковой сигнал и «лишние» коды теряются. Чтение из буфера обеспечивается процедурами Read/ReadLn и функцией ReadKey. Замечу, что обращение к функции KeyPressed не задерживает исполнения программы: функция немедленно анализирует буфер и возвращает то или иное значение, не дожидаясь нажатия клавиши.

Функция ReadKey.

Возвращает значение типа Char. При обращении к этой функции анализируется буфер клавиатуры: если в нем есть хотя бы один не прочитанный символ, код этого символа берется из буфера и возвращается в качестве значения функции, в противном случае функция будет ожидать нажатия на любую клавишу. Ввод символа с помощью этой функции не сопровождается эхо-повтором и содержимое экрана не меняется.

Пусть, например, в какой-то точке программы необходимо игнорировать все ранее нажатые клавиши, коды которых еще не прочитаны из буфера, т.е. необходимо очистить буфер. Этого можно достичь следующим способом:

Uses CRT;

var

С: Char;

begin

while KeyPressed do

С := ReadKey;

.......

end.

При использовании процедуры ReadKey необходимо учесть, что в клавиатурный буфер помещаются так называемые расширенные коды нажатых клавиш. Если нажимается любая алфавитно-цифровая клавиша, расширенный код совпадает с ASCII-кодом соответствующего символа. Например, если нажимается клавиша с латинской буквой «а» (в нижнем регистре), функция ReadKey возвращает значение chr (97), а если «А» (в верхнем регистре) - значение chr (65). При нажатии функциональных клавиш F1...F10, клавиш управления курсором, клавиш Ins, Home, Del, End, PgUp, PgDn в буфер помещается двухбайтная последовательность: сначала символ #0, а затем расширенный код клавиши. Таким образом, значение #0, возвращаемое функцией ReadKey, используется исключительно для того, чтобы указать программе на генерацию расширенного кода. Получив это значение, программа должна еще раз обратиться к функции, чтобы прочитать расширенный код клавиши.

Т.е. код сканирования клавиши. Этот код определяется порядком, в соответствии с которым микропроцессор клавиатуры Intel 8042 периодически опрашивает (сканирует) состояние клавиш.

Следующая простая программа позволит Вам определить расширенный код любой клавиши. Для завершения работы программы нажмите клавишу Esc.

Uses CRT;

var

С: Char;

begin

repeat

С := ReadKey;

if C<>#0 then

WriteLn(ord(C))

else

WriteLnCO1 ,ord(ReadKey) :8)

until C=#27 {27 - расширенный код клавиши Esc}

end.

Если Вы воспользуетесь этой программой, то обнаружите, что нажатие на некоторые клавиши игнорируется функцией ReadKey. Это прежде всего так называемые сдвиговые клавиши - Shift, Ctrl, Alt. Сдвиговые клавиши в MS-DOS обычно используются для переключения регистров клавиатуры и нажимаются в сочетании с другими клавишами. Именно таким способом, например, различается ввод прописных и строчных букв. Кроме того, функция игнорирует переключающие клавиши Caps Lock, Num. Lock, Scroll Lock, а также «лишние» функциональные клавиши F11 и F12 клавиатуры IBM AT, не имеющие аналога на клавиатуре ранних моделей IBMPC/XT (в этих машинах использовалась 84-клавишная клавиатура, в то время как на IBM AT - 101-клавишная).

Модуль Graph.

Для работы с графикой из программы на Паскале в папке, откуда она запускается, должен присутствовать файл EGAVGA.BGI.

Кроме того, при компиляции такой программы должен быть доступен модуль GRAPH.TPU, содержащий подпрограммы отрисовки графических объектов.

Файлы *.BGI это графические адаптеры, отвечающие за работу с мониторами различных типов.

Библиотека GRAPH.TPU подключается стандартным способом с помощью USES в разделе описаний программ:

USES Graph;

В графическом режиме экран представляет собой матрицу точек (пикселов), причем имеется возможность высветить любой пиксель любым цветом. Координаты каждого пиксела определяются парой целых чисел:

координата X - номер пиксела в строке. Нумерация слева направо, начиная с 0;

координата Y- номер строки пикселов. Нумерация строк сверху вниз, начиная с 0.

Таким образом, координаты левого верхнего угла экрана (0,0). Любой объект, высвечиваемый на экране, представляет собой совокупность отдельных пикселов. При переходе в графический режим экран очищается. Количество воспроизводимых пикселов по горизонтали и вертикали зависит от типа монитора и установленного графического режима (каждый монитор может использовать несколько режимов, отличающихся количеством поддерживаемых цветов и разрешением графического экрана в пикселах):

монитор CGA - максимум 320*200 пикселов, монитор EGA – 640*350, монитор VGA – 640*480; Работу с более современными и мощными графическими режимами, относящимися к классу SuperVGA, Паскаль непосредственно не поддерживает, хотя существуют созданные независимыми разработчиками графические драйверы этих режимов.

Режим функционирования экрана, кроме количества пикселов, характеризуется определенной палитрой - набором видимых цветов. Каждая палитра состоит из четырех цветов для CGA или 16 цветов для EGA и VGA.

Установка графического режима осуществляется путем обращения к процедуре InitGraph:

InitGrapH(gd,gm,pt);

Целочисленные переменные gd и gm задают тип графического дисплея и режим работы графического адаптера, строковая переменная pt - путь к файлу графического адаптера (*.BGI). Пример:

USES Graph;

VAR gd,gm,error: integer;

BEGIN

gd:=VGA; {выбор адаптера VGA}

gm:=VGAHi; {режим 640 x 480 точек x 16 цветов }

InitGraph(gd,gm,'');

error:=GraphResult;

If error <> grOk Then Begin

Write ('Ошибка графики:', GraphErrorMsg(error));

readln;

halt;

End;

Line (0,0,getmaxx,getmaxy); Readln; Closegraph;

End.

Здесь устанавливается графический режим VGA 640*480 точек с 16 цветами, так как путь к файлу EGAVGA.BGI указан пустым, предполагается, что он находится в текущей папке, после перехода в графический режим процедурой Line рисуется линия из левого верхнего в правый нижний угол экрана, затем, после нажатия Enter, графический режим закрывается и происходит выход из программы.

Для автоматического выбора максимально возможного режима переменной gdнеобходимо присвоить значение detect, при этом переменные gm и pt не определяются, если в текущем каталоге, в котором находится система Турбо Паскаль, имеются файлы *.BGI. Пример:

USES Graph;

VAR gd,gm: integer;

BEGIN

gd:=Detect;

InitGraph(gd,gm,'');

. . .

Рассмотрим основные процедуры и функции модуля Graph.

CloseGraph; - завершает работу в графическом режиме. Необходимо выполнять эту процедуру перед завершением любой графической программы на Паскале.

ClearDevice; очищает графический экран. Обе этих процедуры не имеют параметров.

function GetMaxX:integer; - получает максимальную координату по оси X

function GetMaxY:integer; - получить максимальную координату по оси Y

SetColor(Color); - устанавливает цвет рисования линий, точек и текста (аналог "пера" в программах для рисования). Цвета кодируются так же, как в текстовом режиме. Для полноты картины перечислим их все:

Черный (BLACK) 8 - темно-серый (DARKGRAY)

Синий (BLUE) 9 - голубой (LIGHTBLUE)

Зеленый (GREEN) 10 - светло-зеленый (LIGHTGREEN)

Циановый (CYAN) 11 - светло-циановый (LIGHTCYAN)

Красный (RED) 12 - светло-красный (LIGHTRED)

Фиолетовый (MAGENTA) 13 - светло-фиолетовый (LIGHTMAGENTA)

Коричневый (BROWN) 14 - желтый (YELLOW)

Не нашли, что искали? Воспользуйтесь поиском по сайту: