Уроки информатики в школе - Ветвление

Вторник, 03.12.2024, 21:15

Главная | Регистрация | Вход

Приветствую Вас Гость | RSS

Меню сайта

Статистика

Онлайн всего: 1

Гостей: 1

Пользователей: 0

Тестування онлайн

тестування онлайн

Социальные закладк

Підсумки. Використання елементів керування для реалізації розгалуження в проекті.

Для реалізації розгалуження в проекті можна використовувати елементи управління:

CheckBox - прапорець. Властивість Checked - значення цієї властивості фіксує зміну стану прапорця (true, false).

if CheckBox1.Checked then <команда1>; // якщо виділений CheckBox1
if CheckBox2.Checked then <команда2>; // якщо виділений CheckBox2 і т.д.

RadioButton - перемикач. Властивість Checked - значення цієї властивості фіксує зміну стану прапорця (true, false).

if RadioButton1.Checked then <команда1> // якщо виділений RadioButton1
else if RadioButton2.Checked then <команда2> // якщо виділений RadioButton2
.................
else <команда n>;

CheckGroup - група прапорців, використовують у разі, якщо необхідно розмістити декілька груп прапорців на формі.	RadioGroup - група перемикачів, використовують у разі, якщо необхідно розмістити декілька груп перемикачів на формі.
Властивості: Caption - заголовок групи, Colums - кількість стовбців елементів у групі , ItemIndex -визначає номер (починаючи з 0) елемента управління, який виділений у групі. Якщо не виділений жодний, то значення властивості дорівнює -1. , Items - містить список елементів групи.
if CheckGroup1.Checked[0] then <команда1>; // якщо виділений прапорець групи CheckGroup1 під номером 0 if CheckGroup1.Checked[1] then <команда2>; і т.д.	if RadioGroup1.ItemIndex = 0 then <команда1>; // якщо виділений перемикач групи RadioGroup1, значення властивості якого ItemIndex дорівнює нулю. if RadioGroup1.ItemIndex =1 then <команда2>; і т.д.

ComboBox - окрім текстового поля, яке може містити тільки одне значення, елемент управління список дає змогу обрати одне значення із запропонованного переліку.

Властивості: Count - кількість елементів списку , ItemIndex -визначає номер (починаючи з 0) вибраного елемента . Якщо не виділений жодний, то значення властивості дорівнює -1 , DropDownCount - кількість елементів, які відображаються у списку. Щоб відобразити решту - використовують смугу прокручування..

if ComboBox1.Text= ' текст вибранного рядка списку' then <команда1>; // якщо значення властивості Text елементу ComboBox1 співпадає з текстом виділеного рядку списку
і т.д.

Розробка проекту "калькулятор" з використанням елементів керування перемикачів, групи перемикачів, розкривного списку, кнопок.

procedure TForm1.Button2Click(Sender: TObject);
var a, b, r: real;
begin
a := strtofloat(edit1.text);
b := strtofloat(edit2.text);
r := a - b ; label4.Caption := floattostr(r);
end;

procedure TForm1.Button3Click(Sender: TObject);
var a, b, z: real;
begin
a := strtofloat(edit1.text);
b := strtofloat(edit2.text);
z := a * b ; label4.Caption := floattostr(z);
end;

procedure TForm1.Button4Click(Sender: TObject);
var a, b, d: real;
begin
a := strtofloat(edit1.text);
b := strtofloat(edit2.text);
if b<>0 then begin d := a / b ; label4.Caption := floattostrF(d,ffFixed,6,3);end
else showmessage('деление на ноль недопустимо');
end;

procedure TForm1.Button1Click(Sender: TObject);
var a, b, s: real;
begin
a := strtofloat(edit1.text);
b := strtofloat(edit2.text);
s := a + b ; label4.Caption := floattostr(s);
end;

procedure TForm1.Button1Click(Sender: TObject);
var a, b, s,r, z, d: real;
begin
a := strtofloat(edit1.text);
b := strtofloat(edit2.text);
if radiobutton1.checked then begin s := a + b ; label4.Caption := floattostr(s); end;
if radiobutton2.checked then begin r := a - b ; label4.Caption := floattostr(r); end;
if radiobutton3.checked then begin z := a * b ; label4.Caption := floattostr(z); end;
if radiobutton4.checked then
if b<>0 then
begin
d := a / b ;
label4.Caption := floattostrF(d,ffFixed,6,3);
end
else showmessage('деление на ноль недопустимо');
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var a, b, s,r, z, d: real;
begin
a := strtofloat(edit1.text);
b := strtofloat(edit2.text);
if combobox1.text = 'сложение' then begin s := a + b ; label4.Caption := floattostr(s); end
else if combobox1.text = 'вычитание' then begin r := a - b ; label4.Caption := floattostr(r); end
else if combobox1.text = 'умножение' then begin z := a * b ; label4.Caption := floattostr(z); end
else if combobox1.text = 'деление' then
if b<>0 then begin d := a / b ; label4.Caption := floattostrF(d,ffFixed,6,3); end
else showmessage('деление на ноль недопустимо');
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
var a, b, s,r, z, d: real;
begin
a := strtofloat(edit1.text);
b := strtofloat(edit2.text);
if radiogroup1.ItemIndex = 0 then begin s := a + b ; label4.Caption := floattostr(s);end ;
if radiogroup1.ItemIndex = 1 then begin r := a - b ; label4.Caption := floattostr(r);end ;
if radiogroup1.ItemIndex = 2 then begin z := a * b ; label4.Caption := floattostr(z);end ;
if radiogroup1.ItemIndex = 3 then
if b<>0 then
begin
d := a / b ;
label4.Caption := floattostrF(d,ffFixed,6,3)
end
else showmessage('деление на ноль недопустимо');
end;

Формати числових даних:

FloatToStrF (V,F, P, D) - перетворює дійсне число V в рядок символів з урахуванням формату F і параметрів P, D.
Пояснимо призначення функції FloatToStrF (V, F, P, D). Її використовують для форматованого виведення речового числа.
Параметрів цієї функціі:

ffFixed - число у форматі з фіксованою точкою,
P- загальна кількість цифр в поданні числа,
D - кількість цифр в дробовій частині.

наприклад: label4.Caption := floattostrF(d,ffFixed,6,3)

Форма входа

Поиск

Календарь

Архив записей

2017 Февраль

Друзья сайта

	Copyright MyCorp © 2024
	Конструктор сайтов - uCoz