к оглавлению

КЛАРИОH. Справочное руководство

ГЛАВА 7 - Доступ к экрану и клавиатуре

Видеопроцедуры.............................................. 7-1
     BLANK (очистить прямоугольник на экране)............... 7-1
     Коды цветовых стилей (видеоатрибуты)................... 7-2
     PAINT (закрасить прямоугольник на экране).............. 7-3
     SCROLL (прокрутить прямоугольную область экрана)....... 7-4
     SETBLINK (разрешить мигание)........................... 7-5
     SETCOLOR (установить видеоатрибуты).................... 7-5
     SETCURSOR (включить курсор)............................ 7-6
     SETGRAPHIC (установить графический режим).............. 7-7
     SETMOUSE (позиционировать курсор мышки)................ 7-8
     SETNOBLINK (запретить мигание)......................... 7-9
     SETTEXT (установить размер экрана в текстовом режиме).. 7-9
     SHOW (показать на экране).............................. 7-10
     TYPE (вывести строку на экран)......................... 7-11

Видеофункции................................................ 7-12
     BACKCOLOR (возвращает цвет фона)....................... 7-12
     COLOR (возвращает код цветового стиля)................. 7-13
     FORECOLOR (возвращает цвет текста)..................... 7-13
     GRAPHIC (возвращает текущий видеорежим)................ 7-14
     LOOK (считать символ(ы) с экрана)...................... 7-15
     MAKECOLOR (возвращает код цветового стиля)............. 7-16
     MOUSECOL (X-координата мышки).......................... 7-17
     MOUSEROW (Y-координата мышки).......................... 7-17

Процедуры клавиатуры........................................ 7-18
     ALIAS (установить альтернативный код клавиши).......... 7-18
     ASK (получить один символ)............................. 7-18
     PRESS (поместить символ в буфер клавиатуры)............ 7-19
     SETKEYCODE (задаьб код клавиши)........................ 7-19

Функции клавиатуры.......................................... 7-20
     ENTRY (возвращает введенное с клавиатуры).............. 7-20
     KEYBOARD (возвращает ожидающее нажатие на клавишу)..... 7-21
     KEYCODE (возвращает код клавиши завершения поля)....... 7-21


			ВИДЕОПРОЦЕДУРЫ

----------------------------------------------------------------
BLANK                         (очистить прямоугольник на экране)
================================================================
             BLANK([строка][,столбец][,строк][,столбцов])
----------------------------------------------------------------

строка              Числовое значение или выражение, которое за-
                    дает строку для начального (верхнего левого)
		    угла. По умолчанию - 1.

строка              Числовое значение или выражение, которое за-
                    дает столбец для начального (верхнего  лево-
		    го) угла. По умолчанию - 1.

rows                Числовое значение или выражение, которое за-
                    дает число строк в прямоугольнике. По  умол-
                    чанию - вся высота экрана.

columns             Числовое значение или выражение, которое за-
                    дает число столбцов. По умолчанию - вся  ши-
                    рина экрана (структуры SCREEN).

BLANK удаляет  все символы  из прямоугольной  области на экране.
НО BLANK не очищает активные видеоатрибуты-цвета. Ранее  активи-
зированные  атрибуты  PAINT  структуры  SCREEN  и/или  оператора
SETCOLOR могут повлиять на цвета в прямоугольнике.

Пример:

    BLANK                              !Очистить весь экран

    BLANK(1,1,12,80)                   !Верхнюю половину экрана
    BLANK(1,41,12,40)                  !Верхнюю правую четверть

См. также: SETCOLOR, PAINT

----------------------------------------------------------------
  Коды Цветовых Стилей                           (видеоатрибуты)
================================================================

Каждое знакоместо  в видеопамяти  состоит из  двух байт;  один -
данные (символ)  и второй  - видеоатрибуты.  Байт видеоатрибутов
содержит трехбитный цвет фона, бит мигания/яркости и четырехбит-
ный цвет переднего плана (текста). Эти биты скомпонованы в одно-
байтный код цветового стиля с возможными значениями 0..255,  ко-
торый задает  комбинацию цветов  фона/текста. Бит  мигания может
служить битом яркости фона при помощи процедуры SetNoBlink.  При
запрещенном мигании, для фона  можно использовать те же  16 цве-
тов, что и  для текста. Если  же мигание разрешено,  то для фона
можно использовать только 8  цветов, а остальные 8  будут приво-
дить к миганию текста. Код цветового стиля получается  сложением
значений фона и текста. В нижеследующей таблице приведены значе-
ния, используемые для создания кодов цветовых стилей.

			   Монохром

     Передний план                          Фон
