<< < предыдущая 1 2 3 4 5 6 7 8 9 10 11 / 13 11 12 13 следующая > >>

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

Дата: 2025-05-01; Просмотры: 5

Оценка:

0.00 из 5.00 — оценок

Скачиваний: 0

Лабораторная работа №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