Commtech wireless Mercury 8-Line Manuel d'utilisateur télécharger pdf (Page 98)

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

1 2 ... 93 94 95 96 97 98 99 100 101 102 103 ... 123 124

Commentaires sur ces manuels

Pas de commentaire

Commtech wireless Mercury 8-Line Manuel d'utilisateur Page 98

Commentaires sur ces manuels