Лабораторная работа№19 Пример использования компонентов RadioGroup и CheckListBox, Radiobutton, CheckBox.

Цель работы: освоить навыки работы с компонентами CheckBox, ScrollBar, Memo, RadioButton, научиться использовать их в приложениях.

Студент должен

знать:

• расположение компонентов на Странице Палитры компонентов;

• свойства компонентов CheckBox, ScrollBar, Memo, RadioButton;

• назначение компонентов CheckBox, ScrollBar, Memo, RadioButton;

• как изменять свойства компонентов CheckBox, ScrollBar, Memo, RadioButton во время выполнения программы;

• как управлять методами компонента Memo во время выполнения программы;

уметь:

• изменять значения свойств компонентов CheckBox, ScrollBar, Memo, RadioButton во время выполнения программы;

• управлять методами компонента Memo во время выполнения программы;

• отредактировать написанный уже текст в компоненте класса TMemo.

Примеры и задания:

I. Рассмотрите приведенный ниже пример, поясните процедуры.

Пример.

Выбрать флажками числа. Выбрать операцию, включив соответствующий переключатель. Полосой прокрутки выбрать число N. При нажатии кнопки «Вычислить» подсчитать сумму (произведение) и вывести результат в Memo N раз.

Исходный вид приложения представлен на рисунке.

var Form1: TForm1; K, I:Integer; implementation {$R *.dfm} procedure TForm1.Button3Click(Sender: TObject); begin Close; end; procedure TForm1.ScrollBar1Change(Sender: TObject); begin Label1.Caption:=IntToStr(ScrollBar1.Position); end; procedure TForm1.Button2Click(Sender: TObject); begin Memo1.Lines.Clear; ScrollBar1.Position:=0; CheckBox1.Checked:=False; CheckBox2.Checked:=False; CheckBox3.Checked:=False; CheckBox4.Checked:=False; CheckBox5.Checked:=False; end; procedure TForm1.Button1Click(Sender: TObject); begin If RadioButton1.Checked then Begin K:=0; If CheckBox1.Checked then K:=K+10; If CheckBox2.Checked then K:=K+20; If CheckBox3.Checked then K:=K+30; If CheckBox4.Checked then K:=K+40; If CheckBox5.Checked then K:=K+50; End; If RadioButton2.Checked then Begin K:=1; If CheckBox1.Checked then K:=K*10; If CheckBox2.Checked then K:=K*20; If CheckBox3.Checked then K:=K*30; If CheckBox4.Checked then K:=K*40; If CheckBox5.Checked then K:=K*50; End; For I:=1 to ScrollBar1.Position do Memo1.Lines.Add(IntToStr(K)); end; end.

II. Задания для самостоятельного выполнения

1 . Полосой прокрутки выбрать число N, флажками задать критерий отборки чисел из диапазона [0,N]. Переключателем задать операцию над этими числами.

При нажатии на кнопку “Вывести” должны быть выведены в Memo все числа из диапазона [0,N] по заданному критерию и общая сумма или произведение этих чисел.

2. Ввести строку символов. Установить переключатель на соответствующую букву.

Флажками указать действия которые надо выполнить над строкой.

Все результаты выводятся в Memo поле при нажатии на кнопку “Вычислить”.

3 . Ввести строку символов в Edit поле. Полосой прокрутки выбрать число N – это номер символа.

Проверить число N > длины строки, если да, то вывести сообщение, что N выбрано не верно.

Выбрать действие переключателем.

При нажатии на кнопку “Выполнить”, вывести строку без буквы по номеру N или вывести количество букв в строке(это указывает переключатель).

4 . Выбрать флажками операции. Включить соответствующий переключатель. Ввести в поле Edit число a и b.

При нажатии кнопки “Вычислить” будут вычислены выбранные операции и результаты выводятся в Memo.

5. При нажатии на кнопку “Вычислить” выводится соответствующее сообщение в Label и выводится в Memo значения X и значения соответствующей функции

6. Выбрать полосой прокрутки интервал [1,N]. Включить переключатель четные (нечетные). При нажатии на кнопку “Вывести” вывести четные (нечетные) числа из заданного интервала [1,N] в Memo поле. Если включен флажок суммировать, вычислить еще сумму этих чисел и вывести.

7 . Задумано число случайным образом. Ввести свое число с помощью полосы прокрутки. Вывести в Edit

• задуманное число >

• задуманное число <

• вы угадали

­ ­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­8. Ввести в Edit число N, вычислить суммы от 1 до N, или перемножить от 1 до N (согласно переключателю).

9 . Выбрать флажками числа.

Выбрать операцию, включив соответствующий переключатель.

Полосой прокрутки выбрать число "N".

При нажатии кнопки "Вычислить", подсчитать сумму

(произведение) и вывести результат в "Memo" N раз.

10. При нажатии на кнопку "Вычислить" значение функции y = x² + 2x, где x принимает значение из интервала [a;b] с шагом, выбранным переключателем, и результат выводится в "Memo" в следующем виде:

x= y=

11. Выбрать формулу, по которой будет происходить вычисление:

- сумма;

- произведение.

Выбрать число "N" полосой прокрутки, включить флажок, если нужен только общий результат, иначе выключить.

При нажатии на кнопку "Вычислить", вычисляется соответствующая формула, и результат выводится в Memo поле.

1 2 Ввести число "a".

Если включен переключатель , вывести в Label1 "Чётные" иначе "Нечётные", при нажатии на кнопку "Вывести" если число чётное (нечётное), вывести его в Memo поле иначе не выводить.

­­­­

_________________________________________________________________________________

1 3. Выбрать числа флажками и полученное число должно появиться в edit поле.

Полосой прокрутки выбрать число N.

При нажатии на кнопку "Вычислить", умножить полученное число на N и вывести результат в Memo поле.

1 4. Выбрать число N полосой прокрутки, установить переключатель в положение "Выводить промежуточные суммы" или "Выводить общую сумму" и нажать кнопку "Вычислить", после чего вычисляется формула:

.

Результаты выводятся в Memo.

1 5. Выбрать число "N" полосой прокрутки,

ввести число "а".

Вычислить или. .

Вывести подпись:

"Результат больше 10" или "Результат меньше 10"

1 6. Полосой прокрутки выбрать число "N", установить переключатель. Суммировать от 1 до N числа (чётные или нечётные). В Memo вывести результаты, согласно положению флажка.

Контрольные вопросы:

1. Для чего предназначены компоненты TRadioButton и чем они отличаются от компонента TCheckBox?

2. Приведите пример использования полосы прокрутки. Чем этот элемент управления отличается от прокручиваемой области?

3. Как изменяются состояния индикаторов при каждом щелчке на них пользователем? Какое свойство отвечает за эти действия?

4. В каких случаях используется промежуточное состояние индикатора Checkbox?

5. Какую важную роль играет свойство Checked в компонентах TRadioButton и TCheckBox?

6. Что представляет собой компонент TScrollBar и для чего он предназначен?

7. Какие значения принимает параметр scerollcode компонента ScrollBar?

8. Какие свойства отвечают за «малый» сдвиг и «большой» сдвиг при щелчке на копке или нажатиях определенных клавиш на клавиатуре (каких именно?)?

9. Каким образом текст представляет собой пронумерованный набор строк в компоненте TMemo?

10. В каком свойстве хранится текст компонента класса TMemo?

11. Как можно отредактировать многострочное текстовое поле?