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

Проілюструємо все сказане вище на прикладі створення віконної прикладної програми.

Завдання

Створити проект мовою Object Pascal, використовуючи стандартні об'єкти Delphi для обчислення функції y(x), якщо значення x змінюється от Х_{початкового} до Х_{кінцевого}.

Об'єкти: Form, Label, Edit, Button, CheckBox, GroupBox, Memo, Chart.

Рішення

Наведемо покроковий опис процесу створення віконної прикладної програми.

1. Загрузити середовище візуального програмування Delphi.

2. Для створення нового проекту скористуємось командою головного меню File  New  Application або, якщо Ви тільки що завантажили середовище Delphi, можна відразу приступати до створення нового проекту.

3. Змінити заголовок форми на «Табулирование функции» («Табулювання функції» без комірок).

4. Розмістити на формі поля редагування і відповідні їм текстові поля «Левая граница», «Правая граница», «Шаг» (см. Рис. 6). Текст в цих текстових полях вирівняти по центру.

5. Вставьте в форму панель групи об’єктів (об’єкт типу GroupBox).

Змінити значення властивості Caption цього об’єкту на слово «Выход»(«Вихід» без комірок). Розмір, стиль і колір шрифта виберіть за бажанням.

6. Вставьте на панель три прапорця (Об’єкти типа CheckBox). Змінити значення властивості Caption цих об’єктів – «На экран», «В файл» і «На график». Розмір, стиль і колір шрифта виберіть за бажанням.

7. Вставьте в форму многострочное поле редагування (Об’єкт типа Memo). Значення властивості ScrollBars (наявність смуг прокрутки) цього об’єкта задається як ssBoth (наявність смуг – вертикальної і горизонтальної).

8. Вставить на форму об’єкти для опрацювання дій: «Вычислить»(«Обчислити»), «Очистить»(«Очистити»), «Выход»(«Вихід»).

9. Збережіть проект. (File  Save all).

10. Очистити властивість Text компонентів типа Edit.

11. Видалити із многострочного поля редагування слово Memo1.

Для цього в вікні Оbject Inspector змінити значення властивості Lines (строкі) об’єкта Memo1. Визвіть вікно редагування цей властивості (вікно String list editor – редактор многострочного поля), натисніть на кнопку. Видалити слово Memo1 і для завершення роботи з вікном натисніть кнопку OК.

12. Вставьте на форму об’єкт Chart, закладка Additional (см. Рис. 8).

Рис. 8. Компонент Chart

13.Натискаем на цей об’єкт два рази. Вибираємо закладку Series (рис. 9а). Натиснути кнопку Add. Вибираємо тип графіка (рис. 9б). Зняти прапорець 3D. Натиснути кнопку Ok. На закладці Titles задаємо заголовок графіка. На закладці Legend зняти метку з властивості Visible для того, щоб прибрати список значень функції. Потім натискаємо на кнопку Close.

Рис. 9а. Вікно редагування властивостей об’єктів Chart

Рис.9б. Вікно вибору типу графіка

14. Запрограмуємо команду “Вычислить”(«Обчислити»).

Двічі натискаємо на “Вычислить”(«Обчислити») лівою клавішею миши. В результаті активізуємо вікно текста програми з заголовком процедури Button1Click, яка буде опрацьовувати команду “Вычислить”(«Обчислити»). Необхідно вставити текст програми – обробки цієї команди.

Для переводу строк в числові типи використовують функцію StrToFloat і зворотно – функцію FloatToStrF.

Властивість Lines об’єкта типа Memo комплексне, тобто вона є об’єкт з своїми властивостями і методами. Результат роботи програми – це таблиця, яка має декілька строк. Для додавання до поля Memo1 нової строки таблиці, потрібно змінити значення властивості Lines (строки) з допомогою його методу Add (додати) з одним аргументом – строчкою з символів: Memo1.Lines.Add(строка символів). Вивід до поля Memo1 здійснюється, якщо відповідний прапорець на формі відзначено (Наприклад, if CheckBox1.Checked then оператор;).

Для завдання і відображення значень потрібно використовувати методи серії Series. Для малювання графіків використаємо метод

AddXY:

function AddXY(Const AXValue, AYValue: Double; Const AXLabel: String; AColor: TColor): Longint;

Він дозволяє додавати нову точку до графіку функції. Параметри AXValue, AYValue – це аргумент і значення функції. AXLabel – метка, яка буде відображатися на графіку і в легенді, AColor – колір. AXLabel – не обов’язкове, його можливо задати пустую строку– ‘ ’.

Під час запуску програми компонент Chart повинен бути не видимим.

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

15. Додати на форму об’єкт OpenDialog (сторінка Dialogs) і об’єкт SaveDialog (сторінка Dialogs).

Змінити властивість Title компонента OpenDialog1 на значення Открыть («Відкрити»). Задати значення властивості Filter, для цього відкрити вікно File Еditor:

Текстовые файлы(*.txt)  *.txt

Все файлы (*.*)  *.*

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

16. Змінити властивість Title компонента SaveDialog1 на Сохранить как... Задати значення властивості Filter, для цього відкрити вікно File Еditor:

Текстовые файлы(*.txt)  *.txt

Все файлы (*.*)  *.*

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

17. Запрограмуємо команду меню Файл – Открыть.

Необхідно відкрити створений текстовий файл і загрузити його інформацію в Мемо1. Для цього використаємо алгоритм:

if OpenDialog1.Execute then

Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

18.Запрограмуємо команду меню Файл – Сохранить как...

Необхідно зберегти створений текстовий файл з заміною його ім’я. Для цього використаємо алгоритм:

if SaveDialog1.Execute then

Memo1.Lines.SaveToFile(SaveDialog1.FileName);

19. Запрограммируйте команду “Очистить”.

Метод Clear; – очищает график (очищает серию от занесенных ранее данных). Также этот метод очищает и многострочный редактор.

Зміна властивості Checked компонента CheckBox на false – очи щает флажок.

Изменение свойства Text компонента edit на ' ' (пустую строку) очищает редактор.

20. Запрограммируйте команду “Выход”(«Вихід»).

21.Сохраним проект.