3.2. Использование стандартных модулей

3.2.1. Модуль Сrt. Работа с экраном в текстовом режиме

Практически любая программа использует дисплей для отображения вводимой и выводимой информации. Всю выводимую на экран дисплея информацию подразделяют на текстовую и графическую. Соответственно выделяют текстовый и графический режимы.

Для инициализации (установки) текстового режима используется процедура TextMode(Mode:word). Выполнение этой процедуры приводит к очистке экрана и активации указанного режима.

TextColor(Color:byte) - устанавливает цвет выводимых на экран символов.

TextBackGround(Color:byte) - устанавливает цвет фона, т.е. цвет области, которая окружает отображаемый на экране символ.

ClrScr - очищает активное окно и устанавливает курсор в верхний левый угол.

GotoXY(x,y:byte) - перемещает курсор в позицию с координатами X,Y в рамках активного окна.

WhereX - возвращает X-координату текущей позиции курсора.

WhereY - возвращает Y-координату текущей позиции курсора.

Для работы с клавиатурой в Crt предусмотрены следующие функции:

KeyPressed:boolean - возвращает значение True, если на клавиатуре была нажата какая-либо клавиша. В противном случае эта функция возвращает значение False.

ReadKey:char - считывает символ с клавиатуры. Считываемый символ на экране не отображается.

Практически любая программа, разработанная для ПЭВМ, использует дисплей для отображения вводимой и выводимой информации. В зависимости от типа используемого в ПЭВМ адаптера (ПЭВМ комплектуется одноцветным и цветным графическим адаптером) всю выводимую на экран дисплея информацию подразделяют на текстовую и графическую. Соответственно выделяют текстовый и графический режимы.

3.2.2. Модуль Graph . Работа с экраном в графическом режиме

Модуль Graph поддерживает графический режим работы дисплея. В этом режиме любое изображение на экране дисплея синтезируется из множества мельчайших элементов, называемых пикселями. Каждый пиксель представляет собой светящуюся точку таких размеров, при которых промежутки между отдельными пикселями отсутствуют. Если группа смежных пикселей светится, то они воспринимаются не как совокупность отдельных точек, а как сплошной участок. Таким образом, на экране дисплея может быть синтезировано любое графическое изображение.

В графическом режиме экран дисплея разделяется прямоугольной сеткой, каждый элемент которой имеет свои координаты. Левый верхний угол экрана имеет координаты (0,0). Значение левой координаты (X) увеличивается в горизонтальном направлении слева направо. Значение правой координаты (Y) увеличивается в вертикальном направлении сверху вниз. Количество точек по горизонтали и вертикали называется разрешающей способностью.

Координаты правой нижней границы экрана можно определить, используя функции GetMaxX и GetMaxY.

Реализация графического режима в ПЭВМ обеспечивается благодаря наличию специальной схемы, называемой графическим адаптером. ПЭВМ может комплектоваться следующими типами графических адаптеров: CGA, VCGA, EGA, VGA, Hercules, AT&T, PC-3270, IBM-8514. Работу графического адаптера поддерживает специальная программа, называемая драйвером. Загрузочный модуль драйвера хранится в специальном файле с расширением bgi. Используемый адаптер может функционировать в различных режимах.

Рассмотрим пример инициализации (установки) графического режима:

USES Graph;

VAR Gd,Gm:integer;

BEGIN

Gd:=Detect;

InitGraph(Gd,Gm,'');

IF GraphResult< >grOk THEN Halt(1);

...CloseGraph

END.

Графический режим инициализируется с помощью стандартной процедуры InitGraph. При этом переменным Gd и Gm необходимо указать номер адаптера и номер графического режима. Если переменной Gd предварительно присвоить значение константы Detect, описанной в модуле Graph (ее значение 0), то при загрузке драйвера программа выполнит автоматическое распознавание типа адаптера. При этом если есть выбор графических режимов, то устанавливается тот из них, который обеспечивает более высокое качество изображения. Третий параметр процедуры InitGraph - путь до файла с загрузочным модулем драйвера. Если путь отсутствует, то поиск этого файла будет осуществляться в текущем каталоге. Ошибки, которые могут возникать при инициализации графического режима, анализируют с помощью функции GraphResult. Для выхода из графического режима используется стандартная процедура CloseGraph. Эта процедура восстанавливает режим, существовавший до инициализации графики.

Для создания графических изображений модуль Graph предоставляет широкий набор процедур и функций. Рассмотрим точки и линии.

1. PutPixel(X,Y:integer;Color:word) - ставит на экране точку с координатами (X,Y) цвета Color.

2. Line(X1,Y1,X2,Y2:integer) - выводит на экран линию, соединяющую точки с координатами (X1,Y1) и (X2,Y2).

3. Rectangle(X1,Y1,X2,Y2:integer) - выводит на экран изображение прямоугольника с координатами диагонали (X1,Y1) и (X2,Y2).

4. Circle(X,Y:integer;Radius:word) - выводит на экран изображение окружности с координатами центра (X,Y) и радиусом (Radius).

5. Ellipse(X,Y :integer; StAngle, EndAngle, XRadius, YRadius: word) - выводит на экран изображение эллиптической дуги с центром в точке (X,Y) от начального угла StAngle до конечного угла EndAngle с горизонтальной полуосью XRadius и вертикальной YRadius. Отсчет углов осуществляется относительно горизонтальной оси в направлении против часовой стрелки (3 часа - 0, 12 часов - 90 и т.д.) Если StAngle=0, а EndAngle=360, то будет выведено изображение полного эллипса.

Установка цвета линий осуществляется процедурой SetColor(Color:integer). Цвет фона SetBkColor(Color:word).

Рассмотрим пример:

USES Graph;

VAR Gd,Gm:integer;

BEGIN

Gd:=Detect;

InitGraph(Gd,Gm,'d:\bp\bgi');

rectangle(100,50,200,100);

line(100,50,200,100);

line(100,100,200,50);

ellipse(150,75,0,360,50,25);

readln;

CloseGraph

END.