Побудова динамічної графіки

МІНІСТЕРСВО ОСВІТИ І НАУКИ УКРАЇНИ

ЧЕРКАСЬКИЙ ДЕРЖАВНИЙ ТЕХНОЛОГІЧНИЙ УНІВЕРСИТЕТ

ФАКУЛЬТЕТ ФІТІС

КАФЕДРА КОМП’ЮТЕРНИХ СИСТЕМ

КУРСОВИЙ ПРОЕКТ

з дисципліни ”Програмування”

не тему: ”Побудова динамічної графіки”

ЧДТУ 03 ****.001 ПЗ

Пояснювальна записка

Керівник: Виконав:

асистент кафедри КС студент І-го курсу

Ярошевич Д.О. групи КМ-311

Кулинич Євгеній

допущено до захисту: _______________

”___”_________2004р. (підпис)

захищено з оцінкою:

_________________

”___”_________2004р.

_________________

(підпис)

Черкаси 2004

ЗМІСТ

1. Теоретичні відомості 2

2.Блок-схема. 2

3.Текст програми. 2

4.Результати роботи програми. 2

1. Теоретичні відомості

• Процедури і функції
• Координати, вікна, сторінки
• Багатокутники
• Дуги, кола, еліпси
• Фарби, палітри, заповнення
• Збереження і видача зображень
• Виведення тексту
• Включення драйвера і шрифтів в тіло програми

Починаючи з версією 4.0, до складу Турбо Паскаля включена могутня бібліотека графічних підпрограм Graph, що залишається практично незмінною у всіх подальших версіях. Бібліотека містить в цілому більше 50 процедур і функцій, що надають програмісту найрізноманітніші можливості управління графічним екраном. Для полегшення знайомства з бібліотекою всі процедури і функції, що входять до неї, згруповані за функціональним принципом.

· Процедури і функції

Процедура InitGraph. Ініціює графічний режим роботи адаптера.

Заголовок процедури:

Procedure InitGraph(var Driver,Mode: Integer; Path: String);

Тут Driver - змінна типу Integer, визначає тип графічного драйвера; Mode - змінна того ж типу, задаюча режим роботи графічного адаптера; Path - вираз типа String, що містить ім'я файлу драйвера і, можливо, маршрут його пошуку.

До моменту виклику процедури на одному з дискових носіїв інформації повинен знаходитися файл, що містить потрібний графічний драйвер. Процедура завантажує цей драйвер в оперативну пам'ять і переводить адаптер в графічний режим роботи. Тип драйвера повинен відповідати типу графічного адаптера. Для вказівки типу драйвера в модулі приречені наступні константи:

const

Detect=0;{Режим автовизначення типу}

CGA=1;

MCGA=2;

EGA=3;

EGA64=4;

EGAMono=5;

IBM8514=6;

HercMono=7;

ATT400=8;

VGA=9;

PC3270=10;

Більшість адаптерів може працювати в різних режимах. Для того, щоб вказати адаптеру необхідний режим роботи, використовується змінна Mode, значенням якої у момент звернення до процедури можуть бути такі константи:

const
{ Адаптер CGA : }
CGACO = 0;	{Низьке розширення, палітра 0}
CGAC1 = 1;	{ Низьке розширення, палітра 1}
CGAC2 = 2;	{ Низьке розширення, палітра 2}
CGAC3 = 3;	{ Низьке розширення, палітра 3}
CGAHi = 4;	{ Високе розширення }
{Адаптер MCGA:}
MCGACO = 0;	{Емуляція CGACO}
MCGAC1 = 1;	{Емуляція CGAC1}
MCGAC2 = 2;	{Емуляція CGAC2}
MCGAC3 = 3;	{Емуляція CGAC3}
MCGAMed = 4;	{Емуляція CGAHi}
MCGAHi = 5;	{640x480}
{Адаптер EGA :}
EGALo = 0;	{640x200, 16 кольорів}
EGAHi = 1;	{640x350, 16 кольорів}
EGAMonoHi = 3;	{640x350, 2 кольори}
{Адаптери HGC і	HGC+:}
HercMonoHi = 0;	{720x348}
{АдаптерАТТ400:}
ATT400CO = 0;	{Аналог режиму CGACO}
ATT400C1 = 1;	(Аналог режиму CGAC1}
ATT400C2 = 2;	{Аналог режиму CGAC2}
ATT400C3 = 3;	{Аналог режиму CGAC3}
ATT400Med = 4;	{Аналог режиму CGAHi}
ATT400H1 = 5;	{640x400, 2 кольори}

{Адаптер VGA:}

VGALo = 0; {640x200}

VGAMed = 1; {640x350}

VGAHi = 2; {640x480}

PC3270H1 = 0; {Аналог HercMonoHi}

{Адаптер 1ВМ8514}

IBM8514LO =0; {640x480, 256 кольорів}

IBM8514H1 = 1; {1024x768, 256 кольорів}

Нехай, наприклад, драйвер CGA.BGI знаходиться в каталозі TPBGI на диску З і встановлюється режим роботи 320x200 з палітрою 2. Тоді звернення до процедури буде таким:

Uses Graph;

var

Driver, Mode : Integer;

begin

Driver := CGA;{Драйвер}

Mode := CGAC2;{Режим роботи}

InitGraph(Driver, Mode,' З:TPBGI');

.......

Якщо тип адаптера ПК невідомий або якщо програма розрахована на роботу з будь-яким адаптером, використовується звернення до процедури з вимогою автоматичного визначення типу драйвера:

Driver := Detect;

InitGraph(Driver, Mode, 'C:TPBGI');