Commtech wireless Mercury 8-Line Uživatelský manuál stáhnout pdf (Strana 101)

ECE 477 Final Report Spring 2004

List1.RemoveItem (Counter)

List2.RemoveItem (Counter)

List3.RemoveItem (Counter)

Counter = Counter - 1

End If

myString = Combo1.Text

For Counter = 0 To (Combo1.ListCount - 1)

If (Combo1.List(Counter) = myString) Then

Combo1.RemoveItem (Counter)

Counter = Counter - 1

End If

'Combo1.RemoveItem (Counter)

Address = 0

OpCode = 1

Cmd = &H100

MSComm1.Output = Chr(1) + Chr(0) + Chr(0) + Chr(0) + Chr(0) + Chr(0) +

Chr(0) + Chr(0) + Chr(0) + Chr(0) + Chr(0) + Chr(0) + Chr(0) + Chr(0) +

Chr(0) + Chr(0)

SendToSerial " Your Table Is Ready!"

End Sub

F-27

1 2 ... 96 97 98 99 100 101 102 103 104 105 106 ... 123 124

Žádné komentáře

Commtech wireless Mercury 8-Line Uživatelský manuál Strana 101