Разработка приложения 'Помощник экзаменатора'

Разработка приложения 'Помощник экзаменатора'

Основные данные о работе

Содержание

Введение

. Описание алгоритма

.1 Выбор состава технических и программных средств

.2 Разработка программы

.3 Спецификация программы

Описание программы

Код программы

Текст программы. Часть 1

Текст программы. Часть 2

Текст программы. Часть 3

Заключение

Глоссарий

Список использованной литературы

Приложение А

Введение

Задание на курсовую работу по дисциплине «Разработать приложение «Помощник экзаменатора»»

Назначение программы: Тестирование учеников.

Область применения: операционная система MS Windows

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

1. Описание алгоритма

После запуска приложения необходимо выбрать сложность, после чего при нажатии кнопки загружаются вопросы, на которые необходимо ответить для прохождения теста. На тестирование даётся 5 минут. После загрузки появляется первый вопрос, с момента появления вопроса начинается отсчёт времени. По окончании 5 минут (из расчёта 5 минут на один тест) тест блокируется, и по результатам ставиться оценка. Если тест сдан за 5 минут, то тестирование закончено и выставляется оценка. Программа ставит «2» если менее 50% верных ответов, «3» если более 50% ответов верны, «4» если более 70% и «5» если более 90% верно.

Так же предусмотрен вариант пробного тестирование, результаты которого не учитываются при выставлении оценки. Если введенный пароль верный (пароль: «пароль»). Во время пробного тестирования верные ответы помечены красным цветом.

.1 Выбор состава технических и программных средств

Для разработки данного проекта выбрана среда программирования Delphi, т.к. она позволяет достаточно быстро создать приложения для ОС Windows за счет упрощения разработки визуальной части проекта.

Программа создавалась на персональном компьютере следующих характеристик:

Процессор Intel Pentium 4 3GHz500 Гб

ОЗУ DDR2 3 Гб

Видеокарта Nvidia GeForce 430

ОС Windows 7

Так же полагаю, что для нормальной стабильной работы данного приложения подойдут следующие технические параметры персонального компьютера:

Процессор Pentium 100 (или выше)500 Мб (и выше)

ОЗУ не менее 32 Мб

ОС Windows 98 или выше

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

.2 Разработка программы

Для создания приложения «Экзаменатор» была использована среда разработки Borland Delphi 6. Данный проект содержит одну форму и 2 стандартных диалога PasswordDlg и AboutBox:

  Рис.1

: Компонент Form1

Свойства

2: Компонент RadioGroup1

Свойства

: Компонент BitBtn4

Свойства

События

: Компонент BitBtn1

Свойства

События

: Компонент MainMenu1

Свойства

События

: Компонент BitBtn2

Свойства

События

: Компонент RadioGroup2

Свойства

: Компонент Timer1

События

: Компонент Timer1

Компоненты Label1-Label12 - отображают информацию о тесте.

.3 Спецификация программы

Исполняемый файл программы «Экзаменатор» имеет название Экзаменатор.exe и находится на диске А: в каталоге 5.1.4. Состав проекта:

Табл.1

.4 Описание и запуск программы

приложение программа

Общие сведения: приложение «Экзаменатор» разработано в среде программирования Delphi 6.

Функциональное назначение программы: Прием тестов у учеников

Используемые технические средства: при разработке приложения «Экзаменатор» были использованы следующие технические и программные средства:

Процессор Intel Pentium 4 3GHz

ОЗУ 3 Гб.

ОС Windows 7 Professional

Вызов и загрузка: для того, чтобы запустить программу, необходимо запустить файл «Экзаменатор.exe»

После запуска программы выбираем сложность, после чего при нажатии кнопки загружаются вопросы на которые надо отвечать. Дается времени 5 минут. После загрузки появляется первый вопрос, время пошло. По истечению времени тест блокируется, и по результатам ставиться оценка. Если тест сдан за 5 минут, то тест останавливается и ставиться оценка. Программа ставит «3» если больше 50% ответов правильны, «4» если больше 70%, «5» если больше 90% и «2» если меньше 50%.

Так же предусмотрен вариант тренировки, если введенный пароль правилен (пароль: «пароль»). Во время тренировки правильные ответы помечены красным цветом.

2. Код программы

2.1 Текст программы. Часть 1

Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, StdCtrls, Buttons, ExtCtrls;= class(TForm): TRadioGroup;: TMainMenu;: TBitBtn;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TGroupBox;: TLabel;: TLabel;: TLabel;: TBitBtn;: TBitBtn;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TTimer;N4Click(Sender: TObject);N8Click(Sender: TObject);N11Click(Sender: TObject);BitBtn4Click(Sender: TObject);Timer1Timer(Sender: TObject);zagruz();vopr();prov(a:integer);BitBtn1Click(Sender: TObject);protv();res();BitBtn2Click(Sender: TObject);N6Click(Sender: TObject);N1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };=record:string;,o2,o3,o4:string;:integer;;: TForm1;:Ttime;:integer=0;:array of q;:array of integer;:integer;:integer=0;,incor:integer;:boolean=false;

, unit2;

{$R *.dfm}

TForm1.N4Click(Sender: TObject);;;

procedure TForm1.N8Click(Sender: TObject);.Showmodal;;

