Приклад № 2 з розробки графічного

меню команд до прикладної програми С++

Розглянемо методику розробки і програмування другого варіанту графічного меню комад у програмі С++ з контрольної роботи № 4, щоб показати, як можно змінювати вигляд різноманітних графічних меню команд та яки дії користувача і розроблені матеріали до прикладної програми залишаються стандартними, коли структура графічного меню команд буде віповідати рис. 8-2 та рис. 2-2.

Програма С++ повинна мати графічне меню команд у іншому вигляді і працювати за таким варіантом обробки рисунків кнопок з назвами команд. У лівій частині Form1 будут розташовані 4 компоненти Image — Image19, Image20, Image21 та Image22. В них програма С++ буде завантажувати рисунки кнопок до графічного меню. В залежності від того, яке підменю основного графічного меню визначено користувачем, тоді у ці компоненти відповідно розміщуватимуться інши рисунки кнопок. Залежність рисунков кнопок до команд графічного меню програми докладно показана у таблицях № 8-1 та № 8-2. Переміщення по підкомандам меню програми здійснюється за допомогою натискання лівої кнопкі маніпулятора “мишка”. Компонента Image22 слугує для виходу з самої прикладної програми, або повернення у попередній підпункт меню. В основі дії 2 варіанта програми С++ лежить використання двох змінних — ur та sh. Змінна sh використовується для запобігання мерехтіння зображення на екрані при багаторазовому звертанні до підменю “Схема” з меню команд “Технологія”. Змінна ur допомогає зробити можливим використання лише 4 компонент Image за рахунок присвоєння цій змінній різних значень в залежності від поточного підпункту меню команд програми С++ та перевірки цих значень при допомозі умовних операторів. Відповідні значення змінної ur показані під таблицями № 8-1 та № 8-2. Усі необхідні рисунки з кнопками і відповідними написами для графічного меню команд прикладної програми С++ створюються у програмі графічного редактора. Для створення графічного меню команд у прикладній програмі С++ потрібно в середовищи С++ Builder виконувати таки наступні кроки і дії.

Крок 1. Створюємо новий проект для програми С++ з контрольної роботи № 4. Виконуємо команду File/New/Application для створення чистої форми Form1. Переходимо у вікно інспектора об’єктів та у полі Caption задаємо назву прикладної програми: “Мнемосхема технологічного процесу виробництва хлорметанів”. Виконуємо команду File/Save та задаємо назву проекту і файлам (*.cpp) з розробляємої програми.

 

 

Таблиця № 8-1. Залежності до основного графічного меню команд.

Компонента	Зображення у компоненті
Panel1	Меню	Технологія	Апарати	Інформація
Image19	Технологія	Схема	Хлоратор	Про програму
Image20	Апарати	Опис схеми	Абсорбер	Література
Image21	Інформація	Продукція	Розріджувач лугу	<Пусто>
Image22	Вихід	Назад	Назад	Назад
Значення ur

 

Таблиця № 8-2. Залежності до графічного підменю “Апарати”.

Компонента	Зображення у компоненті
Panel1	Хлоратор	Абсорбер	Розріджувач лугу
Image19	Конструкція	Конструкція	Конструкція
Image20	Опис процесу	Опис процесу	Опис процесу
Image21	Параметри	Параметри	Параметри
Image22	Назад	Назад	Назад
Значення ur

 

Крок 2. Встановлюємо на Form1 компоненту Image з сторінки Additional у бібліотеці компонентів та маркерною рамкою визначаємо розмір бажаного поля для розміщення мнемосхеми технологічного процесу, як основного фону прикладної програми С++. Якщо потрібно розмір форми можна також змінити.

Крок 3. Встановлюємо на Form1 компоненту Label з сторінки Additional у бібліотеці компонентів та розміщуємо його у лівий нижній край форми.

Крок 4. Натискаємо лівою кнопкою миші на формі по полю Image1 та у віуні інспектора об’єктів у полі Picture натискаємо на значок з трьома крапками. Кнопкою Load вказуємо шлях розташування рисунка мнемосхеми хімічного виробництва (хлорметанів) у форматі (*.bmp) та натискаємо “ Открыть ” у вікні Picture Editor і далі натискаємо “ ОК ”. Правою кнопкою мишки натискаємо на поле Image1 та виконуємо команду Control/send to back.

