Danke für die Antwort.
Die Werte von Compare1a habe ich wie folgt geändert.
Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 6547200
$baud = 9600
Dim I As Integer
Config Portd.5 = Output
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Prescale = 64
For I = 946 To 980
Compare1a = I
Sound Portd.7 , 400 , 450
Wait 1
Next
End
Der Servo steuert eine Position an und verharrt dort. Komischer Weise ist, wenn man versucht ihn per Hand zu drehen, nur in eine Richtung ein Widerstand festzustellen!?
Lesezeichen