Програмування об’єкту – прапорець (tCheckBox).
На формі можуть бути встановлені об’єкти прапорці, активним серед них можуть бути один або два, або всі за умови, що вказівки, які активізуються не суперечать одна одній. Перемикач на формі може розташовуватись в довільному місці, але так, щоб було розміщено саму кнопку та надпис до неї. Для того, щоб перевірити в якому стані знаходиться прапорець потрібно перевірити властивість Checkbox1. Даний об’єкт має властивість Checked. За стан прапорця відповідає властивість Checked, якщо прапорець активований, то Checked має значення істина, якщо кнопка не активована, то значення Checked буде хибно. Прапорець може бути встановлений в трьох станах: встановлений, знятий та невизначений. Невизначений прапорець означає, що на іншій формі встановлені деякі інші прапорці.
Якщо для властивості Allowgrayed задано значення True , то прапорець при послідовному клацанню по ньому буде приймати значення встановлено, знято, невизначено. Визначити поточний стан можна задопомогою властивості State.
cbUnchecked – знято;
cbGrayed – невизначено;
cbChecked – встановлено.
Наприклад: вивести на екран монітору надпис про стан прапорця.
Procedure TMyForm.CheckBox1Click(Sender:TObject);
Begin
Case CheckBox1.State of
cbUnchecked: Label1.Caption:=’ виключено‘;
cbGrayed: Label1.Caption:=’ невизначено‘;
cbChecked: Label1.Caption:=’включено ‘;
end end;
Задача 2. Створити програму, яка буде обчислювати суму двох чисел. Передбачити можливість виведення результатів обчислення в цілочисельному вигляді.
Створити форму за зразком:
Запрограмувати кнопку «Обчислити»
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c: real;
okr:integer;
begin
a:=StrToFloat(Edit1.Text); // введення 1 числа
b:=StrToFloat(Edit2.Text); // введення 2 числа
if CheckBox1.Checked then // перевірка стану прапорця, якщо значення істина,то виконуємо
begin
c:=a+b; okr:=round(c); //округляє число до найближчого цілого
Edit3.Text:=IntToStr(okr); end
else // інакше, якщо значення хибно(прапорець не встановлено), то виконуємо такі дії
begin
c:=a+b; Edit3.Text:=FloatToStr(c); end; end;
Результат виконання обчислення:
Задачі для самостійного виконання:
Змінити дану програму таким чином, щоб можна було виконувати не лише дію додавання, а й віднімання, множення. Для розв’язку використати перемикачі.
Змінити дану програму таким чином, щоб можна було виконувати не лише дію додавання, а й віднімання, множення. Для розв’язку використати прапорці.
Змінити дану програму таким чином, щоб можна було виконувати не лише дію додавання, а й віднімання, множення. Для вибору форми виводу використати перемикачі, а для вибору дії прапорці.
Додаткова задача. Створити програму, яка обчислює прибуток по вкладу. Програма повинна забезпечевати розрахунок простих і складних процентів. Прості проценти нараховуються в кінці терміну вкладу, складні – щомісячно і додаються до початкової суми вкладу і в наступному місяці проценти нараховуються на нову суму.
Створити форму за зразком:
