Du meinst also in etwa so?
Code:$regfile = "ATtiny45.dat" $crystal = 1000000 $hwstack = 40 $swstack = 16 $framesize = 32 Pwm_mobo Alias Portb.2 Config Pwm_mobo = Input Led Alias Portb.3 Config Led = Output Config Timer0 = Timer , Prescale = 1 On Int0 Sprungmarke 'Wenn Int0 ausgelöst wird, springe zu Label Sprungmarke Enable Interrupts Do Config Int0 = Raising 'Int0 loest bei steigender Flanke aus Config Int0 = Falling 'Int0 loest bei fallender Flanke aus If Tcnt1 > X Then 'X = Anzahl der Ticks ab der der Zustand der LED geaendert werden soll Led = 1 Else Led = 0 Loop Sprungmarke: If Int0 = Raising Then Timer0 = 0 Enable Timer0 Else Stop Timer0 Return 'zutück ins Hauptprogramm springen







Zitieren

Lesezeichen