Der Code geht auch soweit. Nur ich möchte, dass es so wie mit Debounce ist. Taster einmal drücken: LED aus und LCD sagt "LED aus". Taster wieder drücken LED an und LCD sagt "LED an".Code:'Deklarationen $regfile = "m8def.dat" $crystal = 8000000 Ddrc = &B00000010 Portc = &B00000001 'LCD Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2 Config Lcdbus = 4 'Programm Do If Pinc.0 = 1 Then Portc.1 = 1 Cls Locate 1 , 1 Lcd "LED ein" Else Portc.1 = 0 Cls Locate 1 , 1 Lcd "LED aus" End If Loop End
Wenn ich das in Debounce umwandle, funktioniert das mit der LED auch wunderbar, nur die LCD Ausgabe stimmt nicht mehr. Am Anfang ist sie noch richtig, also "LED ein" und wechselt beim ersten Mal Taster drücken auch auf "LED aus" nur bleibt sie dann immer so und schaltet nicht mehr auf "LED ein" um, wenn die LED per Taster wieder eingeschaltet wird.
Lesezeichen