1.1. Як будується графік за допомогою компонента TChart

Зазвичай результати розрахунків представляються як графіків і діаграм. Система BUILDER має потужний пакет стандартних програм виведення на екран та редагування графічної інформації, який реалізується за допомогою візуально відображеного на формі компонента TChart.

Побудова графіка (діаграми) провадиться після обчислення таблиці значень функції y=f(x). Отримана таблиця з допомогою методу AddXY передається у спеціальний двовимірний масив Chart i .Series[ k ] компонента TСhart ( k – номер графіка (0,1,2. )). Компонент TChart здійснює всю роботу з відображення графіків: будує та розмічує осі, малює координатну сітку, підписує назву осей та самого графіка, відображає передану таблицю у вигляді різноманітних графіків чи діаграм.

1.2. Використання класу TСanvas

Для малювання в BUILDER використовується клас TСanvas, який є не самостійним компонентом, а властивістю багатьох компонентів, і є полотном (контекст GDI в Windows) з набором інструментів для малювання. Кожна точка полотна має координати. Початок осей координат розташовується у верхньому лівому куті полотна. Дані осі Х збільшуються зліва направо, а по осі Y зверху вниз.

Основні властивості класу TCanvas:

__property TPen* Pen – олівець (визначає параметри ліній);

__property TBrush* Brush – пензель (визначає фон та заповнення замкнутих фігур);

__property TFont* Font – шрифт (визначає параметри шрифту). Деякі методи класу TCanvas:

vo >креслить еліпс в охоплення-

прямокутнику (X1, Y1), (Х2, Y2). Заповнює внутрішній простір еліпса поточним пензлем;

допомогою

void __fastcall LineTo(int X, int Y) - креслить лінію від поточного положення пера до точки (X. Y);

void__fastcall MoveTo(int X, int Y ) – переміщує олівець у положення (X, Y)

без креслення ліній;

vo >викреслює олівцем багатокутник за точками, заданими в масиві Роints. Кінцева точка з'єднується з початковою та багатокутник заповнюється пензлем. Для креслення без заповнення використовуйте метод Polyline;

vo >викреслює та заповнює прямокутник (X1, Y1), (Х2, Y2). Для креслення без заповнення використовуйте

FrameRect або Polyline;

vo >– виводить текстовий рядок Техt так, щоб верхній лівий кут прямокутника, що охоплює текст, розташовувався в точці (X, Y).

1.3. Приклад написання програми

Завдання: Скласти програму, що відображає рух автомобіля з швидкістю, що змінюється. Вивести за допомогою компонента TChar графік швидкості.

1.3.1. Налаштування форми

Панель діалогу програми організується як, представленому на рис.1.1. Причому поле з автомобілем не видно на етапі налаштування форми та з'являється

будується

лише як результат виконання коду програми. Тому там форми, де передбачається робити висновок графічної інформації, слід залишити вільне місце.

Компонент TChart вводиться у форму шляхом натискання піктограми меню компонентів.

1.3.2. Робота з компонентом TChart

Для зміни параметрів компонента TChart необхідно двічі клацнути мишею у вікні форми. З'явиться вікно редагування EditingChat1 (рис. 1.2). Щоб створити новий об'єкт Series1, натисніть кнопку Add на сторінці

Series. У діалоговому вікні TeeChart Gallery, що з'явилося, вибрати піктограму з написом Line (графік виводиться у вигляді ліній). Якщо немає необхідності подавати графік у тривимірному вигляді, відключається незалежний перемикач 3D. Після натискання на кнопкуOK з'явиться нова серія під назвою Series1. Щоб змінити назву, натисніть кнопку Title. Назва графіка вводиться на сторінці Titles. Розмітка осей змінюється на сторінці Axis.

Дані осі X автоматично сортуються, тому, якщо необхідно намалювати, наприклад, коло, сортування відключають функцією Order :

Текст програми має вигляд:

#include #pragma hdrstop #include "lr01.h"

#pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)

Shar(int xx,int yy, TColor cc) // Виведення зображення машини

Встановлення кольору олівцяВстановлення кольору пензля

TPoint pnt [7]; pnt[0]=Point(xx+0,yy+20); pnt[1]=Point(xx+0,yy+40); pnt[2]=Point(xx+110,yy+40); pnt[3]=Point(xx+110,yy+20); pnt[4]=Point(xx+90,yy+20); pnt[5]=Point(xx+70,yy+0); pnt[6]=Point(xx+20,yy+0);

> // Кінець функції виведення зображення машини

void __fastcall TForm1::BitBtn2Click(TObject *Sender)