3.1 Мета роботи:
Створити форму з назвою “Склад металів” з можливістю розрахувати вартість певної кількості металу за гуртовою або розрібною ціною.
3.2 Теоретичні відомості
Об’єкт Edit (Поле редагування) служить для введення з клавіатури рядка символів. Набраний рядок можна перетворити у число з допомогою властивості Text. Поля редагування (Edit) володіють наступними властивостями, окрім згаданих в попередніх лабораторних роботах:
Властивість |
Опис властивості |
Приклади значень |
CharCase |
Вигляд символів в полі редагування |
еsLowerCase (малі букви), esNormal (звичайні букви), esUpperCase (великі букви). |
Ctl3D |
Об’ємне забраження об’єкта |
True, False. |
Hint |
Текст підказки, що з’являється при наведенні курсора мишою |
“паспорт” (довільний рядок символів) |
PasswordChar |
Символ для введення пароля |
#0 (пряме відображення тексту), * (відображення зірочками) |
ReadOnly |
Доступність поля |
True (неможлива зміна тексту), False (можлива зміна тексту) |
ShowHint |
Виведення підказки |
True, False. |
Text |
Текст у полі редагування |
3489 (довільний рядок символів) |
Об’єкт RadioButton використовують як перемикач, тобто як засіб для урізноманітнення певного вибору. До його властивостей відносять:
Сhecked (стан перемикача: True – вибраний, False – не вибраний);
TabOrder (порядок вибору об’єкта клавішою Tab)
TabStop (доступ до об’єкта : True – буде доступним, False – не буде доступним).
3.3 Хід виконання роботи
3.3.1 Завантажують середовище Delphi (див п.1.4.1 лабораторної роботи №1).
3.3.2 Змінюють назву вікна форми на “Склад металів”.
Для цього треба змінити значення властивості Caption форми у інспекторі об’єктів. Клацнувши лівою клавішою миші, активізують цю властивість і у рядку пишуть замість Form1 нову назву форми.
3.3.3
У форму вводять нові об’єкти: перемикачі
(RadioButton)
із закладки Standart
палітри компонентів головного вікна
Delphi,
клацнувши на піктограмі RadioButton
палітри компонентів а далі в потрібному
місці на формі. Встановлений перемикач
має назву RadioButton1.
Заголовок
перемикача на формі задають, користуючись
властивістю Caption
(як у пункті 3.3.2). Введемо заголовок
“Гуртова ціна”. Аналогічним чином
вводять другий перемикач (RadioButton2),
надаючи для властивості Caption
значення “Роздрібна ціна”, а для
властивості Checked
– True.
3.3.4
Наступним новим об’єктом
будуть поля редагування типу Edit.
Щоб встановити вказані об’єкти
у вікно форми клацають лівою клавішою
миші, коли курсор миші буде підведений
до піктограми
на закладці Standart
палітри
компонентів головного вікна Delphi
(з’явиться
підказка Edit).
При
цьому компонента Edit
стане
активною.
Далі клацають у потрібному місці на вікні форми “Склад металів” і отримують поле редагування - Edit1. Для встановлення ще одного поля редагування Edit2 знову клацають на піктограмі (в момент підведення до неї курсора з’являтиметься підказка Edit) і після клацають на потрібному місці у вікні форми. Аналогічно вставляють у вікно форми поля редагування Edit3 i Edit4.
3.3.5
Для
зручності використання прикладної
програми “Склад металів” створюють
підписи, тобто у вікно форми вставляють
текстові поля – об’єкти
Label.
Для
цього підводять курсор до піктограми
на закладці Standart палітри компоненнтів
головного вікна Delphi
і,
клацнувши лівою клавішою миші, активізують
цю компоненту. Далі розміщають курсор
над полем редагування Edit1
і клацають лівою клавішою миші.
3.3.6 Встановлений об’єкт має назву Label1. Для зміни підпису на формі використовують властивість Caption, активізувавши її в інспекторі об’єктів (Object Inspector) і змінивши в рядку значення Label1 на “Матеріал в гурті”.
3.3.7 Поруч із об’єктом Label1 встановлюють об’єкт Label2, а значення його властивості Caption змінюють на “Ціна грн/тон”.
3.3.8 Над полем редагування Edit2 вставляють об’єкти Label3 i Label4, відповідно надавши значення властивості Caption “Матеріал в роздріб” і “Ціна грн/кг”.
3.3.9 Над полем редагування Edit3 встановлюють текстове поле Label5, надавши його властивості Caption значення “Кількість матеріалу”.
3.3.10 Над полем редагування Edit4 встановлюють текстове поле Label6, надавши його властивості Caption значення “Вартість матеріалу”, а властивості Font у випадаючому вікні задають значення розміру шрифта Size – 18, FontSize – Bold (жирний шрифт) і Color – Yellow (Жовтий).
3.3.11
Для надання можливості запуску і
виключення прикладної програми створюють
кнопки “Розрахувати” і “Закрити”.
Для цього в закладці Standart
палітри
компонентів підводять курсор на
піктограму
(на
момент підведення курсора появляється
підказка “Button”).
Клацнувши
по піктограмі, активізують її. Клацнувши
у потрібному місці на вікні форми,
вставляють на неї об’єкт
Button1.
В
такий же
спосіб
вставляють об’єкт
Button2.
Властивість Сaption
обидвох
кнопок змінюють на “Розрахувати” і
“Завершити”.
3.3.12 Програмують кнопку “Завершити” (Button2) в такий спосіб:
підводять курсор до кнопки і подвійним клацанням по ній створюють заготовку процедури у вікні тексту програми (Unit1).
У заготовці коду процедури записують назву процедури закриття вікна Close.
procedure TForm.Button1Click(Sender: TObject);
begin
Close
end;
запускають програму за допомогою команди Run. Переконавшись, що програма запущена, підводять курсор до кнопки “Завершити” і клацають на ній лівою кнопкою миші. Як наслідок програма повинна вернути вікно тексту програми до попереднього вигляду.
3.3.13 Програмують кнопку “Розрахувати” в такий спосіб:
підводять курсор до кнопки і подвійним клацанням активізують вікно тексту програми (Unit1);
у розділі змінних Var вводять змінні price1 (ціна гуртова), price2 (ціна роздрібна), sum (сума).
Для оперування даними в числовай формі із змінними типу real користуються процедурою Val. Для оперування даними текстового типу користуються процедурою Str.
У розділі змінних вводять додаткові змінні cd i res. Остання змінна використовуватиметься для висвітлювання результату розрахунку (число з заданою кількістю знаків після коми).
Отже у вікні тексту програми повинно бути наступне:
procedure TForm1.Button2Click(Sender: TObject);
var
Price1, Price2, Sum: real;
Cd: integer; res: string[7];
begin
Val (Edit1.Text, Price1, cd);
Val (Edit2.Text, Price2, cd);
Val (Edit3.Text, Sum, cd);
if RadioButton2.Checked=True then Sum := Sum*Price2
else Sum := Sum*Price1;
Str(Sum:7:2, res)
Edit4.Text := res.
end;
3.3.14 Зберігають створену програму.
3.3.15 Для перевірки дієвості програми запускають її з допомогою команди Run i вводять будь-які дійсні числа в поля редагування Edit1, Edit2, Edit3. Натиснувши кнопку ”Розрахувати” отримують дійсне цифрове семизначне значення з двома знаками після коми.