При нажатии на кнопку Пауза происходит выключение таймера, то есть его свойство Enabled примает значения False. Активизировать процесс можно нажатием на кнопку Старт, или при выборе пункта Моделирование, или нажатием на соответствующую кнопку панели инструментов.

При нажатии на кнопку Стоп происходит остановка работы системы и возврат ее в исходное состояние, то есть присвоение всем параметрам системы и используемым переменным начальных значений.

При окончании процесса моделирования на экран выводится окно Form11, содержащее сообщение об этом и система готова к новому запуску.

3.4 Используемые технические средства, вызов, загрузка

Программа представленная в данной курсовой работе “Моделирование системы автоматизации проектирования” имеет следующие требования к аппаратному и программному обеспечению:

- персональный компьютер на базе микропроцессора Intel 80386 и выше;

- SVGA совместимая видеокарта;

- требования к операционной системе ограничены требованиями компилятора языка Delphi 4.0, т.е. Windows версии 3.11 или выше.

В силу того, что существуют определенные различия между предыдущими и последующими поколениями компьютеров и написание данной программы проводилось на персональный компьютер с микропроцессором фирмы Intel PentiumPro с частотой 166 MHz, то для корректной работы программы рекомендуется использовать следующее аппаратное и программное обеспечение:

- персональный компьютер на базе микропроцессора фирмы Intel PentiumPro с частотой 166 MHz ;

- видеокарта SVGA;

- операционная система Windows 95 или выше.

Исходный текст программы находится в файлах под именами unit1.pas, unit2.pas, unit3.pas, unit4.pas, unit5.pas, unit6.pas, unit7.pas, unit8.pas, unit9.pas, unit10.pas, unit11.pas, unit12.pas и занимают 43,2 килобайт, исполняемый модуль под име­нем project1.exe - 839 килобайт.

Возможны два варианта запуска программы “Моделирование системы автоматизации проектирования”. В первом варианте запуск производится из интегрированной среды Delphi 4.0. Для этого нужно войти в эту среду из каталога C:\Program Files\Borland\Delphi4\Bin и запустить файл delphi32.exe. После запуска интегрированной среды нужно найти файл unit1.pas и запустить его на выполнение путем нажатия клавиши F9.

Вторым вариантом запуска является запуск выполняемого модуля project1.exe. Для этого нужно в оболочке Norton (Volcov) Commander, либо Dos Navigator, либо Windows Commander, либо в проводнике Windows навести светящийся прямоугольник на запись project1.exe и нажать клавишу <Enter>.

3.5 Конторольный пример

Результат выполнения процесса моделирования при начальных параметрах системы, использующих данные из постановки задачи следующие.

Количество набранных строк от:

- 1-го проектировщика:171;

- 2-го проектировщика:173;

- 3-го проектировщика:175.

Количество обработанных строк от:

- 1-го проектировщика:145;

- 2-го проектировщика:146;

- 3-го проектировщика:151.

Количество полученных заданий от:

- 1-го проектировщика:14;

- 2-го проектировщика:14;

- 3-го проектировщика:15.

Количество обработанных заданий от:

- 1-го проектировщика:14;

- 2-го проектировщика:14;

- 3-го проектировщика:15.

Вероятность простоя:

- 1-го проектировщика:0,1520;

- 2-го проектировщика:0,1560;

- 3-го проектировщика:0,1371;

Коэффициент нагрузки ЭВМ: 0,8087.

ЗАКЛЮЧЕНИЕ

Данная курсовая работа предназначалась для написания программы, которая моделировала бы процесс функционирования системы автоматизации проектирования. Данная система была реализована на основе математической модели, называемой Q-схемой.

Данная задача была успешна решена и в итоге поставленная цель была перевыполнена, так программа реализует процесс функционирования системы не только с начальными параметрами системы, но и имеет возможность их изменения. Также данная программа, при небольших изменениях, может реализовать работу системы, включающей не только три терминала и ЭВМ, но и любое другое количество обслуживающих приборов. В программе также реализован механизм выдаче статистических данных. Таким образом пользователь может фиксировать результаты работы системы в любой момент времени. Программа имеет удобный интерфейс, который позволяет ориентироваться в процессе функционирования системы.

Программа была написана на языке визуального программирования Delphi 4.0., так что любой человек, разбирающийся в коде программы может легко дополнить ее для реализации более сложных процессов, происходящих по условиям функционирования Q-схемы.

Итак, можно сделать вывод, что поставленная цель была достигнута и что материал, изложенный на лекциях практических занятиях, применен в полной мере.

СПИСОК ИСПОЛЬЗОВАНОЙ ЛИТЕРАТУРЫ

1. Епанешников А.М., Епанешников В.А. Delphi 4 Среда разработки. –М.: Диалог-Мифи, 1999.

2. Методические указания по выполнению курсового проекта по дисциплине “Основы системного анализа объектов и процессов компьютеризации”/ В.О.Костин - Херсон.2000.

3. Советов В.Я., Яковлев С.А. Моделирование систем. Куpсовое пpоектиpование, М.Высшая школа,1988. - 135c.

4. Советов Б.Я., Яковлев С.А. Лабораторный практикум.-M.: Высш. шк. 1983. - 260 с.

5. Советов Б.Я., Яковлев С.А. Моделирование систем.- М.: Высш. шк., 1985. – 275 с.

6. Фаронов В. В. Delphi 5 Учебный курс. - М.: Нолидж, 2001.

7. Энциклопедический словарь юного химика. –М. Педагогика, 1982.

Приложение А

Текст программы

Модуль 1:

unit Unit1;

interface

uses

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

Menus, ComCtrls, ToolWin, ImgList, jpeg, ExtCtrls, StdCtrls, Gauges, Spin;

type

stroka=record

time:integer;

number:integer;

end;

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

Q1: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

ToolBar1: TToolBar;

Bevel1: TBevel;

Shape1: TShape;

Shape2: TShape;

Shape3: TShape;

Shape4: TShape;

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Shape5: TShape;

Shape6: TShape;

Shape7: TShape;

Shape8: TShape;

Shape9: TShape;

Shape10: TShape;

Shape11: TShape;

Shape12: TShape;

Shape13: TShape;

Shape14: TShape;

Shape15: TShape;

Shape16: TShape;

Shape17: TShape;

Shape18: TShape;

Shape19: TShape;

Shape20: TShape;

Shape21: TShape;

ImageList1: TImageList;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton4: TToolButton;

ToolButton5: TToolButton;

ToolButton6: TToolButton;

ToolButton7: TToolButton;

ToolButton8: TToolButton;