Archive / ОТКА / Синтез4 / Unit1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ExtCtrls, ComCtrls, Buttons, ExtDlgs, ImgList,
DBCtrls, MPlayer;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N5: TMenuItem;
F11: TMenuItem;
N6: TMenuItem;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
UpDown1: TUpDown;
Edit1: TEdit;
Panel8: TPanel;
Panel9: TPanel;
Panel10: TPanel;
Panel11: TPanel;
cbMex1: TComboBox;
cbMex2: TComboBox;
cbMex3: TComboBox;
cbMex4: TComboBox;
cbOutput1: TEdit;
cbOutput2: TEdit;
mmOutput: TListBox;
play: TSpeedButton;
stop: TSpeedButton;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Timer2: TTimer;
SPA: TSpeedButton;
SPB: TSpeedButton;
SPC: TSpeedButton;
SPD: TSpeedButton;
Next: TSpeedButton;
ImageList1: TImageList;
ImageList2: TImageList;
paus: TSpeedButton;
Image5: TImage;
ImageList3: TImageList;
ImageList4: TImageList;
ImageList5: TImageList;
Image6: TImage;
Image7: TImage;
N7: TMenuItem;
N8: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N2: TMenuItem;
P1: TPanel;
P2: TPanel;
P3: TPanel;
P4: TPanel;
P5: TPanel;
P6: TPanel;
P7: TPanel;
P8: TPanel;
P9: TPanel;
bbOutputF: TButton;
procedure bbOutputFClick(Sender: TObject);
procedure cbMex1Change(Sender: TObject);
procedure cbMex2Change(Sender: TObject);
procedure cbMex3Change(Sender: TObject);
procedure dubler(Sender: TObject);
procedure cbMex4Change(Sender: TObject);
procedure vivod(Sender: TObject);
procedure ABCD(Sender: TObject);
procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
procedure mmOutputDblClick(Sender: TObject);
procedure playClick(Sender: TObject);
procedure uravfun(Sender: TObject);
procedure funA(Sender: TObject);
procedure funUP(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure funnA(Sender: TObject);
procedure resh(Sender: TObject);
procedure stopClick(Sender: TObject);
procedure fun1(Sender: TObject);
procedure fun2(Sender: TObject);
procedure fun3(Sender: TObject);
procedure fun4(Sender: TObject);
procedure fun5(Sender: TObject);
procedure fun6(Sender: TObject);
procedure fun7(Sender: TObject);
procedure fun8(Sender: TObject);
procedure fun9(Sender: TObject);
procedure fun10(Sender: TObject);
procedure fun11(Sender: TObject);
procedure fun12(Sender: TObject);
procedure SPAClick(Sender: TObject);
procedure SPBClick(Sender: TObject);
procedure SPCClick(Sender: TObject);
procedure SPDClick(Sender: TObject);
procedure SP(Sender: TObject);
procedure NextClick(Sender: TObject);
procedure pausClick(Sender: TObject);
procedure funTA(Sender: TObject);
procedure funTnA(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure f11Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Save,Open:TextFile;
TP:integer;
Hfile:THandle;
zn,nz,nz1,mex:array [1..9] of integer;
u,u1,u2:array [1..4,1..5] of integer;
s,uslin:array [0..50] of boolean;
usl1:array [1..3] of boolean;
Form1: TForm1;
ind,ind1,ind2,ind3,ind4: integer;
g,i,j,a,b,c,d,e,k,z,n,m,max,max1,nez,pe,ur,urs: integer;
cod1,cod2,cod3,cod4,top:integer;
x:TObject;
usl,usld,c1,r,uslv,uslv1,uslr,indiv,Err,nex:boolean;
bot:TUDBtnType;
st,st1,st2,ne,alg,load,nam:string;
zu:TImage;
cuc:TImage;
zu1:TPicture;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.bbOutputFClick(Sender: TObject);
begin
if bbOutputF.Caption='Сброс'then
begin
bbOutputF.Caption:='Ввод';
cbMex1.ItemIndex:=0;
cbMex2.ItemIndex:=0;
cbMex3.ItemIndex:=0;
cbMex4.ItemIndex:=0;
edit1.Text:='0';
indiv:=true;
usld:=true;
dubler(x);
mmOutput.Enabled:=true;
cbMex1.Enabled:=true;
cbMex2.Enabled:=true;
cbMex3.Enabled:=true;
cbMex4.Enabled:=true;
UpDown1.Enabled:=true;
SPA.Enabled:=true;
SPB.Enabled:=true;
SPC.Enabled:=true;
SPD.Enabled:=true;
end
else
begin
unit2.i:=1;
ABCD(x);
if Form2.ShowModal=mrCancel then;
end;
end;

procedure TForm1.cbMex1Change(Sender: TObject);
begin
k:=cbMex1.ItemIndex;
if indiv then
begin
vivod(x);
u1[1,1]:=ind;
u1[1,2]:=ind1;
u1[1,3]:=ind2;
u1[1,4]:=ind4;
SPAClick(x);
end;
if cbMex1.ItemIndex<>mex[1] then
begin
indiv:=true;
uslD:=true;
mex[1]:=cbMex1.ItemIndex;
cbOutput1.Clear;
mmOutput.items.Clear;
dubler(x);
play.Enabled:=false;
next.Enabled:=false;
f11.Enabled:=false;
n6.Enabled:=false;
N8.Enabled:=false;
Unit2.open:=false;
Unit3.open:=false;
unit3.op:=0;
end;
ABCD(x);
end;

procedure TForm1.cbMex2Change(Sender: TObject);
begin
k:=cbMex2.ItemIndex;
if indiv then
begin
vivod(x);
u1[2,1]:=ind;
u1[2,2]:=ind1;
u1[2,3]:=ind2;
u1[2,4]:=ind4;
SPBClick(x);
end;
if cbMex2.ItemIndex<>mex[2] then
begin
indiv:=true;
uslD:=true;
mex[2]:=cbMex2.ItemIndex;
cbOutput1.Clear;
mmOutput.items.Clear;
dubler(x);
play.Enabled:=false;
next.Enabled:=false;
f11.Enabled:=false;
n6.Enabled:=false;
N8.Enabled:=false;
Unit2.open:=false;
Unit3.open:=false;
unit3.op:=0;
end;
ABCD(x);
end;

procedure TForm1.cbMex3Change(Sender: TObject);
begin
k:=cbMex3.ItemIndex;
if indiv then
begin
vivod(x);
u1[3,1]:=ind;
u1[3,2]:=ind1;
u1[3,3]:=ind2;
u1[3,4]:=ind4;
SPCClick(x);
end;
if cbMex3.ItemIndex<>mex[3] then
begin
indiv:=true;
uslD:=true;
mex[3]:=cbMex3.ItemIndex;
cbOutput1.Clear;
mmOutput.items.Clear;
dubler(x);
play.Enabled:=false;
next.Enabled:=false;
f11.Enabled:=false;
n6.Enabled:=false;
N8.Enabled:=false;
Unit2.open:=false;
Unit3.open:=false;
unit3.op:=0;
end;
ABCD(x);
end;

procedure TForm1.cbMex4Change(Sender: TObject);
begin
k:=cbMex4.ItemIndex;
if indiv then
begin
vivod(x);
u1[4,1]:=ind;
u1[4,2]:=ind1;
u1[4,3]:=ind2;
u1[4,4]:=ind4;
SPDClick(x);
end;
if cbMex4.ItemIndex<>mex[4]then
begin
indiv:=true;
uslD:=true;
mex[4]:=cbMex4.ItemIndex;
cbOutput1.Clear;
mmOutput.items.Clear;
dubler(x);
play.Enabled:=false;
next.Enabled:=false;
f11.Enabled:=false;
n6.Enabled:=false;
N8.Enabled:=false;
Unit2.open:=false;
Unit3.open:=false;
unit3.op:=0;
end;

k:=0;
ABCD(x);
end;

procedure TForm1.dubler(Sender: TObject);
begin
if uslD then
for j:=0 to 5 do
for i:=0 to 12 do
form3.tabl.Cells[i,j]:='';
for i:=0 to 9 do
s[i]:=false;
if usld then
for i:=0 to 21 do
for j:=0 to 50 do
unit3.oper[i,j]:=0;
i:=0;
j:=0;
g:=1;
ind:=0;
ind1:=0;
ind2:=0;
ind3:=0;
ind4:=0;
cbMex1Change(x);
inc(g);
cbMex2Change(x);
inc(g);
cbMex3Change(x);
inc(g);
cbMex4Change(x);
UpDown1Click(x,bot);
indiv:=false;
end;

procedure TForm1.vivod(Sender: TObject);
begin
case k of
0: begin
c:=0;
end;
1: Begin
inc(ind);
if usld then
c:=mmOutput.items.Add('Y'+inttostr(ind)+'=');
s[ind3]:=true;
if uslin[g-1] then
s[ind3]:=false;
inc(ind4);
form3.tabl.Cells[i,j]:='S'+inttostr(ind4);
nz[ind4]:=ind3;
inc(i);
inc(ind3);
s[ind3]:=false;
if uslin[g-1] then
s[ind3]:=true;
inc(ind4);
form3.tabl.Cells[i,j]:='S'+inttostr(ind4);
nz[ind4]:=ind3;
inc(i);
inc(ind3);
end;
2: Begin
inc(ind);
if usld then
c:=mmOutput.items.Add('Y'+inttostr(ind)+'=');
s[ind3]:=true;
if uslin[g-1] then
s[ind3]:=false;
inc(ind4);
form3.tabl.Cells[i,j]:='S'+inttostr(ind4);
nz[ind4]:=ind3;
inc(i);
inc(ind3);
end;
3: Begin
inc(ind);
if usld then
c:=mmOutput.items.Add('Y'+inttostr(ind)+'=');
s[ind3]:=false;
if uslin[g-1] then
s[ind3]:=true;
inc(ind2);
form3.tabl.Cells[i,j]:='SP'+inttostr(ind2);
nz1[ind2]:=ind3;
inc(i);
inc(ind3);

end;
4: Begin
inc(ind);
if usld then
c:=mmOutput.items.Add('Y'+inttostr(ind)+'=');
s[ind3]:=true;
if uslin[g-1] then
s[ind3]:=false;
inc(ind4);
form3.tabl.Cells[i,j]:='S'+inttostr(ind4);
nz[ind4]:=ind3;
inc(i);
inc(ind3);
inc(ind);
if usld then
mmOutput.items.Add('Y'+inttostr(ind)+'=');
s[ind3]:=false;
if uslin[g-1] then
s[ind3]:=true;
inc(ind4);
form3.tabl.Cells[i,j]:='S'+inttostr(ind4);
nz[ind4]:=ind3;
inc(i);
inc(ind3);
end;
5: Begin
inc(ind);
if usld then
c:=mmOutput.items.Add('Y'+inttostr(ind)+'=');
s[ind3]:=true;
if uslin[g-1] then
s[ind3]:=false;
inc(ind4);
form3.tabl.Cells[i,j]:='S'+inttostr(ind4);
nz[ind4]:=ind3;
inc(i);
inc(ind3);
inc(ind);
if usld then
mmOutput.items.Add('Y'+inttostr(ind)+'=');
s[ind3]:=false;
if uslin[g-1] then
s[ind3]:=true;
inc(ind4);
form3.tabl.Cells[i,j]:='S'+inttostr(ind4);
nz[ind4]:=ind3;
inc(i);
inc(ind3);
end;
6: Begin
inc(ind);
if usld then
c:=mmOutput.items.Add('Y'+inttostr(ind)+'=');
s[ind3]:=true;
if uslin[g-1] then
s[ind3]:=false;
inc(ind2);
form3.tabl.Cells[i,j]:='SP'+inttostr(ind2);
nz1[ind2]:=ind3;
inc(i);
inc(ind3);
inc(ind2);
s[ind3]:=false;
if uslin[g-1] then
s[ind3]:=true;
form3.tabl.Cells[i,j]:='SP'+inttostr(ind2);
nz1[ind2]:=ind3;
inc(i);
inc(ind3);
end;
7: Begin
inc(ind1);
if usld then
c:=mmOutput.items.Add('K'+inttostr(ind1)+'=');
s[ind3]:=true;
inc(ind4);
form3.tabl.Cells[i,j]:='S'+inttostr(ind4);
nz[ind4]:=ind3;
inc(i);
inc(ind3);
end;
8: Begin
inc(ind1);
if usld then
c:=mmOutput.items.Add('K'+inttostr(ind1)+'=');
s[ind3]:=true;
if uslin[g-1] then
s[ind3]:=false;
inc(ind4);
form3.tabl.Cells[i,j]:='S'+inttostr(ind4);
nz[ind4]:=ind3;
inc(i);
inc(ind3);
s[ind3]:=false;
if uslin[g-1] then
s[ind3]:=true;
inc(ind4);
form3.tabl.Cells[i,j]:='S'+inttostr(ind4);
nz[ind4]:=ind3;
inc(i);
inc(ind3);
end;
9: Begin
inc(ind1);
if usld then
c:=mmOutput.items.Add('K'+inttostr(ind1)+'=');
inc(ind);
if usld then
mmOutput.items.Add('Y'+inttostr(ind)+'=');
s[ind3]:=true;
if uslin[g-1] then
s[ind3]:=false;
inc(ind4);
form3.tabl.Cells[i,j]:='S'+inttostr(ind4);
nz[ind4]:=ind3;
inc(i);
inc(ind3);
s[ind3]:=false;
if uslin[g-1] then
s[ind3]:=true;
inc(ind4);
form3.tabl.Cells[i,j]:='S'+inttostr(ind4);
nz[ind4]:=ind3;
inc(i);
inc(ind3);
end;
10: Begin
inc(ind1);
if usld then
c:=mmOutput.items.Add('K'+inttostr(ind1)+'=');
s[ind3]:=true;
inc(ind4);
form3.tabl.Cells[i,j]:='S'+inttostr(ind4);
nz[ind4]:=ind3;
inc(i);
inc(ind3);
inc(ind1);
if usld then
mmOutput.items.Add('K'+inttostr(ind1)+'=');
end;
11: Begin
inc(ind1);
if usld then
c:=mmOutput.items.Add('K'+inttostr(ind1)+'=');
s[ind3]:=true;
if uslin[g-1] then
s[ind3]:=false;
inc(ind4);
form3.tabl.Cells[i,j]:='S'+inttostr(ind4);
nz[ind4]:=ind3;
inc(i);
inc(ind3);
inc(ind4);
form3.tabl.Cells[i,j]:='S'+inttostr(ind4);
nz[ind4]:=ind3;
inc(i);
inc(ind1);
if usld then
mmOutput.items.Add('K'+inttostr(ind1)+'=');
s[ind3]:=false;
if uslin[g-1] then
s[ind3]:=true;
inc(ind3);
end;
12: Begin
inc(ind1);
if usld then
c:=mmOutput.items.Add('K'+inttostr(ind1)+'=');
inc(ind);
if usld then
mmOutput.items.Add('Y'+inttostr(ind)+'=');
s[ind3]:=true;
if uslin[g-1] then
s[ind3]:=false;
inc(ind4);
form3.tabl.Cells[i,j]:='S'+inttostr(ind4);
nz[ind4]:=ind3;
inc(i);
inc(ind3);
inc(ind);
if usld then
mmOutput.items.Add('Y'+inttostr(ind)+'=');
s[ind3]:=false;
if uslin[g-1] then
s[ind3]:=true;
inc(ind4);
form3.tabl.Cells[i,j]:='S'+inttostr(ind4);
nz[ind4]:=ind3;
inc(i);
inc(ind3);
end;
end;

end;

procedure TForm1.ABCD(Sender: TObject);
begin
if cbMex1.ItemIndex<>0 Then
begin
Form2.bbOutputA.Enabled:=true;
Form2.bbOutputnA.Enabled:=true;
Unit2.ok1:=False;
Unit2.ok2:=False;
end
else
begin
Form2.bbOutputA.Enabled:=False;
Form2.bbOutputnA.Enabled:=False;
Unit2.ok1:=True;
Unit2.ok2:=True;
end;
if cbMex2.ItemIndex<>0 Then
begin
Form2.bbOutputB.Enabled:=true;
Form2.bbOutputnB.Enabled:=true;
Unit2.ok3:=False;
Unit2.ok4:=False;
end
else
begin
Form2.bbOutputB.Enabled:=False;
Form2.bbOutputnB.Enabled:=False;
Unit2.ok3:=True;
Unit2.ok4:=True;
end;
if cbMex3.ItemIndex<>0 Then
begin
Form2.bbOutputC.Enabled:=true;
Form2.bbOutputnC.Enabled:=true;
Unit2.ok5:=False;
Unit2.ok6:=False;
end
else
begin
Form2.bbOutputC.Enabled:=False;
Form2.bbOutputnC.Enabled:=False;
Unit2.ok5:=True;
Unit2.ok6:=True;
end;
if cbMex4.ItemIndex<>0 Then
begin
Form2.bbOutputD.Enabled:=true;
Form2.bbOutputnD.Enabled:=true;
Unit2.ok7:=False;
Unit2.ok8:=False;
end
else
begin
Form2.bbOutputD.Enabled:=False;
Form2.bbOutputnD.Enabled:=False;
Unit2.ok7:=True;
Unit2.ok8:=True;
end;
end;

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
max:=0;
n:=i-1;
m:=0;
P1.Visible:=false;P2.Visible:=false;P3.Visible:=false;P4.Visible:=false;
P5.Visible:=false;P6.Visible:=false;P7.Visible:=false;P8.Visible:=false;
P9.Visible:=false;
if UpDown1.position <> 0 then
if indiv then
begin
While max<>UpDown1.position do
begin
inc(n);
max:=max+1;
if usld then
mmOutput.items.Add('P'+inttostr(max)+'=');
case max of
1:P1.Visible:=true;
2:P2.Visible:=true;
3:P3.Visible:=true;
4:P4.Visible:=true;
5:P5.Visible:=true;
6:P6.Visible:=true;
7:P7.Visible:=true;
8:P8.Visible:=true;
9:P9.Visible:=true;
end;

form3.tabl.Cells[n,j]:='P'+inttostr(max);
s[ind3]:=false;
zn[max]:=ind3;
inc(ind3);
if n>10 then
inc(j);
if n>10 then
n:=-1;
end;
end;
if UpDown1.position<>mex[5] then
begin
indiv:=true;
uslD:=true;
mex[5]:=UpDown1.position;
mmOutput.items.Clear;
cbOutput1.Clear;
dubler(x);
play.Enabled:=false;
next.Enabled:=false;
f11.Enabled:=false;
n6.Enabled:=false;
N8.Enabled:=false;
Unit2.open:=false;
Unit3.open:=false;
unit3.op:=0;
end;
end;

procedure TForm1.mmOutputDblClick(Sender: TObject);
begin
nez:=0;
Form3.Edit1.Text:=mmOutput.Items[mmOutput.ItemIndex];
if Form3.ShowModal=mrCancel then;
end;

procedure TForm1.playClick(Sender: TObject);
begin

n2.Enabled:=true;
N8.Enabled:=true;
if not(stop.Enabled) then
begin
rewrite(save);
if not(stop.Enabled) then
begin
For i:=1 to 4 do
writeln(save,mex[i]);
writeln(save,max);
writeln(save,cbOutput1.text);
for i:=0 to mmOutput.Count-1 do
begin
writeln(save,mmOutput.items[i]);
for j:=0 to 49 do
begin
writeln(save,unit3.oper[i,j]);
end;
end;

end;
end;

Err:=false;
indiv:=true;
if not(stop.Enabled) then
begin
uslD:=false;
dubler(x);
g:=0;
end;
stop.Enabled:=true;
Paus.Enabled:=true;
play.Enabled:=false;
f11.Enabled:=false;
N6.Enabled:=true;
bbOutputF.Enabled:=false;
mmOutput.Enabled:=false;
cbMex1.Enabled:=false;
cbMex2.Enabled:=false;
cbMex3.Enabled:=false;
cbMex4.Enabled:=false;
UpDown1.Enabled:=false;
SPA.Enabled:=false;
SPB.Enabled:=false;
SPC.Enabled:=false;
SPD.Enabled:=false;

a:=0;
i:=-1;
st:=cbOutput1.Text+'-';
if cbMex1.ItemIndex<>0 then
begin
alg:='A';
k:=cbMex1.ItemIndex;
zu:=image1;
b:=1;
a:=1;
inc(i);
resh(x);
if Err then
begin
g:=MessageDlg('Недопустимое состояние '+st1+' механизма A',MtError,[mbOk],0);
exit;
end;
end;

if cbMex2.ItemIndex<>0 then
begin
alg:='B';
k:=cbMex2.ItemIndex;
zu:=image2;
b:=2;
a:=2;
inc(i);
resh(x);
if Err then
begin
g:=MessageDlg('Недопустимое состояние '+st1+' механизма B',MtError,[mbOk],0);
exit;
end;
end;

if cbMex3.ItemIndex<>0 then
begin
alg:='C';
k:=cbMex3.ItemIndex;
zu:=image3;
b:=3;
a:=3;
inc(i);
resh(x);
if Err then
begin
g:=MessageDlg('Недопустимое состояние '+st1+' механизма C',MtError,[mbOk],0);
exit;
end;
end;

if cbMex4.ItemIndex<>0 then
begin
alg:='D';
k:=cbMex4.ItemIndex;
zu:=image4;
b:=4;
a:=4;
inc(i);
resh(x);
if Err then
begin
g:=MessageDlg('Недопустимое состояние '+st1+' механизма D',MtError,[mbOk],0);
exit;
end;
end;


if UpDown1.position<>0 then
begin
inc(i);
funUP(x);
end;



if ((not(paus.Down))and(play.Down))or(nex) then
timer2.Enabled:=true;
end;

procedure TForm1.resh(Sender: TObject);
begin
if mmOutput.Count>i then
case k of
0: g:=1;
1:fun1(x);
2:fun2(x);
3:fun3(x);
4:fun4(x);
5:fun5(x);
6:fun6(x);
7:fun7(x);
8:fun8(x);
9:fun9(x);
10:fun10(x);
11:fun11(x);
12:fun12(x);
end;
end;

procedure TForm1.uravfun(Sender: TObject);
begin
urs:=0;
for n:=0 to 50 do
if (unit3.oper[i,n]>20)and(unit3.oper[i,n]<100) then
if urs<unit3.oper[i,n] then
urs:=unit3.oper[i,n];
if urs<>0 then
repeat
for n:=0 to 50 do
if urs=unit3.oper[i,n] then
break;
inc(n);

repeat
ur:=unit3.oper[i,n];
if ur=100 then
r:=false
else
if ur=200 then
r:=true
else
r:=s[ur];
inc(n);
ur:=unit3.oper[i,n];
if ur=250 then
begin
r:=not(r);
inc(n);
ur:=unit3.oper[i,n];
end;
if ur=230 then repeat
inc(n);
ur:=unit3.oper[i,n];
if ur=100 then
c1:=false
else
if ur=200 then
c1:=true
else
c1:=s[ur];
inc(n);
ur:=unit3.oper[i,n];
if ur=250 then
begin
c1:=not(c1);
inc(n);
ur:=unit3.oper[i,n];
end;
r:=r and c1;
until not(ur=230);
if ur=urs then break;
if ur=240 then usl:=usl or r;
inc(n);
until false;
r:=r or usl;
s[urs]:=r;
dec(urs);
until urs=20;


ur:=0;
n:=0;
usl:=false;
repeat
ur:=unit3.oper[i,n];
urs:=n+1;
if (ur>20)and(ur<100) then
for n:=urs to 50 do
if ur=unit3.oper[i,n] then
break;
if ur=100 then
r:=false
else
if ur=200 then
r:=true
else
r:=s[ur];
inc(n);
ur:=unit3.oper[i,n];
if ur=250 then begin
r:=not(r);
inc(n);
ur:=unit3.oper[i,n];
end;
if ur=230 then repeat
inc(n);
ur:=unit3.oper[i,n];
urs:=n+1;
if (ur>20)and(ur<100) then
for n:=urs to 50 do
if ur=unit3.oper[i,n] then
break;
if ur=100 then
c1:=false
else
if ur=200 then
c1:=true
else
c1:=s[ur];
inc(n);
ur:=unit3.oper[i,n];
if ur=250 then
begin
c1:=not(c1);
inc(n);
ur:=unit3.oper[i,n];
end;
r:=r and c1;
until not(ur=230);
if ur=252 then break;
if ur=240 then usl:=usl or r;
inc(n);
until false;
r:=r or usl;

end;

procedure TForm1.FormActivate(Sender: TObject);
begin
image1.Picture.LoadFromFile('Нет.bmp');
image2.Picture.LoadFromFile('Нет.bmp');
image3.Picture.LoadFromFile('Нет.bmp');
image4.Picture.LoadFromFile('Нет.bmp');
AssignFile(Save,'test.txt');
if Form5.ShowModal=mrCancel then;
end;





procedure TForm1.stopClick(Sender: TObject);
begin
closeFile(Save);
cbOutput2.Clear;
play.Down:=false;
indiv:=true;
dubler(x);
play.Enabled:=true;
bbOutputF.Enabled:=true;
paus.Enabled:=false;
Next.Enabled:=true;
stop.Enabled:=false;
f11.Enabled:=true;
n6.Enabled:=false;
//n4.Enabled:=true;
timer2.Enabled:=false;
if st=st2 then
g:=MessageDlg('Заданный алгоритм успешно реализован',MtInformation,[mbOk],0)
else
mmOutput.Enabled:=true;
end;

procedure TForm1.fun1(Sender: TObject);
begin

uravfun(x);
if (k<>2)and(k<>7)and(k<>10) then
pe:=nz[u1[b,4]-1]
else
pe:=nz[u1[b,4]];
if k=3 then
pe:=nz1[u1[b,3]];
if k=13 then
pe:=nz1[u1[b,3]-1];
if b=1 then
ne:='A';
if b=2 then
ne:='B';
if b=3 then
ne:='C';
if b=4 then
ne:='D';

if r then
begin
if u[a,1]<>65 then
begin
funA(x);
u[a,1]:=u[a,1]+1;
imageList2.Draw(zu.Canvas,u[a,1]-1,u[a,2],u[a,3],true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],u[a,3],true);
//zu.Visible:=false;
//zu.Visible:=true;
s[pe]:=false;
if u[a,1]=65 then
//if not(uslin[a-1]) then
begin
cbOutput2.Text:=cbOutput2.Text+alg;
uslin[a-1]:=true;
funTA(x);
s[pe+1]:=true;
end;
end;
end
else
begin
if u[a,1]<>25 then
begin
funnA(x);
u[a,1]:=u[a,1]-1;
imageList2.Draw(zu.Canvas,u[a,1]+1,u[a,2],u[a,3],true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],u[a,3],true);
//zu.Visible:=false;
//zu.Visible:=true;
s[pe+1]:=false;
if u[a,1]=25 then
//if uslin[a-1] then
begin
cbOutput2.Text:=cbOutput2.Text+'n'+alg;
uslin[a-1]:=false;
funTnA(x);
s[pe]:=true;
end;
end;
end;
end;



