Danke für die Hinweise!
Mein Code sieht jetzt so aus:
Der Motor dreht sich auch und ändert ab und zu die Geschwingkeit... Aber das sieht eher willkürlich aus. Wie groß ist denn die Rasterweite bei "Compare1a"? Läuft sie wirklich nur bis 255 oder gehts da noch weiter?Code:$regfile = "m8def.dat" $crystal = 4000000 $baud = 9600 Dim A As Byte A = 0 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 64 Ddrb.1 = 1 Do If A < 255 Then A = A + 1 Compare1a = A Waitms 200 Print A Loop End







Zitieren

Lesezeichen