Ich habe es mit mehrere Programmen versucht... Hier ist meine aktuelle Version
Code:
$regfile = "m8def.dat"
$crystal = 3686400
$baud = 9600
Config Timer1 = Timer , Prescale = 8 'timer für Servos
Enable Timer1
Config Servos = 1 , Servo1 = Portb.1 , Reload = 10
Config Portb = Output
Dim A As Word
On Timer1 Pwm
Enable Interrupts
Timer1 = A
'***************** Hauptschleife / Servobewegung ********
Do
A = 63535
Wait 2
A = 61535
Loop
'****************** Label **********************
Pwm:
Toggle Portb.1
Return
Lesezeichen