Разработка программы- тренажера Управление электросетями
Категория реферата: Рефераты по информатике, программированию
Теги реферата: дипломы курсовые, реферат на тему искусство
Добавил(а) на сайт: Lapuhin.
Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21 | Следующая страница реферата
SWState(SR20,23);
SWState(SR37,21);
ABRState(ABR1,9);
ABRState(ABR2,22);
Prot:=TStringList.Create; if WorkMode=0 then s:=(' тренировки') else s:=(' экзамена');
Prot.Append('
Протокол'+s);
Prot.Append(' ----------------
--------');
Prot.Append('Фамилия: '+User1.N1);
Prot.Append('Имя: '+User1.N2);
Prot.Append('Отчество: '+User1.N3);
Prot.Append(' ЗАДАЧА:
'+TaskList.Items[TaskNumber]);
Prot.Append(' -----------------------------------
------'); if WorkMode=0 then s:=(' прохождения тренировки: ') else s:=(' сдачи экзамена: ');
Prot.Append('Дата '+s+DateToStr(Date)); end;
procedure TForm1.Menu41Click(Sender: TObject);
begin
User.ShowModal;
end;
procedure TForm1.MBB1Click(Sender: TObject); begin if Analyze(MBB1)=True then MVState(MBB1,10) else MVState(MBB1,10); if F[10]=true then end;
procedure TForm1.MBB2Click(Sender: TObject); begin if Analyze(MBB2)=True then MVState(MBB2,7) else MVState(MBB2,7); end;
procedure TForm1.MBB3Click(Sender: TObject); begin if Analyze(MBB3)=True then MVState(MBB3,19) else MVState(MBB3,19); end;
procedure TForm1.MBB4Click(Sender: TObject); begin if Analyze(MBB4)=True then MVState(MBB4,17) else MVState(MBB4,17); end;
procedure TForm1.CMB1Click(Sender: TObject); begin if Analyze(CMB1)=True then MVState(CMB1,8) else MVState(CMB1,8); end;
procedure TForm1.CMB2Click(Sender: TObject); begin if Analyze(CMB2)=True then MVState(CMB2,18) else MVState(CMB2,18); end;
procedure TForm1.BB50Click(Sender: TObject); begin if Analyze(BB50)=True then MVState(BB50,2) else MVState(BB50,2); end;
procedure TForm1.PBB2Click(Sender: TObject); begin if Analyze(PBB2)=True then MVState(PBB2,4) else MVState(PBB2,4); end;
procedure TForm1.TRZ1Click(Sender: TObject); begin if Analyze(TRZ1)=True then SWState(TRZ1,6) else SWState(TRZ1,6); end;
procedure TForm1.TRZ2Click(Sender: TObject); begin if Analyze(TRZ2)=True then SWState(TRZ2,5) else SWState(TRZ2,5); end;
procedure TForm1.TRZ3Click(Sender: TObject); begin if Analyze(TRZ3)=True then SWState(TRZ3,16) else SWState(TRZ3,16); end;
Рекомендуем скачать другие рефераты по теме: дипломная работа по юриспруденции, рассказы.
Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21 | Следующая страница реферата