Разработка приложения "Помощник экзаменатора"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
тор.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
=300then.Enabled:=false;.Enabled:=false;.Enabled:=true;.Enabled:=true;tren=falsethenres();:=false;.Enabled:=false;;;">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);;
=high(vop)-1thentren=falsethenprotv();.Enabled:=false;.Enabled:=false;.Enabled:=true;.Enabled:=true;.Enabled:=false;tren=falsethenres();;:=false;;tren=truethen(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]].prs[vop[c-1]].pr then (RadioGroup1.Controls[s[vop[c-1]].pr-1]).font.color:=clblack;.ItemIndex:=-1;;
.3 Текст программы. Часть 3
50thenlabel12.Caption:=3;proc>70thenlabel12.Caption:=4;proc>90thenlabel12.Caption:=5;;">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));proc90 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.Delphi императивный, структурированный, объектно-ориентированный язык программирования.2.Алгоритмточное предписание исполнителю совеpшить определенную последовательность действий для достижения поставленной цели за конечное число шагов.3.Блок-схемав программировании - графическое представление программы или алгоритма с использованием стандартных графических элементов (прямоугольников, ромбиков, трапеций и др.), обозначающих команды, действия, данные и т.п.4.Матрицадвумерный массив однотипных элементов. Положение элемента в матрицы определяется номером строки и номером столбца.5.Машинный языкязык программирования, элементами которого являются команды компьютера.6.Переменнаяв языках прог?/p>