Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые проекты » Знаходження критичного шляху табличним методом

Реферат Знаходження критичного шляху табличним методом





(i, 5). Value Then

maxdl = Sheets ("rez"). Cells (i, 5). Value

End If

Next i

'Визначення кінцевих етапів

For i = 2 To n + 1

fl = False

For j = 2 To n + 1

If Not ActiveSheet.Cells (i, j). Value = "" Then

fl = True

End If

Next j

If fl = False Then

For j = 2 To scount

If Sheets ("Rez"). Cells (j, 2). Value = i - 1 Then

Sheets ("Rez"). Cells (j, 7). Value = maxdl

Sheets ("Rez"). Cells (j, 6). Value = Sheets ("Rez"). Cells (j, 7). Value - Sheets ("Rez"). Cells (j, 3). Value

Sheets ("Rez"). Cells (j, 8). Value = Sheets ("Rez"). Cells (j, 7). Value - Sheets ("Rez"). Cells (j, 5). Value

End If

Next j

End If

Next i

'Заповнення пізнього початку і кінця

flag = True

Do While flag = True

flag = False

For i = scount To 2 Step -1 p> If Not Sheets ("Rez"). Cells (i, 6). Value = "" Then

remnach = Sheets ("Rez"). Cells (i, 1)

remdl = Sheets ("Rez"). Cells (i, 6)

For j = scount To 2 Step -1 p> If Sheets ("Rez"). Cells (j, 1). Value = remnach Then

If remdl> Sheets ("Rez"). Cells (j, 6). Value Then

remdl = Sheets ("Rez"). Cells (j, 6). Value

End If

End If

Next j

For j = scount To 2 Step -1 p> If Sheets ("Rez"). Cells (j, 2). Value = remnach Then

Sheets ("Rez"). Cells (j, 7). Value = remdl

Sheets ("Rez"). Cells (j, 6). Value = Sheets ("Rez"). Cells (j, 7). Value - Sheets ("Rez"). Cells (j, 3). Value

Sheets ("Rez"). Cells (j, 8). Value = Sheets ("Rez"). Cells (j, 7). Value - Sheets ("Rez"). Cells (j, 5). Value

End If

Next j

End If

Next i

For i = 2 To scount

If Sheets ("Rez"). Cells (i, 6). Value = "" Then

flag = True

End If

Next i

Loop

'Виявлення критичних етапів

Sheets ("Rez"). Select

For i = 2 To scount

If Sheets ("Rez"). Cells (i, 8). Value = 0 Then

Range ("A" + Trim (Str (i)) + ": H" + Trim (Str (i))). Select

With Selection.Interior

. ColorIndex = 35

. Pattern = xlSolid

. PatternColorIndex = xlAutomatic

End With

End If

Next i

Sheets ("Rez"). Cells (scount + 2, 1). Value = "Критичний шлях: "

'Побудова критичного шляху

snum = 1

For i = 2 To scount

If Sheets ("Rez"). Cells (i, 8). Value = 0 Then

Sheets ("Rez"). Cells (scount + 2, 2). Value = Sheets ("Rez"). Cells (i, 1). Value

Sheets ("Rez"). Cells (scount + 2, 3). Value = Sheets ("Rez"). Cells (i, 2). Value

snum = 3

remdl = i

i = scount

End If

Next i

For i = remdl To scount

If Sheets ("Rez"). Cells (i, 8). Value = 0 Then

Sheets ("Rez"). Cells...


Назад | сторінка 21 з 22 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: The American Flag
  • Реферат на тему: Використання MS Project для визначення критичного шляху проекту
  • Реферат на тему: STEP і GAP аналіз
  • Реферат на тему: Перегляд критичного шляху і створення структури графіка завдань
  • Реферат на тему: Алгоритми на графах. Знаходження найкоротшого шляху