procedure TForm1.fun2(Sender: TObject);
begin

uravfun(x);
if (k<>2)and(k<>7)and(k<>10) then
pe:=nz[u1[b,4]-1]
else
pe:=nz[u1[b,4]];
if k=3 then
pe:=nz1[u1[b,3]];
if k=13 then
pe:=nz1[u1[b,3]-1];
if b=1 then
ne:='A';
if b=2 then
ne:='B';
if b=3 then
ne:='C';
if b=4 then
ne:='D';

if r then
begin
if u[a,1]<>60 then
begin
funA(x);
u[a,1]:=u[a,1]+1;
imageList2.Draw(zu.Canvas,u[a,1]-1,u[a,2],u[a,3],true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],u[a,3],true);
//zu.Visible:=false;
//zu.Visible:=true;
s[pe]:=false;
if u[a,1]=60 then
//if not(uslin[a-1]) then
begin
cbOutput2.Text:=cbOutput2.Text+alg;
uslin[a-1]:=true;
funTA(x);
s[pe]:=true;
end;
end;
end
else
begin
if u[a,1]<>20 then
begin
funnA(x);
u[a,1]:=u[a,1]-1;
imageList2.Draw(zu.Canvas,u[a,1]+1,u[a,2],u[a,3],true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],u[a,3],true);
zu.Visible:=false;
zu.Visible:=true;
s[pe]:=false;
if u[a,1]=20 then
//if uslin[a-1] then
begin
cbOutput2.Text:=cbOutput2.Text+'n'+alg;
uslin[a-1]:=false;
funTnA(x);
s[pe]:=true;
end;
end;
end;
end;

