ToolButton9: TToolButton;

ToolButton10: TToolButton;

ToolButton11: TToolButton;

ToolButton12: TToolButton;

ToolButton13: TToolButton;

Shape22: TShape;

Shape23: TShape;

Shape24: TShape;

Shape25: TShape;

Shape26: TShape;

Shape27: TShape;

Shape28: TShape;

Shape29: TShape;

Shape30: TShape;

Shape31: TShape;

Shape32: TShape;

Shape33: TShape;

Shape34: TShape;

Shape35: TShape;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Panel1: TPanel;

Image6: TImage;

Image7: TImage;

Image8: TImage;

Image9: TImage;

Image10: TImage;

Panel2: TPanel;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Bevel2: TBevel;

Edit1: TEdit;

Bevel3: TBevel;

Bevel4: TBevel;

Bevel5: TBevel;

Bevel6: TBevel;

Bevel7: TBevel;

Bevel8: TBevel;

Bevel10: TBevel;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

SpinEdit1: TSpinEdit;

SpinEdit2: TSpinEdit;

SpinEdit3: TSpinEdit;

SpinEdit4: TSpinEdit;

SpinEdit5: TSpinEdit;

SpinEdit6: TSpinEdit;

SpinEdit7: TSpinEdit;

Label24: TLabel;

Label25: TLabel;

SpinEdit8: TSpinEdit;

SpinEdit9: TSpinEdit;

SpinEdit10: TSpinEdit;

Label26: TLabel;

Label27: TLabel;

Gauge1: TGauge;

Gauge2: TGauge;

Gauge3: TGauge;

Gauge4: TGauge;

Gauge5: TGauge;

Gauge6: TGauge;

Gauge7: TGauge;

Gauge8: TGauge;

Gauge9: TGauge;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

Label34: TLabel;

Label35: TLabel;

Label36: TLabel;

Label37: TLabel;

Label38: TLabel;

Label39: TLabel;

Label40: TLabel;

Label41: TLabel;

Label42: TLabel;

Timer1: TTimer;

Label43: TLabel;

Label44: TLabel;

Label45: TLabel;

Shape36: TShape;

Shape37: TShape;

procedure N9Click(Sender: TObject);

procedure Q1Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure Image10Click(Sender: TObject);

procedure ToolButton8Click(Sender: TObject);

procedure ToolButton9Click(Sender: TObject);

procedure ToolButton12Click(Sender: TObject);

procedure ToolButton13Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure ToolButton5Click(Sender: TObject);

procedure ToolButton6Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure ToolButton1Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure Image6Click(Sender: TObject);

procedure ToolButton2Click(Sender: TObject);

procedure Image7Click(Sender: TObject);

procedure SpinEdit1Change(Sender: TObject);

procedure SpinEdit3Change(Sender: TObject);

procedure SpinEdit4Change(Sender: TObject);

procedure SpinEdit2Change(Sender: TObject);

procedure SpinEdit6Change(Sender: TObject);

procedure SpinEdit5Change(Sender: TObject);

procedure SpinEdit7Change(Sender: TObject);

procedure SpinEdit10Change(Sender: TObject);

procedure SpinEdit8Change(Sender: TObject);

procedure SpinEdit9Change(Sender: TObject);

procedure ToolButton3Click(Sender: TObject);

procedure Image8Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure ToolButton11Click(Sender: TObject);

procedure Image9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

takt1,takt2,takt3:integer;

time_st_term,time_st_EVM:integer;

obr_st1,obr_st2,obr_st3:integer;

time_zadan_EVM:integer;

time_zadan_term:integer;

work_system:integer;

nakopitel:array [1 1000] of stroka;

EVM:stroka;

a,b,c:stroka;

time_st1,time_st2,time_st3:integer;

index_nakop:integer;

time_stEVM:integer;

k1:array [1 10] of integer;

k2:array [1 10] of integer;

k3:array [1 10] of integer;

i1,i2,i3:integer;

time_EVM_zadan:integer;

flag1,flag2,flag3,flag4:boolean;

time_analiz:integer;

time1_analiz,time2_analiz,time3_analiz:integer;

time_zanytat1,time_zanytat2,time_zanytat3,time_obch,time_zagruz:integer;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit9, Unit7, Unit8, Unit10, Unit11;

{$R *.DFM}

function get_st_time:integer;

var

temp1,temp2,flag:integer;

begin

temp2:=Random(Form1.SpinEdit3.Value);

flag:=Random(2);

if flag=1 then temp1:=Form1.SpinEdit1.Value+temp2

else temp1:=Form1.SpinEdit1.Value-temp2;

get_st_time:=temp1;

end;

function get_zadan_time:integer;

var

temp1,temp2,flag:integer;

begin

temp2:=Random(Form1.SpinEdit10.Value);

flag:=Random(2);

if flag=1 then temp1:=Form1.SpinEdit7.Value+temp2

else temp1:=Form1.SpinEdit7.Value-temp2;

get_zadan_time:=temp1;

end;

procedure get_stroka1;

begin

a.time:=get_st_time;

a.number:=1;

end;

procedure get_stroka2;

begin

b.time:=get_st_time;

b.number:=2;

end;

procedure get_stroka3;

begin

c.time:=get_st_time;

c.number:=3;

end;

procedure stop;

begin

Form1.Gauge1.Progress:=0;

Form1.Gauge2.Progress:=0;

Form1.Gauge3.Progress:=0;

Form1.Gauge4.Progress:=0;

Form1.Gauge5.Progress:=0;

Form1.Gauge6.Progress:=0;

Form1.Gauge7.Progress:=0;

Form1.Gauge8.Progress:=0;

Form1.Gauge9.Progress:=0;

Form1.Timer1.Enabled:=false;

takt1:=0;takt2:=0;takt3:=0;

get_stroka1;

get_stroka2;

get_stroka3;

time_st1:=0;

time_st2:=0;

time_st3:=0;

index_nakop:=0;

Form1.Timer1.Enabled:=false;

work_system:=0;

time_stEVM:=0;

i1:=0;i2:=0;i3:=0;

time_EVM_zadan:=0;

flag1:=false;flag2:=false;flag3:=false;flag4:=false;

time1_analiz:=0;time2_analiz:=0;time3_analiz:=0;

time_zanytat1:=0;time_zanytat2:=0;time_zanytat3:=0;

time_obch:=0;time_zagruz:=0;

Form1.Shape1.Brush.Color:=clwhite;

Form1.Shape2.Brush.Color:=clwhite;

Form1.Shape3.Brush.Color:=clwhite;

Form1.Shape4.Brush.Color:=clwhite;