Как создать тест в делфи 7 пошаговая инструкция с записью результатов

Сейчас подготовил серию уроков по созданию тестов на Delphi. Эта тема сейчас очень распространненая, так как много кто пишет курсовые по этим темам, дипломные и многое другое. Тех же самых сотрудников можно протестировать, так что эта тема очень распространненая. Предлагаю серию тестов с использованием файлов. Да с использованием БД — это хорошо, но если БД локальная, то дела все теже, что и с файлами. С БД я даже рассказывать не буду как делать, там вообще все просто, тем более я рассказал курс по работе с БД в Delphi. Так вот рассмотрим создание тестов используя два варианта. С использованием обычных файлов — dat, db или любой другой свой формат, а также с использованием ini-файлов. Скажу одно, что с использованием ini-файлов необходимо шифрование данных, я про него еще не рассказывал, но все как-нибудь доберусь. Шифрование нужно хотя бы для, того, чтобы пользователь, открыв файл не узнал правильный ответ, в dat-файле например, это можно кое-как скрыть и без шифрование, так что давайте попробуем для начала добавить данные в файл. То есть добавить (создать) наш тест. Для начала нам необходимо описать структуру, где будет храниться наш тест, а затем создать файл данной структуры.
Моя структура выглядит так

Type
TTest=record
Name_v:String[255];
otv:string[255];
count_v:integer;
count_otv:integer;
pr_ot:string[255];
end;

Здесь у меня

Далее мы описываем файл данной стуктуры, затем саму стуктуру и начинаем запись. Я про файлы не рассказывал (а надо было, займусь этим попозже), тут есть набор функций и процедур по работе с файлами. На событие формы — OnCreate мы создаем наш файл тестов

procedure TForm1.FormCreate(Sender: TObject);
var
F:File of TTest;
begin
try
count:=0;
AssignFile(F,'test.dat');
Rewrite(F);
except
on e:Exception do
end;
end;

Функции и процедуры по работе с файлами я расскажу потом, а сейчас менее подробно. Например AssignFile — связывает файловую переменную с именем файла. Rewrite — создает новый файл, Reset — открывае уже существующий файл, Seek — устанавливает указатель в файле на нужную компоненты (она нам очень пригодится). Также на форму я установил следующие компоненты

• TButton — 2 шт
• TEdit — 2 шт
• TCheckListBox
• TGroupBox

То есть у нас будут сколько угодно вариантов ответа и сколько угодно правильных ответов. Далее на кнопку добавления ответов в TChecklistBox я написал следующий код.

procedure TForm1.Button4Click(Sender: TObject);
begin
try
CheckListBox1.Items.Add(Edit2.Text);
Edit2.Clear;
except
on e:Exception do
end;
end;

То есть мы просто формируем наши ответы. Как Вам понятно у нас всего 3 вопроса, я первоначально нашей переменной присвоил это значение, может быть и меньше, но никаки больше. Далее я на кнопку записи вопроса в файл написал следующий код

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
F:File of TTest;
Test:TTest;
count,k:integer;
arr_pr_ot:array[1..255] of string;
begin
try
if (Trim(Edit1.Text)='') or (CheckListBox1.Count=0) then
begin
exit;
end;
inc(count);
Test.count_v:=3;
Test.count_otv:=CheckListBox1.Items.Count;
for i:=0 to CheckListBox1.Count-1 do
begin
Test.Name_v:=Edit1.Text;
if CheckListBox1.Checked[i] then
Test.pr_ot:=IntToStr(CheckListBox1.ItemIndex);
Test.otv:=CheckListBox1.Items[i];
Write(F,Test);
end;
if count=Test.count_v then
begin
ShowMessage('Test create compleate');
CloseFile(F);
count:=0;
end;
CheckListBox1.Clear;
Edit1.Clear;
except
on e:Exception do
end;
end;

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

22

ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ЛУГАНСКОЙ НАРОДНОЙ РЕСПУБЛИКИ

«КИРОВСКАЯ СРЕДНЯЯ ОБЩЕОБРАЗОВАТЕЛЬНАЯ ШКОЛА №3»

