Система тестирования. Часть 7

В предыдущей части цикла статей была выполнена подготовительная часть для написания программы-теста. Сегодня мы приступим, непосредственно, к разработке самого теста.

Для начала, нужно создать новый проект в папке тест, и подключить к нему все файлы из lib.

Интерфейс программы

Рассмотрим внешний вид приложения-теста. В отличие, от программы для создания теста, интерфейс будет здесь более простым. Нужны лишь две метки для отображения названия теста и вопроса, так же нужен блок вариантов ответа и три кнопки: «Назад», «Далее» и «Закончить».

Исходя из вышесказанного, приложение может выглядеть так (скачать dfm):

Основные компоненты:

  • TNameLabel (TLabel) – метка, где отображается название теста
  • QTextLabel (TLabel) – метка, где отображается текста вопроса
  • APanel (TPanel) – блок варинатов ответа
  • PrevButton (TButton)– кнопка «Назад»
  • NextButton (TButton)– кнопка «Далее»
  • ResultButton (TButton) – кнопка «Закончить»
  • QCountLabel (TLabel) – метка, где отображается номер текущего вопроса и их общее количество

Выбор файла теста и получение данных

Необходимо, что бы файл теста можно было выбрать перед загрузкой самой программы. Это несколько обезопасит тест, и облегчит работу с ним. Существует два варианта как это реализовать:

  • Передавать имя файла как параметр командной строки
  • Перед созданием формы, отображать диалоговое окно выбора файла

Мы рассмотрим оба варианта.

Для начала, в основной класс формы добавим следующие поля:

  • Data (TStData) – объект, для работы с данными.
  • Questions (TObjectList) – список вопросов(TStQuestionTest)
  • Answers(TObjectList) – список блоков вариантов ответа  (TStAnswerBlock)  для текущего вопроса

Так же, добавим привычные уже методы Load, LoadQuestion и LoadData.

  1. TMainForm = class(TForm)
  2. //...
  3. private
  4.   procedure Load;
  5.   procedure LoadQuestion;
  6.   procedure LoadData;
  7. public
  8.   Data: TStData;
  9.   Questions: TObjectList;
  10.   Answers: TObjectList;
  11. end;

Метод Load

Тот самый метод, отвечающий за выбор файла теста и получение из него данных. Определяет, передано ли имя файла как параметр командной строки, и если нет, то показывает диалоговое окно выбора файла. Если файл не выбран, или возникли ошибки при чтении, то программа закрывается. В случае успеха вызывает метод LoadData.

  1. procedure TMainForm.Load;
  2. var
  3.   fileName: string;
  4. begin
  5.     try
  6.       // Если имя файла передано как параметр ком. строки
  7.       if ParamCount > 0 then fileName := ParamStr(1)
  8.       // В противном случае, показывает диалоговое окно
  9.       else if OpenDialog.Execute then fileName := OpenDialog.FileName
  10.       else Close; // Если ничено не выбранно, то закрываем форму
  11.  
  12.       Data.Load( fileName ); // Получаем данные
  13.       LoadData; // Загружаем данные в форму
  14.  
  15.     except
  16.         Close; // Если возникли ошибки, закрываем форму
  17.     end;
  18. end;

Метод LoadData

Отображает название теста и вызывает метод LoadQuestion.

  1. procedure TMainForm.LoadData;
  2. begin
  3.   TNameLabel.Caption := Data.StTest.Text;
  4.   LoadQuestion;
  5. end;

