Also ich habe das mal mit 2x drücken gemacht um einen Sparmodus (ECO) zu aktivieren:

Code:
'ECO deaktivieren -> 2 mal drücken
If Pinc.5 = 1 And Taster1_gedrückt = 0 And Eco = 1 Then
Taster1_gedrückt = 1                                        'Merker das Taster1 gedrückt wurde (wegen entprellen!!!)
If Taster1_zähler > 0 Then                                  'wenn zähler größer 0 dann wurde der Taster innerhal einer sek schon mal gedrückt!!!
Eco = 0                                                     'also ECO Modus ausschalten
End If
Taster1_zähler = 80                                         'Zähler auf 80 setzen (100 = ca. 1 sek)
End If
________

Timer1:
'Tastersteuerung
If Taster1_zähler > 0 Then                                  'für Wartezeit vom Taster (entprellen u.s.w.)
Decr Taster1_zähler
End If

Return
Tobias