Moin,
nur ne Vermutung,bei mir steht "Enable Interrupts" nach der Servoconfig ev. ist der timer zuschnell und unterbricht immer.
Glaube ich zwar nich, aber eventuell.
Nimm mal den Quellcode, is meiner und funtzt bei mir.
Code:
$regfile = "m32def.dat"
$crystal = 16000000
Config Servos = , Servo1 = Porta.0 , Reload = 10
Config Portc = Output
Enable Interrupts
Declare Sub Rodeo
Dim E1 As Byte
Dim R As Byte
Dim T1 As Word
Do
R = R + 1
If R = 5 Then
Disable Interrupts
Sound Portd.7 , 450 , 250
Sound Portd.7 , 200 , 100
Sound Portd.7 , 450 , 250
Wait 10
R = 0
Else
Enable Interrupts
E1 = Rnd(100) + 50
Servo(1) = E1
T2 = Rnd(900) + 10
Waitms T2
End If
Loop
End
MfG René
Lesezeichen