Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Лаборатные работы (КПМП).DOC
Скачиваний:
0
Добавлен:
01.07.2025
Размер:
1.66 Mб
Скачать
  1. Порядок виконання роботи

  1. Ознайомтеся з першим пунктом даної лабораторної роботи.

  2. Створіть у середовищі ТР програму під ім'ям Proba2_1(1).pas.

  3. Підключіть модуль СRT і, використовуючи його методи, виведіть посредині екрана термінала повідомлення, у якому необхідно указати П І П розроблювачів.

  4. Унизу вікна вивести запрошення для подальшої роботи «Для продовження натисніть будь-яку клавішу».

  5. Після цього вивести посередині екрана вікно, у якому на синьому тлі білими буквами написати назву ВНЗ і факультет (цілком).

  6. Унизу вікна вивести запрошення для подальшої роботи «Для продовження натисніть будь-яку клавішу».

  7. Далі вивести наступне вікно, де на малиновому тлі миготливими буквами коричневого кольору вивести шифр групи.

  8. У завершенні очистити цілком екран, і вивести повідомлення «Завершити роботу <Y/N>». При одержанні позитивної відповіді завершити роботу програми.

  9. Збережіть зміни і відкомпілюйте програму. У випадку неуспішної компіляції виправте помилки і повторно відкомпілюйте програму.

  10. Створіть іншу програму Proba2_1(2).pas. Дана програма повинна змінювати режими монітора з З40 на З80 і навпаки із затримкою 5 с, до натискання клавіші завершення роботи. При зміні режиму необхідно видавати відповідне повідомлення.

  11. Результати роботи і листинги програм записати до звіту.

  1. Контрольні запитання

  1. Процедури і функції керування курсором.

  2. Особливості застосування процедур Highvideo, LowVideo, NormVideo.

  3. Зміна кольору тла і кольору виведеного тексту.

  4. Опишіть режими монітора.

  5. Особливості застосування функцій ReadKey: char, KeyPressed: boolean.

  6. Процедури керування звуком.

Лабораторна робота № 9

Тема. Вивчення основних процедур і функцій модуля Graph. Текстовий режим роботи в системі ТР 7.0

Мета: навчитися використовувати основні процедури і функції модуля Graph. Вивчити константи і змінні даного модуля

1 Загальні відомості

    1. Особливості використання модуля Graph

Модуль GRAPH реалізує повну бібліотеку графічних програм - від викликів процедур і функцій високого рівня, до програм, орієнтованих на роботу з бітами. Підтримується кілька видів зафарбовування і типів ліній, кілька шрифтів, які можна змінювати за величиною, вирівнювати й орієнтувати –горизонтально чи вертикально.

Для компіляції програми, що використовує модуль GRAPH, не потрібно ніяких зовнішніх файлів (крім, звичайно, вихідного тексту програми, компілятора і доступу до стандартних модулів у TURBO.TPL). Для запуску програми, - що використовує модуль GRAPH, крім програми з розширенням .ЕХЕ, буде потрібний один чи більше графічних драйверів (*.BGI), і потрібно також один чи декілька файлів шрифтів (*.CHR), якщо в програмі використовуються які-небудь шрифти. Відповідно до ліцензійних умов можна поширювати файли .CHR і .BGI поряд із програмами.

Основні процедури і функції даного модуля подані в таблиці

Опис.

Застосування.

InitGraph(var граф_драйвер: integer; var граф_режим: integer;шлях_драйвер: string);

Ініціює графічну систему і переводить апаратуру в графічний режим

Arc(X,Y: integer; нач_кут, кін_кут, радіус: word);

Викреслює дугу кола від початкового кута до кінцевого кута. Точка (х, у) використовується як центр кола.

Ваr(х1, yl, х2, у2: integer);

Рисує колонку, використовуючи стандартний тип і колір зафарбування.

Bar3D(x1,y1,x2,y2: integer; глибина: word; вершина: boolean);

Використовуючи поточний тип і колір зафарбування, рисує тривимірний паралелепіпед

Circle (X,У:integer; радіус: word);

Малює коло. Точка (х, у) вважається центром кола

ClearDevice;

Скидає стан поточного графічного екрана і підготовлює його для виводу даних

ClearViewPort;

Очищає поточну область екрана (вікно).

CloseGraph

Припиняє роботу графічної системи

DrawPoly(числ_коорд: word; var коорд_верш) ;

Використовуючи поточний тип прямої та поточний колір, малює контур многокутника.

Ellipse (X,У: integer; нач_кут, кін_кут: word; радХ,раду: word);

Малює еліптичну дугу від початкового кута до кінцевого, використовуючи (x, у) як точку центра

FillEllipse (X,У: integer; Храдиус,Yрадиус: word);

Рисує зафарбований еліпс

GetBkColor: word;

Повертає поточне значення фонового кольору

Line (xl, yl, x2, y2: integer);

Рисує пряму лінію з точки (xl, у1) до точки (х2, у2)

LineRel (Дх, Ду) ;

Проводить пряму в точку, задану відносною відстанню від поточного покажчика

LineTo(x,у: integer);

Рисує пряму лінію з точки, у якій знаходиться поточний покажчик, у точку (х, у)

MoveRel(Дх,Ду: integer) ;

Переміщає поточний покажчик на відстань, задана відносними координатами від його поточної позиції

MoveTo (х,у: integer);

Переміщає поточний графічний покажчик (СР) у точку (х,у)

OutText (рядок: string);

Пересилає рядок на пристрій виводу в те місце, у якому знаходиться поточний покажчик

PieSlice (х,у: integer; нач_кут,кін_кут,радіус: word);

Рисує і заповнює кольором сектор кола

PutPixel (х,у: integer;эл_изображ: word);

Будує елемент зображення в точці (х, у)

Rectangle(xl,yl,x2,x2: integer);

Рисує прямокутник, використовуючи поточний колір і тип рядка

Sector (х,у: integer; нач_кут,кін_кут,ХРадиус,YРадиус: word);

Викреслює і заповнює еліптичний сектор

RestoreCrtMode;

Повертає режим екрана у вихідний стан

SetActivePage(сторінка: word);

Установлює для графічного виводу активну сторінку

SetAspectRatio(Xacn,Уасл,: word):word;

Змінює прийняте за умовчанням значення коефіцієнта відносного подовження

SetBkColor(колір: word);

Використовуючи палітру, установлює поточний фоновий колір

SetColor (колір: word);

Використовуючи палітру, установлює поточний колір рисунка

SetLineStyle (тип_рядка: word; зразок: word; товщина: word);

Установлює поточну товщину і тип лінії

SetTextJustify(гориз,верт: word);

Установлює значення вирівнювання тексту

SetTextStyle (шрифт: word; напрямок: word; разм_символу: CharSizeType);

Установлює поточний шрифт, тип і коефіцієнт розміру символу

SetViewport (xl,yl,x2,y2: word; отсек: boolean);

Установлює для графічного виводу поточну область (вікно) для перегляду

SetVisualPage (сторінка: word);

Задає номер відображуваної графічної сторінки