procedure TForm1.fun3(Sender: TObject);
begin

uravfun(x);
if (k<>2)and(k<>7)and(k<>10) then
pe:=nz[u1[b,4]-1]
else
pe:=nz[u1[b,4]];
if k=3 then
pe:=nz1[u1[b,3]];
if k=13 then
pe:=nz1[u1[b,3]-1];
if b=1 then
ne:='A';
if b=2 then
ne:='B';
if b=3 then
ne:='C';
if b=4 then
ne:='D';

if r then
begin
if u[a,1]<>65 then
begin
funA(x);
u[a,1]:=u[a,1]+1;
imageList2.Draw(zu.Canvas,u[a,1]-1,u[a,2],u[a,3],true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],u[a,3],true);
//zu.Visible:=false;
//zu.Visible:=true;
//s[pe]:=false;
if u[a,1]=65 then
//if not(uslin[a-1]) then
begin
cbOutput2.Text:=cbOutput2.Text+alg;
uslin[a-1]:=true;
funTA(x);
s[pe]:=true;
end;
end;
end
else
begin
if u[a,1]<>25 then
begin
funnA(x);
u[a,1]:=u[a,1]-1;
imageList2.Draw(zu.Canvas,u[a,1]+1,u[a,2],u[a,3],true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],u[a,3],true);
zu.Visible:=false;
zu.Visible:=true;

if u[a,1]=25 then
//if uslin[a-1] then
begin
cbOutput2.Text:=cbOutput2.Text+'n'+alg;
uslin[a-1]:=false;
funTnA(x);
s[pe]:=false;
end;
end;
end;

end;

procedure TForm1.fun4(Sender: TObject);
begin

uravfun(x);
uslv:=r;
inc(i);
uravfun(x);
if (k<>2)and(k<>7)and(k<>10) then
pe:=nz[u1[b,4]-1]
else
pe:=nz[u1[b,4]];
if k=3 then
pe:=nz1[u1[b,3]];
if k=13 then
pe:=nz1[u1[b,3]-1];
if b=1 then
ne:='A';
if b=2 then
ne:='B';
if b=3 then
ne:='C';
if b=4 then
ne:='D';

if uslv then
if u[a,1]<>62 then
begin
funA(x);
u[a,1]:=u[a,1]+1;
imageList2.Draw(zu.Canvas,u[a,1]-1,u[a,2],u[a,3],true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],u[a,3],true);
zu.Visible:=false;
zu.Visible:=true;
s[pe]:=false;
if u[a,1]=62 then
//if not(uslin[a-1]) then
begin
cbOutput2.Text:=cbOutput2.Text+alg;
uslin[a-1]:=true;
funTA(x);
s[pe+1]:=true;
end;
end;


if r then
if u[a,1]<>22 then
begin
funnA(x);
u[a,1]:=u[a,1]-1;
imageList2.Draw(zu.Canvas,u[a,1]+1,u[a,2],u[a,3],true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],u[a,3],true);
//zu.Visible:=false;
//zu.Visible:=true;
s[pe+1]:=false;
if u[a,1]=22 then
//if uslin[a-1] then
begin
cbOutput2.Text:=cbOutput2.Text+'n'+alg;
uslin[a-1]:=false;
funTnA(x);
s[pe]:=true;
end;
end;
if not(uslv)and(not(r)) then
begin
imageList3.Draw(image5.Canvas,0,-64,0,true);
zu.Canvas.Draw(18,90,image5.Picture.Bitmap);
imageList3.Draw(image5.Canvas,0,-64,0,true);
zu.Canvas.Draw(106,90,image5.Picture.Bitmap);
imageList4.Draw(zu.Canvas,165,126,u1[a,1]+20,true);
imageList4.Draw(zu.Canvas,77,126,u1[a,1]+19,true);
end;

if (uslv)and(r) then
begin
Err:=true;
st1:='электромагнитов Y';
imageList3.Draw(image5.Canvas,0,-96,0,true);
zu.Canvas.Draw(18,90,image5.Picture.Bitmap);
imageList3.Draw(image5.Canvas,0,-96,0,true);
zu.Canvas.Draw(106,90,image5.Picture.Bitmap);
imageList5.Draw(zu.Canvas,77,126,u1[a,1]+19,true);
imageList5.Draw(zu.Canvas,165,126,u1[a,1]+20,true);
end;
end;

procedure TForm1.fun5(Sender: TObject);
begin

uravfun(x);
uslv:=r;
inc(i);
uravfun(x);
if (k<>2)and(k<>7)and(k<>10) then
pe:=nz[u1[b,4]-1]
else
pe:=nz[u1[b,4]];
if k=3 then
pe:=nz1[u1[b,3]];
if k=13 then
pe:=nz1[u1[b,3]-1];
if b=1 then
ne:='A';
if b=2 then
ne:='B';
if b=3 then
ne:='C';
if b=4 then
ne:='D';

if uslv then
if u[a,1]<>65 then
begin
funA(x);
u[a,1]:=u[a,1]+1;
imageList2.Draw(zu.Canvas,u[a,1]-1,u[a,2],u[a,3],true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],u[a,3],true);
//zu.Visible:=false;
//zu.Visible:=true;
s[pe]:=false;
if u[a,1]=65 then
//if not(uslin[a-1]) then
begin
cbOutput2.Text:=cbOutput2.Text+alg;
uslin[a-1]:=true;
funTA(x);
s[pe+1]:=true;
end;
end;

if r then
if u[a,1]<>25 then
begin
funnA(x);
u[a,1]:=u[a,1]-1;
imageList2.Draw(zu.Canvas,u[a,1]+1,u[a,2],u[a,3],true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],u[a,3],true);
//zu.Visible:=false;
//zu.Visible:=true;
s[pe+1]:=false;
if u[a,1]=25 then
//if uslin[a-1] then
begin
cbOutput2.Text:=cbOutput2.Text+'n'+alg;
uslin[a-1]:=false;
funTnA(x);
s[pe]:=true;
end;
end;

if not(uslv)and(not(r)) then
begin
imageList4.Draw(zu.Canvas,20,118,u1[a,1]+19,true);
imageList4.Draw(zu.Canvas,110,118,u1[a,1]+20,true);
zu.Visible:=false;
zu.Visible:=true;
end;

if (uslv)and(r) then
begin
Err:=true;
st1:='электромагнитов Y';
imageList3.Draw(image5.Canvas,0,-32,0,true);
zu.Canvas.Draw(44,90,image5.Picture.Bitmap);
imageList5.Draw(zu.Canvas,121,77,u1[a,4]-1,true);
imageList5.Draw(zu.Canvas,20,118,u1[a,1]+19,true);
imageList5.Draw(zu.Canvas,110,118,u1[a,1]+20,true);
end;
end;

procedure TForm1.fun6(Sender: TObject);
begin
uravfun(x);
if (k<>2)and(k<>7)and(k<>10) then
pe:=nz[u1[b,4]-1]
else
pe:=nz[u1[b,4]];
if k=3 then
pe:=nz1[u1[b,3]];
if k=13 then
pe:=nz1[u1[b,3]-1];
if b=1 then
ne:='A';
if b=2 then
ne:='B';
if b=3 then
ne:='C';
if b=4 then
ne:='D';

if r then
begin
if u[a,1]<>67 then
begin
funA(x);
u[a,1]:=u[a,1]+1;
imageList2.Draw(zu.Canvas,u[a,1]-1,u[a,2],u[a,3],true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],u[a,3],true);
//zu.Visible:=false;
//zu.Visible:=true;
s[pe]:=false;
if u[a,1]=67 then
//if not(uslin[a-1]) then
begin
cbOutput2.Text:=cbOutput2.Text+alg;
uslin[a-1]:=true;
funTA(x);
s[pe+1]:=true;
end;
end;
end
else
begin
if u[a,1]<>27 then
begin
funnA(x);
u[a,1]:=u[a,1]-1;
imageList2.Draw(zu.Canvas,u[a,1]+1,u[a,2],u[a,3],true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],u[a,3],true);
//zu.Visible:=false;
//zu.Visible:=true;
s[pe+1]:=false;
if u[a,1]=27 then
//if uslin[a-1] then
begin
cbOutput2.Text:=cbOutput2.Text+'n'+alg;
uslin[a-1]:=false;
funTnA(x);
s[pe]:=true;
end;
end;
end;
end;

procedure TForm1.fun7(Sender: TObject);
begin

uravfun(x);
if (k<>2)and(k<>7)and(k<>10) then
pe:=nz[u1[b,4]-1]
else
pe:=nz[u1[b,4]];
if k=3 then
pe:=nz1[u1[b,3]];
if k=13 then
pe:=nz1[u1[b,3]-1];
if b=1 then
ne:='A';
if b=2 then
ne:='B';
if b=3 then
ne:='C';
if b=4 then
ne:='D';

if r then
begin
funA(x);
if u[a,5]<=10 then
begin
u[a,2]:=u[a,2]+1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,2]-1,7,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],7,true);
u[a,4]:=u[a,4]-1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,4]+1,11,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,4],11,true);
end;
if (u[a,5]<22)and(u[a,5]>10) then
begin
u[a,2]:=u[a,2]-1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,2]+1,7,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],7,true);
u[a,4]:=u[a,4]+1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,4]-1,11,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,4],11,true);
end;
u[a,5]:=u[a,5]+1;
//zu.Visible:=false;
//zu.Visible:=true;
s[pe]:=false;
if u[a,2]=u[a,4] then
begin
if usl1[1] then
begin
usl1[1]:=false;
cbOutput2.Text:=cbOutput2.Text+alg;
funTA(x);
end
else
begin
usl1[1]:=true;
cbOutput2.Text:=cbOutput2.Text+'n'+alg;
funTA(x);
end;
s[pe]:=true;
u[a,5]:=0;
end;
end;


if not(r) then
begin
imageList3.Draw(image6.Canvas,-65,-36,0,true);
zu.Canvas.Draw(20,92,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,55,82,u1[a,2]+28,true);
end;
end;

procedure TForm1.fun8(Sender: TObject);
begin

uravfun(x);
if (k<>2)and(k<>7)and(k<>10) then
pe:=nz[u1[b,4]-1]
else
pe:=nz[u1[b,4]];
if k=3 then
pe:=nz1[u1[b,3]];
if k=13 then
pe:=nz1[u1[b,3]-1];
if b=1 then
ne:='A';
if b=2 then
ne:='B';
if b=3 then
ne:='C';
if b=4 then
ne:='D';

if (r)and(usl1[2]) then
begin
funA(x);
if u[a,5]=0 then
u[a,4]:=u[a,2];
if u[a,5]<=8 then
begin
u[a,2]:=u[a,2]+1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,2]-1,10,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],10,true);
u[a,4]:=u[a,4]-1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,4]+1,8,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,4],8,true);
end;
if u[a,5]=11 then
imageList2.Draw(zu.Canvas,u[a,1],u[a,4],8,true);
if (u[a,5]<21)and(u[a,5]>10) then
begin
if u[a,5]=11 then
u[a,2]:=u[a,2]-3;
u[a,2]:=u[a,2]-1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,2]+1,7,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],7,true);
if u[a,5]=11 then
u[a,4]:=u[a,4]-5;
u[a,4]:=u[a,4]+1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,4]-1,9,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,4],9,true);
end;
u[a,5]:=u[a,5]+1;
//zu.Visible:=false;
//zu.Visible:=true;
s[pe]:=false;
if u[a,5]=21 then
begin
cbOutput2.Text:=cbOutput2.Text+alg;
funTA(x);
zu.Visible:=false;
zu.Visible:=true;
s[pe+1]:=true;
u[a,5]:=0;
usl1[2]:=false;
r:=false;
end;
end;

if (r)and(not(usl1[2])) then
begin
funnA(x);
if u[a,5]=0 then
u[a,4]:=u[a,2];
if u[a,5]<=8 then
begin
u[a,2]:=u[a,2]+1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,2]-1,7,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],7,true);
u[a,4]:=u[a,4]-1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,4]+1,9,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,4],9,true);
end;
if u[a,5]=11 then
imageList2.Draw(zu.Canvas,u[a,1],u[a,2],7,true);
if (u[a,5]<20)and(u[a,5]>10) then
begin
if u[a,5]=11 then
u[a,2]:=u[a,2]+4;
u[a,2]:=u[a,2]-1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,2]+1,10,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],10,true);
if u[a,5]=11 then
u[a,4]:=u[a,4]+3;
u[a,4]:=u[a,4]+1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,4]-1,8,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,4],8,true);
end;
u[a,5]:=u[a,5]+1;
//zu.Visible:=false;
//zu.Visible:=true;
s[pe+1]:=false;
if u[a,5]=20 then
begin
cbOutput2.Text:=cbOutput2.Text+'n'+alg;
funTnA(x);
s[pe]:=true;
u[a,5]:=0;
usl1[2]:=true;
r:=false;
end;
end;


if not(r) then
begin
imageList3.Draw(image6.Canvas,-65,-36,0,true);
zu.Canvas.Draw(20,102,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,56,92,u1[a,2]+28,true);
end;

end;

procedure TForm1.fun9(Sender: TObject);
begin

uravfun(x);
uslv:=r;
inc(i);
uravfun(x);
if (k<>2)and(k<>7)and(k<>10) then
pe:=nz[u1[b,4]-1]
else
pe:=nz[u1[b,4]];
if k=3 then
pe:=nz1[u1[b,3]];
if k=13 then
pe:=nz1[u1[b,3]-1];
if b=1 then
ne:='A';
if b=2 then
ne:='B';
if b=3 then
ne:='C';
if b=4 then
ne:='D';

if uslv then
begin
if (r)and(usl1[3]) then
begin
funA(x);
if u[a,5]=0 then
u[a,4]:=u[a,2];
if u[a,5]<=8 then
begin
u[a,2]:=u[a,2]+1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,2]-1,10,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],10,true);
u[a,4]:=u[a,4]-1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,4]+1,8,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,4],8,true);
end;
if u[a,5]=11 then
imageList2.Draw(zu.Canvas,u[a,1],u[a,4],8,true);
if (u[a,5]<21)and(u[a,5]>10) then
begin
if u[a,5]=11 then
u[a,2]:=u[a,2]-3;
u[a,2]:=u[a,2]-1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,2]+1,7,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],7,true);
if u[a,5]=11 then
u[a,4]:=u[a,4]-5;
u[a,4]:=u[a,4]+1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,4]-1,9,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,4],9,true);
end;
u[a,5]:=u[a,5]+1;
//zu.Visible:=false;
//zu.Visible:=true;
s[pe]:=false;
if u[a,5]=21 then
begin
cbOutput2.Text:=cbOutput2.Text+alg;
funTA(x);
s[pe+1]:=true;
u[a,5]:=0;
usl1[3]:=false;
r:=false;
end;
end;

