Смекни!
smekni.com
Остальные рефераты

Моделирование системы автоматизации проектирования работа по дисциплине «Основы системного анализа объектов и процессов компьютеризации» Пояснительная записка (стр. 6 из 7)

if time3_analiz>2 then

begin

Shape3.Brush.Color:=clblue;

Gauge7.Progress:=Gauge7.Progress+round(100/time_analiz);

end;

end

else

begin

if Shape3.Brush.Color<>clyellow then Shape3.Brush.Color:=clwhite;

Gauge7.Progress:=0;

time3_analiz:=0;

end;

{заполняем ЭВМ строкой}

if (index_nakop<>0)and(flag4=false)and(flag1=false)and(flag2=false)and(flag3=false) then

begin

flag4:=true;

Shape11.Pen.Color:=clred;

EVM:=nakopitel[1];

for i:=1 to index_nakop-1 do

nakopitel[i]:=nakopitel[i+1];

nakopitel[index_nakop].time:=0;

nakopitel[index_nakop].number:=0;

dec(index_nakop);

inc(time_stEVM);

Shape4.Brush.Color:=clgreen;

Gauge2.Progress:=Gauge2.Progress+round(100/time_st_EVM);

Label5.Caption:='('+IntToStr(index_nakop)+')';

end

else

Shape11.Pen.Color:=clblack;

if (time_stEVM<>0)and(time_stEVM<=time_st_EVM)and(flag4=true)then

begin

inc(time_stEVM);

if time_stEVM>2 then

begin

Shape4.Brush.Color:=clgreen;

Gauge2.Progress:=Gauge2.Progress+round(100/time_st_EVM)+1;

end;

end

else

begin

if (flag1=false)and(flag2=false)and(flag3=false) then

begin

Shape4.Brush.Color:=clwhite;

end;

Gauge2.Progress:=0;

time_stEVM:=0;

flag4:=false;

end;

if time_stEVM-1=time_st_EVM then

begin

if EVM.number=1 then

begin

Shape18.Pen.Color:=clred;

Shape19.Pen.Color:=clred;

Shape20.Pen.Color:=clred;

Shape21.Pen.Color:=clred;

Shape22.Pen.Color:=clred;

inc(i1);

k1[i1]:=i1;

Label43.Caption:='('+IntToStr(i1)+')';

Edit2.Text:=IntToStr(StrToInt(Edit2.Text)+1);

Form5.Edit6.Text:=IntToStr(StrToInt(Form5.Edit6.Text)+1);

end;

if EVM.number=2 then

begin

Shape15.Pen.Color:=clred;

Shape16.Pen.Color:=clred;

Shape17.Pen.Color:=clred;

inc(i2);

k2[i2]:=i2;

Label44.Caption:='('+IntToStr(i2)+')';

Edit2.Text:=IntToStr(StrToInt(Edit2.Text)+1);

Form5.Edit5.Text:=IntToStr(StrToInt(Form5.Edit5.Text)+1);

end;

if EVM.number=3 then

begin

Shape12.Pen.Color:=clred;

Shape13.Pen.Color:=clred;

Shape14.Pen.Color:=clred;

inc(i3);

k3[i3]:=i3;

Label45.Caption:='('+IntToStr(i3)+')';

Edit2.Text:=IntToStr(StrToInt(Edit2.Text)+1);

Form5.Edit4.Text:=IntToStr(StrToInt(Form5.Edit4.Text)+1);

end;

end

else

begin

Shape18.Pen.Color:=clblack;

Shape19.Pen.Color:=clblack;

Shape20.Pen.Color:=clblack;

Shape21.Pen.Color:=clblack;

Shape22.Pen.Color:=clblack;

Shape15.Pen.Color:=clblack;

Shape16.Pen.Color:=clblack;

Shape17.Pen.Color:=clblack;

Shape12.Pen.Color:=clblack;

Shape13.Pen.Color:=clblack;

Shape14.Pen.Color:=clblack;

end;

{if Shape1.Brush.Color=clblue then time_zanytat1:=time_zanytat1+1;

if Shape2.Brush.Color=clblue then time_zanytat2:=time_zanytat2+1;

if Shape3.Brush.Color=clblue then time_zanytat3:=time_zanytat3+1;}

if (Shape4.Brush.Color=clgreen)or(Shape4.Brush.Color=clred) then inc(time_zagruz);

if work_system<>0 then

begin

Edit8.Text:=FloatToStr(time_zagruz/work_system);

Form5.Edit16.Text:=FloatToStr(time_zagruz/work_system);

end;

{ if time_zagruz<>0 then Edit5.Text:=FloatToStr((work_system-time_zanytat1)/time_zagruz);}

