Лабораторна робота № 9 «Розробка графічного інтерфейсу програми. Основні керуючі елементи.»
Мета: 1. Навчитися створювати програми з використанням компоненту перемикач, Група перемикачів, прапорець.
Теорія.
1. Програмування об’єкту – перемикач (tRadioButton).
На формі може бути встановлено кілька перемикачів, але активним серед них може бути лише один. Якщо в вікні потрібно організовувати кілька груп перемикачів, то групу кнопок потрібно встановлювати на об’єкт RadioGroup. Групу можна підписати, як і кожний перемикач. За стан перемикача (RadioButton1) відповідає властивість Checked, якщо кнопка вибрана, то Checked має значення істина, якщо кнопка не вибрана, то значення буде хибно.
Властивості перемикачів:
Name – задається користувачем нове ім»я об’єкту перемикач;
Caption – підпис біля перемикача, дозволяє користувачеві в програмі визначити, для чого призначений перемикач;
Checked – дає можливість визначити в якому стані знаходиться перемикач (встановленому чи знятому) знаходиться пермикач. Перемикач може знаходитись в одному з двох станів активна(True) чи пасивному(False). В режимі конструювання дозволяється встановлювати для одного із пермикачів властивість Checked значення True. Тоді при виконанні програми цей перемикач в даній буде мати властивість True.
Події перемикачів: Як правило в програмах перевіряється властивість Checked – по ній можна взнати в якому стані знаходиться перемикач. Визначивши стан, програма-додаток виконує необхідні дії. Частіше всього властивість Checked перевіряється в процедурі Click кнопки, натиснутої після установки потрібного перемикача.
Методи: Методи GetChecked і SetChecked, що дозволяють звертатись до властивості Checked та міняти її значення, в тексті програми явно не використовуються.
Якщо потрібно відслідкувати стан перемикача, то це можна зробити так:
Procedure TMyForm.RadioButtonClick(Sender:TObject);
begin
if RadioButton1. Checked then Label1.Caption:=’ включено 1‘;
if RadioButton2. Checked then Label1.Caption:=’ включено 2‘;
end end;
Компонент Група перемикачів (TRadioGroup)
Якщо в програмі потрібно використати декілька груп перемикачів (наприклад, одну для вказування статі людини, а іншу для вибору вікової категорії), можна приміняти один із двух підходів. Перший полягає в виділенні для кожної групи спеціального об’єкту (панелі), щоб система Дельфі могла зрозуміти, як об»єднуються перемикачі. Другий полягає в використанні компонента TRadioGroup, який об»єднує властивості і методи, що забезпечує підтримку роботи групи перемикачів.
Задача 1. Створити програму, яка буде давати можливість вводити два числа. Результатом буде добуток або сума цих чисел. В програмі використати перемикачі.
Створити форму за зразком.
Запрограмувати кнопку «Обчислити»
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
begin
a:=StrToInt(Edit1.Text); // введення 1 числа
b:=StrToInt(Edit2.Text); // введення 2 числа
if RadioButton1.Checked then // перевірка стану 1 перемикача, якщо значення
c:=a+b істина, то виконується група дій Then
else c:=a*b;
Edit3.Text:=IntToStr(c);
end;
Р
езультат
роботи:
Задачі для самостійного виконання:
Створити програму, яка буде обчислювати курси валют. Перевести суму введену в гривнях в долари, євро, рублі. Курси валют по відношенню до гривні – 8,05 дол., 10,23 євро, 0,18 руб. Результат вивести на екран монітору. Використати перемикачі.
Вводиться два числа. Обчислити суму, добуток, піднести до квадрату різницю цих чисел. Використати перемикачі.
Написати програму, яка обчислить вартість проїзду на автомібілі. Вхідні дані: відстань – 100 км, ціна бензину – 4,60 грн., витрати пального – (BMW – 6, Opel – 5,5, Mersedes – 7).