Метод LoadQuestion

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

  1. procedure TMainForm.LoadQuestion;
  2. var
  3.   tmpQuestion: TStQuestion;
  4.   tmpQuestions: TObjectList;
  5.   i, max: integer;
  6. begin
  7.   Questions.Clear; // Очищаем список вопросов
  8.   // Создаем врменные список для хранения активных
  9.   // вопросов
  10.   tmpQuestions := TObjectList.Create;
  11.  
  12.   // Пробегаем циклом по всем вопросам
  13.   for i := 0 to Data.StQuestionList.Count - 1 do
  14.     begin
  15.       // Получаем текущий вопрос
  16.       tmpQuestion := ( TStQuestionTest( Data.StQuestionList.Items[i] ) );
  17.       // Если он активный, тогда добавляем в временный список
  18.       if tmpQuestion.Active then
  19.         tmpQuestions.Add( tmpQuestion );
  20.     end;
  21.  
  22.   // Если количество запросов, которые нужно отображать заданы
  23.   // и меньше количества активных вопросов, то отмечаемы это
  24.   if (Data.StTest.QCount > 0) and
  25.      (Data.StTest.QCount <= tmpQuestions.Count) then
  26.     max = Data.StTest.QCount;
  27.   else // В противном случаем, макс. кол-во вопросов равно кол-ву активных
  28.     max = tmpQuestions.Count;
  29.      
  30.   // Копируем заданное кол-во вопросов из временного списка в основной
  31.   for i := 0 to max - 1 do
  32.     Questions.Add( TStQuestionTest (tmpQuestions.Items[i]) );    
  33. end;

Перемешивание вопросов и вариантов ответа

В требования к системе, было оговорено, что бы вопросы и варианты ответа выводились в случайном порядке. То есть, нам нужно просто случайно отсортировать списки Questionsи Answers.

Для этого достаточно использовать метод Sort класса TObjectList. Он сортирует список по критерию, устанавливаемому принимаемой функцией. Которая сравнивает два элемента списка и возвращает отрицательное число, если первый меньше второго, 0 – если они равный, и положительное число, если второй больше первого.

Для случайной сортировки, достаточно, что бы функция рандомно возвращала число от -1 до 1:

  1. function RandomList(Iteml, Item2: Pointer): Integer;
  2. begin
  3.   Result := Random( 3 ) - 1;
  4. end;

Текущий вопрос

Добавим свойство QIndex, для обозначения номера вопроса, на который в данный момент пытается ответить тестируемый. Так же, добавим скрытое поле SelectQuestion типа TStQuestionTest, в котором будет сам текущий вопрос.

  1. TMainForm = class(TForm)
  2.   //...
  3. private
  4.   FQIndex: Integer;
  5.   SelectQuestion: TStQuestionTest;
  6.   //...
  7.   procedure SetQIndex(const Value: Integer);
  8.   procedure UpdateCount;
  9.   procedure ShowAnswers;
  10. public
  11.   //...
  12.   property QIndex: Integer read FQIndex write SetQIndex;
  13. end;

Метод SetQindex – запись в свойство QIndex

В общем-то, основной метод этой программы. Для начала, определяется, влезает ли желаемый индекс вопроса в интервал от 0 до количества самих вопроса. Если да, то в поле SelectQuestion  записывается вопрос под заданным индексом. Варианты ответа для него сортируются в случайном порядке. Далее отображается текст вопроса, и вызываются методы ShowAnswers – отображение вариантов ответа, и UpdateCount – обновления счетчика в метке QCountLabel.

  1. procedure TMainForm.SetQIndex(const Value: Integer);
  2. begin
  3.   if (Value >= 0) and (Value < Questions.Count) then
  4.     begin
  5.       // Получаем текущий вопрос
  6.       SelectQuestion := TStQuestionTest ( Questions.Items[ Value ] );
  7.       // Разбрасываем варинты ответа в случайном порядке
  8.       SelectQuestion.StAnswerList.Sort( RandomList );
  9.       // Отображаем текст вопроса
  10.       QTextLabel.Caption := SelectQuestion.Text;
  11.       // Показываем варинты ответа
  12.       ShowAnswers;
  13.  
  14.       FQIndex := Value;
  15.       // Обновляем счетчик
  16.       UpdateCount;
  17.     end;
  18. end;

Метод ShowAnswers

