Meine Lösung:
Code:
Config Timer0 = Timer , Prescale = 1024
On Timer0 tastenpoll
tastenpoll:
if pincc.6=1 then
machirgenwas
end if
Do
Loop Until Pinc.6 = 1
waitms 5
return
Nachteil, erst wenn der Taster wieder losgelassen wird kommt das Programm aus der DO LOOP Schleife raus.
Etwas verfeinert mit einer Bit Hilfsvariable, kann ich steuern ob die DO LOOP Schleife überhaupt relevant wird und ein Tasten´wiederholung benötigt wird.
Code:
If Tasterok = 1 Then
Disable Timer0
Waitms 1
Do
Loop Until Pinc.6 = 1
Enable Timer0
tasterok=0
Tasterok wird vorher im Programmablauf auf 0 gesetzt, wenn die DO LOOP Schleife nicht verwendet werden soll.
Thomas
Lesezeichen