Крок 5. На рисунку мнемосхеми, що завантажився у поле Image1, за допомогою компоненти Image з сторінки Additional створюємо окремі поля навколо кожного з апаратів на мнемосхемі (Image2…..Image18), аналогічно як показано на рис. 4.2-1.

Крок 6. На Form1 відповідно до рис. 8-2 розміщуємо компоненти Image19, Image20, Image21 і Image22 з сторінки Additional бібліотеки і Panel1 з сторінки Standard для подальшого завантаження у них рисунків кнопок, які будуть складати графічне меню прикладної програми С++.

Компонентам Image19, Image20, Image21 і Image22 у вікні інспектора об’єктів задаємо значення до розмірив: у полі Width «185» і у полі Height «105». Компоненті Panel1 у вікні інспектора об’єктів задаємо розміри: у полі Width «185» і у полі Height «49».

Крок 7. Задаємо у Label1 відображення підказки з назви апарату при переміщенні маніпулятора “мишка” по мнемосхеме, завантаженої у Image1.

Натискаємо мишкою на Image1 і у вікні інспектора об’єктів обираємо Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у функцію Image1MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption=("");

}

//---------------------------------------------------------------------------

Далі натискаємо на Image2 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням лівої кнопки мишки переходимо до вікна редактора коду і у функцію Image2MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image2MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("3 - Змішувач");

}

//---------------------------------------------------------------------------

Також натискаємо на Image3 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у функцію Image3MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image3MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("4 - Хлоратор");

}

//---------------------------------------------------------------------------

Далі натискаємо на Image4 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у функцію Image4MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image4MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("1 - Змішувач");

}

//---------------------------------------------------------------------------

Натискаємо на Image5 і у вікні інспектора об’єктів обираємо вкладку

 

 

Рис. 8-2. Схема розміщення на Form1 компонент Image19,

Image20, Image21, Image22 та Label2.

 

 

Events та у полі OnMouseMove подвійним натисканням кнопки мишки

переходимо до вікна редактора коду, де у функцію Image5MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image5MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("2 - Підігрівник");

}

//---------------------------------------------------------------------------

Натискаємо на Image6 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image6MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image6MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("1 - Сажовловлювач");

}

//---------------------------------------------------------------------------

Натискаємо на Image7 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image7MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image7MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("16 - Сепаратор");

}

//---------------------------------------------------------------------------

Натискаємо на Image8 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image8MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image8MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("10 – Графітовий холодильник");

}

//---------------------------------------------------------------------------

Натискаємо на Image9 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image9MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image9MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("7 – Абсорбер");

}

//---------------------------------------------------------------------------

Натискаємо на Image10 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image10MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image10MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("8 – Абсорбер");

}

//---------------------------------------------------------------------------

Натискаємо на Image11 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image11MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image11MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("9 – Розріджувач лугу");

}

//---------------------------------------------------------------------------

Натискаємо на Image12 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image12MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image12MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("11 – Збірник концентрованої соляної кислоти");

}

//---------------------------------------------------------------------------

Натискаємо на Image13 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду де у шаблон функції Image13MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image13MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("12 – Компресор");

}

//---------------------------------------------------------------------------

Натискаємо на Image14 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де шаблон функції Image14MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image14MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("15 – Фільтр");

}

//---------------------------------------------------------------------------

Натискаємо на Image15 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image15MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image15MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("14 – Конденсатор");

}

//---------------------------------------------------------------------------

Натискаємо на Image16 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image16MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image16MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("15 – Осушувачі");

}

//---------------------------------------------------------------------------

Натискаємо на Image17 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image17MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image17MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("17 – Розріджувач лугу");

}

//---------------------------------------------------------------------------

Натискаємо на Image18 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image18MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image18MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("6 – Повітряний холодильник");

}

//---------------------------------------------------------------------------

Крок 7. Натискаємо лівою кнопкою мишки на формі по полю Image1 та у вікні інспектора об’єктів у полі Picture натискаємо на значок з трьома крапками. Кнопкою Clear видаляємо малюнок фону та натискаємо “ ОК ”.

