Rambo
02-25-2008, 04:03 AM
Hi, Im getting a error 'Next With For' but im using For. Heres My Code:
Select Case Network(H).GetNumberOfEndActs
Case 1 '
Case Network(H).GetNumberOfEndActs Mod 2 = 1
' ODD NUMBER
Median = Round(Network(H).GetNumberOfEndActs / 2, 0)
Median = Network(H).GetEndAct(Median - 1)
If Network(Network(H).GetEndAct(0)).GetEndAct(0) = Network(Network(H).GetEndAct(1)).GetEndAct(0) Then
Network(Network(H).GetEndAct(0)).SetX = Network(H).GetX + 100
Network(Network(H).GetEndAct(0)).SetY = Network(H).GetY - 65
Network(Network(H).GetEndAct(1)).SetX = Network(H).GetX + 100
Network(Network(H).GetEndAct(1)).SetY = Network(H).GetY + 65
End If
' EVEN NUMBER
Median = Network(H).GetNumberOfEndActs / 2
Median = Network(H).GetEndAct(Median)
''''''''''''''''''''''''''''''''''''''''''
'POSITON X AND Y FOR THE MIDDLE NUMBER
''''''''''''''''''''''''''''''''''''''''''
If Network(Network(H).GetEndAct(0)).GetX = 0 And Network(Network(H).GetEndAct(0)).GetY = 0 Then
Network(Median).SetX = Network(H).GetX + 100
Network(Median).SetY = Network(H).GetY
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' CALCULATES HOW MANY NODES ARE ABOVE MEDIAN AND BELOW
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For T = 0 To Network(H).GetNumberOfEndActs - 1
If Network(H).GetEndAct(T) < Median Then
UpperCount = UpperCount + 1
ElseIf Network(H).GetEndAct(T) = Median Then
' DO NOTHING
ElseIf Network(H).GetEndAct(T) > Median Then
LowerCount = LowerCount + 1
End If
Next T
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'POSITION X AND Y FOR UPPER COUNT FROM MEDIAN
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For W = UpperCount - 1 To 0 Step -1
Network(Network(H).GetEndAct(W)).SetX = Network(Median).GetX
Network(Network(H).GetEndAct(W)).SetY = Network(Network(H).GetEndAct(W + 1)).GetY - 75
Next W
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'POSITION X AND Y FOR LOWER COUNT FROM MEDIAN
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For V = LowerCount + 1 To Network(H).GetNumberOfEndActs - 1
Network(Network(H).GetEndAct(V)).SetX = Network(Median).GetX
Network(Network(H).GetEndAct(V)).SetY = Network(Network(H).GetEndAct(V - 1)).GetY + 75
Next V
UpperCount = 0
LowerCount = 0
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ADDS A CIRCLE
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sheets("Sheet2").Select
ActiveSheet.Shapes.AddShape(msoShapeOval, Network(H).GetX, Network(H).GetY, 50, 50#).Select
Selection.Characters.Text = Network(H).GetNodeNumber
With Selection.Characters(Start:=1, Length:=1).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.HorizontalAlignment = xlCenter
Range("K7").Select
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ADDS A LINE
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ActiveSheet.Shapes.AddLine(Network(H).GetY, 200, Network(H).GetX, 200).Select
'Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
'Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
'Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
'Selection.ShapeRange.ZOrder msoSendToBack
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Next H
' EARLIEST EVENT TIME
' LATEST EVENT TIME
End Sub
Select Case Network(H).GetNumberOfEndActs
Case 1 '
Case Network(H).GetNumberOfEndActs Mod 2 = 1
' ODD NUMBER
Median = Round(Network(H).GetNumberOfEndActs / 2, 0)
Median = Network(H).GetEndAct(Median - 1)
If Network(Network(H).GetEndAct(0)).GetEndAct(0) = Network(Network(H).GetEndAct(1)).GetEndAct(0) Then
Network(Network(H).GetEndAct(0)).SetX = Network(H).GetX + 100
Network(Network(H).GetEndAct(0)).SetY = Network(H).GetY - 65
Network(Network(H).GetEndAct(1)).SetX = Network(H).GetX + 100
Network(Network(H).GetEndAct(1)).SetY = Network(H).GetY + 65
End If
' EVEN NUMBER
Median = Network(H).GetNumberOfEndActs / 2
Median = Network(H).GetEndAct(Median)
''''''''''''''''''''''''''''''''''''''''''
'POSITON X AND Y FOR THE MIDDLE NUMBER
''''''''''''''''''''''''''''''''''''''''''
If Network(Network(H).GetEndAct(0)).GetX = 0 And Network(Network(H).GetEndAct(0)).GetY = 0 Then
Network(Median).SetX = Network(H).GetX + 100
Network(Median).SetY = Network(H).GetY
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' CALCULATES HOW MANY NODES ARE ABOVE MEDIAN AND BELOW
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For T = 0 To Network(H).GetNumberOfEndActs - 1
If Network(H).GetEndAct(T) < Median Then
UpperCount = UpperCount + 1
ElseIf Network(H).GetEndAct(T) = Median Then
' DO NOTHING
ElseIf Network(H).GetEndAct(T) > Median Then
LowerCount = LowerCount + 1
End If
Next T
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'POSITION X AND Y FOR UPPER COUNT FROM MEDIAN
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For W = UpperCount - 1 To 0 Step -1
Network(Network(H).GetEndAct(W)).SetX = Network(Median).GetX
Network(Network(H).GetEndAct(W)).SetY = Network(Network(H).GetEndAct(W + 1)).GetY - 75
Next W
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'POSITION X AND Y FOR LOWER COUNT FROM MEDIAN
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For V = LowerCount + 1 To Network(H).GetNumberOfEndActs - 1
Network(Network(H).GetEndAct(V)).SetX = Network(Median).GetX
Network(Network(H).GetEndAct(V)).SetY = Network(Network(H).GetEndAct(V - 1)).GetY + 75
Next V
UpperCount = 0
LowerCount = 0
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ADDS A CIRCLE
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sheets("Sheet2").Select
ActiveSheet.Shapes.AddShape(msoShapeOval, Network(H).GetX, Network(H).GetY, 50, 50#).Select
Selection.Characters.Text = Network(H).GetNodeNumber
With Selection.Characters(Start:=1, Length:=1).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.HorizontalAlignment = xlCenter
Range("K7").Select
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ADDS A LINE
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ActiveSheet.Shapes.AddLine(Network(H).GetY, 200, Network(H).GetX, 200).Select
'Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
'Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
'Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
'Selection.ShapeRange.ZOrder msoSendToBack
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Next H
' EARLIEST EVENT TIME
' LATEST EVENT TIME
End Sub