Hallo Martin,

ein Vorschlag der zum Experimentieren anregen soll.



Dim Tasten_zaehler As Word
Const Ein = 0
Taste_plus Alias PINB.0
Taste_minus ALIAS PINB.1



If Taste_plus = Ein Then
Incr Tasten_zaehler
Select case Tasten_zaehler
case 5 : Gosub Pwmmehr
case 1000: Tasten_zaehler = 900
Gosub Pwmmehr
case else
End select
Else
Tasten_zaehler = 0
End if

Werte kannst du verändern um die Zeiten anzupassen.
Den gleichen Programmteil für Taste minus.

MfG Frank