if (r)and(not(usl1[3])) then
begin
funnA(x);
if u[a,5]=0 then
u[a,4]:=u[a,2];
if u[a,5]<=8 then
begin
u[a,2]:=u[a,2]+1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,2]-1,7,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],7,true);
u[a,4]:=u[a,4]-1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,4]+1,9,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,4],9,true);
end;
if u[a,5]=11 then
imageList2.Draw(zu.Canvas,u[a,1],u[a,2],7,true);
if (u[a,5]<20)and(u[a,5]>10) then
begin
if u[a,5]=11 then
u[a,2]:=u[a,2]+4;
u[a,2]:=u[a,2]-1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,2]+1,10,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],10,true);
if u[a,5]=11 then
u[a,4]:=u[a,4]+3;
u[a,4]:=u[a,4]+1;
imageList2.Draw(zu.Canvas,u[a,1],u[a,4]-1,8,true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,4],8,true);
end;
u[a,5]:=u[a,5]+1;
//zu.Visible:=false;
//zu.Visible:=true;
s[pe+1]:=false;
if u[a,5]=20 then
begin
cbOutput2.Text:=cbOutput2.Text+'n'+alg;
funTnA(x);
s[pe]:=true;
u[a,5]:=0;
usl1[3]:=true;
r:=false;
end;
end;
end;

if not(uslv) then
begin
imageList3.Draw(image6.Canvas,-65,-36,0,true);
zu.Canvas.Draw(20,102,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,56,92,u1[a,2]+28,true);
end;

if not(r) then
begin
imageList4.Draw(zu.Canvas,70,36,u1[a,1]+20,true);
end;

end;

procedure TForm1.fun10(Sender: TObject);
begin

uravfun(x);
uslv:=r;
inc(i);
uravfun(x);
if (k<>2)and(k<>7)and(k<>10) then
pe:=nz[u1[b,4]-1]
else
pe:=nz[u1[b,4]];
if k=3 then
pe:=nz1[u1[b,3]];
if k=13 then
pe:=nz1[u1[b,3]-1];
if b=1 then
ne:='A';
if b=2 then
ne:='B';
if b=3 then
ne:='C';
if b=4 then
ne:='D';

if uslv then
if u[a,1]<>138 then
begin
funA(x);
u[a,1]:=u[a,1]+1;
imageList2.Draw(zu.Canvas,u[a,1]-1,u[a,2],u[a,3],true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],u[a,3],true);
//zu.Visible:=false;
//zu.Visible:=true;

s[pe]:=false;
if u[a,1]=138 then
//if not(uslin[a-1]) then
begin
cbOutput2.Text:=cbOutput2.Text+alg;
uslin[a-1]:=true;
funTA(x);
s[pe]:=true;
end;
end;

if r then
if u[a,1]<>106 then
begin
funnA(x);
u[a,1]:=u[a,1]-1;
imageList2.Draw(zu.Canvas,u[a,1]+1,u[a,2],u[a,3],true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],u[a,3],true);
zu.Visible:=false;
zu.Visible:=true;
s[pe]:=false;
if u[a,1]=106 then
//if uslin[a-1] then
begin
cbOutput2.Text:=cbOutput2.Text+'n'+alg;
uslin[a-1]:=false;
funTnA(x);
s[pe]:=true;
end;
end;

if not(uslv) then
begin
imageList3.Draw(image6.Canvas,-65,-68,0,true);
zu.Canvas.Draw(46,102,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,21,87,u1[a,2]+27,true);
end;

if not(r) then
begin
imageList3.Draw(image6.Canvas,-65,-36,0,true);
zu.Canvas.Draw(67,102,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,101,87,u1[a,2]+28,true);
end;

if (uslv)and(r) then
begin
Err:=true;
st1:='реле прямого и обратного движения K';
imageList3.Draw(image6.Canvas,-97,-36,0,true);
zu.Canvas.Draw(67,102,image6.Picture.Bitmap);
imageList3.Draw(image6.Canvas,-97,-68,0,true);
zu.Canvas.Draw(46,102,image6.Picture.Bitmap);
imageList5.Draw(zu.Canvas,130,92,u1[a,4],true);
imageList5.Draw(zu.Canvas,21,87,u1[a,2]+27,true);
imageList5.Draw(zu.Canvas,101,87,u1[a,2]+28,true);
end;

end;

procedure TForm1.fun11(Sender: TObject);
begin

uravfun(x);
uslv:=r;
inc(i);
uravfun(x);
if (k<>2)and(k<>7)and(k<>10) then
pe:=nz[u1[b,4]-1]
else
pe:=nz[u1[b,4]];
if k=3 then
pe:=nz1[u1[b,3]];
if k=13 then
pe:=nz1[u1[b,3]-1];
if b=1 then
ne:='A';
if b=2 then
ne:='B';
if b=3 then
ne:='C';
if b=4 then
ne:='D';

if uslv then
if u[a,1]<>133 then
begin
funA(x);
u[a,1]:=u[a,1]+1;
imageList2.Draw(zu.Canvas,u[a,1]-1,u[a,2],u[a,3],true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],u[a,3],true);
//zu.Visible:=false;
//zu.Visible:=true;
s[pe]:=false;
if u[a,1]=133 then
//if not(uslin[a-1]) then
begin
cbOutput2.Text:=cbOutput2.Text+alg;
uslin[a-1]:=true;
funTA(x);
s[pe+1]:=true;
end;
end;

if r then
if u[a,1]<>101 then
begin
funnA(x);
u[a,1]:=u[a,1]-1;
imageList2.Draw(zu.Canvas,u[a,1]+1,u[a,2],u[a,3],true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],u[a,3],true);
//zu.Visible:=false;
//zu.Visible:=true;
s[pe+1]:=false;
if u[a,1]=101 then
//if uslin[a-1] then
begin
cbOutput2.Text:=cbOutput2.Text+'n'+alg;
uslin[a-1]:=false;
funTnA(x);
s[pe]:=true;
end;
end;

if not(uslv) then
begin
imageList3.Draw(image6.Canvas,-65,-68,0,true);
zu.Canvas.Draw(41,102,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,16,87,u1[a,2]+27,true);
end;

if not(r) then
begin
imageList3.Draw(image6.Canvas,-65,-36,0,true);
zu.Canvas.Draw(62,102,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,96,87,u1[a,2]+28,true);
end;

if (uslv)and(r) then
begin
Err:=true;
st1:='реле прямого и обратного движения K';
imageList3.Draw(image6.Canvas,-97,-68,0,true);
zu.Canvas.Draw(41,102,image6.Picture.Bitmap);
imageList3.Draw(image6.Canvas,-97,-36,0,true);
zu.Canvas.Draw(62,102,image6.Picture.Bitmap);
imageList5.Draw(zu.Canvas,16,87,u1[a,2]+27,true);
imageList5.Draw(zu.Canvas,96,87,u1[a,2]+28,true);
end;

end;

procedure TForm1.fun12(Sender: TObject);
begin

uravfun(x);
uslv:=r;
inc(i);
uravfun(x);
uslv1:=r;
inc(i);
uravfun(x);
if (k<>2)and(k<>7)and(k<>10) then
pe:=nz[u1[b,4]-1]
else
pe:=nz[u1[b,4]];
if k=3 then
pe:=nz1[u1[b,3]];
if k=13 then
pe:=nz1[u1[b,3]-1];
if b=1 then
ne:='A';
if b=2 then
ne:='B';
if b=3 then
ne:='C';
if b=4 then
ne:='D';


if uslv then
begin
if uslv1 then
if u[a,1]<>138 then
begin
funA(x);
u[a,1]:=u[a,1]+1;
imageList2.Draw(zu.Canvas,u[a,1]-1,u[a,2],u[a,3],true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],u[a,3],true);
//zu.Visible:=false;
//zu.Visible:=true;
s[pe]:=false;
if u[a,1]=138 then
//if not(uslin[a-1]) then
begin
cbOutput2.Text:=cbOutput2.Text+alg;
uslin[a-1]:=true;
funTA(x);
s[pe+1]:=true;
end;
end;

if r then
if u[a,1]<>106 then
begin
funnA(x);
u[a,1]:=u[a,1]-1;
imageList2.Draw(zu.Canvas,u[a,1]+1,u[a,2],u[a,3],true);
imageList1.Draw(zu.Canvas,u[a,1],u[a,2],u[a,3],true);
//zu.Visible:=false;
//zu.Visible:=true;
s[pe+1]:=false;
if u[a,1]=106 then
//if uslin[a-1] then
begin
cbOutput2.Text:=cbOutput2.Text+'n'+alg;
uslin[a-1]:=false;
funTnA(x);
s[pe]:=true;
end;
end;
end;

if not(uslv1) then
imageList4.Draw(zu.Canvas,55,17,u1[a,1]+19,true);

if not(r) then
imageList4.Draw(zu.Canvas,86,17,u1[a,1]+20,true);

if not(uslv) then
begin
imageList3.Draw(image6.Canvas,-65,-36,0,true);
zu.Canvas.Draw(10,102,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,63,87,u1[a,2]+28,true);
end;

if (uslv1)and(r) then
begin
Err:=true;
st1:='функций реверса Y';
imageList3.Draw(image6.Canvas,-97,-36,0,true);
zu.Canvas.Draw(10,102,image6.Picture.Bitmap);
imageList5.Draw(zu.Canvas,135,102,u1[a,4]-1,true);
imageList5.Draw(zu.Canvas,55,17,u1[a,1]+19,true);
imageList5.Draw(zu.Canvas,86,17,u1[a,1]+20,true);
end;

zu.Visible:=false;
zu.Visible:=true;
end;

procedure TForm1.funUP(Sender: TObject);
begin
c:=1;
repeat
uravfun(x);
if r then
begin
s[zn[c]]:=true;
case c of
1:P1.Font.Color:=clred;
2:P2.Font.Color:=clred;
3:P3.Font.Color:=clred;
4:P4.Font.Color:=clred;
5:P5.Font.Color:=clred;
6:P6.Font.Color:=clred;
7:P7.Font.Color:=clred;
8:P8.Font.Color:=clred;
9:P9.Font.Color:=clred;
end;
inc(i);
end
else
begin
s[zn[c]]:=false;
case c of
1:P1.Font.Color:=clblack;
2:P2.Font.Color:=clblack;
3:P3.Font.Color:=clblack;
4:P4.Font.Color:=clblack;
5:P5.Font.Color:=clblack;
6:P6.Font.Color:=clblack;
7:P7.Font.Color:=clblack;
8:P8.Font.Color:=clblack;
9:P9.Font.Color:=clblack;
end;
inc(i);
end;
inc(c);
until mmOutput.Count=i;

end;

