Ich habe dieses hier zusammen gestellt. Grün blinkt weiter im Sekundetakt aber in der Ausgabe wird unverändert 0Hz angezeigt.
CodeBox BascomAVR
CodeBox BascomAVR
$regfile = "m8def.dat" 'Controllerdefinitionsdatei einbinden $crystal = 8000000 'Systemtakt angeben (Baudrate) $hwstack = 40 'Stacks $swstack = 16 $framesize = 32 $baud = 19200 'Baudrate UART Dim Zeichen As Byte 'UART-Empfang Dim Count As Byte Dim Countdown As Word Dim Cnt As Word Dim Erg As Word Ddrb = &B_1111_1111 Portb = &B0000_0000 Ddrc = &B_11_1111 Portc = &B00_0000 Ddrd = &B_1111_0111 Portd = &B0000_1000 Rot Alias Portd.7 Gruen Alias Portc.3 Blau Alias Portd.6 Ocr2 = 249 Config Timer2 = Ctc , Prescale = 256 , Clear_timer = 1 Config Timer1 = Timer , Prescale = 256 On Timer1 Cnt_sub On Timer1_timer_irq On Oc2 Isr_timer2 Enable Oc2 Enable Interrupts Do Print Erg ; " Hz" Wait 1 Loop Isr_timer2: Incr Count If Count = 125 Then Count = 0 Toggle Gruen If Countdown = 0 Then Rot = 0 Else Decr Countdown End If End If Return Cnt_sub: Incr Cnt Return Timer_irq: Load Timer1 ; 62500 Cnt = Cnt * 256 Cnt = Timer2 + Cnt Return End