Программирование в среде Турбо Паскаль полностью

| Ins : Bit = $60; {128}

| Caps : Bit*$40; { 64}

| Num : Bit = $20; { 32}

| Scroll : Bit = $10 { 16}

| end; {case}

| if ( Mem[0:$417] and Bit ) = Bit { бит включен? }

| then GetLockKey := True { да }

| else GetLockKey := False { нет }

| END;

| PROCEDURE SetLockKey( Lock : КеуТуре; В : Boolean );

| VAR

| M : Byte absolute 0:$417; { байт состояния }

| Bit : Byte;

| BEGIN

| case Lock of

| Ins Bit := $60; {128}

| Caps Bit := $40; { 64}

| Num Bit := $20; { 32}

| Scroll Bit := $10 { 16}

| end; {case}

| case В of

| True : M := M or Bit; { включить xxxLock }

| False : M := M and (255-Bit); { выключить xxxLock }

| end {case}

| END;

Рис. 21.9

- 505 -

| BEGIN { ПРИМЕР ВЫЗОВОВ }

| SetLockKey( Caps, True );

| { включить CapsLock }

| Write( 'Введите любой текст ' );

| ReadLn;

| SetLockKey(Caps, not GetLockKey(Caps));

| { наоборот } Write( 'Режим стал обратным ');

| ReadLn;

| END.

Рис. 21.9 (окончание)

Пример на рис. 21.9 переключает режимы, но не влияет на свечение индикаторов, которое управляется на разных классах ПЭВМ через различные порты.

С помощью подобных функций программа может так управлять вводом, что не будет нужды нажимать клавиши регистров. Сам факт нажатия клавиш регистров Shift, Ctrl и Alt может быть программно проанализирован путем опроса ячеек памяти 0:$417 и 0:$418. Если, например, надо проверить, нажата ли левая клавиша Shift (бит 1 в байте 0:$417 равен 1), то логическая функция должна иметь следующий вид:

if (Mem[0:$417] and 2) = 2 then ... {да, левый Shift нажат}

else ... { нет };

Если надо проверить нажатие правой и левой клавиш Shift одновременно, то условие немного изменится:

if (Mem[0:$417] and (2+1))=(2+1) then {да, обе Shift нажаты}

else { нет };

Подобные опросы можно применять при написании процедур запроса паролей, если паролем доступа к работе с программой делать комбинации типа Alt+Shift и т.п. Но подобная система опроса работает только при длительном нажатии клавиш регистров. Ведь в момент нажатия программа может не анализировать состояние регистров, и тогда информация проскочит «мимо». Четко отловить факт нажатия клавиш регистров можно лишь с помощью анализа скэн-кодов клавиш, перехватывая прерывания от клавиатуры (см. пример на рис. 21.11).

Чтение скэн-кодов клавиш — это самый низкий уровень программного опроса клавиатуры. Каждая нажатая клавиша выдает свой

- 506 -

уникальный скэн-код, который зависит только от ее местоположения на клавиатуре и никак не зависит от того, что под ней понимается. Так, арифметические знаки на алфавитной и цифровой клавиатурах имеют различные скэн-коды. Скэн-коды полностью совместимой с IBM PC ПЭВМ приведены в табл. 21. 2.

Таблица 21. 2

- 507 -

Проверить правильность этой таблицы на любой другой ПЭВМ (с MS-DOS и Турбо Паскалем, конечно) можно при помощи программы опроса скэн-кода нажатой клавиши (рис. 21. 10).