Zitat Zitat von fabqu
Mir ging es mehr um das Wort "einfach" ...
Code:
Config Servos = 1 , Servo1 = Portb.0 , Reload = 10
Config Portb = Output
.
Enable Interrupts


Servo(1) = 10                                               '10 times 10 = 100 uS on

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
Unter Bascom Beispiele ist das genauer beschrieben, mit config kann jeder Pin als Servotreiber benutzt werden, servo 1,2,3,4,5,6.... I²C hat auch beinahe jeder µC.

Config Servos = x , Servo y = Portb. z , Reload = 10

Sollte nicht so schwierig werden.

Gruß Richard