Кафедра: автоматика і інф. технології
Лабораторна робота
На тему:
"Створення, компіляція та налагодження простого додатка"
Єкатеринбург, 2008
Програма, що створюється в середовищі Delphi в процесі проектування програми, заснована на модульному принципі. Головна програма складається з оголошення списку використовуваних модулів і декількох операторів, що створюють об'єкти для необхідних форм і запускають додаток на виконання. Модульність дуже важлива для створення надійних і відносно легко модифікується і супроводжуваних додатків. Чітке дотримання принципів модульності в поєднанні з принципом приховування інформації дозволяє виробляти модифікації всередині будь-якого модуля, не зачіпаючи при цьому інших модулів і головну програму.
Всі об'єкти компонентів розміщуються в об'єктах - формах. Для кожної форми, проектованої у додатку, Delphi створює окремий модуль. Саме в модулях і здійснюється програмування завдання. У обробниках подій об'єктів розміщуються опису алгоритмів, які в основному зводяться до обробки інформації, що міститься у властивостях одних об'єктів, і завданні за результатами цієї обробки властивостей інших об'єктів.
Структура файлу головної (головний) програми додатки Delphi.
У процесі проектування Delphi автоматично створює код головний програми та окремих модулів. У модулі вводяться власні коди, створюючи обробники різних подій. Але головний програму, як правило, не доводиться модифікувати і навіть переглядати її текст (тільки у виняткових випадках).
Головний файл програми Delphi має наступну структуру:
Program <ім'я>;
{Оголошення модулів, а також локальних типів, класів, констант, змінних, опис локальних функцій і змінних}
Begin
{Оператори тіла програми}
End.
Типова головний програма додатку має наступний вигляд:
Program Project 1;
Uses
Forms,
Unit 1 in 'Unit 1. pas '{Form 1}, Unit 2 in' Unit 2. pas '{Form 2};
{$ R *. res}
{Можна помістити опис констант, змінних, функцій, процедур, доступних для використання тільки в межах даного файлу}
Begin
Application. Initialize;
Application. CreateForm (TForm 1, Form 1);
Application. CreateForm (TForm 2, Form 2);
Application.run;
End.
1) Програма починається з ключового слова program, після якого вказується ім'я програми (воно збігається з ім'ям файлу, в якому був збережений проект). Це ж ім'я присвоюється виконуваного файлу програми. За замовчуванням використовується ім'я Project1.
2) Після заголовка в тексті програми розташовується пропозицію:
Uses
Forms,
Unit 1 in 'Unit 1. Pas' {Form 1}, Unit 2 in 'Unit 2. Pas' {Form 2};
У цій пропозиції перераховуються модулі, що завантажуються програмою. Перший модуль Forms є системним, а наступні - модулями розробленими самостійно форм. Даний приклад має на увазі, що в проекті були створені дві форми з іменами Form1, Form2 в модулях Unit1, Unit2. Ув'язнені у фігурні дужки назва форм представляють собою коментарі.
3) Наступний рядок тексту - {$ R *. res} - представляє собою директиву компілятора, пов'язану з використанням файлів ресурсів. Зазначений файл повинен бути файлом ресурсів Windows. За замовчуванням використовується розширення. RES для файлів ресурсів.
4) Перший оператор в тілі програми Application. Initialize; - ініціалізує додаток, наступний за ним оператор Application. CreateForm (TForm 1, Form 1); і Application. CreateForm (TForm 2, Form 2); - створюють об'єкти форми1 і форми2, останній оператор Application.ru n; - починає виконання програми.
Загальна структура файлу модуля:
Unit <ім'я модуля>;
Interface / / Відкритий інтерфейс модуля (можуть поміщатися списки модулів, оголошення типів, констант, змінних, функцій і процедур, до яких буде доступ з інших модулів)
Implementation / / Реалізація модуля (можуть поміщатися списки модулів, оголошення типів, констант, змінних, функцій і процедур, до яких не буде доступу з інших модулів)
Initialization / / (Необов'язковий розділ - оператори виконуються один раз при першому зверненні до модуля)
Finalization / / (Необов'язковий розділ - оператори виконуються при будь-якому завершення роботи модуля)
End.
Розглянемо тепер текст модуля з порожньою формою:
Unit Unit1;
Interface / / Відкритий інтерфейс модуля
Uses {Список модулів}
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
Type {Оголошення класу форми}
TForm1 = class (TForm)
Private / / закритий розділ класу
Public / / відкритий розділ класу
End;
Var
Form 1: TForm1;
Implementation / / Реалізація модуля
{$ R *. dfm}
End.
1) Модуль починається з ключового слова UNIT, після якого вказується ім'я модуля. Вона збігається з ім'ям файлу, в якому був збережений модуль. Текс модуля складається з двох основних розділів: відкритий інтерфейс модуля і реалізація модуля. Зовнішні модулі не можуть бачити типи, змінні, константи, функції та процедури, розміщені в розділі реалізації.
2) Після пропозиції USES, що містить список модулів, розташовується заготівля оголошення класу форми. Ім'я класу форми - TForml. Клас містить два розділи: відкритий розділ класу (PUBLIC) - те, що оголошено в цьому розділі є для інших класів та модулів, закритий розділ класу (PRIVATE) - те, що оголошено в цьому розділі є в межах даного модуля.
3) За оголошенням класу форми йдуть рядки:
Var
Form 1: TForm1;
Таким чином, оголошується змінна Form1 класу TForm1.
4) Потім слід порожній розділ реалізації INPLEMENTATION, в якому міститься тільки директива компілятора {$ R *. dfm}, забезпечує компонування файлів ресурсів форм.
Завдання 1. Створити додаток, що забезпечує введення двох цілих чисел, по клацанню на кнопці з символом "=" обчислює їх суму і виводить значення результату.
Рішення:
Після запуску Delphi створіть новий проект за допомогою команди File> New> Application (Файл> Створити> Додаток). У результаті створення проекту програми у вікні буде розкрито вікно форми, на якій можна розміщувати візуальні компоненти проекту.
Далі виконайте наступне:
Збережіть новий проект File> Save Project As (Файл> Зберегти проект як).
У вікні Save Unit1 As (Зберегти Unit1 як) відкрийте диск S і створіть нову папку для файлів створюваного проекту і назвіть її "Сума двох цілих чисел".
Потім в цьому ж вікні відкрийте створену папку та натисніть кнопку ЗБЕРЕГТИ.
Після збереження файлу модуля Unit1. pas відкриється вікно Save Project As (Зберегти проект як). Задайте ім'я проекту "SUMMA" та натисніть кнопку ЗБЕРЕГТИ.
Змінимо властивості форми:
Для зміни розмірів форми достатньо захопити кут вікна форми і, не відпускаючи ліву кнопку миші, перетягнути мишу, задаючи потрібний розмір форми (або вказати у властивостях розміри: Client Height - 489, Client Width - 730).
Змініть напис в заголовку форми за допомогою Інспектора об'єктів. Для цього виберіть властивість Caption (Заголовок) і задайте нове значення - "Сума двох цілих чисел".
Змініть колір форми за допомогою Інспектора об'єктів. Для цього виберіть властивість Color і змініть його значення на clWindow (колір вікна), поверхня форми змінить свій колір.
Розміщення на формі компонентів Edit1, Edit2, Edit3, Label1, Button1. Для розміщення компонентів на формі виконайте наступне:
Відкрийте палітру компонентів Standard.
Потім клацніть на значку відповідного компонента і перетягніть його на форму.
Задайте положення і розмір компонента за допомогою миші, як показано на малюнку (рис.1):
SHAPE \ * MERGEFORMAT
Рис.1 Приклад форми з компонентами
Змінимо властивості компонентів на формі:
Виберіть компонент Label1 і задайте властивість Caption компонента Label1 - "плюс".
Змініть колір, стиль і висоту шрифту компонента Label1. Для цього виберіть властивість Font і клацніть на поруч розташованому знаку плюс. Відкриється таблиця властивостей. Введіть такі значення: Color - clPurple, Size - 20.
Аналогічним чином задайте властивість Caption компонента Button1 - "дорівнює" і розмір і колір символів.
Видаліть текст Edit1, Edit2, Edit3 у відповідних компонентах. Для цього виберіть властивість Text і видаліть текст.
Додайте на форму три об'єкти Label, розташуйте їх над об'єктами Edit і задайте їх властивостями Caption значення "Доданок", "Доданок" і "Сума" відповідно.
Змініть колір, стиль і висоту шрифту доданих компонентів використовуючи властивість Font і Style.
Збережіть зміни, внесені до проекту, натисканням кнопки Save All (зберегти всі) в стандартній панелі інструментів.
Для перегляду вмісту проекту Delphi відкрийте вікно Провідника і перегляньте папку проекту. Проект складається з форм, модулів, установок параметрів проекту, ресурсів і т.д. Вся ця інформація розміщується у файлах. Багато хто з цих файлів автоматично створюються Delphi, коли будується додаток. Головною частиною програми є файл summa. dpr - файл проекту, який містить код на мові Object Pascal, з якого починається виконання програми і який забезпечує ініціалізацію інших модулів. Він створюється і модифікується Delphi автоматично в процесі розробки програми. Ім'я, що привласнюється файлу проекту при його збереженні, стає ім'ям виконуваного файлу (у нашому прикладі - summa. Exe). Інші файли проекту:
Unit1. pas - файл модуля;
Unit1. dfm - файл форми;
Summa. dof - файл параметрів проекту;
Summa. res - файл ресурсів;
Unit1. ~ Dfm, Unit1. ~ Pas - файли резервних копій.
Після перегляду списку файлів проекту закрийте вікно Провідника і активізуйте вікно Delphi.
Запустіть програму на виконання за допомогою команди Run → Run або натисканням кнопки Run на панелі інструментів або клавіші F9. Після цього на екрані комп'ютера з'являється вікно створеної вами форми з компонентами, в які можна вводити значення, але додаток не буде виконувати будь-яких обчислень, т.к виконує обчислення фрагмент програми не був створений. Завершіть роботу програми натисканням клавіш Alt + F4.
Створення коду - обробника події.
Для того, щоб програма виконувало обчислення при натисканні на кнопці Button1 із зображенням символу "дорівнює", слід написати код обробки цієї події. Для створення коду обробки події слід скористатися сторінкою EVENTS (Подія) у вікні Інспектора об'єктів.
Активізуйте об'єкт Button1 і виберіть на сторінці Подій подія OnClick (цю подію натискання лівої кнопки миші по даному об'єкту).
Проведіть подвійне клацання на порожньому полі списку цієї події. Після цього курсор поміщається у вікно Редактора коду. У цьому вікні в розділі interface знаходиться запис процедури обробника події:
Procedure TForm1. Button1Click (Sender: TObject);
У розділі implementation розташовується текст заготівлі цієї процедури:
Procedure TForm1. Button1Click (Sender: TObject);
Begin
...
End;
Курсор буде знаходитися в порожній рядку між ключовими словами begin і end. Цей код є заготовкою для обробника події, яку автоматично створила інтегроване середовище Delphi.
Так як у задачі потрібно виконати складання двох цілих чисел, а результат їх складання також є цілим числом, то в розділі опису змінних слід ввести наступний опис: var a, b, c: integer; - два доданки і сума.
Так що у додатку для введення чисел-доданків використовуються вікна редагування Edit1, Edit2, то необхідно за допомогою процедури StrToInt перетворити рядки в цілі числа. Для виведення результату підсумовування в вікні редагування Edit3 потрібно перетворити число в рядок функцією IntToStr. Тому в основному тілі процедури обробки події слід ввести наступний текст:
a: = StrToInt (Edit1. text);
b: = StrToInt (Edit2. text);
c: = a + b;
Edit3. text: = IntToStr (c);
Цілком процедура обробки події клацання на кнопці Button1 буде виглядати наступним чином:
Procedure TForm1. Button1Click (Sender: TObject);
var a, b, c: integer;
Begin
a: = StrToInt (Edit1. text); {перетворення текстового рядка в ціле число}
b: = StrToInt (Edit2. text);
c: = a + b;
Edit3. text: = IntToStr (c); {перетворення цілого числа в текстову рядок}
End;
Запустіть програму на виконання. Введіть два доданків і, натиснувши кнопку з написом "дорівнює", запустіть процедуру обробки події - обчислення суми двох цілих чисел.
Збережіть всі зміни внесені в проект і закрийте його.
Лабораторна робота
На тему:
"Створення, компіляція та налагодження простого додатка"
Єкатеринбург, 2008
Програма, що створюється в середовищі Delphi в процесі проектування програми, заснована на модульному принципі. Головна програма складається з оголошення списку використовуваних модулів і декількох операторів, що створюють об'єкти для необхідних форм і запускають додаток на виконання. Модульність дуже важлива для створення надійних і відносно легко модифікується і супроводжуваних додатків. Чітке дотримання принципів модульності в поєднанні з принципом приховування інформації дозволяє виробляти модифікації всередині будь-якого модуля, не зачіпаючи при цьому інших модулів і головну програму.
Всі об'єкти компонентів розміщуються в об'єктах - формах. Для кожної форми, проектованої у додатку, Delphi створює окремий модуль. Саме в модулях і здійснюється програмування завдання. У обробниках подій об'єктів розміщуються опису алгоритмів, які в основному зводяться до обробки інформації, що міститься у властивостях одних об'єктів, і завданні за результатами цієї обробки властивостей інших об'єктів.
Структура файлу головної (головний) програми додатки Delphi.
У процесі проектування Delphi автоматично створює код головний програми та окремих модулів. У модулі вводяться власні коди, створюючи обробники різних подій. Але головний програму, як правило, не доводиться модифікувати і навіть переглядати її текст (тільки у виняткових випадках).
Головний файл програми Delphi має наступну структуру:
Program <ім'я>;
{Оголошення модулів, а також локальних типів, класів, констант, змінних, опис локальних функцій і змінних}
Begin
{Оператори тіла програми}
End.
Типова головний програма додатку має наступний вигляд:
Program Project 1;
Uses
Forms,
Unit 1 in 'Unit 1. pas '{Form 1}, Unit 2 in' Unit 2. pas '{Form 2};
{$ R *. res}
{Можна помістити опис констант, змінних, функцій, процедур, доступних для використання тільки в межах даного файлу}
Begin
Application. Initialize;
Application. CreateForm (TForm 1, Form 1);
Application. CreateForm (TForm 2, Form 2);
Application.run;
End.
1) Програма починається з ключового слова program, після якого вказується ім'я програми (воно збігається з ім'ям файлу, в якому був збережений проект). Це ж ім'я присвоюється виконуваного файлу програми. За замовчуванням використовується ім'я Project1.
2) Після заголовка в тексті програми розташовується пропозицію:
Uses
Forms,
Unit 1 in 'Unit 1. Pas' {Form 1}, Unit 2 in 'Unit 2. Pas' {Form 2};
У цій пропозиції перераховуються модулі, що завантажуються програмою. Перший модуль Forms є системним, а наступні - модулями розробленими самостійно форм. Даний приклад має на увазі, що в проекті були створені дві форми з іменами Form1, Form2 в модулях Unit1, Unit2. Ув'язнені у фігурні дужки назва форм представляють собою коментарі.
3) Наступний рядок тексту - {$ R *. res} - представляє собою директиву компілятора, пов'язану з використанням файлів ресурсів. Зазначений файл повинен бути файлом ресурсів Windows. За замовчуванням використовується розширення. RES для файлів ресурсів.
4) Перший оператор в тілі програми Application. Initialize; - ініціалізує додаток, наступний за ним оператор Application. CreateForm (TForm 1, Form 1); і Application. CreateForm (TForm 2, Form 2); - створюють об'єкти форми1 і форми2, останній оператор Application.ru n; - починає виконання програми.
Загальна структура файлу модуля:
Unit <ім'я модуля>;
Interface / / Відкритий інтерфейс модуля (можуть поміщатися списки модулів, оголошення типів, констант, змінних, функцій і процедур, до яких буде доступ з інших модулів)
Implementation / / Реалізація модуля (можуть поміщатися списки модулів, оголошення типів, констант, змінних, функцій і процедур, до яких не буде доступу з інших модулів)
Initialization / / (Необов'язковий розділ - оператори виконуються один раз при першому зверненні до модуля)
Finalization / / (Необов'язковий розділ - оператори виконуються при будь-якому завершення роботи модуля)
End.
Розглянемо тепер текст модуля з порожньою формою:
Unit Unit1;
Interface / / Відкритий інтерфейс модуля
Uses {Список модулів}
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
Type {Оголошення класу форми}
TForm1 = class (TForm)
Private / / закритий розділ класу
Public / / відкритий розділ класу
End;
Var
Form 1: TForm1;
Implementation / / Реалізація модуля
{$ R *. dfm}
End.
1) Модуль починається з ключового слова UNIT, після якого вказується ім'я модуля. Вона збігається з ім'ям файлу, в якому був збережений модуль. Текс модуля складається з двох основних розділів: відкритий інтерфейс модуля і реалізація модуля. Зовнішні модулі не можуть бачити типи, змінні, константи, функції та процедури, розміщені в розділі реалізації.
2) Після пропозиції USES, що містить список модулів, розташовується заготівля оголошення класу форми. Ім'я класу форми - TForml. Клас містить два розділи: відкритий розділ класу (PUBLIC) - те, що оголошено в цьому розділі є для інших класів та модулів, закритий розділ класу (PRIVATE) - те, що оголошено в цьому розділі є в межах даного модуля.
3) За оголошенням класу форми йдуть рядки:
Var
Form 1: TForm1;
Таким чином, оголошується змінна Form1 класу TForm1.
4) Потім слід порожній розділ реалізації INPLEMENTATION, в якому міститься тільки директива компілятора {$ R *. dfm}, забезпечує компонування файлів ресурсів форм.
Завдання 1. Створити додаток, що забезпечує введення двох цілих чисел, по клацанню на кнопці з символом "=" обчислює їх суму і виводить значення результату.
Рішення:
Після запуску Delphi створіть новий проект за допомогою команди File> New> Application (Файл> Створити> Додаток). У результаті створення проекту програми у вікні буде розкрито вікно форми, на якій можна розміщувати візуальні компоненти проекту.
Далі виконайте наступне:
Збережіть новий проект File> Save Project As (Файл> Зберегти проект як).
У вікні Save Unit1 As (Зберегти Unit1 як) відкрийте диск S і створіть нову папку для файлів створюваного проекту і назвіть її "Сума двох цілих чисел".
Потім в цьому ж вікні відкрийте створену папку та натисніть кнопку ЗБЕРЕГТИ.
Після збереження файлу модуля Unit1. pas відкриється вікно Save Project As (Зберегти проект як). Задайте ім'я проекту "SUMMA" та натисніть кнопку ЗБЕРЕГТИ.
Змінимо властивості форми:
Для зміни розмірів форми достатньо захопити кут вікна форми і, не відпускаючи ліву кнопку миші, перетягнути мишу, задаючи потрібний розмір форми (або вказати у властивостях розміри: Client Height - 489, Client Width - 730).
Змініть напис в заголовку форми за допомогою Інспектора об'єктів. Для цього виберіть властивість Caption (Заголовок) і задайте нове значення - "Сума двох цілих чисел".
Змініть колір форми за допомогою Інспектора об'єктів. Для цього виберіть властивість Color і змініть його значення на clWindow (колір вікна), поверхня форми змінить свій колір.
Розміщення на формі компонентів Edit1, Edit2, Edit3, Label1, Button1. Для розміщення компонентів на формі виконайте наступне:
Відкрийте палітру компонентів Standard.
Потім клацніть на значку відповідного компонента і перетягніть його на форму.
Задайте положення і розмір компонента за допомогою миші, як показано на малюнку (рис.1):
SHAPE \ * MERGEFORMAT
Edit 1 |
Edit 2 |
Edit 3 |
Label 1 |
Button1 |
Сума двох цілих чисел |
Рис.1 Приклад форми з компонентами
Змінимо властивості компонентів на формі:
Виберіть компонент Label1 і задайте властивість Caption компонента Label1 - "плюс".
Змініть колір, стиль і висоту шрифту компонента Label1. Для цього виберіть властивість Font і клацніть на поруч розташованому знаку плюс. Відкриється таблиця властивостей. Введіть такі значення: Color - clPurple, Size - 20.
Аналогічним чином задайте властивість Caption компонента Button1 - "дорівнює" і розмір і колір символів.
Видаліть текст Edit1, Edit2, Edit3 у відповідних компонентах. Для цього виберіть властивість Text і видаліть текст.
Додайте на форму три об'єкти Label, розташуйте їх над об'єктами Edit і задайте їх властивостями Caption значення "Доданок", "Доданок" і "Сума" відповідно.
Змініть колір, стиль і висоту шрифту доданих компонентів використовуючи властивість Font і Style.
Збережіть зміни, внесені до проекту, натисканням кнопки Save All (зберегти всі) в стандартній панелі інструментів.
Для перегляду вмісту проекту Delphi відкрийте вікно Провідника і перегляньте папку проекту. Проект складається з форм, модулів, установок параметрів проекту, ресурсів і т.д. Вся ця інформація розміщується у файлах. Багато хто з цих файлів автоматично створюються Delphi, коли будується додаток. Головною частиною програми є файл summa. dpr - файл проекту, який містить код на мові Object Pascal, з якого починається виконання програми і який забезпечує ініціалізацію інших модулів. Він створюється і модифікується Delphi автоматично в процесі розробки програми. Ім'я, що привласнюється файлу проекту при його збереженні, стає ім'ям виконуваного файлу (у нашому прикладі - summa. Exe). Інші файли проекту:
Unit1. pas - файл модуля;
Unit1. dfm - файл форми;
Summa. dof - файл параметрів проекту;
Summa. res - файл ресурсів;
Unit1. ~ Dfm, Unit1. ~ Pas - файли резервних копій.
Після перегляду списку файлів проекту закрийте вікно Провідника і активізуйте вікно Delphi.
Запустіть програму на виконання за допомогою команди Run → Run або натисканням кнопки Run на панелі інструментів або клавіші F9. Після цього на екрані комп'ютера з'являється вікно створеної вами форми з компонентами, в які можна вводити значення, але додаток не буде виконувати будь-яких обчислень, т.к виконує обчислення фрагмент програми не був створений. Завершіть роботу програми натисканням клавіш Alt + F4.
Створення коду - обробника події.
Для того, щоб програма виконувало обчислення при натисканні на кнопці Button1 із зображенням символу "дорівнює", слід написати код обробки цієї події. Для створення коду обробки події слід скористатися сторінкою EVENTS (Подія) у вікні Інспектора об'єктів.
Активізуйте об'єкт Button1 і виберіть на сторінці Подій подія OnClick (цю подію натискання лівої кнопки миші по даному об'єкту).
Проведіть подвійне клацання на порожньому полі списку цієї події. Після цього курсор поміщається у вікно Редактора коду. У цьому вікні в розділі interface знаходиться запис процедури обробника події:
Procedure TForm1. Button1Click (Sender: TObject);
У розділі implementation розташовується текст заготівлі цієї процедури:
Procedure TForm1. Button1Click (Sender: TObject);
Begin
...
End;
Курсор буде знаходитися в порожній рядку між ключовими словами begin і end. Цей код є заготовкою для обробника події, яку автоматично створила інтегроване середовище Delphi.
Так як у задачі потрібно виконати складання двох цілих чисел, а результат їх складання також є цілим числом, то в розділі опису змінних слід ввести наступний опис: var a, b, c: integer; - два доданки і сума.
Так що у додатку для введення чисел-доданків використовуються вікна редагування Edit1, Edit2, то необхідно за допомогою процедури StrToInt перетворити рядки в цілі числа. Для виведення результату підсумовування в вікні редагування Edit3 потрібно перетворити число в рядок функцією IntToStr. Тому в основному тілі процедури обробки події слід ввести наступний текст:
a: = StrToInt (Edit1. text);
b: = StrToInt (Edit2. text);
c: = a + b;
Edit3. text: = IntToStr (c);
Цілком процедура обробки події клацання на кнопці Button1 буде виглядати наступним чином:
Procedure TForm1. Button1Click (Sender: TObject);
var a, b, c: integer;
Begin
a: = StrToInt (Edit1. text); {перетворення текстового рядка в ціле число}
b: = StrToInt (Edit2. text);
c: = a + b;
Edit3. text: = IntToStr (c); {перетворення цілого числа в текстову рядок}
End;
Запустіть програму на виконання. Введіть два доданків і, натиснувши кнопку з написом "дорівнює", запустіть процедуру обробки події - обчислення суми двох цілих чисел.
Збережіть всі зміни внесені в проект і закрийте його.