Создать программу, с помощью которой можно выполнить:
После запуска программы появляется изображение аналогичное рисунку 25.2. Пользователь по своему усмотрению выбирает один из переключателей в группе. В зависимости от правильности ответов появляется одно из сообщений «Плохо!», «Удовлетворительно!», «Хорошо!», «Отлично!».
Рисунок 25.2
Пояснения: новыми в этой программе являются группа переключателей RadioGroup, компонент CheckBox и компонент Panel на странице палитры компонентов Стандартные (Standard).
План разработки программы
1. Открыть новый проект. Дать имя форме Тест по Delphi.
2. Сохранить проект в отдельной папке под именем Pr6.pas и Project6.dpr
3. Разместить в форме компоненты в соответствии с рисунком 25.3.
Рисунок 25.3
4. Выполнить следующие действия:
| Выделенная компонента
| Окно инспектора объектов
| Имя свойства, события
| Действие
|
| Label1
| Параметры (Properties)
| Caption
| С помощью какой клавиши запускают программу?
|
| Autosize
| False
|
| WordWrap
| True
|
| Height
|
|
| Width
|
|
| Left
|
|
| Label2
| Параметры (Properties)
| Caption
| Какое свойство определяет вид компонента BitBtn?
|
| Autosize
| False
|
| WordWrap
| True
|
| Height
|
|
| Width
|
|
| Left
|
|
| Label3
| Параметры (Properties)
| Caption
| Сколько окон можно увидеть после загрузки интерфейса Delphi?
|
| Autosize
| False
|
| WordWrap
| True
|
| Height
|
|
| Width
|
|
| Left
|
|
| Label4
| Параметры (Properties)
| Caption
| Главный модуль представляет собой файл с расширением:
|
| Autosize
| False
|
| WordWrap
| True
|
| Height
|
|
| Width
|
|
| Left
|
|
| Label5
| Параметры (Properties)
| Caption
| С какого слова начинается главный модуль?
|
| Autosize
| False
|
| WordWrap
| True
|
| Height
|
|
| Width
|
|
| Left
|
|
| BitBtn1
| Параметры (Properties)
| Kind
| bkClose
|
| Caption
| Выход
|
| События (Events)
| OnClick
| Close;
|
| CheckBox1
| Параметры (Properties)
| Caption
| Начало работы
|
| Panel1
| Параметры (Properties)
| Caption
| Удалить название
|
| RadioGroup1
| Параметры (Properties)
| Caption
| Удалить название
|
| Columns
(количество отображаемых колонок)
|
|
| Items
| Вызвать StringListEditor, дважды щелкнув мышкой рядом со свойством Items. Ввести 5 строк:
F2
F5
F7
F9
F12
Введенный текст сохранить в файле test1.txt
|
| RadioGroup2
| Параметры (Properties)
| Caption
| Удалить название
|
| Columns
|
|
| Items
| Ввести 5 строк:
Caption
Color
Kind
Enabled
Name
Введенный текст сохранить в файле test2.txt
|
| RadioGroup3
| Параметры (Properties)
| Caption
| Удалить название
|
| Columns
|
|
| Items
| Ввести 5 строк:
Введенный текст сохранить в файле test3.txt
|
| RadioGroup4
| Параметры (Properties)
| Caption
| Удалить название
|
| Columns
|
|
| Items
| Ввести 5 строк:
.res
.exe
.dpr
.cfg
.pas
Введенный текст сохранить в файле test4.txt
|
| RadioGroup5
| Параметры (Properties)
| Caption
| Удалить название
|
| Columns
|
|
| Items
| Ввести 5 строк:
Unit
Program
Begin
Var
Function
Введенный текст сохранить в файле test5.txt
|
5. Для суммирования набираемых пользователем баллов выполните следующие действия:
| Выделенная компонента
| Окно инспектора объектов
| Имя свойства, события
| Действие
|
| RadioGroup1
| События (Events)
| OnClick
| Sum:=0;
If RadioGroup1.ItemIndex=3 Then
Sum:=Sum+1;
Пояснение:
Индекс первого переключателя равен 0. Правильный ответ содержит переключатель с меткой F9, имеющий индекс 3.
|
Переменную Sum необходимо объявить в разделе Var перед разделом implementation.
6. Вставьте в обработчик событий RadioGroup2Click, RadioGroup3Click, RadioGroup4Click, RadioGroup5Click аналогичные коды, с учетом правильных ответов, но без обнуления переменной Sum, так как оно необходимо лишь один раз перед началом суммирования.
7. Выведем на контрольную панель итоговое сообщение в зависимости от набранной суммы баллов.
| Выделенная компонента
| Окно инспектора объектов
| Имя свойства, события
| Действие
|
| RadioGroup5
| События (Events)
| OnClick
| Case Sum of
0..2:Panel1.Caption:=’Плохо!’;
3:Panel1.Caption:=’Удовлетворительно!’;
4:Panel1.Caption:=’Хорошо!’;
5:Panel1.Caption:=’Отлично!’;
End;
|
8. Вывести сообщение об окончании тестирования, добавив в обработчик событий RadioGroup5Click код:
ShowMessage (‘Конец теста!’);
9. Сохранить проект окончательно, запустить и протестировать его.