Метод, который отображает варианты ответа как блоки типа TStAnswerBlock (см. предыдущую часть) и так же, заполняет список Answers.

  1. procedure TMainForm.ShowAnswers;
  2. var
  3.   i: integer;
  4.   ABlock: TStAnswerBlock;
  5. begin
  6.   Answers.Clear;
  7.   // Проходим по всем вариантам ответа для текущего вопроса
  8.   for i := 0 to SelectQuestion.StAnswerList.Count - 1 do
  9.     begin
  10.       // Создаем блок варинта ответа
  11.       ABlock := TStAnswerBlock.Create( TStAnswerTest(
  12.                                         SelectQuestion.StAnswerList.Items[i]
  13.                                        ),
  14.                                        APanel, tmpImage.Picture );
  15.       ABlock.Left := 10; // Отступ слева
  16.       ABlock.Top := i*30 + 10; // Отступ сверху
  17.       Answers.Add( ABlock ); // Добавляем блок в список
  18.     end;
  19.  
  20. end;

Метод UpdateCount

Простой метод, который в метке QCountLabel выводит номер текущего вопроса и их общее количество.

  1. procedure TMainForm.UpdateCount;
  2. begin
  3.   QCountLabel.Caption := 'Вопрос ' + IntToStr( FQIndex + 1 )
  4.                          + ' из ' + IntToStr( Questions.Count );
  5. end;

Создание формы

Рассмотрим обработчик события OnCreate для формы. Тут, в общем, все просто. Создаются списки, вызывается метод Load, рандомно сортируются вопросы и текущим задается первый вопрос.

  1. procedure TMainForm.FormCreate(Sender: TObject);
  2. begin
  3.   Data := TStData.GetInstance;
  4.   Questions := TObjectList.Create;
  5.   Answers := TObjectList.Create;
  6.   Load;
  7.   Questions.Sort( RandomList );
  8.   QIndex := 0;
  9. end;

Обработчик события  OnActivate служит дополнительной проверкой. Если название файла не передано, то закрывает приложение.

  1. procedure TMainForm.FormActivate(Sender: TObject);
  2. begin
  3.   if Data.FileName = '' then
  4.     Close;
  5. end;

Кнопки «Далее» и «Назад»

В обработчиках события клика для этих кнопок нет ничего сложного. Просто увеличение или уменьшение QIndex на единицу.

  1. procedure TMainForm.NextButtonClick(Sender: TObject);
  2. begin
  3.   QIndex := QIndex + 1;
  4. end;
  5.  
  6. procedure TMainForm.PrevButtonClick(Sender: TObject);
  7. begin
  8.   QIndex := QIndex - 1;
  9. end;

Проверка и отображение результатов

Для отображения результатов создадим отдельную форму (диалог): ResultForm (скачать dfm). Ее примерный внешний вид:

Переопределим конструктор этой формы, добавив параметр SetResult – собственно, результат тестирования.

  1. constructor TResultForm.Create(AOwner: TComponent; SetResult: integer);
  2. begin
  3.   inherited Create( AOwner );
  4.   RightPercentLabel.Caption := IntToStr( SetResult ) + '%';
  5. end;

Метод Check

Вернемся к главной форме. Сначала добавим метод Check. Он будет проверять все вопросы и выставлять средний бал:

  1. function TMainForm.Check: Integer;
  2. var
  3.   i: integer;
  4.   totalResult: integer;
  5. begin
  6.   totalResult := 0; // Общий процент верных ответов
  7.   // Цикл по вопросам, и определение процента
  8.   for i := 0 to Questions.Count - 1 do
  9.     totalResult := totalResult + TStQuestionTest(Questions.Items[i]).Check;
  10.  
  11.   // Результат тестирования. Общий процент поделить на
  12.   // кол-во вопросов
  13.   result := Round( (totalResult / Questions.Count) );
  14. end;

Кнопка «Закончить»

