Нахождение критического пути табличным методом

Произведя расчёт получим итоговую таблицу:

Можно осуществить обратный перевод единиц времени.

Эта задача была решена ранее без использования ЭВМ и имела решение:

Критический путь: 1-5-6-10

Результаты вычислений вручную и на ЭВМ совпадают.

5.Описание интерфейса и руководство пользователя

При запуске Excel файла появляется стартовое окно, на котором располагаются 2 кнопки:

«Начать работу» при нажатии на эту кнопку вызывается окно ввода начальных данных.

«Выход» при нажатии на эту кнопку происходит закрытие программы и Excel.

В окне ввода начальных данных пользователь задает число этапов работ (число должно быть целым в диапазоне от 3 до 254)

В форме находятся 4 кнопки и флажок

· «ОК» - формирование таблицы исходных данных и включение режима заполнения таблицы.

· «Отмена» - закрытие формы

· «Справка» - вызов справки о программе

· «Пропустить» - переход к форме решения

· «Включить подсказки» - включение поясняющих окон.

После заполнения таблицы пользователь переходит к окну решения

На котором располагаются 3 кнопки:

· «Определение критического пути» - расчёт критического пути и сопутствующих данных и вывод результатов на экран.

· «Возврат к вводу начальных данных» - открытие окна ввода начальных данных и листа ввода.

· «Перевод единиц времени» - открытие окна перевода единиц времени в котором нужно выбрать текущие единицы времени и нажать кнопку «ОК», затем выбрать требуемые единицы времени и нажать кнопку «ОК».

Заключение

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

Литература

1. Беляев С.П. Курс лекций по «Исследованию операций».

2. Кузменко В.Г, Программирование на Microsoft Visual Basic for Applications 2003 /Москва изд. Бином; 2004г. – 880 с.: ил.

Листинг программы

Форма About (справка о программе)

Private Sub UserForm_Terminate()

Hide

InsForm.Show

End Sub

Форма HelpForm1 (помощь в заполнении таблицы)

Private Sub CommandButton1_Click()

Hide

OKForm.StartUpPosition = 0

OKForm.Top = 450

OKForm.Left = 580

OKForm.Show

End Sub

Private Sub CommandButton2_Click()

Hide

InsForm.Show

End Sub

Private Sub UserForm_Terminate()

Hide

InsForm.Show

End Sub

Форма HelpForm2 (помощь в понимании результатов вычислений)

Private Sub CommandButton1_Click()

check = True

Hide

SolForm.StartUpPosition = 0

SolForm.Top = 350

SolForm.Left = 480

SolForm.Show

End Sub

Private Sub CommandButton2_Click()

check = False

Hide

SolForm.StartUpPosition = 0

 Скачать реферат