Лабораторная работа №21 Использование компонента таймер для управления при выполнении программы.

Лабораторная работа №22 Использование компонентов зависимых и независимых переключателей.

Тема: Работа с переключателями

Цель работы: Применение теоретических навыков на практике. Ознакомить студентов с компонентами «переключателями» на форме приложения. Закрепить полученные на лекции знания. Написать и отладить программу

Теория: Рассмотрим 2 вида переключателей

1) TCheckBox - независимый переключатель

Независимый переключатель TCheckBox используется для того, чтобы пользователь мог указать свое решение типа Да/Нет или Да/Нет/Не совсем (в последнем случае в окошке компонента устанавливается флаг выбора, но само окошко закрашивается серым цветом). Это решение отражается в свойстве State компонента, доступном как для чтения, так и для записи. В составе диалогового окна может быть несколько компонентов TCheckBox. Состояние любого из них не зависит от состояния остальных, поэтому такие переключатели называются независимыми.

Типичное использование компонента:

if CheckBoxl.Checked then

else

Или:

case CheckBoxl.State of cbChecked:...; {выбран }

cbUnchecked:...; {не выбран}

cbGrayed:...; {выделен серым}

end;

2) TRadioButton -зависимые переключатели, предназначенные для выбора одного из нескольких взаимоисключающих решений. На форму (точнее, в компонент-контейнер) помещается по меньшей мере два таких компонента. Они могут иметь только два состояния, определяемых свойством Сhecked. Если в одном компоненте это свойство принимает значение True, во всех других компонентах, расположенных в том же контейнере, свойства Сhecked принимают значения False.

Помимо свойства checked компонент TRadioButton имеет еще одно специфичное свойство - Alignment, аналогичное такому же свойству TCheckBox. Как и в TCheckBox, программист не может изменять размеры и цвет круглого окошка компонента.

Пример: В зависимости от выбора найти следующее или предыдущее число от числа А.

Расположите компоненты: RadioGroup на ней 2 RadioButton, Button, 2 Edit (для чисел).
Свойство Caption (RadioGroup) = Выберите пункт
Свойство Caption (RadioButton) = Следующее число
Свойство Caption (RadioButton) = Предыдущее число
Обработчик события:

Var a: integer;

Begin

a: = StrToInt(Edit1.Text);

if RadioButton1.Checked then

a: =a+1

else

if RadioButton2.Checked then

a: =a-1;

Edit2.Text: =IntToStr(a);

End;

Задания:

Вариант №1

Используя 3 зависимых переключателя, решить:

Даны 3 числа, в зависимости от выбора, найти сумму, разность или произведение этих чисел

Вариант №2

Используя 2 зависимых переключателя, решить:

В зависимости от выбора, найти минимальное или максимальное из 4 чисел.

Вариант №3

Используя 2 зависимых переключателя, решить:

В зависимости от выбора, возрастающая или убывающая последовательность из 3 чисел.

Вариант №4

Используя два зависимых переключателя, решить:

В зависимости от выбора, найти минимальное из первого и второго числа или максимальное из третьего и четвертого числа.

Вариант №5