Hi,

laufen denn die ganzen Schleifen abwechselnd durch oder hängt das Programm irgendwo?

Kommen die ganzen Print-Befehle raus?

Programmier doch mal ein "Print I" in jede Schleife und erhöhe waitms auf 500, damit es im Terminal nicht rast wie dolle.
Oder alternativ, toggle einen Port mit LED, damit Du weisst, ob die Schleife hängt oder nicht.

Du kannst Dir auch ein einfaches Testrogramm schreiben:

Code:
Do

Servo(1) = 108

wait 2

Servo(1) = 172

wait 2

Servo(1) = 108

wait 2

Servo(1)= 48

wait 2


loop

Und schließ doch erstmal nur EIN Servo an B.0 an, nicht gleich alle drei.

Grüße

Torsten

Edit:

Och nööö... ist ja nicht wahr, grade gesehen in Deinem geposteten Code:
...
Config Servos = 1 , Servo1 = Portb.0 , Reload = 10
Config Portb = Output


Servo(1) = 10

Do
Loop

Dim I As Byte
Print "Mittelstellung"
Servo(1) = 48
Wait 1
...