Gast
#348962
Hat vielleicht jemand einen Tipp für mich warum folgender Code nicht funktioniert. Auf den empfang am UART wird auf jedenfall reagiert? (LED toggled) Aber die Variable PWM wird irgendwie nicht verändert... Komisch! ----------------------------------------------------------- $regfile = "m8def.dat" $crystal = 4000000 $baud = 9600 On Urxc Onrxd 'auf Interrupt des UART reagieren, also wenn neuen Wert empfangen Enable Urxc Enable Interrupts Dim I As Byte Dim Pwm As Word Dim Temp As Integer Config Portb = Output Config Portc = Output 'Konfiguration des PWM-Signals, das an PinB.1 generiert wird Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1 Pwm = 0 'erstmal lampe an Do 'Endlosschleife Compare1a = Pwm Loop End 'ISR-Handler bei UART-Interrupt Onrxd: I = Udr ' in I steht empfangenes Zeichen (1 Byte) Toggle Portb.0 'lichtprogramme If I = "1" Then Pwm = 900 End If Return '----------------------------------------------------------------------- -------