if StrToInt(Form5.Edit1.Text)<>0 then

begin

Edit5.Text:=FloatToStr((StrToInt(Form5.Edit1.Text)-StrToInt(Form5.Edit6.Text))/StrToInt(Form5.Edit1.Text));

Form5.Edit13.Text:=FloatToStr((StrToInt(Form5.Edit1.Text)-StrToInt(Form5.Edit6.Text))/StrToInt(Form5.Edit1.Text));

end;

if StrToInt(Form5.Edit2.Text)<>0 then

begin

Edit6.Text:=FloatToStr((StrToInt(Form5.Edit2.Text)-StrToInt(Form5.Edit5.Text))/StrToInt(Form5.Edit2.Text));

Form5.Edit14.Text:=FloatToStr((StrToInt(Form5.Edit2.Text)-StrToInt(Form5.Edit5.Text))/StrToInt(Form5.Edit2.Text));

end;

if StrToInt(Form5.Edit3.Text)<>0 then

begin

Edit7.Text:=FloatToStr((StrToInt(Form5.Edit3.Text)-StrToInt(Form5.Edit4.Text))/StrToInt(Form5.Edit3.Text));

Form5.Edit15.Text:=FloatToStr((StrToInt(Form5.Edit3.Text)-StrToInt(Form5.Edit4.Text))/StrToInt(Form5.Edit3.Text));

end;

end;

end;

procedure TForm1.ToolButton1Click(Sender: TObject);

begin

Timer1.Enabled:=true;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Timer1.Enabled:=true;

end;

procedure TForm1.Image6Click(Sender: TObject);

begin

Timer1.Enabled:=true;

end;

procedure TForm1.ToolButton2Click(Sender: TObject);

begin

Timer1.Enabled:=false;

end;

procedure TForm1.Image7Click(Sender: TObject);

begin

Timer1.Enabled:=false;

end;

procedure TForm1.SpinEdit1Change(Sender: TObject);

begin

Form8.SpinEdit1.Value:=SpinEdit1.Value;

end;

procedure TForm1.SpinEdit3Change(Sender: TObject);

begin

Form8.SpinEdit3.Value:=SpinEdit3.Value;

end;

procedure TForm1.SpinEdit4Change(Sender: TObject);

begin

Form8.SpinEdit4.Value:=SpinEdit4.Value;

end;

procedure TForm1.SpinEdit2Change(Sender: TObject);

begin

Form8.SpinEdit2.Value:=SpinEdit2.Value;

end;

procedure TForm1.SpinEdit6Change(Sender: TObject);

begin

Form8.SpinEdit6.Value:=SpinEdit6.Value;

end;

procedure TForm1.SpinEdit5Change(Sender: TObject);

begin

Form8.SpinEdit5.Value:=SpinEdit5.Value;

end;

procedure TForm1.SpinEdit7Change(Sender: TObject);

begin

Form8.SpinEdit7.Value:=SpinEdit7.Value;

end;

procedure TForm1.SpinEdit10Change(Sender: TObject);

begin

Form8.SpinEdit10.Value:=SpinEdit10.Value;

end;

procedure TForm1.SpinEdit8Change(Sender: TObject);

begin

Form8.SpinEdit8.Value:=SpinEdit8.Value;

end;

procedure TForm1.SpinEdit9Change(Sender: TObject);

begin

Form8.SpinEdit9.Value:=SpinEdit9.Value;

end;

procedure TForm1.ToolButton3Click(Sender: TObject);

begin

stop;

end;

procedure TForm1.Image8Click(Sender: TObject);

begin

stop;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Form7.Show;

end;

procedure TForm1.ToolButton11Click(Sender: TObject);

begin

Form7.Show;

end;

procedure TForm1.Image9Click(Sender: TObject);

begin

Form7.Show;

end;

end.

Модуль 2:

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons;

type

TForm2 = class(TForm)

Memo1: TMemo;

Label1: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit3;

{$R *.DFM}

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

close;

end;

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

Form3.Show;

end;

end.

Модуль 3:

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons;

type

TForm3 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

BitBtn1: TBitBtn;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.DFM}

end.

Модуль 4:

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons;

type

TForm4 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label5: TLabel;

Label14: TLabel;

BitBtn1: TBitBtn;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.DFM}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

close;

end;

end.

Модуль 5:

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons, ExtCtrls;

type

TForm5 = class(TForm)

Label8: TLabel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Bevel2: TBevel;

Bevel1: TBevel;

Bevel3: TBevel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label9: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Bevel4: TBevel;

Bevel5: TBevel;

Bevel6: TBevel;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Label10: TLabel;

Label7: TLabel;

Label11: TLabel;

