10 Модуль crt. Процедуры и функции модуля crt

Процедура Delay

Delay(Ms:Word);

Задает задержку выполнения программы в милисекундах.

Процедура GotoXY

GotoXY(X,Y:Byte);

Устанавливает курсор в позицию экрана с координатами X,Y. Если значение какого-либо из параметров окажется некорректным, то вызов процедуры GotoXY будет проигнорирован.

Процедура TextBackground

TextBackground(Color:Byte);

Задает цвет фона.

Процедура TextColor

TextColor(Color:Byte);

Задает цвет символов.

Функции опроса клавиатуры (KeyPressed, ReadKey)

KeyPressed:BOOLEAN

Возвращает логическое значение TRUE, если в буфере клавиатуры содержится хотя бы один символ, т.е. была нажата клавиша, и FALSE, если буфер пуст, т.е. нажатия клавиши не произошло. Наиболее часто функция KeyPressed применяется в конструкциях типа: REPEAT UNTIL KeyPressed;

ReadKey: CHAR;

Функция считывает из буфера и возвращает в программу последний введенный символ. Если буфер пуст, то функция приостанавливает выполнение программы и ожидает нажатия клавиши. Символ, соответствующий нажатой клавише, не отобразится на экране. Это называется «ввод без эха на экране».

Процедура Window

Window(X1,Y1,X2,Y2)

Отображает на экране окно в текстовом режиме, определяемое как текущее. X1,Y1,X2,Y2- координаты окна и должны удовлетворять условиям:

1<= X1<=X2<=Xmax (Xmax=80)

1<= Y1<=Y2<=Ymax (Ymax=25)

Если эти условия не выполняются, то окно создано не будет. После выполнения процедуры Window все операции с экраном относятся к части, которая определена координатами X1,Y1,X2,Y2. при этом перемещение курсора происходит только в пределах текущего окна.

Пример:

USES Crt;

Var

X,Y,I,J,T:byte;

Ch:Char;

BEGIN

Randomize; {Инициализация генератора случайных чисел}

I:=0;

J:=15;

Repeat

TextBackground(1);

ClrScr;

X:=random(80); {Определение случайных координат X}

Y:=random(25); {и Y}

Window(X,Y,X+Random(20),Y+Random(20));

TextBackground(I); {Определение цвета экрана}

TextColor(J); {Определение цвета символов}

Write('Окно');

Inc(I); {Приращение цвета экрана}

Inc(J); {Приращение цвета символа}

IF J=16 Then J:=0;

IF I=16 Then I:=0;

Ch:=ReadKey;

Until Ch=#27; {#27 –ASCII-код клавиши Esc}

END.

11 Модуль Graph

11.1 Классификация типов драйверов и видеорежимов

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

Задание типа графического адаптера

Detect	=0	автоопределение
IBM8514	=6	адаптер 8514
VGA	=9	адаптер VGA

Возможные графические режимы для различных типов видеоадаптеров

Драйвер	Значение константы режима	Разрешение экрана (в точках)	Палитра	Число видеостраниц
VGA	0 1 2	640 X 200 640 X 350 640 X 480	16 цветов 16 цветов 16 цветов	4 2 1
IBM8514	0 1	640 X 480 1024 X 768	256 цветов 256 цветов	1 1