1. Постановка задачи
Создать программу, с помощью которой можно выполнить:
После запуска программы появляется изображение аналогичное рисунку 25.2. Пользователь по своему усмотрению выбирает один из переключателей в группе. В зависимости от правильности ответов появляется одно из сообщений «Плохо!», «Удовлетворительно!», «Хорошо!», «Отлично!».
Рисунок 25.2
Пояснения: новыми в этой программе являются группа переключателей RadioGroup, компонент CheckBox и компонент Panel на странице палитры компонентов Стандартные (Standard).
2. План разработки программы
1. Открыть новый проект. Дать имя форме Тест по Delphi.
2. Сохранить проект в отдельной папке под именем Pr6.pas и Project6.dpr
3. Разместить в форме компоненты в соответствии с рисунком 25.3.
Рисунок 25.3
4. Выполнить следующие действия:
Выделенная компонента |
Окно инспектора объектов |
Имя свойства, события |
Действие |
Label1 |
Параметры (Properties) |
Caption |
С помощью какой клавиши запускают программу? |
Autosize |
False |
||
WordWrap |
True |
||
Height |
50 |
||
Width |
350 |
||
Left |
15 |
||
Label2 |
Параметры (Properties) |
Caption |
Какое свойство определяет вид компонента BitBtn? |
Autosize |
False |
||
WordWrap |
True |
||
Height |
50 |
||
Width |
350 |
||
Left |
15 |
||
Label3 |
Параметры (Properties) |
Caption |
Сколько окон можно увидеть после загрузки интерфейса Delphi? |
Autosize |
False |
||
WordWrap |
True |
||
Height |
50 |
||
Width |
350 |
||
Left |
15 |
||
Label4 |
Параметры (Properties) |
Caption |
Главный модуль представляет собой файл с расширением: |
Autosize |
False |
||
WordWrap |
True |
||
Height |
50 |
||
Width |
350 |
||
Left |
15 |
||
Label5 |
Параметры (Properties) |
Caption |
С какого слова начинается главный модуль? |
Autosize |
False |
||
WordWrap |
True |
||
Height |
50 |
||
Width |
350 |
||
Left |
15 |
||
BitBtn1 |
Параметры (Properties) |
Kind |
bkClose |
Caption |
Выход |
||
События (Events) |
OnClick |
Close; |
|
CheckBox1 |
Параметры (Properties) |
Caption |
Начало работы |
Panel1 |
Параметры (Properties) |
Caption |
Удалить название |
RadioGroup1 |
Параметры (Properties) |
Caption |
Удалить название |
Columns (количество отображаемых колонок) |
5 |
||
Items |
Вызвать StringListEditor, дважды щелкнув мышкой рядом со свойством Items. Ввести 5 строк: F2 F5 F7 F9 F12 Введенный текст сохранить в файле test1.txt |
||
RadioGroup2 |
Параметры (Properties) |
Caption |
Удалить название |
Columns |
5 |
||
Items |
Ввести 5 строк: Caption Color Kind Enabled Name Введенный текст сохранить в файле test2.txt |
||
RadioGroup3 |
Параметры (Properties) |
Caption |
Удалить название |
Columns |
5 |
||
Items |
Ввести 5 строк: 1 2 5 6 7 Введенный текст сохранить в файле test3.txt |
||
RadioGroup4 |
Параметры (Properties) |
Caption |
Удалить название |
Columns |
5 |
||
Items |
Ввести 5 строк: .res .exe .dpr .cfg .pas Введенный текст сохранить в файле test4.txt |
||
RadioGroup5 |
Параметры (Properties) |
Caption |
Удалить название |
Columns |
5 |
||
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. Сохранить проект окончательно, запустить и протестировать его.