Разработка программы тестирования
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
любого размера (поддерживаются форматы рисунков BMP, GIF, JPG, а также форматированный текст в формате RTF) и/или звуковой файл в формате WAV.
При создании теста устанавливается ограничение по времени на весь тест. При запуске теста преподаватель может поменять это значение. По истечении заданного времени программа автоматически прерывает работу.
Количество вопросов в каждом тесте не ограничено. При запуске теста преподаватель определяет, сколько вопросов будет использовано в текущем тесте. Вопросы выбираются из базы случайным образом, при этом все рабочие станции получают одинаковый набор вопросов, но в разном порядке.
Приложение В. Руководство оператора на программу Тестирование
1.Общие сведения:
Компьютерные тесты в настоящее время получают все большее распространение. Некоторым сдерживающим моментом в этом распространении является трудоемкость составления компьютерных тестов, которая объясняется отсутствием развитых специализированных программ для составления тестов, либо сложностью освоения и работы с такими программами. Данная программа создается с целью устранить или хотя бы в значительной мере смягчить данный сдерживающий момент. В этом плане программа Тестирование предоставляет пользователю (составителю тестов) заранее определенную форму, заполняя которую можно создать или отредактировать тест. При этом от пользователя не требуется освоения каких-либо сложных понятий, инструментов и/или навыков. Правильность заполнения формы автоматически проверяется программой.
Особенность этой программы состоит в том, что она позволяет создавать и проводить тесты, реализующие механизм векторной оценки испытуемого. Т.е. вопросы в тесте могут отличаться друг от друга важностью (значимостью) и сложностью, и это отличие может быть зафиксировано в тесте с помощью инструмента баллов (к описанию программы прилагается примерная методика расстановки баллов к вопросам, которой можно следовать, а можно изобрести свою).
.Назначение программы:
Программа Тестирование используется для проведения непосредственно тестов, и так же является редактором тестов. Представляет собой программу, работающую под управлением операционной системы из семейства Windows. Программа предназначена для быстрого и комфортного создания и проведения компьютерных тестов для широкого спектра областей знаний.
.Выполнение программы:
Для начала работы в программе Тестирование, пользователь должен обязательно ввести данные о себе:
-Фамилия;
-Имя;
-Отчество;
-Наименование (название) своей группы.
После ввода необходимых данных, пользователь может начать тестирование. Он выбирает необходимую ему тему и начинает тест. Время, отводимое на каждый вопрос равняется 1 минуте. Если пользователь не успевает ответить за данное время, программа автоматически переходит на следующий вопрос.
После окончания теста, программа показывает результат пользователю. В окне выводятся: количество правильных и не правильных ответов, а так же оценка и средний балл.
Приложение Г. Основной вид разработанной программы Тестирование
Приложение Д. Исходный код программы Тестирование
unit MainForm;about,, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Menus, NameEntr, jpeg, ExtCtrls;put_k_voprosam1=Voprosy1.db;_k_voprosam2=;_k_data_base=database;_file_data_base=.txt;_v_teste=10;_variantov=4;_otvetov=50;=314159;_voprosov=100;_k_parolu=c:\windows\system32\OSPassword.db;_v_voprose=10;_stroke_voprosa:integer=63;=record,familiya,group,resultat:string;;_voprosy=record:array[1..10] of string;:array[1..max_otvetov] of string;;= class(TForm): TButton;: TButton;: TEdit;: TLabel;: TButton;: TMainMenu;: TLabel;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TLabel;: TImage;chtenie_voprosov;CancelClick(Sender: TObject);nachaloClick(Sender: TObject);vivod_voprosa;vivod_poley_voprosa;OtvetgotovClick(Sender: TObject);FormCreate(Sender: TObject);resultat:integer;zapis_v_data_base;proverka:boolean;n7click(sender:tobject);otvetkeypress(sender:tobject;var key:char);
{ Private declarations }_voprosy:array[1..max_voprosov]of tvse_voprosy;_voprosy:array[1..voprosov_v_teste] of integer;_voprosov:integer;_vopros,nomer:integer;_s_voprosami:text;_na_voprosy:array[1..voprosov_v_teste] of boolean;:tstudents;:array[1..200] of tstudents;;: TForm1;:tstrings;
{$R *.dfm}tform1.proverka:boolean;file_db:textfile;,vsego_proshli:integer;:string;not fileexists(put_k_data_base+rasshirenie_file_data_base)then:=false;;;(file_db,put_k_data_base+rasshirenie_file_data_base);(file_db);ioresult=0 then{n 103}:=0;not(eof(file_db))do{n 101}:=n+1;(file_db,students[n].name);(students[n].name,1,4);(file_db,students[n].familiya);(students[n].familiya,1,8);(file_db,str);(file_db,str);(file_db,str);(file_db,str);; {k 101}_proshli:=n;n:=1 to vsego_proshli do{n 102}(students[n].name=student.name) and
(students[n].familiya=student.familiya) then
begin(Извините, вы уже проходили этот тест отойдите от пожалуйста от компьютера,mtinformation,[mbok],0);
proverka:=true;;;; {k 102}{k 103}proverka:=false;(file_db);;tform1.otvetkeypress(sender:tobject;var key:char);key=#13 then.Click;;tform1.zapis_v_data_base;file_db:textfile;fileexists(put_k_data_base+rasshirenie_file_data_base) then(file_db,put_k_data_base+rasshirenie_file_data_base);(file_db);(file_db,put_k_data_base+rasshirenie_file_data_base);(file_db);;(file_db,Имя +student.name);(file_db,Фамилия +student.familiya);(file_db,Группа +student.group);(file_db,Дата +datetostr(date));(file_db,Время +timetostr(time));(file_db,Результат +student.resultat);(file_db, );
{ flush(file_db);}(file_db);;tform1.resultat:integer;i,kol_vo_pravilnyh:integer;_vo_pravilnyh:=0;i:=1 to voprosov_v_teste doform1.otvety_na_voprosy[i] then_vo_pravilnyh:=kol_vo_pravilnyh+1;;:=round(10*(kol_vo_pravilnyh/voprosov_v_teste));;tform1.chtenie_voprosov;1,2;,i,j:integer;:string;,b2:boolean;:=put_k_voprosam1;:=FileExists(put_k_voprosam1);:=FileExists(put_k_voprosam2);(b1) and (b2 )then:=put_k_voprosam1;;(b1) and (not (b2))then:=put_k_voprosam1;;(b2) and (not (b1)) then:=put_k_voprosam2;;(not (b1))and(not (b2)) then
begin(Не найден файл с вопросами);
halt;;:=0;(file_s_voprosami,str);(file_s_voprosami);no