Практическая работа

урока информатики

Тема: “Разработка тестовой программы в среде Delphi 7”

Составитель: учитель информатики II категории

Петров Денис Сергеевич

2017 г.

Цель: приобрести практические умения и навыки разработки тестовых программ.

Задание

Создать проект в среде Delphi7, реализующий тест, в соответствии со следующими требованиями:

— в проект добавить пользовательские формы, отображающие каждый из вопросов Вашего теста;

— создать программный код для каждой программной формы, позволяющий вывести на формы содержание вопросов и ответов;

— реализовать анализ ответов обучаемого на вопросы теста, по желанию выполнив его либо после ответа на каждый вопрос, либо после ответов на все вопросы;

— предусмотреть итоговый вывод количества правильных и неправильных ответов.

Теоретические сведения

1 Этапы разработки программы

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

При разработке программы, предназначенной для работы в Windows, требования к ней могут включать пункты о желаемом виде диалоговых окон программы.

На этапе разработки алгоритма необходимо определить последовательность действий, которые надо выполнить для достижения поставленной цели, получения результата. Если задача может быть решена различными способами, и, следовательно, возможны различные варианты алгоритма решения, то, программист, используя некоторый критерий, выбирает наиболее подходящее решение. Затем составляется подробное составление алгоритма.

При программировании в Delphi основная работа программиста заключается в разработке подпрограмм. Задачу организации взаимодействия разработанных подпрограмм берет на себя Delphi. Также Delphi удобна для создания программ с визуальными компонентами, которые уже созданы в ней и имеют стандартный набор команд.

1.1 Постановка задачи

Поставленная задача заключалась в следующем. Необходимо создать программу для проведения текстовых проверок знаний в форме тестирования.

1.2 Язык программирования Delphi

Среда разработки Delphi ориентирована, прежде всего, на создание программ для семейства операционных систем Windows. При этом большое внимание уделяется возможности визуальной разработки приложений с помощью большого набора готовых компонентов, а в стандартную поставку Delphi входят основные объекты, которые образуют удачно подобранную иерархию из 270 базовых классов, позволяющих избежать ручного кодирования. Эти компоненты охватывают практически все аспекты применения современных информационных технологий.

В процессе построения приложения необходимо выбирать из палитры компоненты, на основе которых будет строиться проект. Еще до компиляции видно результаты своей работы. В этом смысле проектирование в Delphi мало чем отличается от проектирования в интерпретирующей среде, однако после выполнения компиляции получаем код, который исполняется в 10 раз быстрее, чем то же самое, сделанное при помощи интерпретатора. Среда Delphi включает в себя полный набор визуальных инструментов для скоростной разработки приложений, поддерживающей разработку пользовательского интерфейса.

1. Пользовательский интерфейс

При запуске теста, показывается название программы и кнопка “Начать тест”.

После нажатия этой кнопки начинается сам тест, при этом откроется новое окно, а старое закроется.

При нажатии кнопки “Начать тест” на форме отобразится вопрос и четыре варианта ответа, выбор варианта ответа производится кликом мыши. Продолжение тестирования производится кнопкой “Ответить ” при этом на форме будут отображаться новые вопросы и четыре варианта ответа.

По окончании теста, программа подсчитает количество правильных ответов и выставит на их основе оценку тестируемого.

2 Описание исходных текстов программы

unit Unit2; // модуль главной формы

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

Переменные.

var

Form2: TForm2;

Ini: TIniFile;

QuestNum: Integer;

QuestCount: Integer;

Scores: Integer;

Wrong: Integer;

ProgPath : string;

Count : integer;

2.1 Создание простейшей кнопки

Простейшей и, пожалуй, наиболее часто используемой кнопкой является кнопка Button расположенная на странице библиотеки Standard.

Основное с точки зрения внешнего вида свойство кнопки — Caption (надпись). В надписях кнопок можно предусматривать использование клавиш ускоренного доступа, выделяя для этого один из символов надписи. Перед символом, который должен соответствовать клавише ускоренного доступа, ставится символ амперсанта «&». Этот символ не появляется в надписи, а следующий за ним символ оказывается подчеркнутым. Тогда пользователь может вместо щелчка на кнопке нажать в любой момент клавишу Alt совместно с клавишей выделенного символа.

