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.
MfG René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







Zitieren

Lesezeichen