Задание 3

Разработаем программу для тестирования знаний.

Каждая страница блокнота (закладка) содержит один вопрос с возможными вариантами ответа. Обучаемый должен выбрать правильный (по его мнению) вариант ответа, щелкнув мышью по нужному переключателю. Количество вопросов, в принципе, не ограничено, но мы создадим только пять вариантов закладок. Число возможных вариантов ответа на закладке так же неограниченно, но целесообразно помещать на страницу от трех до десяти – двенадцати вариантов.

Результаты теста с выставлением оценки выводятся щелчком по кнопке «Результаты опроса». Внешний вид окна приложения приведен на рис. 2.

Рис. 2. Окно разрабатываемого приложения «Тест»

1. Установите на форму компонент PageControl со страницы Win32 и задайте ему необходимые размеры.

2. Щелкнув в поле компонента PageControl правой клавишей мыши, откройте всплывающее меню, в котором выберете пункт New Page. Появится первая закладка блокнота, озаглавленная TabSheet1.

3. внимательно изучите свойства компонента TabSheet, доступные в Инспекторе Объектов, согласно таблице 2.

4. Измените название закладки на «1 вопрос» (свойство Caption компонента TabSheet1).

5. Обратите внимание, что компонент PageControl является контейнером, содержащим несколько компонентов TabSheet, поэтому следует правильно активизировать нужную закладку мышью, чтобы иметь доступ к её свойствам в Инспекторе Объектов.

6. Установите еще 3-5 закладок, проделав аналогичные операции;

7. Установите два компонента Button, согласно рис. 5.2, дав им названия «Результаты опроса» и «Выход»;

8. Сохраните приложение в отдельной папке командой File/Save All;

9. Запустите проект и убедитесь, что закладки уже работают. Закройте проект.

10. Поместите на первую закладку компонент RadioGroup со страницы Additional.

11. Установите заголовку группы (свойство Caption для компонента RadiоGroup) значение “Автор произведения “Война и мир”:”.

12. Дважды щелкнув мышью в поле свойства Items для компонента RadioGroup, раскройте диалоговое окно специального редактора строк StringListEditor для ввода вариантов ответа. Число введенных строк будет соответствовать числу компонентов RadioButton в группе. Введите в столбик следующие значения: Пушкин А. С., Лермонтов М. Ю., Гоголь Н. В., Толстой Л. Н., Достоевский Ф. М.

13. Свойству Tag для компонента RadioGroup в Инспекторе Объектов задайте значение 3. Это номер правильного ответа, считая с нуля.

14. Самостоятельно напишите код обработчика для кнопки «Выход»;

15. Для того, чтобы при запуске приложения активизировалась нужная (первая) закладка, следует написать следующий обработчик события OnActivate для самой формы:

16. PageControl1.ActivePage:=TabSheet1;

17. Для кнопки «Результаты опроса» код обработчика Button1Click приведен ниже.

int Z=5; // Количество вопросов в варианте (число закладок)

int Verno,Neverno,Bal;

Verno:=0; // Счетчик верных ответов

Neverno:=0; // Счетчик неверных ответов

// Обработка 1 вопроса

if (RadioGroup1−>ItemIndex==RadioGroup1−>Tag)

Verno++;

else

Neverno++;

// Обработка 2 вопроса

if (RadioGroup2−>ItemIndex==RadioGroup2−>Tag)

Verno++;

else

Neverno++;

//И так далее

// Обработка результата теста

Bal=Verno/Z;

if (Bal<2)

Bal=2;

// Вывод результата

MessageDlg("Верных ответов: " +IntToStr(Verno) +#13+

"Неверных ответов: "+IntToStr(Neverno)+#13+

"ОЦЕНКА: "+IntToStr(Bal),mtInformation,[mbOk],0);