Ja schon klar, aber ich will ja nicht dass sie sich so schnell bewegen wie sie können sondern langsamer. Dafür brauche ich eine For-Next-Schleife.

Bsp:

LOOP:
Call Rnb_servo(1, 100)
wait 2
Call Rnb_servo(1, 150)
Goto LOOP
Sub Rnb_servo(byval Servonummer As Byte , Byval Position As Byte)
Print "#s" ; Chr(servonummer) ; Chr(position)
End Sub

In diesem Beispiel würder er sich so schnell wie möglich zu 100 dann nach 2 Sekunden zu 150 bewegen.
Nächstes Beispiel:

LOOP:
Call Rnb_servo(1, 100)
wait 2
Call Rnb_servo(1, 150)
Goto LOOP
Sub Rnb_servo(byval Servonummer As Byte , Byval Position As Byte)
For I = 0 to Position
Print "#s" ; Chr(servonummer) ; Chr(position)
waitms 10
Next I
End Sub

Nach dem ersten Call-Befehl würde alles so klappen wie es soll, vorrausgesetzt der Servo befindet sich auf Position 0. Danach ist er auf Position 100. Beim zweiten Call-Befehl würde er plötzlich auf Position 0 springen und von da aus langsam auf 150.

Was ich will ist den plötzlichen Sprung auf 0 zu vermeiden.

mfg
jagdfalke