ein servo fährt 120 einheiten nach links und 120 ein heiten nach rechts, 3x.
probier mal aus. must dein prozessor angeben ,den crystal und dein port.
musst mit den werten in der forschleife den anschlag evtl noch ausmachen.
Code:
$regfile = "m32def.dat"
$crystal = 8000000
Dim Sw As Byte
Dim Z As Byte
Config Servos = 1 , Servo1 = Portd.6 , Reload = 10
Config Portd = Output
Enable Interrupts
Wait 1
For Z = 0 To 3
For Sw = 48 To 168
Servo(1) = Sw
Waitms 10
Next Sw
Waitms 100
For Sw = 168 To 48 Step -1
Servo(1) = Sw
Waitms 10
Next Sw
Next
End
Lesezeichen