Разработка программы- тренажера Управление электросетями
Категория реферата: Рефераты по информатике, программированию
Теги реферата: дипломы курсовые, реферат на тему искусство
Добавил(а) на сайт: Lapuhin.
Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21 | Следующая страница реферата
procedure TForm1.TRZ4Click(Sender: TObject); begin if Analyze(TRZ4)=True then SWState(TRZ4,15) else SWState(TRZ4,15); end;
procedure TForm1.SRZ1Click(Sender: TObject); begin if Analyze(SRZ1)=True then SWState(SRZ1,14) else SWState(SRZ1,14); end;
procedure TForm1.SRZ2Click(Sender: TObject); begin if Analyze(SRZ2)=True then SWState(SRZ2,11) else SWState(SRZ2,11); end;
procedure TForm1.SRZ3Click(Sender: TObject); begin if Analyze(SRZ3)=True then SWState(SRZ3,24) else SWState(SRZ3,24); end;
procedure TForm1.SRZ4Click(Sender: TObject); begin if Analyze(SRZ4)=True then SWState(SRZ4,20) 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
Рекомендуем скачать другие рефераты по теме: дипломная работа по юриспруденции, рассказы.
Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21 | Следующая страница реферата