При клике на кнопку «Закончить» показывается диалог с результатами, и в зависимости от выбора тестируемого либо тест начинается сначала, либо программа закрывается.

  1. procedure TMainForm.ResultButtonClick(Sender: TObject);
  2. var
  3.   ResultForm: TResultForm;
  4. begin
  5.   // Показываем форму
  6.   ResultForm := TResultForm.Create(self, Check );
  7.   if ResultForm.ShowModal = mrNo then
  8.     close
  9.   else
  10.     begin // Ничинаем тест сначала
  11.       Data.Load( Data.FileName );
  12.       LoadData;
  13.       Questions.Sort( RandomList );
  14.       QIndex := 0;
  15.     end;
  16. end;

На этом написание программы-теста закончено. Как и, наконец, закончено написание системы тестирования. В следующей, уже заключительной части, мы подведем итоги и рассмотрим плюсы и минусы нашей системы.

Скачать исходники

Скачать exe файл и файл теста

Скачать полностью исходники программы

delphi, тест
6 18 августа 2010 | Система тестирования

Комментарии (20)

JohnnySuperb | 6 декабря 2010 г. 17:03 Ответить

А для чего делается эта система тестирования - на заказ или для себя? Потому что я на данный момент тоже занимаюсь написанием клиента тестирвоания для ВУЗа. И у нас главная задача - поддержка картинок и все делаем через utf-8 - дабы не было проблем с кодировками.

Nodlik | 7 декабря 2010 г. 0:11 Ответить

JohnnySuperb,
Писалась давно, для курсовой:)
А создание поддержки картинок, и прочее расширение системы думаю потом когда-нибудь описать в отдельном цикле статей.

Анна | 7 декабря 2010 г. 18:56 Ответить

Пытаюсь разобраться в Ваших трудах, но что-то не все получается.
Начинаю работать с исходниками, постоянно ругается на библиотеки из папки lib...Я их пытаюсь создать сама из ваших статей, т.к. в исходниках этой папки нет..В итоге ну могу ни как запустить программу как проект..Изучать Delphi только начала..
Если Вам не сложно, отправьте мне на электронную почту полный исходник программы с каталогами lib, create и test.
Заранее благодарна!

E-mail: Matveev-nv@ya.ru

Nodlik | 7 декабря 2010 г. 22:04 Ответить

Анна,
Выложил исходники: http://st-programming.ru/upload/file/test_(2).zip .
Ошибки которые возникали можете описать здесь, попробует разобраться... Просто когда писал статьи, приходилось несколько раз править код, а дельфи под рукой не было, поэтому могли вылезти ошибки :)

Дмитрий | 3 мая 2011 г. 15:20 Ответить



Nodlik
,
нужно модернизировать вашу систему тестирования за определённую плату, связь со мной 410383364 или же 413326021

Николай | 21 июня 2011 г. 20:09 Ответить

Nodlik, "Ошибки которые возникали можете описать здесь, попробует разобраться..."
Пишу-пишу про ошибки, толку нет :)

Анна | 7 декабря 2010 г. 22:23 Ответить

Спасибо! Часть ошибок исчезла, но некоторые остались.
Меня настораживает ошибка при старте проекта: Error reading mainform.DoubleBuffered...Далее либо игнорируем либо продолжаем..
Запускаем старт либо компиляцию, ошибка:

