Лабораторна робота №4 Програмування розгалуджень. Об’єкти: групи перемикачів, текстові поля, поля редагування
4.1 Мета роботи:
Cтворити форму з назвою “Склад металів” з можливістю вибору наявного на складі металу, ціни якого задані, та можливістю розрахувати вартість певної кількості металу за гуртовою або розрібною ціною.
4.2 Теоретичні відомості
Об’єкт RadioGroup використовують як групу перемикачів, наприклад для вибору виду матеріалу із певного переліку матеріалів. До властивостей цього об’єкту слід віднести властивість Items (підписи) і IndexItems (контроль вибору певного індексу). До прикладів застосування останнього можна віднести цілі числа: -1 – не вибраний жодний підпис, 0 – вибраний перший з переліку підпис, 1 – вибраний другий з переліку підпис, 2 – третій… і т.д.
Властивості об’єктів RadioButton (перемикач) i Edit (Поле редагування) описані в лабораторній роботі №3 (пункт 3.2.).
4.3 Хід роботи
4.3.1
Для встановлення в вікно форми групи
перемикачів підводять курсор до
піктограми
(в момент підведення з’являтиметься
підказка “RadioGroup”)
і клацають на ній. Після цього клацають
у потрібному місці вікна форми.
4.3.2 Змінюють значення властивісті Caption із значення RadioGroup1 на “Перелік матеріалів”.
4.3.3 Для внесення до цього переліку потрібних назв матеріалів користуюються властивістю Items. При активізації цієї властивості клацанням по пікограмі , що розміщена правіше від значення властивості Items в інспекторі об’єктів, з’явиться діалогове вікно String List Editor. При допомозі клавіатури вносять у текстове поле цього вікна назви потрібних матеріалів. Наприклад:
Сталь40Х
ЧавунСЧ18
Сталь5Кп.
При цьому у діалоговому вікні змінюватиметься повідомлення про те, скільки написів введено. Наприклад, в даному випадку 3 написи - отже буде повідомлено: ”3 lines”.
4.3.4 Щоб у прикладній програмі була можливість швидкої зміни ціни в залежності від вибору матеріалу можна запрограмувати групу перемикачів, використавши властивість IndexItems, задавши кожному матеріалу (тобто індексу відповідного матеріалу) починаючи з першого (індекс 0) відповідно гуртову (гривень за тону) і роздрібну (гривень за кілограм) ціну. Для цього, клацнувши двічі по об’єкту RadioGroup, активізують вікно тексту програми і програмують його так:
procedure TForm1.RadioGroup1Click(Sender: TОbject);
begin
case RadioGroup1.IndexItems of
0: Edit1.Text: = ’1500’;
1: Edit1.Text: = ’2000’;
2: Edit1.Text: = ’15000’;
3: Edit1.Text: = ’17000’;
4: Edit1.Text: = ’6500’;
5: Edit1.Text: = ’15500’;
end;
case RadioGroup2.IndexItems of
0: Edit2.Text: = ’2’;
1: Edit2.Text: = ’3’;
2: Edit2.Text: = ’20’;
3: Edit2.Text: = ’25’;
4: Edit2.Text: = ’9’;
5: Edit2.Text: = ’26’;
end;
end;
4.3.5 Для перевірки того, змінюватимуться чи ні ціни при виборі різних матеріалів із переліку групи перемикачів, запускають програму з допомогою команди Run.
4.3.6 Для досконалішої роботи із програмою додатково запрограмовують перемикачі так, щоб разом із їх включенням змінювалась назва текстового поля (Label5) із простого тексту “кількість матеріалу” на “кількість тон”, або кількість кілограм”. Разом з тим запрограмовують активізацію полів редагування Edit1 i Edit2, використовуючи властивість SetFocus. Отже, відкривають тіло процедури за допомогою подвійного клацання на перемикачі “ціна гуртова” і в готову заготовку процедури вписують дії:
procedure TForm1.RadioButton1Click (Sender: TОbject);
begin
Label5.Caption: = ‘кількість тон’;
Edit1.SetFocus
еnd;
4.3.7 Подібним чином запрограмовують перемикач RadioButton2.
procedure TForm1.RadioButton2Click (Sender: TОbject);
begin
Label5.Caption: = ‘кількість кілограм’;
Edit2.SetFocus
еnd;
4.3.8 Для того, щоб поля редагування були вільні на початку роботи з прикладною програмою, змінюють їх властивість Text із “Edit” на “ “(порожнє).
4.3.9 З метою недопущення самовільного внесення тексту в поле редагування Edit4 (“Вартість матеріалу”) використовують властивість цього об’єкта Enabled (доступність), задавши значення False.
4.3.10 Задають однакові розміри для всіх полів редагування, текстових полів, перемикачів та кнопок. Для цього одночасно виокремлюють всі об’єкти з лівої сторони в один із способів:
утримуючи в натиснутому положення клавішу Shift, почергово активізують об’єкти, клацаючи на них лівою клавішою миші.
Обводять навколо цих об’єктів контур при постійно натиснутій лівій клавіші миші.
Задають однакову для всіх об’єктів значення властивості Width (ширина) і Left (відступ від лівого поля) в інспекторі об’єктів.
Далі те саме можна зробити для об’єктів, що розміщені правіше. Аналогічно вирівнюють об’єкти зверху-вниз, використовуючи властивість Top.
4.3.11 Записують програму і створюють її exe-файл.