Моделирование системы автоматизации проектирования работа по дисциплине «Основы системного анализа объектов и процессов компьютеризации» Пояснительная записка (стр. 7 из 7)
procedure TForm8.SpinEdit5Change(Sender: TObject);
begin
Form1.SpinEdit5.Value:=SpinEdit5.Value;
end;
procedure TForm8.SpinEdit7Change(Sender: TObject);
begin
Form1.SpinEdit7.Value:=SpinEdit7.Value;
end;
procedure TForm8.SpinEdit10Change(Sender: TObject);
begin
Form1.SpinEdit10.Value:=SpinEdit10.Value;
end;
procedure TForm8.SpinEdit8Change(Sender: TObject);
begin
Form1.SpinEdit8.Value:=SpinEdit8.Value;
end;
procedure TForm8.SpinEdit9Change(Sender: TObject);
begin
Form1.SpinEdit9.Value:=SpinEdit9.Value;
end;
end.
Модуль 11:
unit Unit11;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;
type
TForm11 = class(TForm)
Label1: TLabel;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form11: TForm11;
implementation
uses Unit1;
{$R *.DFM}
procedure TForm11.BitBtn1Click(Sender: TObject);
begin
close;
Form1.Timer1.Enabled:=false;
end;
end.
Модуль 12:
unit Unit12;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm12 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form12: TForm12;
implementation
{$R *.DFM}
end.
Приложение Б
Экранные формы
 |
Окно начала моделирования:
Рис. Б.1
Окно статистических данных:
| |
Рис. Б.2
 |
Окно вывода параметров:
Рис. Б.3
Окно окончания моделирования:
 |
Рис. Б.4
Приложение В
Блок-схема алгоритма
Рис. В.1
Рис. В.1
Приложение Г
Q-схема
Рис. Г.1