Dec  Hex        Цвет              Dec  Hex        Цвет
---  ---        ----              ---  ---        ----
0    0h         Черный            0    0h        Черный
1    1h         Белый Подчеркн.   16   10h       Черный
2    2h         Белый             32   20h       Черный
3    3h         Белый             48   30h       Черный
4    4h         Белый             64   40h       Черный
5    5h         Белый             80   50h       Черный
6    6h         Белый             96   60h       Черный
7    7h         Белый             112  70h       Белый
8    8h         Серый
9    9h         Ярко-Белый Подчеркн.  Добавь 128 (80h) к цвету
10   0Ah        Ярко-Белый            фона, чтобы получить ми-
11   0Bh        Ярко-Белый            гающий текст.
12   0Ch        Ярко-Белый
13   0Dh        Ярко-Белый
14   0Eh        Ярко-Белый
15   0Fh        Ярко-Белый

			    Цветной

     Передний план
Dec     Hex           Цвет
---     ---           ------
0       Oh            Черный
1       lh            голубой
2       2h            зеленый
3       3h            Салатный
4       4h            красный
5       5h            фиолетовый
6       6h            коричневый
7       7h            Белый
8       8h            Серый
9       9h            Светло-голубой
10      OAh           Светло-зеленый
11      OBh           Светло-Салатный
12      OCli          Светло-красный
13      ODh           Светло-фиолетовый
14      OEh           Желтый
15      OFh           Ярко-Белый

     Фон

Dec    Hex         Цвет (без мигания)        Цвет (с миганием)
----   ---         ----------------          ------------------
0      0h            Черный                     Черный
16     10h           голубой                    голубой
32     20h           зеленый                    зеленый
48     30h           Салатный                   Салатный
64     40h           красный                    красный
80     50h           фиолетовый                 фиолетовый
96     60h           коричневый                 коричневый
112    70h           Белый                      Белый
128    80h           Серый                      Черный
144    90h           Светло-голубой             голубой
160    0A0h          Светло-зеленый             зеленый
176    0B0h          Светло-Салатный            Салатный
192    0C0h          Светло-красный             красный
208    0D0h          Светло-фиолетовый          фиолетовый
224    0E0h          Желтый                     коричневый
240    0F0h          Ярко-Белый                 Белый

----------------------------------------------------------------
PAINT                        (закрасить прямоугольник на экране)
================================================================
             PAINT([строка][,столбец][,строк][,столбцов])
----------------------------------------------------------------

строка              Числовое значение или выражение, которое за-
                    дает строку для начального (верхнего левого)
		    угла. По умолчанию - 1.

строка              Числовое значение или выражение, которое за-
                    дает столбец для начального (верхнего  лево-
		    го) угла. По умолчанию - 1.

rows                Числовое значение или выражение, которое за-
                    дает число строк в прямоугольнике. По  умол-
                    чанию - вся высота экрана.

columns             Числовое значение или выражение, которое за-
                    дает число столбцов. По умолчанию - вся  ши-
                    рина экрана (структуры SCREEN).

PAINT записывает активные видеотрибуты SETCOLOR в прямоугольную
область экрана. Символы в прямоугольнике остаются без изменений.
PAINT стоит применять только после выполнения оператора SETCOLOR
с параметром-цветом. Если какие-то параметры пропущены, запятые,
ограничивавшие их должны ставиться.

Пример:

    SETCOLOR(17h)                        !Белый на Голубом
    PAINT                                !Закрасить весь экран
    SETCOLOR(1Fh)                        !Ярко-Белый на голубом
    PAINT(1,5,1,65)                      !Подсветить заголовок

См. также: SETCOLOR

----------------------------------------------------------------
SCROLL                 (прокрутить прямоугольную область экрана)
================================================================
           SCROLL[строка][,столбец][,строк][,столбцов][,счетчик]
----------------------------------------------------------------

строка              Числовое значение или выражение, которое за-
                    дает начальную (верхнюю) строку. По  умолча-
                    нию - 1.

столбец             Числовое значение или выражение, которое за-
                    дает начальный (левый) столбец прямоугольни-
                    ка. По умолчанию - 1.

строк               Числовое значение или выражение, которое за-
                    дает число строк в прямоугольнике. По  умол-
                    чанию - вся выслта экрана (структуры SCREEN)

столбцов            Числовое значение или выражение, которое за-
                    дает число столбцов. По умолчанию - вся  ши-
                    рина экрана (структуры SCREEN).

счетчик             Позитивное или негативное значение или выра-
                    жение, которое задает на сколько строк  про-
                    крутить. Если  СЧЕТЧИК положителен,  то про-
                    крутка вверх,  если отрицательный,  то вниз.
                    По умолчанию СЧЕТЧИК=+1.

