Hallo,
danke für den PWM**-Tip, das wars! Ich konnte alle möglichen PWMs testen - sie funktionieren. Bin total überrascht, dass das so gut ging. Ich fange gerade mit AVR und Bascom an, hab davor noch nichts damit zu tun gehabt, sehr wohl aber mit Mikrocontrollern.
Hier der Code für alle die es interessiert:
Hat diese Forum im Moment eigentlich einen Bug? Wenn meine Antwort eine bestimmte Länge überschreitet springt die Ansicht ohne zutun immer nach ganz oben und dann wieder ganz runter wenn ich schreibe.Code:$prog , 255 , &B11011001 , 'Quarz an / Teiler aus / Jtag aus $regfile = "m2560def.dat" $hwstack = 82 '80 $framesize = 68 ' 64 $swstack = 68 '44 $crystal = 16000000 'Quarzfrequenz Config Portg.5 = Output Config Porte.3 = Output Config PortE.4 = Output Config Porth.3 = Output Config PortH.4 = Output Config PortH.5 = Output Config PortH.6 = Output Config PortB.4 = Output Config PortB.5 = Output Config PortB.6 = Output Config PortB.7 = Output Config Pind.5 = Output Led Alias Portd.5 Config Timer0 = Pwm , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 256 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Compare C Pwm = Clear Up , Prescale = 256 Config Timer2 = Pwm , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 256 Config Timer3 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Compare C Pwm = Clear Up , Prescale = 256 Config Timer4 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Compare C Pwm = Clear Up , Prescale = 256 Do Led =0 Pwm0b = 160 Pwm1a = 160 Pwm1b = 160 Pwm1c = 160 Pwm2a = 160 Pwm2b = 160 Pwm3a = 160 Pwm3b = 160 Pwm4a = 160 Pwm4b = 160 Pwm4c = 160 Waitms 1000 Led = 1 Pwm0b = 80 Pwm1a = 80 Pwm1b = 80 Pwm1c = 80 Pwm2a = 80 Pwm2b = 80 Pwm3a = 80 Pwm3b = 80 Pwm4a = 80 Pwm4b = 80 Pwm4c = 80 Waitms 1000 Loop End
Viele Grüße
Cornelius







Zitieren

Lesezeichen