- •Интерфейс
- •Немного истории
- •Элементы интерфейса, подвластные человеку
- •Элементы интерфейса со стороны машины
- •Организация диалога с программой
- •Лабораторная работа №11 Задание
- •Работа с графикой Основные понятия
- •Формирование изображения на экране
- •Работа с графикой в Паскале
- •InitGraph (var Driver, Mode: integer; Path:string);
- •Некоторые процедуры для работы с графикой
- •Лабораторная работа №12 Задание
- •Литература
Организация диалога с программой
Для работы с текстовым экраном в Pascal есть стандартный модуль Crt. Для того чтобы пользоваться его ресурсами, модуль нужно подключить к программе. Для этого сразу после заголовка программы необходимо написать предложение uses crt.
Например,
Program primer;
Uses crt;
Сразу после этого в программе становятся доступны все процедуры и функции, константы и переменные, описанные в этом модуле.
Таблица 1. Константы режимов работы
Имя константы |
Номер режима |
Режим |
BW40 |
0 |
Черно-белый, 40 символов, 25 строк |
CO40 |
1 |
Цветной, 40 символов, 25 строк |
BW80 |
2 |
Черно-белый, 80 символов, 25 строк |
CO80 |
3 |
Цветной, 80 символов, 25 строк |
Mono |
7 |
Монохромный, 8025, для монохромных дисплеев |
Таблица 2. Константы цветов
-
Имя константы
Номер цвета
Цвет
Black
0
Черный
Blue
1
Темно-синий
Green
2
Темно-зеленый
Cyan
3
Бирюзовый
Red
4
Красный
Magenta
5
Фиолетовый
Brown
6
Коричневый
LightGray
7
Светло-серый
DarkGray
8
Темно-серый
LightBlue
9
Синий
LightGreen
10
Светло-зеленый
LightCyan
11
Светло-бирюзовый
LightRed
12
Розовый
LightMagenta
13
Малиновый
Yellow
14
Желтый
White
15
Белый
Blink
128
Мерцание символа
Таблица 3. Процедуры и функции
Интерфейс |
Назначение |
Установка режимов и окон | |
Procedure AssignCrt (file: text); |
Связывает окно дисплея с текстовым файлом, что позволяет ускорить вывод на экран |
Procedure ClrScr; |
Очищает экран или окно (если оно определено) и помещает курсор в левый верхний угол, после очистки экрана или окна происходит заполнение цветом фона. |
Procedure TextMode (mode: integer); Mode – номер текстового режима или соответствующая константа |
Установка текстового режима. Каждая новая установка режима отменяет все предыдущие. Код режима запоминается в глобальной переменной LastMode типа word модуля CRT и может использоваться для восстановления начального состояния экрана. |
Procedure Window (x1,y1,x2,y2: byte); (x1,y1) и (x2,y2) – координаты верхнего левого и нижнего правого углов окна |
Определяет окно вывода в текстовом режиме. Каждое новое обращение к Window отменяет предыдущее определение окна. После определения окна все координаты курсора указываются относительно границ окна. |
Управление цветом текста и фона | |
Procedure HighVideo; |
Устанавливает высокую яркость выводимых символов |
Procedure LowVideo; |
Устанавливает низкую яркость выводимых символов |
Procedure NormVideo; |
Устанавливает нормальную яркость символов |
Procedure TextColor (color: byte); Color – код цвета или соответствующая константа |
Устанавливает цвет выводимых символов |
Procedure TextBackGround (color: byte); Color – код цвета или соответствующая константа |
Устанавливает цвет фона |
Управление выводом текста | |
Procedure ClrEol; |
Стирает все символы от текущей позиции курсора до конца строки |
Procedure DelLine; |
Удаляет линию, в которой находится курсор |
Procedure InsLine; |
Вставляет новую строку перед строкой, где находится курсор |
Работа с клавиатурой | |
Function KeyPressed: boolean; Значение true, если нажата любая клавиша |
Определяет, была ли нажата клавиша на клавиатуре |
Function ReadKey: char; Значение функции – код клавиши, нажатой на клавиатуре |
Считывает символ из буфера клавиатуры |
Управление курсором | |
Procedure GoToXY (x,y: integer); X,y – координаты курсора |
Перемещает курсор в указанные координаты экрана или окна вывода |
Function WhereX: integer; Значение функции – координата x курсора |
Определяет текущую горизонтальную координату курсора относительно окна |
Function WhereY: integer; Значение функции - координата Y курсора |
Определяет текущую вертикальную координату курсора относительно окна |
Управление звуком | |
Procedure NoSound; |
Выключает динамик |
Procedure Sound (hz: word); Hz – частота звука в герцах |
Включает звук динамика с заданной тональной частотой |
Управление временем | |
Procedure Delay (ms: word); Ms – значение задержки в миллисекундах |
Задержка исполнения программы на заданное число миллисекунд |