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

ECE 477 Final Report Spring 2004

Open Location.Text For Output As #1

For Counter = 0 To 2

Print #1, Cat.Item(Counter)

For Counter = 0 To 12

Print #1, Item1.Item(Counter)

For Counter = 0 To 12

Print #1, Item2.Item(Counter)

For Counter = 0 To 12

Print #1, Item3.Item(Counter)

Close #1

Debug1.Text = "Saved " + Location.Text

End Sub

F-29

1 2 ... 98 99 100 101 102 103 104 105 106 107 108 ... 123 124

Pas de commentaire

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