TForm1.N11Click(Sender: TObject);(sender).Checked:=true;.Caption:=TMenuItem(sender).Caption;TMenuItem(sender).Tag=1 then label8.Caption:='50';TMenuItem(sender).Tag=2 then label8.Caption:='60';TMenuItem(sender).Tag=3 then label8.Caption:='70';TMenuItem(sender).Tag=4 then label8.Caption:='80';TMenuItem(sender).Tag=5 then label8.Caption:='90';;TForm1.BitBtn4Click(Sender: TObject);.Caption:='0';.Caption:='0';

radiogroup1.Caption:='Подождите идет загрузка вопросов';

if tren=false then showmessage('У Вас 5 минут!'+#13+#13+'Удачи!!!');.Enabled:=false;;;.Caption:=s[vop[0]].ques;.Items.Strings[0]:=s[vop[0]].o1;.Items.strings[1]:=s[vop[0]].o2;.Items.strings[2]:=s[vop[0]].o3;.Items.strings[3]:=s[vop[0]].o4;tren=false then:=now;.Enabled:=true;:=0;.Enabled:=false;;tren=true then:=0;(RadioGroup1.Controls[s[vop[0]].pr-1]).font.color:=clred;.ItemIndex:=-1;;.Enabled:=true;;

.2 Текст программы. Часть 2

TForm1.Timer1Timer(Sender: TObject);.Caption:=FormatDateTime('nn:ss',v-now);(i);i>=300 then.Enabled:=false;.Enabled:=false;.Enabled:=true;.Enabled:=true;tren=false then res();:=false;.Enabled:=false;;;

Tform1.zagruz();:textfile;:string;(f,'base.glf');(f);:=0;not eof(f) do(s,i+1);(f,t);[i].ques:=t;(f,t);[i].o1:=t;(f,t);[i].o2:=t;(f,t);[i].o3:=t;(f,t);[i].o4:=t;(f,t);[i].pr:=strtoint(t);(i);;(f);:=0;;

procedure Tform1.vopr();c<=strtoint(label8.Caption) do(vop,c+1);;:=random(high(s)-1);(a);;;

Tform1.prov(a:integer);:integer;r:=0 to c-1 doa=vop[r] then exit;[c]:=a;(c);;

TForm1.BitBtn1Click(Sender: TObject);c>=high(vop)-1 thentren=false then protv();.Enabled:=false;.Enabled:=false;.Enabled:=true;.Enabled:=true;.Enabled:=false;tren=false then res();;:=false;;tren=true then(c);.Caption:=s[vop[c]].ques;.Items.Strings[0]:=s[vop[c]].o1;.Items.strings[1]:=s[vop[c]].o2;.Items.strings[2]:=s[vop[c]].o3;.Items.strings[3]:=s[vop[c]].o4;(RadioGroup1.Controls[s[vop[c]].pr-1]).font.color:=clred;s[vop[c]].pr<>s[vop[c-1]].pr then (RadioGroup1.Controls[s[vop[c-1]].pr-1]).font.color:=clblack;.ItemIndex:=-1;;

.3 Текст программы. Часть 3

tren=false then();.Caption:=s[vop[c]].ques;.Items.Strings[0]:=s[vop[c]].o1;.Items.strings[1]:=s[vop[c]].o2;.Items.strings[2]:=s[vop[c]].o3;.Items.strings[3]:=s[vop[c]].o4;;;Tform1.protv();radiogroup1.ItemIndex+1=s[vop[c]].pr then inc(cor) else inc(incor);.Caption:=inttostr(cor);.Caption:=inttostr(incor);(c);;Tform1.res();,proc:real;('Тест окончен');:=strtoint(label8.Caption);:=int(cor/(kol/100));proc<50 then label12.Caption:='2';proc>50 then label12.Caption:='3';proc>70 then label12.Caption:='4';proc>90 then label12.Caption:='5';;

TForm1.BitBtn2Click(Sender: TObject);;;TForm1.N6Click(Sender: TObject);.ShowModal;tren=true then bitbtn4.OnClick(self) else showmessage('Вы вели не'+'правильный пароль');;TForm1.N1Click(Sender: TObject);;.Unit2;

Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, , messages;

= class(TForm): TLabel;: TEdit;: TButton;: TButton;OKBtnClick(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TPasswordDlg;

unit1;

{$R *.dfm}

TPasswordDlg.OKBtnClick(Sender: TObject);password.Text='пароль' then unit1.tren:=true else unit1.tren:=false;;.Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, jpeg, ExtCtrls;= class(TForm): TImage;: TLabel;: TLabel;: TLabel;: TLabel;: TBitBtn;BitBtn1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm3;

{$R *.dfm}TForm3.BitBtn1Click(Sender: TObject);

begin;;.

Заключение

Условия выполнения программы: для работы программы необходимы: компьютер на базе процессора Pentium 100 и выше, 32 Mb RAM и больше, 500 Mb HDD и больше, ОС Windows 98 и выше.

Выполнение программы: для загрузки программы необходимо запустить файл «Экзаменатор.exe», находящийся в папке с программой, для завершения работы программы необходимо выбрать пункт «Файл -> Выход» главного меню, или использовать «горячие клавиши» «Alt+F4» ну стандартный метод закрытия приложения - щелкнуть по значку «X» (крестик) в правой части заголовка окна программы

Сообщения оператору: при выборе пункта «О программе» появляется сообщение с краткой информацией о программе и разработчике.

Глоссарий

Список использованных источников

Приложение

1.