User manual

ManualsBrandscommtech wireless ManualsGadgetsMercury 8-Line

100

ECE 477 Final Report Spring 2004

For i = 1 To ITEMMAX - 1

Set item3_screen(i).up = item3_screen(i - 1)

Next i

For i = 0 To ITEMMAX - 1

For j = 0 To ITEMMAX - 1

If i = j Then

item3_screen(i).menu = item3_screen(i).menu + ARROW

Else

item3_screen(i).menu = item3_screen(i).menu + SPACE

End If

item3_screen(i).menu = item3_screen(i).menu + item3(j) +

vbNewLine

Next j

Next i

' ********THIRD LEVEL*********

For i = 0 To ITEMMAX - 1

Set item1_cN(i).left = item1_screen(i)

item1_cN(i).menu = "Are you sure you want a(n)" + vbNewLine + SPACE +

item1(i) + vbNewLine + NoStr + vbNewLine

Set item1_cN(i).right = item_menu(0)

Set item1_cN(i).down = item1_cY(i)

Set item1_cY(i).up = item1_cN(i)

item1_cY(i).item = item1(i)

Set item1_cY(i).left = item1_screen(i)

item1_cY(i).menu = "Are you sure you want a(n)" + vbNewLine + SPACE +

item1(i) + vbNewLine + YesStr + vbNewLine

Next i

For i = 0 To ITEMMAX - 1

Set item2_cN(i).left = item2_screen(i)

item2_cN(i).menu = "Are you sure you want a(n)" + vbNewLine + SPACE +

item2(i) + vbNewLine + NoStr + vbNewLine

Set item2_cN(i).right = item_menu(0)

Set item2_cN(i).down = item2_cY(i)

Set item2_cY(i).up = item2_cN(i)

item2_cY(i).item = item2(i)

Set item2_cY(i).left = item2_screen(i)

item2_cY(i).menu = "Are you sure you want a(n)" + vbNewLine + SPACE +

item2(i) + vbNewLine + YesStr + vbNewLine

Next i

For i = 0 To ITEMMAX - 1

Set item3_cN(i).left = item3_screen(i)

item3_cN(i).menu = "Are you sure you want a(n)" + vbNewLine + SPACE +

item3(i) + vbNewLine + NoStr + vbNewLine

Set item3_cN(i).right = item_menu(0)

Set item3_cN(i).down = item3_cY(i)

Set item3_cY(i).up = item3_cN(i)

item3_cY(i).item = item3(i)

F-25