Реферат: Разработка тестового приложения Компоненты меню Delphi

Рис 3. Настройка программы тестирования

Рис 4. Диалоговое окно Run Parameters

2.5. Описание пользовательского интерфейса

После создания формы в окно редактора кода, в секцию implementation следует поместить описание глобальных констант (раздел const) и переменных (раздел var). Затем можно приступить к созданию процедур обработки событий.

Их в программе три:

1. Обработка события OnActivate для стартовой формы.

2. Обработка события Onclick для командной кнопки Button1.

3. Процедура обработки события Onclick - одна, общая для переключателей выбора ответа.

После запуска программы и вывода на экран стартовой формы происходит событие onActivate. Процедура FormActivate сначала вызывает процедуру ResetForm, которая, присваивая значение False свойству Visible, делает невидимыми поля вывода альтернативных ответов и все переключатели. Аналогично делается невидимой область иллюстрации. Кроме того, процедура устанавливает максимально возможную ширину полей меток альтернативных ответов.

После очистки формы проверяется, указан ли при запуске программы параметр - имя текстового файла с вопросами теста.

Если параметр не указан (значение ParamСount в этом случае равно нулю), то присвоением значения свойству Caption метки Label5 выводится сообщение: «Не задан файл вопросов теста» и свойству Tag кнопки Buttonl присваивается значение 2 (Buttonl.Tag:=2;). Если параметр задан, то открывается файл теста.

Программа тестирования получает имя файла теста как результат функции ParamStr (1). Реализация программы предполагает, что если имя файла теста задано без указания пути доступа к нему, то файл теста и файлы с иллюстрациями находятся в том же каталоге, что и программа тестирования. Если путь доступа указан, то файлы с иллюстрациями должны находиться в том же каталоге, что и файл теста. Такой подход позволяет сгруппировать все файлы одного теста в одном каталоге.

Открывается файл теста обычным образом. Сначала обращением к процедуре AssignFile имя файла связывается с файловой переменной, а затем вызывается инструкция открытия файла для чтения.

После успешного открытия файла вызывается процедура infо которая считывает из файла информацию о тесте и выводит ее в форму присваиванием прочитанного текста свойству Caption поля метки Label5.

Затем вызывается процедура Get Level, которая считывает из файла теста информацию об уровнях оценки. Эта процедура заполняет массивы level и mes.

После вывода информационного сообщения программа ждет, когда пользователь нажмет кнопку "Начать" (Button1).

Командная кнопка Button1 используется для:

· аварийного завершения работы приложения (в случае, если не задано имя файла теста);

· начала тестирования (после прочтения информационного сообщения);

· перехода к следующему вопросу (после выбора одного из ответов);

· завершения работы программы (после прочтения результатов тестирования).

Свойство Tag кнопки Button1, используется для идентификации текущего состояния формы и выбора действия при нажатии кнопки Button1.

После вывода информации о тесте значение свойства Tag кнопки Button1 равно нулю. Поэтому в результате первого нажатия кнопки Button1 выполняется та часть программы, которая обеспечивает:

· вывод первого вопроса;

· замену текста, находящегося на командной кнопке (свойство caption с Начать на Дальше;

· установку невидимого служебного переключателя RadioButton5 в выбранное состояние.

Кроме того, присваиванием значения False свойству Enabled кнопка Button1 делается недоступной, тем самым блокируется переход к следующему вопросу до тех пор, пока не будет выбран один из ответов. Значению свойства

Button1.Tag присваивается единица, тем самым выполняется подготовка к обработке следующего нажатия кнопки Button1.