Дипломная работа: Графические возможности программирования в курсе информатики

Для работы графики её надо инициализировать, а для этого необходимо определить возможный графический режим. Для включения графического режима используется процедура: InitGraph (var driver, Mode : Integer; Path : String);.

Простейшая программа может иметь вид:

Program Primer_1;

Uses Graph;

Var Gd,Gm: Integer;

Begin

Gd:=VGA; {Графический адаптер – VGA}

Gm:=VGAHi; {Графический режим VGAHi (640x480)}

InitGraph (Gd,Gm,'..\bgi'); {Включить графический режим}

If GraphResult=grOk then {Если режим включился успешно}

Begin

{теперь можно вызывать графические процедуры }

…

…

CloseGraph; {Выключение графического режима}

End;

End.

У процедуры InitGraph три параметра. Первый параметр в этой процедуре задает тип видеоадаптера, второй определяет режим, а третий представляет собой строку с указанием расположения драйвера на диске.

Для завершения работы в графическом режиме необходимо всегда производить вызов процедуры CloseGraph. Очищает экран, переводит адаптер в текстовый режим.

Любое изображение на экране монитора формируется из отдельных элементов – пикселов (от английского pixel, возникшего в результате объединения слов «рисунок» (picture) и «элемент» (element)) которые можно закрасить в тот или иной цвет. Экран монитора можно рассматривать как матрицу пикселов. Для получения того или иного изображения на экране монитора как в графическом, так и в текстовом режимах необходимо заставить светиться строго определенную группу пикселов. В текстовом режиме на экран могут выводиться только определенные символы, образы которых хранятся в постоянной или оперативной памяти компьютера, а управление отдельными пикселями невозможно. В графическом режиме появляется возможность управления отдельными пикселями, что позволяет формировать любые изображения [34, с. 112].

Каждый пиксель имеет две координаты: x и y. Количество пикселей зависит от типа адаптера и режима его работы (рисунок 3). Значения xmax и ymax зависят от текущего графического видеорежима. В случае адаптера VGA и режима VGAHi xmax = 639, а ymax = 479.

В модуле Graph определены две функции GetMaxx и GetMaxy, возвращающие текущие значения параметров xmax и ymax, соответственно.

Рис. 3. Система координат

«Текущий указатель» (CP – Current Pointer) или, как его еще называют, графический курсор выполняет те же функции, что и курсор в текстовом режиме, однако является при этом невидимым. Положение графического курсора указывает на начальные координаты изображения графического примитива, выводимого «от текущей позиции». Текущий указатель перемещается специальными процедурами. В частности, процедура MoveTo (x, y); перемещает его в точку экрана, с координатами (x, y). Другая процедура – MoveRel (dx, dy); перемещает текущий указатель на dx пикселов по горизонтали и на dy пикселов по вертикали относительно последнего положения текущего указателя.

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

Вывод точки осуществляется процедурой PutPixel (x, y, Color), где x и y– экранные координаты точки, а Color – ее цвет.

Пример:

x := GetMaxx div 2; {Вывод красной точки в центр экрана}

y := GetMaxy div 2;

PutPixel (x, y, Red );

При выводе на экран точки ее цвет указывается непосредственно в процедуре PutPixel. Во всех остальных случаях, при построении графических примитивов (линий, прямоугольников, окружностей и т.п.), а также при выводе текста, цвет их контуров (цвет пера) задается специальной процедурой: SetColor (Color), где Color – цвет.

Для установки цвета фона графического экрана имеется процедура: SetBkColor (Color). При выполнении процедуры SetBkColor экран сразу же окрашивается в заданный цвет.

Для построения отрезков прямых имеется специальная процедура Line (x1, y1, x2, y2), где x1, y1 – координаты начала, а x2, y2 – координаты конца отрезка.

Пример программы. Изобразить треугольник с разноцветными краями.

Program Primer_2;

Uses Graph;

Var Gd,Gm: Integer;

Begin

Gd:=VGA; Gm:=VGAHi; InitGraph (Gd,Gm,'..\bgi');

If GraphResult=grOk

Then begin

SetColor (LightMagenta); {Цвет - светло-сиреневый}

Line (120,210,520,210); {Горизонтальный отрезок}

SetColor (LightCyan); {Цвет - светло-циановый}

Line (120, 210, 320, 10); {Левый катет}

Set Color (Green); {Цвет - зеленый}

Line (320, 10,520,210); {Правый катет}

ReadLn;

CloseGraph;

End

End.

Процедура LineTo (x, y) строит отрезок прямой из точки текущего положения указателя в точку с координатами x, y.

Turbo Pascal 7.0 позволяет вычерчивать линии самого различного стиля:

тонкие, широкие, пунктирные.

Установка стиля производится процедурой SetLineStyle (Style, Pattern, Thickness), где Style – параметр, определяющий стиль линии. Возможные значения этого параметра приведены в «таблице 1» [23, с. 143].

Таблица 1.

Стили линии

Pattern – образец; Thickness – толщина линии. Если применяется один из стандартных стилей, значение параметра Pattern должно быть равно 0.

Параметр Thickness может принимать всего два значения:

NormWidth = 1 – линия толщиной в один пиксел;

ThickWidth = 3 – линия толщиной в три пиксела.

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

Для построения прямоугольных фигур имеется несколько процедур. Первая из них – процедура вычерчивания одномерного прямоугольника: Rectangle (x1, y1, x2, y2), где x1, y1 – координаты верхнего левого угла, x2, y2 – координаты правого нижнего угла прямоугольника.

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18