procedure TForm1.funA(Sender: TObject);
begin
case k of
0:begin
zu.Picture.LoadFromFile('Нет.bmp');
end;
1:begin
imageList3.Draw(image5.Canvas,0,-32,0,true);
zu.Canvas.Draw(44,90,image5.Picture.Bitmap);
imageList4.Draw(zu.Canvas,121,77,u1[a,4]-1,true);
imageList5.Draw(zu.Canvas,20,87,u1[a,1]+20,true);
end;
2:begin
imageList3.Draw(image5.Canvas,0,-32,0,true);
zu.Canvas.Draw(44,90,image5.Picture.Bitmap);
imageList4.Draw(zu.Canvas,141,77,u1[a,4],true);
imageList5.Draw(zu.Canvas,20,87,u1[a,1]+20,true);
end;
3:begin
imageList3.Draw(image5.Canvas,0,-32,0,true);
zu.Canvas.Draw(94,90,image5.Picture.Bitmap);
imageList5.Draw(zu.Canvas,75,126,u1[a,1]+20,true);
end;
4:begin
imageList3.Draw(image5.Canvas,0,-96,0,true);
zu.Canvas.Draw(18,90,image5.Picture.Bitmap);
imageList3.Draw(image5.Canvas,0,-64,0,true);
zu.Canvas.Draw(106,90,image5.Picture.Bitmap);
imageList4.Draw(zu.Canvas,125,50,u1[a,4]-1,true);
imageList5.Draw(zu.Canvas,77,126,u1[a,1]+19,true);
imageList4.Draw(zu.Canvas,165,126,u1[a,1]+20,true);
end;
5:begin
imageList3.Draw(image5.Canvas,0,-32,0,true);
zu.Canvas.Draw(44,90,image5.Picture.Bitmap);
imageList4.Draw(zu.Canvas,121,77,u1[a,4]-1,true);
imageList5.Draw(zu.Canvas,20,118,u1[a,1]+19,true);
imageList4.Draw(zu.Canvas,110,118,u1[a,1]+20,true);
end;
6:begin
imageList3.Draw(image6.Canvas,-65,-98,0,true);
zu.Canvas.Draw(142,82,image6.Picture.Bitmap);
imageList3.Draw(image5.Canvas,0,-32,0,true);
zu.Canvas.Draw(69,102,image5.Picture.Bitmap);
imageList4.Draw(zu.Canvas,160,115,u1[a,3]+11,true);
imageList4.Draw(zu.Canvas,10,115,u1[a,3]+12,true);
imageList5.Draw(zu.Canvas,55,135,u1[a,1]+20,true);
end;
7:begin
imageList3.Draw(image6.Canvas,-97,-36,0,true);
zu.Canvas.Draw(20,92,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,142,108,u1[a,4],true);
imageList5.Draw(zu.Canvas,55,82,u1[a,2]+28,true);
end;
8:begin
imageList3.Draw(image6.Canvas,-97,-36,0,true);
zu.Canvas.Draw(20,102,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,149,102,u1[a,4]-1,true);
imageList5.Draw(zu.Canvas,56,92,u1[a,2]+28,true);
end;
9:begin
imageList3.Draw(image6.Canvas,-97,-36,0,true);
zu.Canvas.Draw(20,102,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,149,102,u1[a,4]-1,true);
imageList5.Draw(zu.Canvas,70,36,u1[a,1]+20,true);
imageList5.Draw(zu.Canvas,56,92,u1[a,2]+28,true);
end;
10:begin
imageList3.Draw(image6.Canvas,-97,-68,0,true);
zu.Canvas.Draw(46,102,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,130,92,u1[a,4],true);
imageList5.Draw(zu.Canvas,21,87,u1[a,2]+27,true);
imageList4.Draw(zu.Canvas,101,87,u1[a,2]+28,true);
end;
11:begin
imageList3.Draw(image6.Canvas,-97,-68,0,true);
zu.Canvas.Draw(41,102,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,130,92,u1[a,4]-1,true);
imageList5.Draw(zu.Canvas,16,87,u1[a,2]+27,true);
imageList4.Draw(zu.Canvas,96,87,u1[a,2]+28,true);
end;
12:begin
imageList3.Draw(image6.Canvas,-97,-36,0,true);
zu.Canvas.Draw(10,102,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,135,102,u1[a,4]-1,true);
imageList5.Draw(zu.Canvas,55,17,u1[a,1]+19,true);
imageList4.Draw(zu.Canvas,86,17,u1[a,1]+20,true);
imageList5.Draw(zu.Canvas,63,87,u1[a,2]+28,true);
end;
end;

end;

procedure TForm1.funnA(Sender: TObject);
begin
case k of
0:begin
zu.Picture.LoadFromFile('Нет.bmp');
end;
1:begin
imageList3.Draw(image5.Canvas,0,0,0,true);
zu.Canvas.Draw(44,90,image5.Picture.Bitmap);
imageList4.Draw(zu.Canvas,161,77,u1[a,4],true);
imageList4.Draw(zu.Canvas,20,87,u1[a,1]+20,true);
end;
2:begin
imageList3.Draw(image5.Canvas,0,0,0,true);
zu.Canvas.Draw(44,90,image5.Picture.Bitmap);
imageList4.Draw(zu.Canvas,141,77,u1[a,4],true);
imageList4.Draw(zu.Canvas,20,87,u1[a,1]+20,true);
end;
3:begin
imageList3.Draw(image5.Canvas,0,0,0,true);
zu.Canvas.Draw(94,90,image5.Picture.Bitmap);
imageList4.Draw(zu.Canvas,75,126,u1[a,1]+20,true);
end;
4:begin
imageList3.Draw(image5.Canvas,0,-64,0,true);
zu.Canvas.Draw(18,90,image5.Picture.Bitmap);
imageList3.Draw(image5.Canvas,0,-96,0,true);
zu.Canvas.Draw(106,90,image5.Picture.Bitmap);
imageList4.Draw(zu.Canvas,165,50,u1[a,4],true);
imageList4.Draw(zu.Canvas,77,126,u1[a,1]+19,true);
imageList5.Draw(zu.Canvas,165,126,u1[a,1]+20,true);
end;
5:begin
imageList3.Draw(image5.Canvas,0,0,0,true);
zu.Canvas.Draw(44,90,image5.Picture.Bitmap);
imageList4.Draw(zu.Canvas,161,77,u1[a,4],true);
imageList4.Draw(zu.Canvas,20,118,u1[a,1]+19,true);
imageList5.Draw(zu.Canvas,110,118,u1[a,1]+20,true);
end;
6:begin
imageList3.Draw(image6.Canvas,-65,-2,0,true);
zu.Canvas.Draw(24,82,image6.Picture.Bitmap);
imageList3.Draw(image5.Canvas,0,0,0,true);
zu.Canvas.Draw(69,102,image5.Picture.Bitmap);
imageList4.Draw(zu.Canvas,160,115,u1[a,3]+11,true);
imageList4.Draw(zu.Canvas,10,115,u1[a,3]+12,true);
imageList4.Draw(zu.Canvas,55,135,u1[a,1]+20,true);
end;
7:begin
imageList3.Draw(image6.Canvas,-97,-36,0,true);
zu.Canvas.Draw(20,92,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,142,108,u1[a,4],true);
imageList5.Draw(zu.Canvas,55,82,u1[a,2]+28,true);
end;
8:begin
imageList3.Draw(image6.Canvas,-97,-36,0,true);
zu.Canvas.Draw(20,102,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,149,22,u1[a,4],true);
imageList5.Draw(zu.Canvas,56,92,u1[a,2]+28,true);
end;
9:begin
imageList3.Draw(image6.Canvas,-97,-36,0,true);
zu.Canvas.Draw(20,102,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,149,22,u1[a,4],true);
imageList5.Draw(zu.Canvas,70,36,u1[a,1]+20,true);
imageList5.Draw(zu.Canvas,56,92,u1[a,2]+28,true);
end;
10:begin
imageList3.Draw(image6.Canvas,-97,-36,0,true);
zu.Canvas.Draw(67,102,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,130,92,u1[a,4],true);
imageList4.Draw(zu.Canvas,21,87,u1[a,2]+27,true);
imageList5.Draw(zu.Canvas,101,87,u1[a,2]+28,true);
end;
11:begin
imageList3.Draw(image6.Canvas,-97,-36,0,true);
zu.Canvas.Draw(62,102,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,163,92,u1[a,4],true);
imageList4.Draw(zu.Canvas,16,87,u1[a,2]+27,true);
imageList5.Draw(zu.Canvas,96,87,u1[a,2]+28,true);
end;
12:begin
imageList3.Draw(image6.Canvas,-97,-36,0,true);
zu.Canvas.Draw(10,102,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,160,102,u1[a,4],true);
imageList4.Draw(zu.Canvas,55,17,u1[a,1]+19,true);
imageList5.Draw(zu.Canvas,86,17,u1[a,1]+20,true);
imageList5.Draw(zu.Canvas,63,87,u1[a,2]+28,true);
end;
end;
end;

procedure TForm1.funTA(Sender: TObject);
begin
case k of
0:begin
zu.Picture.LoadFromFile('Нет.bmp');
end;
1:begin
imageList5.Draw(zu.Canvas,161,77,u1[a,4],true);
end;
2:begin
imageList5.Draw(zu.Canvas,141,77,u1[a,4],true);
end;
3:begin
imageList3.Draw(image6.Canvas,-97,-2,0,true);
zu.Canvas.Draw(33,92,image6.Picture.Bitmap);
imageList5.Draw(zu.Canvas,10,126,u1[a,3]+12,true);
end;
4:begin
imageList5.Draw(zu.Canvas,165,50,u1[a,4],true);
end;
5:begin
imageList5.Draw(zu.Canvas,161,77,u1[a,4],true);
end;
6:begin
imageList3.Draw(image6.Canvas,-97,-2,0,true);
zu.Canvas.Draw(24,82,image6.Picture.Bitmap);
imageList5.Draw(zu.Canvas,10,115,u1[a,3]+12,true);
end;
7:begin
imageList3.Draw(image6.Canvas,-65,-36,0,true);
zu.Canvas.Draw(20,92,image6.Picture.Bitmap);
imageList5.Draw(zu.Canvas,142,108,u1[a,4],true);
imageList4.Draw(zu.Canvas,55,82,u1[a,2]+28,true);
end;
8:begin
imageList3.Draw(image6.Canvas,-65,-36,0,true);
zu.Canvas.Draw(20,102,image6.Picture.Bitmap);
imageList5.Draw(zu.Canvas,149,22,u1[a,4],true);
imageList4.Draw(zu.Canvas,56,92,u1[a,2]+28,true);
end;
9:begin
imageList5.Draw(zu.Canvas,149,22,u1[a,4],true);
imageList4.Draw(zu.Canvas,70,36,u1[a,1]+20,true);
end;
10:begin
imageList3.Draw(image6.Canvas,-65,-68,0,true);
zu.Canvas.Draw(46,102,image6.Picture.Bitmap);
imageList5.Draw(zu.Canvas,130,92,u1[a,4],true);
imageList4.Draw(zu.Canvas,21,87,u1[a,2]+27,true);
end;
11:begin
imageList3.Draw(image6.Canvas,-65,-68,0,true);
zu.Canvas.Draw(41,102,image6.Picture.Bitmap);
imageList5.Draw(zu.Canvas,163,92,u1[a,4],true);
imageList4.Draw(zu.Canvas,16,87,u1[a,2]+27,true);
end;
12:begin
imageList5.Draw(zu.Canvas,160,102,u1[a,4],true);
imageList4.Draw(zu.Canvas,55,17,u1[a,1]+19,true);
end;
end;
nex:=false;
end;