Крок 8. Задаємо для Image1 завантаження рисунка мнемосхеми та рисунків кнопок до команд графічного меню у Image19, Image20, Image2 1 і Image22, яки з’являются на екрані при старті прикладної програми С++.

На вільному просторі форми Form1 натискаємо лівою кнопкою мишки. У вікні інспектора об’єктів обираємо Events та подвійним натисканням мишки у полі OnCreate переходимо до вікна редактора коду прикладної програми. Далі у функцію FormCreate необхідно додати оператори для завантаження фону в Image1 та рисунків кнопок з командами до графічного меню у Image19 ……..…. Image39. Також необхідно зробити невидимими поля Image2 …… Image18 та активізувати інший візуальний курсор мишки на полях Image19, Image20, Image21 і Image22:

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Image19->Picture->LoadFromFile("Data/Icons/Технологія_1.bmp");

Image20->Picture->LoadFromFile("Data/Icons/Апарати_1.bmp");

Image21->Picture->LoadFromFile("Data/Icons/Інформація_1.bmp");

Image22->Picture->LoadFromFile("Data/Icons/Вихід_1.bmp");

Image1->Picture->LoadFromFile("Data/Main/Background.bmp");

Image2->Visible = false;

Image3->Visible = false;

Image4->Visible = false;

Image5->Visible = false;

Image6->Visible = false;

Image7->Visible = false;

Image8->Visible = false;

Image9->Visible = false;

Image10->Visible = false;

Image11->Visible = false;

Image12->Visible = false;

Image13->Visible = false;

Image14->Visible = false;

Image15->Visible = false;

Image16->Visible = false;

Image17->Visible = false;

Image18->Visible = false;

Image19->Cursor = crHandPoint;

Image20->Cursor = crHandPoint;

Image21->Cursor = crHandPoint;

Image22->Cursor = crHandPoint;

}

//---------------------------------------------------------------------------

Крок 9. Переходимо на форму Form1 і натискаємо на Image3. У вікні інспектора об’єктів у полі Cursor обираємо crHandPoint і вкладку Events та у полі OnClick подвійним натисканням мишки переходимо до редактора коду, де у шаблон функції Image3Click додаємо текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image3Click(TObject *Sender)

{

Form3->Caption="Конструкція хлоратора";

Form3->Image1->Picture->LoadFromFile("Data/Device1/Device.bmp");

Form3->ShowModal();

}

//---------------------------------------------------------------------------

Крок 10. Переходимо на форму Form1 і натискаємо на Image9. У вікні інспектора об’єктів у полі Cursor обираємо crHandPoint і вкладку Events та у полі OnClick подвійним натисканням кнопки мишки переходимо до вікна редактора коду, де у функцію Image9Click додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image9Click(TObject *Sender)

{

Form3->Caption="Конструкція абсорбера";

Form3->Image1->Picture->LoadFromFile("Data/Device2/Device.bmp");

Form3->ShowModal();

}

//---------------------------------------------------------------------------

Крок 11. Переходимо на форму Form1 і натискаємо на Image10. У вікні інспектора об’єктів у полі Cursor обираємо crHandPoint і вкладку Events та у полі OnClick подвійним натисканням кнопки мишки переходимо до вікна редактора коду, де у шаблон функції Image10Click додаємо текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image10Click(TObject *Sender)

{

Form3->Caption="Конструкція абсорбера";

Form3->Image1->Picture->LoadFromFile("Data/Device2/Device.bmp");

Form3->ShowModal();

}

//---------------------------------------------------------------------------

Крок 12. Переходимо на форму Form1 та натискаємо на Image11. У вікні інспектора об’єктів у полі Cursor обираємо crHandPoint і вкладку Events та у полі OnClick подвійним натисканням кнопки мишки переходимо до вікна редактора коду, де у шаблон функції Image11Click додаємо текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image11Click(TObject *Sender)

{

Form3->Caption="Конструкція розріджувача лугу";

Form3->Image1->Picture->LoadFromFile("Data/Device3/Device.bmp");

Form3->ShowModal();

}

//---------------------------------------------------------------------------

Тепер при натисканні на компонентах Image, яки розташовані у вікні на місцях назв апаратів: “Хлоратор”, “Абсорбер” i “Розріджувач лугу” буде відкриватися форма Form3 з окремим рисунком схеми відповідного апарату.

