Hi,

mein Code ist schon zu groß das würde hier wohl nur verwirren. Aber ich habs an deinem mal gemacht.

Code:
$regfile = "m32def.dat"
$crystal = 16000000

Config Pinb.0 = Input
Portb.0 = 1
T1 Alias Pinb.0

Dim A As Byte


Do
A = 0

If T1 = 0 Then
While T1 = 0
Waitms 10
Incr A
If A = 255 Then A = 200
Wend
If A >= 200 Then
'Aktion bei 2 Sek.
Else
'Aktion bei kurzem Tastendruck
End If
End If


Loop

End
Die Variable läuft auch mit der Zeit voll wenn man kurz drückt also 10 mal kurz = Aktion bei 2 sec. Deswegen muss man A reseten.
Ich hoffe du verstehst wie ich das meine.

MFG Daniel