Label12: TLabel;

Bevel7: TBevel;

Bevel8: TBevel;

Bevel9: TBevel;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Bevel10: TBevel;

Edit10: TEdit;

Bevel11: TBevel;

Edit11: TEdit;

Bevel12: TBevel;

Edit12: TEdit;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Edit13: TEdit;

Bevel13: TBevel;

Bevel14: TBevel;

Edit14: TEdit;

Edit15: TEdit;

Bevel15: TBevel;

Label21: TLabel;

Edit16: TEdit;

Bevel16: TBevel;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.DFM}

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

close;

end;

end.

Модуль 6:

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, StdCtrls, Buttons;

type

TForm6 = class(TForm)

Image1: TImage;

BitBtn1: TBitBtn;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

{$R *.DFM}

end.

Модуль 7:

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, StdCtrls, Buttons;

type

TForm7 = class(TForm)

Bevel1: TBevel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Image1: TImage;

Label4: TLabel;

Label5: TLabel;

Image2: TImage;

Label6: TLabel;

Label7: TLabel;

Image3: TImage;

Label8: TLabel;

Image4: TImage;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Image5: TImage;

Image6: TImage;

Splitter1: TSplitter;

Splitter2: TSplitter;

Bevel2: TBevel;

Label12: TLabel;

Label13: TLabel;

Shape1: TShape;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Shape5: TShape;

Label17: TLabel;

Shape10: TShape;

Shape2: TShape;

Label18: TLabel;

Shape3: TShape;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Shape4: TShape;

Label23: TLabel;

Label24: TLabel;

Shape6: TShape;

Label25: TLabel;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Bevel3: TBevel;

Label32: TLabel;

Label33: TLabel;

Label34: TLabel;

Label35: TLabel;

Label36: TLabel;

Label37: TLabel;

Label38: TLabel;

Label39: TLabel;

Label40: TLabel;

Label41: TLabel;

Image7: TImage;

Image8: TImage;

Label42: TLabel;

Bevel5: TBevel;

Label43: TLabel;

Label44: TLabel;

Label45: TLabel;

Image9: TImage;

Bevel4: TBevel;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

{$R *.DFM}

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

close;

end;

end.

Модуль 8:

unit Unit8;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

type

TAboutBox1 = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

Version: TLabel;

Copyright: TLabel;

Comments: TLabel;

OKButton: TButton;

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox1: TAboutBox1;

implementation

{$R *.DFM}

end.

Модуль 9:

unit Unit9;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

type

TAboutBox2 = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

Comments: TLabel;

OKButton: TButton;

Label1: TLabel;

Label2: TLabel;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox2: TAboutBox2;

implementation

{$R *.DFM}

procedure TAboutBox2.OKButtonClick(Sender: TObject);

begin

close;

end;

end.

Модуль 10:

unit Unit10;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons, Spin;

type

TForm8 = class(TForm)

SpinEdit1: TSpinEdit;

Label24: TLabel;

SpinEdit3: TSpinEdit;

Label16: TLabel;

Label17: TLabel;

SpinEdit4: TSpinEdit;

SpinEdit2: TSpinEdit;

Label18: TLabel;

Label26: TLabel;

SpinEdit6: TSpinEdit;

Label27: TLabel;

Label23: TLabel;

Label19: TLabel;

Label20: TLabel;

SpinEdit5: TSpinEdit;

SpinEdit10: TSpinEdit;

Label25: TLabel;

SpinEdit7: TSpinEdit;

Label21: TLabel;

SpinEdit8: TSpinEdit;

SpinEdit9: TSpinEdit;

Label22: TLabel;

BitBtn1: TBitBtn;

procedure BitBtn1Click(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);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm8.BitBtn1Click(Sender: TObject);

begin

close;

end;

procedure TForm8.SpinEdit1Change(Sender: TObject);

begin

Form1.SpinEdit1.Value:=SpinEdit1.Value;

end;

procedure TForm8.SpinEdit3Change(Sender: TObject);

begin

Form1.SpinEdit3.Value:=SpinEdit3.Value;

end;

procedure TForm8.SpinEdit4Change(Sender: TObject);

begin

Form1.SpinEdit4.Value:=SpinEdit4.Value;

end;

procedure TForm8.SpinEdit2Change(Sender: TObject);

begin

Form1.SpinEdit2.Value:=SpinEdit2.Value;

end;

procedure TForm8.SpinEdit6Change(Sender: TObject);

begin

Form1.SpinEdit6.Value:=SpinEdit6.Value;

end;

 
назад
читать дальше
1
2
3
4
5
6
7
НАПИШИТЕ НАМ
Copyright © Smekni.com. All rigths reserved.