Основное событие любой кнопки — OnClick, возникающее при щелчке на ней. Именно в обработчике этого события записываются операторы, которые должны выполняться при щелчке пользователя на кнопке. Помимо этого есть еще ряд событий, связанных с различными манипуляциями клавишами и кнопками мыши.

Свойство Cancel, если его установить в true, определяет, что нажатие пользователем клавиши Esc будет эквивалентно нажатию на данную кнопку. Это свойство целесообразно задавать равным true для кнопок «Отменить» в различных диалоговых окнах, чтобы можно было выйти из диалога, нажав на эту кнопку или нажав клавишу Esc. Свойство Default, если его установить в true, определяет, что нажатие пользователем клавиши ввода Enter будет эквивалентно нажатию на данную кнопку, даже если данная кнопка в этот момент не находится в фокусе. Правда, если в момент нажатия Enter в фокусе находится другая кнопка, то все-таки сработает именно кнопка в фокусе.

Из методов, присущих кнопкам, имеет смысл отметить один — Click. Выполнение этого метода эквивалентно щелчку на кнопке, т.е. вызывает событие кнопки OnClick. Этим можно воспользоваться, чтобы продублировать какими-то другими действиями пользователя щелчок на кнопке. Пусть, например, вы хотите, чтобы при нажатии пользователем клавиши с символом «С» или «с» в любой момент работы с приложением выполнялись операции, предусмотренные в обработчике события OnClick кнопки Button1. Поскольку неизвестно, какой компонент будет находиться в фокусе в момент этого события, надо перехватить его на уровне формы. Такой перехват осуществляется, если установить свойство формы KeyPreview в true. Тогда в обработчике события формы OnKeyPress можно написать оператор

if (key=’C’ or key=’c’) then Button1.Click;

Если пользователь ввел символ «С» или «с», то в результате будет выполнен обработчик щелчка кнопки Button1.

2.2 Опции окна редактирования

В компоненте Edit вводимый и выводимый текст содержится в свойстве Text. Это свойство можно устанавливать в процессе проектирования или задавать программно. Выравнивание текста, как это имело место в метках и панелях, невозможно. Перенос строк тоже невозможен. Текст, не помещающийся по длине в окно, просто сдвигается, и пользователь может перемещаться по нему с помощью курсора. Свойство AutoSize в окнах редактирования имеет смысл, отличный от смысла аналогичного свойства меток: автоматически подстраивается под размер текста только высота, но не ширина окна.

Окна редактирования снабжены многими функциями, свойственными большинству редакторов. Например, в них предусмотрены типичные комбинации «горячих» клавиш: Ctrl-C — копирование выделенного текста в буфер обмена Clipboard (команда Copy), Ctrl-X — вырезание выделенного текста в буфер Clipboard (команда Cut), Ctrl-V — вставка текста из буфера Clipboard в позицию курсора (команда Paste), Ctrl-Z — отмена последней команды редактирования.

Edit можно использовать и просто как компоненты отображения текста. Для этого надо установить в true его свойство ReadOnly и целесообразно установить AutoSelect в false. В этом случае пользователь не сможет изменять отображаемый текст, и окно редактирования становится подобным меткам. При использовании окон редактирования для вывода, ввода и редактирования чисел необходимо использовать функции взаимного преобразования строк и чисел. Для вывода это описанные при рассмотрении меток функции FloatToStr и IntToStr. При вводе это функции StrToFloat — преобразование строки в значение с плавающей запятой, и StrToInt — преобразование строки в целое значение. Если вводимый текст не соответствует числу (например, содержит недопустимые символы), то функции преобразования генерируют исключение EConvertError.

Этот код обеспечивает сообщение пользователю об ошибке ввода и предотвращает ошибочные вычисления. Впрочем, это не лучший вариант предотвратить ошибочный ввод, поскольку пользователь узнает о своей ошибке только после того, как программа пытается использовать введенные данные. Лучше, если пользователь просто не сможет ввести неправильные символы. Например, если вы хотите, чтобы пользователь мог вводить в окно редактирования Edit только цифры и символ точки, вы можете в обработчик события OnKeyPress этого компонента вставить оператор:

if not (Key in [‘0’..’9′, ‘,’]) then Key := #0;

Этот оператор подменит все символы, кроме цифр и запятой, нулевым символом, который не занесется в текст окна Edit.

Внешний вид формы (Form2) в дизайнере форм. Иерархия расположения компонентов на форме приведена на рис.1.

.

Рисунок 1 — Иерархия расположения компонентов на форме

2.3 Функции

Ниже я приведу описание функций:

1) функция, ss2nn которая переводит секунды в минуты + секунды в строковом формате (необходимо для подсчета времени прошедшего с начала тестирования):

function TForm2.ss2nn(Seconds: Integer): String;

var

nMin, nSec: Integer;

begin

{Проверяем, меньше чем 1/Min}

if Seconds 60 then Result := ‘0 минут ‘ + IntToStr(Seconds) + ‘ секунд’

Создание теста.

Компонент RadioGroup

Caption заголовок группы

Items задание строк
кнопок 

ItemIndex содержит
номер выбранной строки (нумерация с 0),
значение -1 означает что ни одна строка
не выбрана!

Тест состоит, например, из 5 форм. На
каждой форме расположены вопрос, варианты
ответов, кнопка (New – Form
открытие новой формы, Shift
+ F12 перемещение между
формами).

Процедура пишется на кнопку Далее.
Во всей работе будет одна переменная
i: integer;
она глобальная. Описываем ее в месте,
где:

Var

Form1: TForm1;

i:integer;
вписываем сами

Implementation

Uses Unit2;

Описание глобальной переменной происходит
только в Unit1. Разработчик
теста должен знать правильный ответ,
т.к. это указывается в программе.

Процедура на
кнопку Далее:

Begin

If RadioGroup1.Itemindex=-1 then ShowMessage
(‘Забыли ответить
на вопрос!’)

Else

Begin if RadioGroup1.Itemindex=2 then i:=i+1;

Form2.show;

End;

Открываем новую форму (New
– Form) оформляем вопрос –
ответы, кнопка Далее:

Begin

If RadioGroup1.Itemindex=-1 then ShowMessage
(‘Забыли ответить
на вопрос!’)

Else

Beginif RadioGroup1.Itemindex=1 then i:=i+1;

Form2.Close;

Form3.Show;

End;

Начиная со
второго модуля
(Unit2), добавляем слово
Unit1 в то
место, где
идет перечисление:
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,

StdCtrls, ExtCtrls,unit1;

Аналогичную работу проделываем с формой
3 и 4.

На форме 5 располагаем вопрос, варианты
ответов, кнопку Готово и пишем процедуру
на эту кнопку

Begin

If RadioGroup1.Itemindex=-1 then ShowMessage
(‘Забыли ответить
на вопрос!’)

Else

Begin if RadioGroup1.Itemindex=3 then i:=i+1;

End;

Case i of

0,1,2: ShowMessage (‘Вы получили
2’);

3: ShowMessage (‘Вы получили
3’);

4: ShowMessage (‘Вы получили
4’);

5: ShowMessage (‘Вы получили
5’);

End;

Создали тест, делаем первый раз запуск
программы, появится окно, где нужно
выбирать YES, окно будет
появляться столько раз, сколько было
форм, это устанавливаются связи.

Первую форму
можно использовать для отображения
общей информации о тесте, например:

Используемые объекты:

Весь текст отображаемый в объекте Memo1,
заранее сохранить в файле text.txt (название
может быть свое), в текущей папке проекта

procedure TForm1.FormCreate(Sender: TObject);

begin

Memo1.Lines.LoadFromFile (‘text.txt’);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.show;

end;

Добавление иллюстраций

Страница
библиотеки Additional
Класс TImage

Компонент
Image
дает
отображение на форме графического
изображения. Свойство Picture
позволяет
отобразить выбранное изображение в
приложении.

Соседние файлы в папке №10

• #
• #