вікон.
Після заповнення таблиці користувач переходить до вікна рішення
На якому розташовуються 3 кнопки:
В· В«Визначення критичного шляху В»- розрахунок критичного шляху і супутніх даних і висновок результатів на екран.
В· В«Повернення до введення початкових даних В»- відкриття вікна введення початкових даних і аркуша введення.
В· В«Переклад одиниць часу В»- відкриття вікна перекладу одиниць часу в якому потрібно вибрати поточні одиниці часу і натиснути кнопку В«ОКВ», потім вибрати необхідні одиниці часу і натиснути кнопку В«ОКВ».
В
Висновок
У результаті виконання роботи був вивчений алгоритм знаходження критичного шляху і складання таблиці мережевого графіка. На основі алгоритму реалізована програма, що забезпечує графічний інтерфейс користувача, табличне введення даних і табличний висновок отриманих результатів.
Література
В
1. Бєляєв С.П. Курс лекцій з В«Дослідженню операційВ». p> 2. Кузменко В.Г, Програмування на Microsoft Visual Basic for Applications 2003/Москва вид. Біном; 2004р. - 880 с.: Іл. p align=center> Лістинг програми
В
Форма About (довідка про програму)
Private Sub UserForm_Terminate ()
Hide
InsForm.Show
End Sub
Форма HelpForm 1 (допомога в заповненні таблиці)
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
Форма HelpForm 2 (допомога в розумінні результатів обчислень)
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
SolForm.Top = 350
SolForm.Left = 480
SolForm.Show
End Sub
Форма HelpForm 3 (допомога в перекладі одиниць часу)
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
SolForm.Top = 350
SolForm.Left = 480
SolForm.Show
End Sub
Форма InsForm (введення кількості етапів роб...