Папка “Data” знаходиться у папці з файлами проекту прикладної програми. Файл “Background.bmp” є основним фоновим рисунком у вікні прикладної програми С++ з контрольної роботи № 4 (варіант графічного меню № 2). Файли з папки “Data/Icons” є рисунками кнопок до команд графічного меню програми. Файли з індексом 1 відповідають пасивному стану кнопок у меню команд, а файли з індексом 2 відповідають активному стану кнопки. Далі створюємо додаткові форми, які знадобляться для відображення інформації при виконанні підкоманд графічного меню команд.

Створення і налаштування форми Form2.

Крок 1. Виконуємо команду File/New/Form для створення нової чистої форми Form2. Встановлюємо на Form2 компоненту RichEdit з сторінки Win32 у бібліотеці компонентів. Натискаємо на новостворену компоненту RichEdit1 та у полі Align інспектора об’єктів обираємо a lClient. Таким чином RichEdit1 буде розтягуватись на екрані до розмірів форми Form2.

Створення і налаштування форми Form3.

Крок 1. Виконуємо команду File/New/Form для створення нової чистої форми Form3. Через дерево об’єктів обираємо Form3 та у полі AutoSize інспектора об’ктів обираємо true. Встановлюємо на Form3 компоненту Image з сторінки Additional у бібліотеці компонентів. Натискаємо на полі новоствореної компоненти Image1 і у полі Width вікна інспектора об’єктів вводимо розмір «385», а у полі Height вводимо розмір «497».

Створення і налаштування форми Form4.

Крок 1. Виконуємо команду File/New/Form для створення нової чистої форми Form4. Встановлюємо на полі Form4 компоненту Chart з сторінки Additional у бібліотеці компонентів.

Крок 2. Натискаємо правою кнопкою мишки на полі новоствореної компоненти Chart1 та обираємо Edit Chart. Далі переходимо на вкладку Chart/Series, натискаємо Add, обираємо Fast Line та натискаємо “ ОК ”. Переходимо у вкладку Chart/Titles та у полі вводу набираємо для параметру назву “ Температура ”. Переходимо у вкладку Chart/Legend та знімаємо галочку з пункту Visible. Натискаємо Close та виходимо з меню Edit Chart.

Крок 3. Встановлюємо на нолі Form4 компоненту Chart з сторінки Additional у бібліотеці компонентів.

Крок 4. Натискаємо правою кнопкою мишки на полі новоствореної компоненти Chart2 та обираємо Edit Chart. Далі переходимо на вкладку Chart/Series, натискаємо Add, обираємо Fast Line та натискаємо “ ОК ”. Переходимо у вкладку Chart/Titles та у полі вводу набираємо для параметру назву “ Витрата сировини ”. Переходимо у вкладку Chart/Legend та знімаємо галочку з пункту Visible. Натискаємо Close та виходимо з меню Edit Chart.

Крок 5. У дереві об’єктів обираємо Form4. У вікні інспектора об’єктів обираємо вкладку Events та у полі OnCreate подвійним натисканням кнопки мишки переходимо до вікна редактора коду і у функцію FormCreate додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm4::FormCreate(TObject *Sender)

{

for (int i=0; i<=10; i++)

{

Series1->AddXY(i+cos(i),13*i*i,"",clRed);

Series2->AddXY(12*i*i+25, i*i+15*i,"",clRed);

}

}

//---------------------------------------------------------------------------

Створення і налаштування форми Form5.

Крок 1. Виконуємо команду File/New/Form для створення нової чистої форми Form5. Встановлюємо на полі Form5 компоненту Chart з сторінки Additional у бібліотеці компонентів.

Крок 2. Натискаємо правою кнопкою мишки на полі новоствореної компоненти Chart1 та обираємо Edit Chart. Далі переходимо на вкладку Chart/Series, натискаємо Add, обираємо Fast Line та натискаємо “ ОК ”. Переходимо у вкладку Chart/Titles та у полі вводу набираємо для параметру назву “ Температура ”. Переходимо у вкладку Chart/Legend та знімаємо галочку з пункту Visible. Натискаємо Close та виходимо з меню Edit Chart.

Крок 3. Встановлюємо на полі Form5 компоненту Chart з сторінки Additional у бібліотеці компонентів.

