Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Программирование на Pascal / Delphi / Лекции по Паскалю2 / Иллюстрации к Лекции 7 по информатике.doc
Скачиваний:
29
Добавлен:
02.05.2014
Размер:
153.6 Кб
Скачать
    1. Стандартные модули

      1. Модуль сrt

        1. Управление экраном в текстовом режиме

Uses CRT;

Табл. 1

Наименование

процедуры

Параметры процедуры

Результат выполнения

процедуры

TextMode(N);

N=0

N - тип Word

(40x25)-CGA- ч. б.

Задание текстового режима работы монитора.

N=1

(40x25) -CGA,

Экран очищается, курсор устанавливается в позицию 1, 1.

Цвета исходные: белые символы на черном экране

Наибольшие значения координат

Хm:= Lo(WindMax)+1;

Ym:= Hi(WindMax)+1;

N=2

(80x25) -EGA, VGA,

N=3

(80x25) цветной

N=N+256

(80x43)-EGA цветной

Ym

(80x50)-VGA цветной

N=7

(80x25)-монохромный; (80 колонок х 25 строк );

Window(x1, y1, x2, y2);

x1, y1, x2, y2 - тип Byte

1 <= x1 < x2 <= Xm, 1 <= y1 < y2 <= Ym

в системе координат экрана.

Задание окна на экране. Курсор устанавливается в позицию (1, 1) в системе координат окна. Превышение координат экрана игнорируется.

TextBackGround(N);

N - тип Byte, 0 <=N<= 7

Назначение цвета фона. При N>7 N:= N mod 8

Clrscr;

Использование процедуры после TextBackGround(N); закрашивает активное окно

Очистка активного окна, экрана курсор устанавливается в позицию (1, 1). Закрашивание окна.

TextColor(N);

N - тип Byte 0 <=N<= 15 а также при N:= N + 128 вывод мерцающих символов -

Назначение цвета символов. При N>15, N:= N mod 16,

GotoXY(x, y);

x, y - тип Byte

Установка курсора в позицию ( x, y ) в системе координат активного окна, экрана.

InsLine;

Вставка пустой строки.

DelLine;

Удаление строки в позиции курсора.

ClrEol;

Стирание символов от позиции курсора до конца строки.

Процедуры управления яркостью символов:

повышенная (HighVideo;),

пониженная (LowVideo;)

нормальная (NormVideo;)

Функции, возвращающие номер текущего столбца (WhereX;) и строки (WhereY;), типа - Byte.

В процедурах TextBackGround(N); и TextColor(N); параметр N назначает цвета:

Табл. 2

0

Black, черный

8

DarkGray, темно-серый

1

Blue, синий

9

LightBlue, ярко-синий

2

Green, зеленый

10

LightGreen, ярко-зеленый

3

Cyan, голубой

11

LightCyan, ярко-голубой

4

Red, красный

12

LightRed, ярко-красный

5

Magenta, фиолетовый

13

LightMagenta, ярко-фиолетовый

6

Brown, коричневый

14

Yellow, желтый

7

LightGray, ярко-серый

15

White, белый

Мерцание символов можно получить, также задавая: N:= N + 128;

В процедурах TextBackGround(N); и TextColor(N); вместо N можно использовать наименование цвета, например:

N:=1; TextColor(N); { либо } TextColor(Blue);