Oder das Bascom Beispiel Programm......
Code:
$regfile = "m32def.dat"                                     ' specify the used micro
$crystal = 16000000                                          ' used crystal frequency
$baud = 19200                                               ' use baud rate
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40

Config Servos = 1 , Servo1 = Portb.0 , Reload = 10
Config Portb = Output
Enable Interrupts 




Do
Loop

Dim I As Byte
Do
 For I = 0 To 100
   Servo(1) = I
   Waitms 1000
 Next

 For I = 100 To 0 Step -1
 '  Servo(1) = I
   Waitms 1000
 Next
Loop
End
Damit sollte das Servo hin und her fahren, hat bei mir auf Anhieb geklappt. "I" darf hier nicht größer als 256 werden, wenn das größer gehen soll muss vorher als Word Variable Deklariert werden. Servo + an +, Servo - an GND und Servo Signal an Portb.x wobei in diesem Beispiel porb.0 gemeint ist.

Gruß Richard