das ist der code aus dem testprogramm:

Code:
'
$regfile = "m32def.dat"


Declare Sub Rnb_servo(byval Servonummer As Byte , Byval Position As Byte)
Declare Sub Rnb_servob(byval Servonummer As Byte , Byval Position As Byte)


Dim I As Byte
Dim Pos As Byte

$crystal = 8000000                                          'Quarzfrequenz
$baud = 9600


Wiederhole:

   For I = 1 To 255
      Call Rnb_servo(1 , I)
      Waitms 50
   Next I

   For I = 1 To 4
      Pos = 1
      Call Rnb_servo(1 , Pos)
      Wait 2                                                'Warte 2 Sekundne
      Pos = 255
      Call Rnb_servo(1 , Pos)
      Wait 2
   Next I

Goto Wiederhole




Sub Rnb_servo(byval Servonummer As Byte , Byval Position As Byte)
   Print "#s" ; Chr(servonummer) ; Chr(position)
End Sub

Sub Rnb_servob(byval Servonummer As Byte , Byval Position As Byte)
   Open "comd.7:9600,8,n,1" For Output As #2
   Print #2 , "#s" ; Chr(servonummer) ; Chr(position)
   Close #2
End Sub

End
Es sollte also wirklich alle 256 Positionen durchgehen.

Ja die Mittelstellung stimmt, ziemlich genau (so genau wie ich es mit den Augen abschätzen kann).