SCROLL перемещает символы  в прямоугольной области  экрана вверх
или вниз. По мере сдвига символов, СЧЕТЧИК строк удаляется свер-
ху (снизу) прямоугольника, и СЧЕТЧИК пустх строк создается внизу
(вверху). Параметры СТРОКА и СТОЛБЕЦ задают координаты  верхнего
левого угла  праямоугольника относительно  верхнего левого  угла
физического экрана; они НЕ ссылаются на верхний левый угол струк
туры SCREEN.

SCROLL НЕ изменяет активыне видеоатрибуты в прямоугольнике.  Ра-
нее  активные  атрибуты  оператора  PAINT в SCREEN-структуре или
оператора SETCOLOR могут повлиять на цвета в прямоугольнике. Хо-
тя символы сдвигаются, цвета раскраска прямоугольника НЕ меняет-
ся.

Пример:

    SCROLL(4,10,16,60,-1)             !Прорутка данных вниз

    LOOP  5  TIMES                    !Повторять 5 раз
      SCROLL                          !  пркрутить весь экран
    .                                 !Конец цикла

См. также: SETCOLOR, PAINT

----------------------------------------------------------------
SETBLINK                                     (разрешить мигание)
================================================================
             SETBLINK
----------------------------------------------------------------

SETBLINK разрешает мигание. Если оно разрешено, то для фона мож-
но использовать только 8 цветов. Это нормальный режим работы, до
тех пор, пока мигание не запрещено процедурой SETNOBLINK.

Пример:


  SETNOBLINK            !Выключить мигание
  SHOW(1,15,CENTER('Ты ошибся, друже!',30))
  SETCOLOR(0EBh)        !  цвет - светло салатный на желтом
  PAINT(1,15,1,30)      !  закрасим область сообщения
  BEEP(0,200)           !Ждем 2 секунды
  SETBLINK              !  и делаем мигающий св.салатн. на кори
			!  чневом


См. также: SETNOBLINK, SETCOLOR, Коды Цветовых Стилей

----------------------------------------------------------------
SETCOLOR                              (установить видеоатрибуты)
================================================================
             SETCOLOR(цвет)
----------------------------------------------------------------

цвет                Числовое значение или выражение, которое за-
                    дает код цветового стиля. Допустимые  значе-
                    ния ЦВЕТа - 0..255.

SETCOLOR меняет байт выидеоатрибута для каждого символа, записы-
ваемого в видеопамятьь после  него. ЦВЕТ - точный  код цветового
стиля (это НЕ ссылка на внутренний массив, используемый в струк-
туре SCREEN парметром COLOR).

Если SETCOLOR использован без параметров, то символы, выводимые
на экран после такого SETCOLOR НЕ будут изменять цвет знакомест,
куда они выводятся.

Пример:

   SETCOLOR(0)                       !Черный на черном
   SETCOLOR(47h)                     !Белый на красном
   SETCOLOR                          !Оставить атрибуты без изм.

См. также: Коды Цветовых Стилей

----------------------------------------------------------------
SETCURSOR                                      (включить курсор)
================================================================
             SETCURSOR([строка,столбец])
----------------------------------------------------------------

строка              Числовое  значение  или выражение,  задающее
                    строку на экране.

столбец             Числовое  значение  или выражение,  задающее
                    столбец на экране.

SETCURSOR показывает курсор в позиции заданной СТОЛБЦОМ и  СТРО-
КОЙ. Используется  для позиционированного  вывода на  устройство
"CON". SETCURSOR  указывает первую  строку и  столбец для вывода
оператором TYPE,  или оператором  PRINT, у  которого устройством
для вывода отчета является  "CON." Если параметры не  заданы, то
SETCURSOR гасит курсор.

Пример:

  SETCURSOR(2,5)           !Turn on the cursor at row 2 column 5
  SETCURSOR                !Turn off the cursor

См. также:    TYPE

----------------------------------------------------------------
SETGRAPHIC                        (установить графический режим)
================================================================
             SETGRAPHIC(режим)
----------------------------------------------------------------

режим               Целая константа или EQUATE,  задающая графи-
                    ческий видеорежим (EGA, VGA, SVGA).

SETGRAPHIC задает графический режим для SCREEN-структур с  атри-
бутом GRAPHIC. Графический режим определяется автоматически и не
не требует изменения, как правило. SETGRAPHIC перекрывает  режим
автоопределения режима для следующего открываемого SCREEN.  Раз-
решенные для РЕЖИМа значения:

Dec  Hex        Режим
---  ---        --------

90   5Ah        Текстовый
121  79h        EGA
89   59h        VGA
87   57h        SVGA

Если экран уже открыт как графический, SETGRAPHIC(90) не повлия-
ет  на  него.  Если  же  экран  ЕЩЕ  не  в  графическом  режиме,
SETGRAPHIC(90) принудительно вызовет  вывод следующих экранов  в
текстовом режиме, даже если у них установлен атрибут GRAPHIC.

Пример:

GraphScreen   SCREEN(25,80),GRAPHIC
                !описание структуры экрана
              .
  CODE
  SETGRAPHIC(90)     !Следующий экран принудительно в текст
  OPEN(GraphScreen)  !GraphScreen открыть в текстовом режиме

См. также: GRAPHIC

----------------------------------------------------------------
SETMOUSE                        (позиционирование курсора мышки)
================================================================
             SETMOUSE([строка][,столбец])
----------------------------------------------------------------

строка              Целая константа,  переменная или  выражение,
                    задающее строку, в которую поместить  курсор
                    мышки. По умолчанию - ноль.

столбец             Целая константа,  переменная или  выражение,
                    задающее столбец, куда поместить курсор мыш-
                    ки. По умолчанию ноль.

SETMOUSE размещает курсор мышки на экране. Если СТРОКА и СТОЛБЕЦ
опущены, то SETMOUSE выключает курсор мышки. Если программа  со-
бирается использовать  мышь, то  по крайней  мере, один SETMOUSE
требуется (вероятно где-то ближе к началу программы).

В графическом режиме курсор мышки представляет стрелку, а в тек-
стовом - прямоугольный  блок (знакоместо), до  тех пор, пока  не
использованы операторы LOADSYMBOLS или USESYMBOLS.

Пример:

  SETMOUSE()                   !Выключить мышку
  SETMOUSE(1,1)                !Включить в верхнем левом углу

См. также: LOADSYMBOLS, USESYMBOLS

----------------------------------------------------------------
SETNOBLINK                                   (запретить мигание)
================================================================
             SETNOBLINK
----------------------------------------------------------------

SETNOBLINK запрещает мигание на экране. Обычно, фон можно  раск-
расить в 8  цветов. При запрещенном  мигании, бит отвечающий  за
мигание может быть использован как бит яркости фона. Это  позво-
ляет использовать для фона те же 16 цветов, что и для текста.

Монохромные или CGA мониторы НЕ поддерживают запрещение мигания.
Таким образом, для SETNOBLINK нужен, как минимум, EGA.

Пример:

   SETNOBLINK                    !Выключить мигание
   SETCOLOR(OEh)                 !  установить черный на желтом
   PAINT                         !  и закрасить экран

См. также: SETBLINK, Коды Цветовых Стилей

----------------------------------------------------------------
SETTEXT            (установить размер экрана в текстовом режиме)
================================================================
             SETTEXT(строк,столбцов)
----------------------------------------------------------------

строк               Целая константа, переменная или   выражение,
                    задающее число строк на физическом экране  в
                    текстовом режиме.

столбцов            Целая константа,  переменная  или выражение,
                    задающее число столбцов на физическом экране
                    в текстовом режиме.

SETTEXT позволяет точно задать,  скажем, режим 43 или  50 строк.
Без применения SetText, текстовый режим остается таким же, каким
он был при запуске программы.

SETTEXT использует  метод наилучшего  размещения для  параметров
СТРОК и СТОЛБЦОВ. Видеоадаптер может поддерживать различные тек-
стовые режимы, так что,  в принципе, SETTEXT(200,200) может  до-
стичь максимально возможного разрешения в текстовом режиме.

