bakalavr (664628), страница 6

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 6)

else SWState(SRZ4,20);

end;

procedure TForm1.SRZ9Click(Sender: TObject);

begin

if Analyze(SRZ9)=True then SWState(SRZ9,12)

else SWState(SRZ9,12);

end;

procedure TForm1.SR10Click(Sender: TObject);

begin

if Analyze(SR10)=True then SWState(SR10,13)

else SWState(SR10,13);

end;

procedure TForm1.SR20Click(Sender: TObject);

begin

if Analyze(SR20)=True then SWState(SR20,23)

else SWState(SR20,23);

end;

procedure TForm1.SR37Click(Sender: TObject);

begin

if Analyze(SR37)=True then SWState(SR37,21)

else SWState(SR37,21);

end;

procedure TForm1.ODT1Click(Sender: TObject);

begin

if Analyze(ODT1)=True then SWState(ODT1,1)

else SWState(ODT1,1);

end;

procedure TForm1.ODT2Click(Sender: TObject);

begin

if Analyze(ODT2)=True then SWState(ODT2,0)

else SWState(ODT2,0);

end;

procedure TForm1.ODT3Click(Sender: TObject);

begin

if Analyze(ODT3)=True then SWState(ODT3,3)

else SWState(ODT3,3);

end;

procedure TForm1.ABR1Click(Sender: TObject);

begin

if Analyze(ABR1)=True then ABRState(ABR1,9)

else ABRState(ABR1,9);

end;

procedure TForm1.ABR2Click(Sender: TObject);

begin

if Analyze(ABR2)=True then ABRState(ABR2,22)

else ABRState(ABR2,22);

end;

procedure TForm1.ResultBtnClick(Sender: TObject);

var i:integer;

s:string;

begin

Error:=0;

Count:=0;

if WorkMode=1 then begin

for i:=0 to 24 do if E[i]=F[i] then Error:=Error+1;

if Error=0 then s:='Хорошо';

if Error=1 then s:='Удовлетворительно';

if Error>2 then s:='Неудовлетворительно';

Results.Result.Label1.Caption:='Оценка: '+s;

Prot.Append('Оценка: '+s);

Results.Result.ShowModal;

TaskList.Visible:=True;

end;

if (WorkMode=0)and(Zap.FNo=0)and(Zap.FImage='0000')and(Zap.FState=0) then begin

Prot.Append('Количество ошибок: '+IntToStr(Error));

Prot.Append('Количество обращений к подсказке: '+IntToStr(Help));

Results.Result.Label1.Caption:='Количество ошибок: '+IntToStr(Error);

Results.Result.Label2.Caption:='Количество обращений к подсказке: '+IntToStr(Help);

Results.Result.ShowModal;

Actlist.Clear;

TaskList.Visible:=True;

end;

end;

procedure TForm1.HelpBtnClick(Sender: TObject);

begin

if StatusBar1.Panels[1].Text='№'

then

Label1.Caption:=' Выберите задачу'

else

begin

Zap:=ActList.First;

Label1.Caption:=Zap.FComment;

Help:=Help+1;

end;

end;

procedure TForm1.NewClick(Sender: TObject);

begin

FormScene.Position:=poScreenCenter;

FormScene.ShowModal;

end;

procedure TForm1.Menu52Click(Sender: TObject);

var s:string;

i:integer;

begin

Report.ReportForm.ProtList.Clear;

if Prot<>nil then begin

for i:=0 to Prot.Count-1 do

Report.ReportForm.ProtList.Items.Append(Prot.Strings[i]);

s:=TimeToStr(Now);

if FileExists('Info\Report.txt') then Prot.SaveToFile('Info\Report'+s[7]+'.txt')

else Prot.SaveToFile('Info\Report.txt');

ReportForm.ShowModal;

end;

end;

procedure TForm1.Menu21Click(Sender: TObject);

begin

WorkMode:=0;

StatusBar1.Panels[3].Text:='Режим работы: Тренировка';

Form1.HelpBtn.Visible:=true;

Form1.Label1.Visible:=true;

Form1.Label2.Visible:=true;

ResultBtn.Caption:='Результаты';

end;

procedure TForm1.Menu22Click(Sender: TObject);

begin

WorkMode:=1;

StatusBar1.Panels[3].Text:='Режим работы: Экзамен';

Form1.HelpBtn.Visible:=false;

Form1.Label1.Visible:=false;

Form1.Label2.Visible:=false;

ResultBtn.Caption:='Готово';

end;

end.

Характеристики

Список файлов реферата