Крок 4. Натискаємо правою кнопкою мишки на полі новоствореної компоненти Chart2 та обираємо Edit Chart. Далі переходимо на вкладку Chart/Series, натискаємо Add, обираємо Fast Line та натискаємо “ ОК ”. Переходимо у вкладку Chart/Titles та у полі вводу набираємо для параметру “ Витрата сировини ”. Переходимо у вкладку Chart/Legend та знімаємо галочку з пункту Visible. Натискаємо Close та виходимо з меню Edit Chart.

Крок 5. У дереві об’єктів обираємо Form5. У вікні інспектора об’єктів обираємо вкладку Events та у полі OnCreate подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції FormCreate додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm5::FormCreate(TObject *Sender)

{

for (int i=0; i<=10; i++)

{

Series1->AddXY(i+sin(i),13*i*i,"",clRed);

Series2->AddXY(14*i+25*i*sin(i), cos(i)*i*i*i+15*i,"",clRed);

}

}

//---------------------------------------------------------------------------

Створення і налаштування форми Form6.

Крок 1. Виконуємо команду File/New/Form для створення нової чистої форми Form6. Встановлюємо на Form6 компоненту Chart з сторінки Additional у бібліотеці компонентів.

Крок 2. Натискаємо правою кнопкою мишки на полі новоствореної компоненти Chart1 та обираємо Edit Chart. Далі переходимо на вкладку Chart/Series, натискаємо Add, обираємо Fast Line та натискаємо “ ОК ”. Переходимо у вкладку Chart/Titles та у полі вводу набираємо для параметру назву “ Температура ”. Переходимо у вкладку Chart/Legend та знімаємо галочку з пункту Visible. Натискаємо Close та виходимо з меню Edit Chart.

Крок 3. Встановлюємо на полі Form6 компоненту Chart з сторінки Additional у бібліотеці компонентів.

Крок 4. Натискаємо правою кнопкою мишки на полі новоствореної компоненти Chart2 та обираємо Edit Chart. Далі переходимо на вкладку Chart/Series, натискаємо Add, обираємо Fast Line та натискаємо “ ОК ”. Переходимо у вкладку Chart/Titles та у полі вводу набираємо для параметру “ Витрата сировини ”. Переходимо на вкладку Chart/Legend та знімаємо галочку з пункту Visible. Натискаємо Close та виходимо з меню Edit Chart.

Крок 5. У дереві об’єктів обираємо Form6 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnCreate подвійним натисканням мишки переходимо до вікна редактора коду, де у функцію FormCreate додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm6::FormCreate(TObject *Sender)

{

for (int i=0; i<=10; i++)

{

Series1->AddXY(i+tan(i),13*i*i,"",clRed);

Series2->AddXY(13*i+25*tan(i), exp(i)*i*i+15*i,"",clRed);

}

}

//---------------------------------------------------------------------------

Створення і налаштування форми AboutBox.

Крок 1. Виконуємо команду File/New/Other та обираємо там Aboutbox для створення нової форми AboutBox. Через дерево об’єктів обираємо форму AboutBox та у полі Caption інспектора об’ктів вводимо “Про програму”.

Крок 2. Через дерево об’єктів обираємо Copyright та у полі Caption інспектора об’ктів вводимо “ Розробив _ПІБ ”.

Крок 3. Через дерево об’єктів обираємо Label1 та у полі Caption інспектора об’ктів вводимо “ Група _№ групи ”.

Крок 4. Через дерево об’єктів обираємо ProductName та у інспекторі об’ктів в полі Caption вводимо “ Контрольна робота ”.

Крок 5. Через дерево об’єктів обираємо Version і у вікні інспектора об’ктів в полі Caption вводимо “ Версія 2.0” та у вікні редактора коду з верху додамо наступний текст:

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//--------- Об’ява допоміжних змінних -------------------------------------

int ur=0;

int sh=0;

 

Це дає змогу викликати на виконання Form2, Form3, Form4, Form5, Form6 i Form7 знаходячись на формі Form1. Також ми введемо ряд змінних, які допоможуть нам реалізувати роботу графічного меню та уникнення певних проблем (запобігання мерехтіння зображень і т.п.).