procedure TForm1.funTnA(Sender: TObject);
begin
case k of
0:begin
zu.Picture.LoadFromFile('Нет.bmp');
end;
1:begin
imageList5.Draw(zu.Canvas,121,77,u1[a,4]-1,true);
end;
2:begin
imageList5.Draw(zu.Canvas,141,77,u1[a,4],true);
end;
3:begin
imageList3.Draw(image6.Canvas,-65,-2,0,true);
zu.Canvas.Draw(33,92,image6.Picture.Bitmap);
imageList4.Draw(zu.Canvas,10,126,u1[a,3]+12,true);
end;
4:begin
imageList5.Draw(zu.Canvas,125,50,u1[a,4]-1,true);
end;
5:begin
imageList5.Draw(zu.Canvas,121,77,u1[a,4]-1,true);
end;
6:begin
imageList3.Draw(image6.Canvas,-97,-98,0,true);
zu.Canvas.Draw(142,82,image6.Picture.Bitmap);
imageList5.Draw(zu.Canvas,160,115,u1[a,3]+11,true);
end;
7:begin
imageList3.Draw(image6.Canvas,-65,-36,0,true);
zu.Canvas.Draw(20,92,image6.Picture.Bitmap);
imageList5.Draw(zu.Canvas,142,108,u1[a,4],true);
imageList4.Draw(zu.Canvas,55,82,u1[a,2]+28,true);
end;
8:begin
imageList3.Draw(image6.Canvas,-65,-36,0,true);
zu.Canvas.Draw(20,102,image6.Picture.Bitmap);
imageList5.Draw(zu.Canvas,149,102,u1[a,4]-1,true);
imageList4.Draw(zu.Canvas,56,92,u1[a,2]+28,true);
end;
9:begin
imageList5.Draw(zu.Canvas,149,102,u1[a,4]-1,true);
imageList4.Draw(zu.Canvas,70,36,u1[a,1]+20,true);
end;
10:begin
imageList3.Draw(image6.Canvas,-65,-36,0,true);
zu.Canvas.Draw(67,102,image6.Picture.Bitmap);
imageList5.Draw(zu.Canvas,130,92,u1[a,4],true);
imageList4.Draw(zu.Canvas,101,87,u1[a,2]+28,true);
end;
11:begin;
imageList3.Draw(image6.Canvas,-65,-36,0,true);
zu.Canvas.Draw(62,102,image6.Picture.Bitmap);
imageList5.Draw(zu.Canvas,130,92,u1[a,4]-1,true);
imageList4.Draw(zu.Canvas,96,87,u1[a,2]+28,true);
end;
12:begin
imageList5.Draw(zu.Canvas,135,102,u1[a,4]-1,true);
imageList4.Draw(zu.Canvas,86,17,u1[a,1]+20,true);
end;
end;
nex:=false;
end;

procedure TForm1.SPAClick(Sender: TObject);
begin
a:=1;
c1:=SPA.Down;
k:=cbMex1.ItemIndex;
cuc:=image1;
zu:=image1;
if not(SPA.Down) then
begin
SPA.Caption:='A';
uslin[0]:=false;
uslin[4]:=false;
sp(X);
funnA(x);
funTnA(x);
end;
if SPA.Down then
begin
SPA.Caption:='nA';
uslin[0]:=true;
uslin[4]:=true;
SP(X);
funA(x);
funTA(x);
end;
end;

procedure TForm1.SPBClick(Sender: TObject);
begin
a:=2;
c1:=SPB.Down;
k:=cbMex2.ItemIndex;
cuc:=image2;
zu:=image2;
if not(SPB.Down) then
begin
SPB.Caption:='B';
uslin[1]:=false;
uslin[4]:=false;
SP(x);
funnA(x);
funTnA(x);
end;
if SPB.Down then
begin
SPB.Caption:='nB';
uslin[1]:=true;
uslin[4]:=true;
SP(x);
funA(x);
funTA(x);
end;
end;

procedure TForm1.SPCClick(Sender: TObject);
begin
a:=3;
c1:=SPC.Down;
k:=cbMex3.ItemIndex;
cuc:=image3;
zu:=image3;
if not(SPC.Down) then
begin
SPC.Caption:='C';
uslin[2]:=false;
uslin[4]:=false;
SP(x);
funnA(x);
funTnA(x);
end;
if SPC.Down then
begin
SPC.Caption:='nC';
uslin[2]:=true;
uslin[4]:=true;
SP(x);
funA(x);
funTA(x);
end;
end;

procedure TForm1.SPDClick(Sender: TObject);
begin
a:=4;
c1:=SPD.Down;
k:=cbMex4.ItemIndex;
cuc:=image4;
zu:=image4;
if not(SPD.Down) then
begin
SPD.Caption:='D';
uslin[3]:=false;
uslin[4]:=false;
SP(x);
funnA(x);
funTnA(x);
end;
if SPD.Down then
begin
SPD.Caption:='nD';
uslin[3]:=true;
uslin[4]:=true;
SP(x);
funA(x);
funTA(x);
end;
end;

