User manual

ManualsBrandscommtech wireless ManualsGadgetsMercury 8-Line

ECE 477 Final Report Spring 2004

Input #1, item1(i)

Next i

For i = 0 To ITEMMAX - 1

Input #1, item2(i)

Next i

For i = 0 To ITEMMAX - 1

Input #1, item3(i)

Next i

Close #1

Set CurMenu = item_menu(0)

' -mike- Call SendToSerial(CurMenu.menu)

'Call MenuLoad_Click

Set CurMenu = item_menu(0)

' ********TOP LEVEL*********

For i = 0 To CATMAX - 2

Set item_menu(i).down = item_menu(i + 1)

Next i

Set item_menu(0).right = item1_screen(0)

Set item_menu(1).right = item2_screen(0)

Set item_menu(2).right = item3_screen(0)

For i = 1 To CATMAX - 1

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

Next i

For i = 0 To CATMAX - 1

For j = 0 To CATMAX - 1

If i = j Then

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

Else

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

End If

item_menu(i).menu = item_menu(i).menu + item_type(j) + vbNewLine

Next j

Next i

' ********SECOND LEVEL*********

' ******** ITEM 1 *********

For i = 0 To ITEMMAX - 2

Set item1_screen(i).down = item1_screen(i + 1)

Next i

For i = 0 To ITEMMAX - 1

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

Set item1_screen(i).left = item_menu(0)

Next i

F-23