Mit dem Programm hab ich das jetzt laufen lassen:
geht aber nicht . Hab schon eine Stunden lang versucht das zunm laufen zu bringen:

Code:
Dim Center As Integer
dim servopos as integer
dim left as integer
dim right as integer
left=50
right=150
center=100

Config Servos = 2 , Servo1 = Portb.1 , Servo2 = Portb.0 , Reload = 10
'we use 2 Servos with 10 uS resolution

'we must configure the port pins used to act as output
Config Portb = Output

'finally we must turn on the global interrupt
Enable Interrupts



print "Servo Test"
  Wait 1


   Servopos = Center
  Servo(1) = Servopos
   Wait 1

  Servopos = left   'nach links fahren
  Servo(1) = Servopos
  Wait 1

     print   "Rechtsdrehung"
     For Servopos = left To right Step 10
   Servo(1) = Servopos
   Waitms 10
   Next
   Wait 1

    print  "Linksdrehung"
    For Servopos = right  To left Step -10
   Servo(1) = Servopos
   Waitms 10
   Next
    Wait 1

      print "Mitte"
    Servopos = Center
   Servo(1) = Servopos