[Error] StData.pas(64): Field definition not allowed after methods or properties
[Error] StData.pas(65): ',' or ':' expected but 'CONSTRUCTOR' found
[Error] StData.pas(66): Field definition not allowed after methods or properties
[Error] StData.pas(67): ',' or ':' expected but 'CLASS' found
[Error] StData.pas(68): 'IMPLEMENTATION' expected but ';' found
[Error] StData.pas(70): '.' expected but 'IMPLEMENTATION' found
[Error] StData.pas(17): Unsatisfied forward or external declaration: 'TStQuestion.Create'
[Hint] StData.pas(46): Private symbol 'XMLDocument' declared but never used
[Hint] StData.pas(49): Private symbol 'LoadData' declared but never used
[Error] StData.pas(51): Unsatisfied forward or external declaration: 'TStData.Load'
[Error] StData.pas(52): Unsatisfied forward or external declaration: 'TStData.LoadFromXml'
[Error] StData.pas(53): Unsatisfied forward or external declaration: 'TStData.LoadEmpty'
[Error] StData.pas(54): Unsatisfied forward or external declaration: 'TStData.Save'
[Error] StData.pas(56): Unsatisfied forward or external declaration: 'TStData.AppendQuestion'
[Error] StData.pas(57): Unsatisfied forward or external declaration: 'TStData.DeleteQuestion'
[Error] StData.pas(59): Unsatisfied forward or external declaration: 'TStData.GetInstance'
[Error] StData.pas(65): Unsatisfied forward or external declaration: 'TStData.Create'
[Fatal Error] MainUnit.pas(7): Could not compile used unit '..\lib\StData.pas'

Если поможете, я буду Вам очень благодарна!

Александр | 7 декабря 2010 г. 22:54 Ответить

Премного благодарю, ошибок нет, всё компилится на Delphi 2010.

Анна | 8 декабря 2010 г. 9:15 Ответить

Да, Действительно, на Delphi 2010 все прекрасно работает!
Кому он нужен, вот прямая ссылка: http://www.delphilab.ru/files/tools/DelphiDistiller.rar

Автору огромное спасибо за помощь, Вы мне очень помогли!

sanatzmd | 19 мая 2011 г. 14:15 Ответить

отправьте мне исходник тестов на адрес sanatzmd@mail.ru

Николай | 25 мая 2011 г. 7:25 Ответить

А когда будет следующая статья?

Николай | 2 июня 2011 г. 12:36 Ответить

Отправил Вам письмо на электронную почту. Посмотрите, пожалуйста. За ранее спасибо.

Николай | 3 июня 2011 г. 15:08 Ответить

Программа компилируется нормально. Но если пользователь пытается начать тест заново, вылетает ошибка. Если программу закрыть-открыть, то снова все нормально.
ЗЫ: "деструктор идиот дописал" :)

Александр | 20 июня 2011 г. 4:06 Ответить


Николай ,

Если добавление деструктора решает проблему с началом теста заново, то подскажите, что написать - я нуб полнейший, а надо срочно

Николай | 21 июня 2011 г. 7:38 Ответить

Александр, внимательно просмотрев и повторив целиком этот пример, я нашел, что в исходниках не хватает аж двух деструкторов. Добавил их, проблему с началом теста заново это не решило.

Николай | 3 июля 2011 г. 12:57 Ответить

Александр, проблема найдена... где-то уничтожается переменная questions
Изменил немного процедуру:

procedure TMainForm.LoadQuestion;
var
tmpQuestion: TStQuestion;
tmpQuestions: TObjectList;
i, max: integer;
begin
Questions := TObjectList.Create; // - добавлено создание переменной
//заново(из-за нее-то и были проблемы)
Questions.Clear; // Очищаем список вопросов
// Создаем врменные список для хранения активных
// вопросов
tmpQuestions := TObjectList.Create;


теперь все работает! Автору респект!

Yo | 16 июня 2011 г. 7:35 Ответить

Есть кто живой? :)

Nick | 17 июня 2011 г. 12:57 Ответить

Нет никого, умерли все...

Yo | 17 августа 2011 г. 13:48 Ответить

А теперь? Тут автор вообще появляется?

Yo | 15 ноября 2011 г. 11:56 Ответить

Беспредел, где автор сайта?! :)

Добавить комментарий

  • Допустимые html-теги:
    <b> </b> - жирный шрифт
    <em> </em> - наклонный
    <s> </s> - зачеркнутый
    <pre> </pre> - сохранение отступов (печать кода)
    [?]
Введите текст с картинки