User manual

ECE 477 Final Report Spring 2004
For i = 1 To ITEMMAX - 1
Set item1_screen(i).up = item1_screen(i - 1)
Next i
For i = 0 To ITEMMAX - 1
For j = 0 To ITEMMAX - 1
If i = j Then
item1_screen(i).menu = item1_screen(i).menu + ARROW
Else
item1_screen(i).menu = item1_screen(i).menu + SPACE
End If
item1_screen(i).menu = item1_screen(i).menu + item1(j) +
vbNewLine
Next j
Next i
' ********SECOND LEVEL*********
' ******** ITEM 2 *********
For i = 0 To ITEMMAX - 2
Set item2_screen(i).down = item2_screen(i + 1)
Next i
For i = 0 To ITEMMAX - 1
Set item2_screen(i).right = item2_cN(i)
Set item2_screen(i).left = item_menu(0)
Next i
For i = 1 To ITEMMAX - 1
Set item2_screen(i).up = item2_screen(i - 1)
Next i
For i = 0 To ITEMMAX - 1
For j = 0 To ITEMMAX - 1
If i = j Then
item2_screen(i).menu = item2_screen(i).menu + ARROW
Else
item2_screen(i).menu = item2_screen(i).menu + SPACE
End If
item2_screen(i).menu = item2_screen(i).menu + item2(j) +
vbNewLine
Next j
Next i
' ********SECOND LEVEL*********
' ******** ITEM 3 *********
For i = 0 To ITEMMAX - 2
Set item3_screen(i).down = item3_screen(i + 1)
Next i
For i = 0 To ITEMMAX - 1
Set item3_screen(i).right = item3_cN(i)
Set item3_screen(i).left = item_menu(0)
Next i
F-24