das ganze ist nur theoretisch zusammengepappt - wenn du mehr leds hast must du dir hilfsbits machenCode:$regfile = "m16def.dat" 'Quarzfrequenz $crystal = 16000000 'Hier wird der Timer und der Teiler festgelegt Config Timer0 = Timer, Prescale = 64 On Timer0 Timer_irq Const Timervorgabe = 206 config pinc.1 =output Config Pinc.2 = Output Led1 Alias Portc.1 led2 alias portc.2 disable Timer0 Enable Interrupts Do led1=1 'led 1 an waitms 500 led2=1 enable timer0 'jetzt wird led1 50%leuchten waitms 200 disable timer0 led1=0 waitms 300 'usw Loop end 'Dies ist der Programmteil, der in dem von ihnen gewählten 'Intervall aufgerufen wird Timer_irq: Timer0 = Timervorgabe Toggle Led1 Return
(dim h1 as bit)
und dann wenn led 1 50% leuchten soll musst du h1=1 und in der timer-routine if h1=1 then toggle led1
Lesezeichen