Am replace-Befehl liegt es nicht. Ich hab auch deine Methode probiert.
Mist ich hab vergessen, dass sich der Aufbau mittlerweile geändert hat:
Ich bewege im Moment mit dem Prozessor einen Servo und übermittle immer die aktuelle Position an den COM1.
Hier die Subrouting im Prozessor, die den Servo bewegt und die Daten sendet:
Code:Sub Rnb_servo(byval Servonummer As Byte , Byval Go_to_pos As Byte) Local Schritt As Integer If Curr_pos < Go_to_pos Then Schritt = 1 Else Schritt = -1 End If For Curr_pos = Curr_pos To Go_to_pos Step Schritt Open "comd.7:9600,8,n,1" For Output As #2 Print #2 , "#s" ; Chr(servonummer) ; Chr(curr_pos) Close #2 Print Curr_pos Waitms 10 Next End Sub







Zitieren

Lesezeichen