Пример:

  R# = ROWS()                !Сохраняем текущие параметры экрана
  C# = COLS()                !R# - строки и C# - столбцы
  GraphicScreenProc          !Вызываем проц. с графическ.экраном
  SETTEXT(R#,C#)             !Возвращаемся к предыдущ. значениям

См. также: ROWS, COLS

----------------------------------------------------------------
SHOW                                        (показать на экране)
================================================================
             SHOW([строка][,столбец],выражение[,формат])
----------------------------------------------------------------

строка              Числовое значение или выражение, которое за-
                    дает строку на экране, в которую будет выве-
		    дено  ВЫРАЖЕНИЕ.  По  умолчанию  - последняя
                    строка, в которой происходил вывод.

столбец             Числовое значение или выражение, которое  за
                    дает столбец, в который будет выведено ВЫРА-
                    ЖЕНИЕ. По умолчанию  - последний столбец,  в
                    который производился вывод.

выражение           Метка  переменной,  константы,  числовое или
                    строковое выражение.

формат              Шаблон формата  или метка   строки  (STRING)
                    описанной с форматом вывода (picture).

SHOW выводит переменные или выражения прямо на экран. Если выра-
жение слишком длинно, чтобы разместиться в строке, оно  усекает-
ся. Чтобы показать, что какие-то параметры пропущены,  требуются
запятые. То, что  выводит SHOW, затирает  то, что было  ранее на
экране.

Пример:

  SHOW(1,1,TODAY(),@D3)               !Показать дату
  SHOW(,,CLOCK(),@T3)                 !Показать время в том мес-
                                      !те, куда был последний
				      !вывод
  SHOW(1,80 - SIZE(Msg),Msg)          !Выровнять сообщение впра-
				      !во
  SHOW(25,1,'Жми кнопочку, и продолжим')!Вывод подсказки

----------------------------------------------------------------
TYPE                                   (вывести строку на экран)
================================================================
             TYPE(строка)
----------------------------------------------------------------

строка            Строковая константа, переменная или выражение.

TYPE выводит строку  на стандартное устройство  вывода (STDOUT).
Пока не определено иначе, в качестве STDOUT DOS использует  уст-
ройство CON. Строка появится на экране начиная с текущего  поло-
жения курсора.  Можно использовать  SETCURSOR, чтобы  разместить
курсор в нужном месте.

Устройство "CON" распознает  символы CR, LF,  TAB и BS.  Перевод
строки (LF) переводит курсор на  строку ниже текущей. LF на  по-
следней строке экрана приводит к прокрутке всего экрана вверх на
одну строку.

Пример:

    TYPE(Cus:Notes)           !Вывести поле примечаний

    SETCURSOR(1,25)           !Идем в самый низ экрана
    TYPE(@LF5)                ! и прокрутим вверх 5 строк

См. также: SETCURSOR, Элементы Управления Принтером

			 ВИДЕОФУНКЦИИ

----------------------------------------------------------------
BACKCOLOR                                 (возвращает цвет фона)
================================================================
             BACKCOLOR(строка,столбец)
----------------------------------------------------------------

строка              Числовое значение или выражение, которое за-
                    дает строку на экране.

столбец             Числовое значение или выражение, которое за-
                    дает столбец на экране.

BACKCOLOR возвращает цвет  фона для указанного  знакоместа. Воз-
вращаемое значение лежит  в диапазоне от  0 до 15  включительно,
что соответствует шестнадцати цветам переднего плана. Если пара-
метры выходят за допустимые пределы, то возвращается ноль.

В байте видеоатрибута фоновый цвет хранится в старшем ниббле  (4
бита). То есть, если значение, полученное от BackColor использо-
вано для порождения  кода цветового стиля,  то сначала его  надо
умножить на шестнадцать, и затем прибавить к нему значение цвета
для переднего плана.

Возвращаемый тип данных: BYTE

Пример:

  SETCOLOR(BACKCOLOR(1,1)+(FORECOLOR(1,1)*16)!Поменять цвета
  					     !местами
  SaveBack = BACKCOLOR(1,1)           !Сохранить цвет фона



См. также: SETCOLOR, FORECOLOR, MAKECOLOR, Коды Цветовых Стилей

----------------------------------------------------------------
COLOR                           (возвращает код цветового стиля)
================================================================
             COLOR(строка,столбец)
----------------------------------------------------------------

Функция COLOR возвращает активный для знакоместа с  координатами
(СТРОКА,СТОЛБЕЦ) код цветового  стиля (комбинацию цветов  фона и
переднего плана).

Возвращаемый тип данных: BYTE

Пример:

  SaveColor = COLOR(1,1)              !Сохранить раскраску

См. также: BACKCOLOR, FORECOLOR, MAKECOLOR, Коды Цветовых Стилей

----------------------------------------------------------------
FORECOLOR                      (возвращает цвет переднего плана)
================================================================
             FORECOLOR(строка,столбец)
----------------------------------------------------------------

FORECOLOR возвращает цвет  текста для знакоместа  с координатами
(СТРОКА,СТОЛБЕЦ).  Возвращаемое значение лежит в диапазоне от  0
до 15 включительно.  Если параметры выходят за допустимые преде-
лы, то возвращается ноль.

В байте  видеоатрибута цвет  переднего плана  хранится в младшем
ниббле, то есть, для получения кода чветового стиля надо резуль-
тат от FORECOLOR прибавить к результату от BACKCOLOR умноженному
на шестнадцать.

Возвращаемый тип данных: BYTE

Пример:

 SETCOLOR(BACKCOLOR(1,1)+(FORECOLOR(1,1)*16))!Поменять цвета
					     !местами
 SaveFore = FORECOLOR(1,1)            !Сохранить цвет текста

См. также: SETCOLOR, BACKCOLOR, MAKECOLOR, Коды Цветовых Стилей


----------------------------------------------------------------
GRAPHIC                          (возвращает текущий видеорежим)
================================================================
             GRAPHIC(n)
----------------------------------------------------------------

n                  Целочисленная константа, переменная или выра-
                   жение.

Функция GRAPHIC возвращает  байт, содержащий текущий  внутренний
видеорежим. В зависимости от режима, возвращается следующее:

Dec. Hex.       Режим
---  ----       ----

90   5Ah        Текстовый
121  79h        EGA
89   59h        VGA
87   57h        SVGA

GRAPHIC(0) возвращает тип адаптера (EGA, VGA, SVGA) если текущий
экран открыт не в графическом режиме. GRAPHIC(1) возвращает одно
из приведенных выше значений для грфических режимов или 5Ah  для
текстового.

GRAPHIC(1) проверяет, не находится ли экран в графическом режиме
и, если так, то какой адаптер исползуется. GRAPHIC(0) обычно ис-
пользуется для определения типа адаптера дисплея перед открытием
экрана в графическом режиме.

Возвращаемый тип данных: Byte

Пример:

EGA        EQUATE(121)
VGA        EQUATE(89)
SVGA       EQUATE(87)

GraphScreen   SCREEN(25,80),GRAPHIC
              .
  CODE
  X# = GRAPHIC(0)
  IF X# = EGA OR X# = VGA OR X# = SVGA
    OPEN(GraphScreen)
    CASE GRAPHIC(1)
    OF  EGA
    OROF VGA
      SHOWIMAGE(1,1,25,80,'EGALOGO.PCX',1)
    OF SVGA
      SHOWIMAGE(1,1,25,80,'SVGALOGO.PCX',1)
  . .

См. также:     SETGRAPHIC


----------------------------------------------------------------
LOOK                                (считать символ(ы) с экрана)
================================================================
             LOOK(строка,столбец,шаблон)
----------------------------------------------------------------

строка              Числовое значение или выражение, которое за-
                    дает Y-соординату для чтения. По умолчанию -
                    последняя строка, к оторой было обращение.

столбец             Числовое значение или выражение которое  за-
                    дает X-координату  первого символа,  который
                    надо  прочитать.  По  умолчанию  - последний
                    столбец, к которому было обращение.

шаблон              Шаблон формата или метка строки, описанной с
                    шаблоном  формата.  Шаблон  используется для
                    деформатирования прочитанного с экрана  зна-
		    чения в переменную. Длина шаблона определяет
                    количество столбцов, которые будут прочитаны
                    с экрана.

Функция LOOK считывает ASCII-коды символов с экрана, начиная  со
знакоместа, с координатами (СТРОКА,СТОЛБЕЦ). Если какие-то пара-
метры опущены,  то чтобы  это отметить,  требуются запятые. LOOK
работает одинаково как в текстовых, так и вграфических  режимах.
(SPA - интересно, а для русских букв в графике работает?)

Возвращаемый тип данных: STRING

Пример:

  PageNumber = LOOK(1,75,@N2)         !Получить номер страницы
  Cus:AccountNumber = LOOK(,,@NO5)    !Считать из последней выве
                                      ! денной позиции и помес-
                                      ! тить в номер лиц. счета
  LastName = LOOK(5,20,@S20)          !Считать имя

----------------------------------------------------------------
MAKECOLOR                       (возвращает код цветового стиля)
================================================================
             MEKECOLOR(текст,фон)
----------------------------------------------------------------

текст               Целая константа, переменная или выражение в
                    диапазоне 0..15, представляющая собой цвет
                    переднего плана (или текста).

фон                 Целая константа, переменная или выражение в
                    диапазоне 0..15, представляющая собой цвет
                    заднего плана (или фона).

MAKECOLOR возвращает код цветового стиля для заданной комбинации
цветов текста/фона.

Возвращаемый тип данных: BYTE

Пример:

   MAKECOLOR(7,0)        returns 7      White on Black
   MAKECOLOR(7,1)        returns 23     White on Blue

   ColorStyle = MAKECOLOR(7,1)    !Set ColorStyle variable to 23
   SETCOLOR(ColorStyle)           ! and use it to set the color


См. также: FORECOLOR, BACKCOLOR, COLOR, SETCOLOR,
	   Коды Цветовых Стилей

----------------------------------------------------------------
MOUSECOL                                    (X-координата мышки)
================================================================
             MOUSECOL()
----------------------------------------------------------------

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

Возвращаемый тип данных: BYTE

Пример:

  SaveMouseCol = MOUSECOL()          !Save mouse column position

----------------------------------------------------------------
MOUSEROW                                    (Y-координата мышки)
================================================================
             MOUSEROW()
----------------------------------------------------------------

MOUSEROW  возвращает  баутовое  значение, соответствующее номеру
строки, в которой находится курсор мышки на виртуальном экране.

Возвращаемый тип данных: BYTE

Пример:

  SaveMouseRow = MOUSEROW()             !Save mouse row position

		     ПРОЦЕДУРЫ КЛАВИАТУРЫ

----------------------------------------------------------------
ALIAS                    (установить альтернативный код клавиши)
================================================================
             ALIAS([код,новый-код])
----------------------------------------------------------------

код                 Числовой код или EQUATE-метка кода клавиши.

новый-код           Числовой код или EQUATE-метка кода  клавиши.
                    Можно использовать неприсвоенные ранее коды.

ALIAS изменяет генерируемый  при нажатии клавиши  код. НОВЫЙ-КОД
не находится в таблице кодов  клавиш. Коды от 700 до  999 непри-
своены, и могут  быть использованы как  НОВЫЕ-КОДЫ. Практический
эффект от этого - возможность запретить реагировать на КОД, если
ваша программа не проверяет НОВЫЙ-КОД. Если оба параметра опуще-
ны, то ALIAS отменяет все переназначения клавиш.

Пример:

    ALIAS(F3Key,F1Key)              !Help теперь по F3
    ALIAS(F1Key,F3Key)              ! а нажатие F1 рассматрива-
    				    ! ется как нажатие F3

    ALIAS(256,999)                  !Обзовем по-другому клавишу
				    ! ESC
    ALIAS                           !Отменим все переназначения

См. также: Equate-коды клавиш

----------------------------------------------------------------
ASK                                       (получить один символ)
================================================================
             ASK
----------------------------------------------------------------

ASK читает код клавиши из буфера клавиатуры. Выполнение програм-
мы приостанавливается во время ожидания нажатия на клавишу. Если
в буфере уже есть необработанные нажатия клавиш, ASK читает  код
без ожидания.

Пример:

    SHOW(25,1,'Жми кнопочку, и продолжим') !Показать сообщение и
    ASK                                   !ждать нажатия клавиши

    LOOP WHILE KEYBOARD()       !Опустошаем буфер клавиатуры
      ASK                       !  не обрабатывая нажатия клавиш
    .

См. также: ENTRY

----------------------------------------------------------------
PRESS                                    (поместить код в буфер)
================================================================
             PRESS( ¦код   ¦ )
                    ¦строка¦
----------------------------------------------------------------

код            Числовая константа или EQUATE-метка кода клавиши.

string         Строковая константа, переменная или выражение.

PRESS имитирует нажатия на клавиши во внутреннем буфере  клавиа-
туры Клариона (а не буфере DOS). PRESS(КОД) помещает в буфер од-
но нажатие. PRESS(СТРОКА) помещает в буфер строку целиком. Стро-
ка заполняет буфер (статическую очередь), размер которого  огра-
ничен лишь доступной основной памятью. На каждое нажатие в стро-
ке отводится 32 байта, т.е теоретический максимум равен примерно
2500 символов в большинстве "нормальных" приложений.

Пример:

 IF Action = 'Add'!On the way into a memo field on an add record
   Cus:MemoField = FORMAT(TODAY(),@Dl) &' '& FORMAT(CLOCK(),@T4)
                  !Preload first line of memo with date and time
   PRESS(EnterKey)!  and position user on second line
 .

----------------------------------------------------------------
SETKEYCODE                                 (вернуть код клавиши)
================================================================
             SETKEYCODE(код)
----------------------------------------------------------------

код               Целая константа или EQUATE-метка кода клавиши.

SETKEYCODE заставляет функцию KEYCODE вернуть заданный КОД.  КОД
НЕ помещается в буфер клавиатуры.

Пример:

   SETKEYCODE(999)    !Заставляем KEYCODE вернуть 999

См. также: ALIAS, KEYCODE, Equate-коды клавиш

		      ФУНКЦИИ КЛАВИАТУРЫ

----------------------------------------------------------------
ENTRY                                (принять ввод с клавиатуры)
================================================================
             ENTRY(строка,столбец,шаблон)
----------------------------------------------------------------

строка              Числовое значение или выражение, которое за-
                    дает строку, на которой производится ввод.

столбец             Числовое значение или выражение, которое за-
                    задает столбец, на котором производится ввод

шаблон              Шаблон формата или метка строки, описанной с
                    шаблоном формата. Параметр ШАБЛОН определяет
                    длину поля вормат ввода с клавиатуры в пере-
                    менную. Переменная показывается и редактиру-
                    ется в режиме реверсного отображения  (цвета
                    фона и текста меняются местами).

ENTRY читает нажатия клавиш  с клавиатуры. Программа ждет,  пока
редактирование  поля  не  завершится  клавишей  завершения  поля
(обычно  ENTER)  или  клавишей  взведенной  (через ALERT). ENTRY
устанавливает реверсные  цвета для  СТРОКИ и  СТОЛБЦА и включает
курсор на время редактирования поля.

Возвращаемый тип данных: STRING

Пример:

  Address = ENTRY(10,12,@S20)             !Ввести адрес
  City = ENTRY(11,12,@S12)                !Ввести город

См. также: ALERT

----------------------------------------------------------------
KEYBOARD               (возвращает ожидающее нажатие на клавишу)
================================================================
             KEYBOARD()
----------------------------------------------------------------

Функция KEYBOARD  возвращает первый  код из  хранящихся в буфере
клавиатуры  нажатий  на  клавиши.  Используется для определения,
есть ли нажатия, которые  надо обрабатывать операторами ASK  или
ACCEPT.

Возвращаемый тип данных: LONG

Пример:

  LOOP UNTIL KEYBOARD()               !Ждем любую клавишу
    ASK
    IF KEYCODE() = EscKey THEN BREAK. !Если ESC,то прервать цикл
  .

См. также: ASK, ACCEPT, Equate-коды клавиш

----------------------------------------------------------------
KEYCODE                 (возвращает код клавиши завершения поля)
================================================================
             KEYCODE()
----------------------------------------------------------------

Функция KEYCODE возвращает код клавиши, которой завершилось  ре-
дактирование поля. Эта  функция работает только  для результатов
функции ENTRY и операторов ASK, SETKEYCODE или ACCEPT.

Возвращаемый тип данных: LONG

Пример:

    LOOP                                !Loop on the display
      ASK                               !  wait for a keystroke
      CASE KEYCODE()                    !Process the keystroke
      OF UpKey                          !  up arrow
        SCROLL(,,,,1)                   !    scroll up one row
        DO GetRecordUp                  !      and get a record
      OF DownKey                        !  down arrow
        SCROLL(,,,,-1)                  !    scroll down one row
        DO GetRecordDn                  !      and get a record
      OF EscKey                         !  esc key
        BREAK                           !    break the loop
    . .                                 !End case, end loop

См. также: ASK, ACCEPT, Equate-метки кодов клавиш

к оглавлению

Знаете ли Вы, что карты класс-ответственность-кооперация, Class-responsibility-collaboration - карты класс-ответственность-кооперация - это методология объектно-ориентированного проектирования, предназначенная для описания классов и оперирующая понятиями:
- ответственность - суть - высокоуровневое описание функций, которые выполняет класс;
- кооперация - суть - ссылка на другие классы, с которыми необходимо кооперироваться для реализации функций.

НОВОСТИ ФОРУМА

Форум Рыцари теории эфира


Рыцари теории эфира
 10.11.2021 - 12:37: ПЕРСОНАЛИИ - Personalias -> WHO IS WHO - КТО ЕСТЬ КТО - Карим_Хайдаров.
10.11.2021 - 12:36: СОВЕСТЬ - Conscience -> РАСЧЕЛОВЕЧИВАНИЕ ЧЕЛОВЕКА. КОМУ ЭТО НАДО? - Карим_Хайдаров.
10.11.2021 - 12:36: ВОСПИТАНИЕ, ПРОСВЕЩЕНИЕ, ОБРАЗОВАНИЕ - Upbringing, Inlightening, Education -> Просвещение от д.м.н. Александра Алексеевича Редько - Карим_Хайдаров.
10.11.2021 - 12:35: ЭКОЛОГИЯ - Ecology -> Биологическая безопасность населения - Карим_Хайдаров.
10.11.2021 - 12:34: ВОЙНА, ПОЛИТИКА И НАУКА - War, Politics and Science -> Проблема государственного терроризма - Карим_Хайдаров.
10.11.2021 - 12:34: ВОЙНА, ПОЛИТИКА И НАУКА - War, Politics and Science -> ПРАВОСУДИЯ.НЕТ - Карим_Хайдаров.
10.11.2021 - 12:34: ВОСПИТАНИЕ, ПРОСВЕЩЕНИЕ, ОБРАЗОВАНИЕ - Upbringing, Inlightening, Education -> Просвещение от Вадима Глогера, США - Карим_Хайдаров.
10.11.2021 - 09:18: НОВЫЕ ТЕХНОЛОГИИ - New Technologies -> Волновая генетика Петра Гаряева, 5G-контроль и управление - Карим_Хайдаров.
10.11.2021 - 09:18: ЭКОЛОГИЯ - Ecology -> ЭКОЛОГИЯ ДЛЯ ВСЕХ - Карим_Хайдаров.
10.11.2021 - 09:16: ЭКОЛОГИЯ - Ecology -> ПРОБЛЕМЫ МЕДИЦИНЫ - Карим_Хайдаров.
10.11.2021 - 09:15: ВОСПИТАНИЕ, ПРОСВЕЩЕНИЕ, ОБРАЗОВАНИЕ - Upbringing, Inlightening, Education -> Просвещение от Екатерины Коваленко - Карим_Хайдаров.
10.11.2021 - 09:13: ВОСПИТАНИЕ, ПРОСВЕЩЕНИЕ, ОБРАЗОВАНИЕ - Upbringing, Inlightening, Education -> Просвещение от Вильгельма Варкентина - Карим_Хайдаров.
Bourabai Research - Технологии XXI века Bourabai Research Institution