procedure TForm1.SP(Sender: TObject);
begin
if not(c1) then
begin
case k of
0:begin
cuc.Picture.LoadFromFile('Нет.bmp');
end;
1:begin
cuc.Picture.LoadFromFile('Механизм 1.bmp');
imageList1.Draw(cuc.Canvas,25,10,0,true);
imageList4.Draw(cuc.Canvas,121,77,u1[a,4]-1,true);
imageList4.Draw(cuc.Canvas,161,77,u1[a,4],true);
imageList4.Draw(cuc.Canvas,20,87,u1[a,1]+20,true);
u[a,1]:=25;
u[a,2]:=10;
u[a,3]:=0;
u[a,5]:=0;
end;
2:begin
cuc.Picture.LoadFromFile('Механизм 2.bmp');
imageList1.Draw(cuc.Canvas,20,9,1,true);
imageList4.Draw(cuc.Canvas,141,77,u1[a,4],true);
imageList4.Draw(cuc.Canvas,20,87,u1[a,1]+20,true);
u[a,1]:=20;
u[a,2]:=9;
u[a,3]:=1;
u[a,5]:=0;
end;
3:begin
cuc.Picture.LoadFromFile('Механизм 3.bmp');
imageList1.Draw(cuc.Canvas,25,9,2,true);
imageList4.Draw(cuc.Canvas,10,126,u1[a,3]+12,true);
imageList4.Draw(cuc.Canvas,75,126,u1[a,1]+20,true);
u[a,1]:=25;
u[a,2]:=9;
u[a,3]:=2;
u[a,5]:=0;
end;
4:begin
cuc.Picture.LoadFromFile('Механизм 4.bmp');
imageList1.Draw(cuc.Canvas,22,8,0,true);
imageList4.Draw(cuc.Canvas,125,50,u1[a,4]-1,true);
imageList4.Draw(cuc.Canvas,165,50,u1[a,4],true);
imageList4.Draw(cuc.Canvas,77,126,u1[a,1]+19,true);
imageList4.Draw(cuc.Canvas,165,126,u1[a,1]+20,true);
u[a,1]:=22;
u[a,2]:=8;
u[a,3]:=0;
u[a,5]:=0;
end;
5:begin
cuc.Picture.LoadFromFile('Механизм 5.bmp');
imageList1.Draw(cuc.Canvas,25,10,0,true);
imageList4.Draw(cuc.Canvas,121,77,u1[a,4]-1,true);
imageList4.Draw(cuc.Canvas,161,77,u1[a,4],true);
imageList4.Draw(cuc.Canvas,20,118,u1[a,1]+19,true);
imageList4.Draw(cuc.Canvas,110,118,u1[a,1]+20,true);
u[a,1]:=25;
u[a,2]:=10;
u[a,3]:=0;
u[a,5]:=0;
end;
6:begin
cuc.Picture.LoadFromFile('Механизм 6.bmp');
imageList1.Draw(cuc.Canvas,27,9,2,true);
imageList4.Draw(cuc.Canvas,160,115,u1[a,3]+11,true);
imageList4.Draw(cuc.Canvas,10,115,u1[a,3]+12,true);
imageList4.Draw(cuc.Canvas,55,135,u1[a,1]+20,true);
u[a,1]:=27;
u[a,2]:=9;
u[a,3]:=2;
u[a,5]:=0;
end;
7:begin
cuc.Picture.LoadFromFile('Механизм 7.bmp');
imageList1.Draw(cuc.Canvas,136,41,3,true);
imageList4.Draw(cuc.Canvas,142,108,u1[a,4],true);
imageList4.Draw(cuc.Canvas,55,82,u1[a,2]+28,true);
u[a,1]:=136;
u[a,2]:=41;
u[a,3]:=3;
u[a,4]:=41;
u[a,5]:=0;
usl1[1]:=true;
end;
8:begin
cuc.Picture.LoadFromFile('Механизм 8.bmp');
imageList1.Draw(cuc.Canvas,136,54,4,true);
imageList4.Draw(cuc.Canvas,149,102,u1[a,4]-1,true);
imageList4.Draw(cuc.Canvas,149,22,u1[a,4],true);
imageList4.Draw(cuc.Canvas,56,92,u1[a,2]+28,true);
u[a,1]:=136;
u[a,2]:=54;
u[a,3]:=4;
u[a,4]:=54;
u[a,5]:=0;
usl1[2]:=true;
end;
9:begin
cuc.Picture.LoadFromFile('Механизм 9.bmp');
imageList1.Draw(cuc.Canvas,136,54,4,true);
imageList4.Draw(cuc.Canvas,149,102,u1[a,4]-1,true);
imageList4.Draw(cuc.Canvas,149,22,u1[a,4],true);
imageList4.Draw(cuc.Canvas,70,36,u1[a,1]+20,true);
imageList4.Draw(cuc.Canvas,56,92,u1[a,2]+28,true);
u[a,1]:=136;
u[a,2]:=54;
u[a,3]:=4;
u[a,4]:=54;
u[a,5]:=0;
usl1[3]:=true;
end;
10:begin
cuc.Picture.LoadFromFile('Механизм 10.bmp');
imageList1.Draw(cuc.Canvas,106,20,5,true);
imageList4.Draw(cuc.Canvas,130,92,u1[a,4],true);
imageList4.Draw(cuc.Canvas,21,87,u1[a,2]+27,true);
imageList4.Draw(cuc.Canvas,101,87,u1[a,2]+28,true);
u[a,1]:=106;
u[a,2]:=20;
u[a,3]:=5;
u[a,5]:=0;
end;
11:begin
cuc.Picture.LoadFromFile('Механизм 11.bmp');
imageList1.Draw(cuc.Canvas,101,20,6,true);
imageList4.Draw(cuc.Canvas,130,92,u1[a,4]-1,true);
imageList4.Draw(cuc.Canvas,163,92,u1[a,4],true);
imageList4.Draw(cuc.Canvas,16,87,u1[a,2]+27,true);
imageList4.Draw(cuc.Canvas,96,87,u1[a,2]+28,true);
u[a,1]:=101;
u[a,2]:=20;
u[a,3]:=6;
u[a,5]:=0;
end;
12:begin
cuc.Picture.LoadFromFile('Механизм 12.bmp');
imageList1.Draw(cuc.Canvas,106,30,6,true);
imageList4.Draw(cuc.Canvas,135,102,u1[a,4]-1,true);
imageList4.Draw(cuc.Canvas,160,102,u1[a,4],true);
imageList4.Draw(cuc.Canvas,55,17,u1[a,1]+19,true);
imageList4.Draw(cuc.Canvas,86,17,u1[a,1]+20,true);
imageList4.Draw(cuc.Canvas,63,87,u1[a,2]+28,true);
u[a,1]:=106;
u[a,2]:=30;
u[a,3]:=6;
u[a,5]:=0;
end;
end;
end;
if c1 then
begin
case k of
0:begin
cuc.Picture.LoadFromFile('Нет.bmp');
end;
1:begin
cuc.Picture.LoadFromFile('Механизм 1.bmp');
imageList1.Draw(cuc.Canvas,65,10,0,true);
imageList4.Draw(cuc.Canvas,121,77,u1[a,4]-1,true);
imageList4.Draw(cuc.Canvas,161,77,u1[a,4],true);
imageList4.Draw(cuc.Canvas,20,87,u1[a,1]+20,true);
u[a,1]:=65;
u[a,2]:=10;
u[a,3]:=0;
u[a,5]:=0;
end;
2:begin
cuc.Picture.LoadFromFile('Механизм 2.bmp');
imageList1.Draw(cuc.Canvas,60,9,1,true);
imageList4.Draw(cuc.Canvas,141,77,u1[a,4],true);
imageList4.Draw(cuc.Canvas,20,87,u1[a,1]+20,true);
u[a,1]:=60;
u[a,2]:=9;
u[a,3]:=1;
u[a,5]:=0;
end;
3:begin
cuc.Picture.LoadFromFile('Механизм 3.bmp');
imageList1.Draw(cuc.Canvas,65,9,2,true);
imageList4.Draw(cuc.Canvas,10,126,u1[a,3]+12,true);
imageList4.Draw(cuc.Canvas,75,126,u1[a,1]+20,true);
u[a,1]:=65;
u[a,2]:=9;
u[a,3]:=2;
u[a,5]:=0;
end;
4:begin
cuc.Picture.LoadFromFile('Механизм 4.bmp');
imageList1.Draw(cuc.Canvas,62,8,0,true);
imageList4.Draw(cuc.Canvas,125,50,u1[a,4]-1,true);
imageList4.Draw(cuc.Canvas,165,50,u1[a,4],true);
imageList4.Draw(cuc.Canvas,77,126,u1[a,1]+19,true);
imageList4.Draw(cuc.Canvas,165,126,u1[a,1]+20,true);
u[a,1]:=62;
u[a,2]:=8;
u[a,3]:=0;
u[a,5]:=0;
end;
5:begin
cuc.Picture.LoadFromFile('Механизм 5.bmp');
imageList1.Draw(cuc.Canvas,65,10,0,true);
imageList4.Draw(cuc.Canvas,121,77,u1[a,4]-1,true);
imageList4.Draw(cuc.Canvas,161,77,u1[a,4],true);
imageList4.Draw(cuc.Canvas,20,118,u1[a,1]+19,true);
imageList4.Draw(cuc.Canvas,110,118,u1[a,1]+20,true);
u[a,1]:=65;
u[a,2]:=10;
u[a,3]:=0;
u[a,5]:=0;
end;
6:begin
cuc.Picture.LoadFromFile('Механизм 6.bmp');
imageList1.Draw(cuc.Canvas,67,9,2,true);
imageList4.Draw(cuc.Canvas,160,115,u1[a,3]+11,true);
imageList4.Draw(cuc.Canvas,10,115,u1[a,3]+12,true);
imageList4.Draw(cuc.Canvas,55,135,u1[a,1]+20,true);
u[a,1]:=67;
u[a,2]:=9;
u[a,3]:=2;
u[a,5]:=0;
end;
7:begin
cuc.Picture.LoadFromFile('Механизм 7.bmp');
imageList1.Draw(cuc.Canvas,136,41,3,true);
imageList4.Draw(cuc.Canvas,142,108,u1[a,4],true);
imageList4.Draw(cuc.Canvas,55,82,u1[a,2]+28,true);
u[a,1]:=136;
u[a,2]:=41;
u[a,3]:=0;
u[a,4]:=41;
u[a,5]:=0;
usl1[1]:=true;
end;
8:begin
cuc.Picture.LoadFromFile('Механизм 8.bmp');
imageList1.Draw(cuc.Canvas,136,50,12,true);
imageList4.Draw(cuc.Canvas,149,102,u1[a,4]-1,true);
imageList4.Draw(cuc.Canvas,149,22,u1[a,4],true);
imageList4.Draw(cuc.Canvas,56,92,u1[a,2]+28,true);
u[a,1]:=136;
u[a,2]:=50;
u[a,3]:=0;
u[a,4]:=50;
u[a,5]:=0;
usl1[2]:=false;
end;
9:begin
cuc.Picture.LoadFromFile('Механизм 9.bmp');
imageList1.Draw(cuc.Canvas,136,50,12,true);
imageList4.Draw(cuc.Canvas,149,102,u1[a,4]-1,true);
imageList4.Draw(cuc.Canvas,149,22,u1[a,4],true);
imageList4.Draw(cuc.Canvas,70,36,u1[a,1]+20,true);
imageList4.Draw(cuc.Canvas,56,92,u1[a,2]+28,true);
u[a,1]:=136;
u[a,2]:=50;
u[a,3]:=0;
u[a,4]:=50;
u[a,5]:=0;
usl1[3]:=false;
end;
10:begin
cuc.Picture.LoadFromFile('Механизм 10.bmp');
imageList1.Draw(cuc.Canvas,138,20,5,true);
imageList4.Draw(cuc.Canvas,130,92,u1[a,4],true);
imageList4.Draw(cuc.Canvas,21,87,u1[a,2]+27,true);
imageList4.Draw(cuc.Canvas,101,87,u1[a,2]+28,true);
u[a,1]:=138;
u[a,2]:=20;
u[a,3]:=5;
u[a,5]:=0;
end;
11:begin
cuc.Picture.LoadFromFile('Механизм 11.bmp');
imageList1.Draw(cuc.Canvas,133,20,6,true);
imageList4.Draw(cuc.Canvas,130,92,u1[a,4]-1,true);
imageList4.Draw(cuc.Canvas,163,92,u1[a,4],true);
imageList4.Draw(cuc.Canvas,16,87,u1[a,2]+27,true);
imageList4.Draw(cuc.Canvas,96,87,u1[a,2]+28,true);
u[a,1]:=133;
u[a,2]:=20;
u[a,3]:=6;
u[a,5]:=0;
end;
12:begin
cuc.Picture.LoadFromFile('Механизм 12.bmp');
imageList1.Draw(cuc.Canvas,138,30,6,true);
imageList4.Draw(cuc.Canvas,135,102,u1[a,4]-1,true);
imageList4.Draw(cuc.Canvas,160,102,u1[a,4],true);
imageList4.Draw(cuc.Canvas,55,17,u1[a,1]+19,true);
imageList4.Draw(cuc.Canvas,86,17,u1[a,1]+20,true);
imageList4.Draw(cuc.Canvas,63,87,u1[a,2]+28,true);
u[a,1]:=138;
u[a,2]:=30;
u[a,3]:=6;
u[a,5]:=0;
end;
end;
end;
end;



procedure TForm1.NextClick(Sender: TObject);
begin
nex:=true;
playclick(x);
//timer2.Enabled:=true;
end;

procedure TForm1.pausClick(Sender: TObject);
begin
if paus.Down then
begin
//Next.Enabled:=true;
end;
if not(paus.Down) then
begin
Timer2.Enabled:=true;
play.Down:=true;
//Next.Enabled:=false;
end;
end;



procedure TForm1.Timer2Timer(Sender: TObject);
begin
timer2.Enabled:=false;

if Length(cbOutput2.Text)<>g then
begin
cbOutput2.Text:=cbOutput2.Text+'-';
g:=Length(cbOutput2.Text);
end;

if Length(cbOutput1.Text)<Length(cbOutput2.Text) then
begin
inc(tp);
if tp>2 then tp:=0;
if tp=2 then
st2:=cbOutput2.Text;
cbOutput2.Clear;
g:=0
end;

if not(stop.Down) then
playClick(x);
end;

procedure TForm1.f11Click(Sender: TObject);
begin
Play.Down:=true;
playClick(x);
end;

procedure TForm1.N6Click(Sender: TObject);
begin
stopClick(x);
end;

procedure TForm1.N11Click(Sender: TObject);
begin
unit2.i:=1;
ABCD(x);
Form2.ShowModal;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
if Form4.ShowModal=mrOK then
end;



procedure TForm1.N7Click(Sender: TObject);
begin
bbOutputF.Caption:='Сброс';
OpenDialog1.InitialDir:='c:\Мои документы\';
if OpenDialog1.Execute and FileExists(OpenDialog1.FileName) then
begin

AssignFile(Open,OpenDialog1.FileName);
Reset(Open);
readln(open,Load);
cbMex1.ItemIndex:=strtoint(load);
readln(open,Load);
cbMex2.ItemIndex:=strtoint(load);
readln(open,Load);
cbMex3.ItemIndex:=strtoint(load);
readln(open,Load);
cbMex4.ItemIndex:=strtoint(load);
readln(open,Load);
UpDown1.position:=strtoint(load);
indiv:=true;

dubler(x);
readln(Open,load);

cbOutput1.text:=load;
a:=mmOutput.Count-1;
mmOutput.Clear;
for i:=0 to a do
begin
readln(Open,Load);
mmOutput.items[i]:=load;
//readln(save,Load);
for j:=0 to 49 do
begin
readln(Open,Load);
unit3.oper[i,j]:=strtoint(load);

end;
end;

closefile(Open);
play.Enabled:=true;
Next.Enabled:=true;
f11.Enabled:=true;
end;
end;
procedure TForm1.N8Click(Sender: TObject);
begin

SaveDialog1.InitialDir:='c:\Мои документы\';
//AssignFile(save,ExpandFilename('test.txt'));
//nam:=ExtractFilepath('test.txt');
if savedialog1.Execute then
begin
AssignFile(open,SaveDialog1.FileName);


reset(save);
rewrite(open);
While not eof(save) do
begin
readln(save,load);
writeln(open,load);
end;
closeFile(save);
closeFile(open);
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if deleteFile('test.txt') then
Form1.Close;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
bbOutputF.Caption:='Сброс';
Reset(save);
readln(save,Load);
cbMex1.ItemIndex:=strtoint(load);
readln(save,Load);
cbMex2.ItemIndex:=strtoint(load);
readln(save,Load);
cbMex3.ItemIndex:=strtoint(load);
readln(save,Load);
cbMex4.ItemIndex:=strtoint(load);
readln(save,Load);
UpDown1.position:=strtoint(load);
indiv:=true;
dubler(x);
readln(save,load);
cbOutput1.text:=load;
a:=mmOutput.Count-1;
mmOutput.Clear;
for i:=0 to a do
begin
readln(save,Load);
mmOutput.items[i]:=load;
//readln(save,Load);
for j:=0 to 49 do
begin
readln(save,Load);
unit3.oper[i,j]:=strtoint(load);

end;
end;

closefile(save);
play.Enabled:=true;
Next.Enabled:=true;
f11.Enabled:=true;
end;


end.