
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
Lesezeichen