'hier nach der debounce abfrage von porta.1

Wait 1
A = A + 1
If A = 60 Then
Porta.2 = 1
If A = 61 Then
Porta.2 =0
End If
If A =80 Then
Porta.4 = 1
If A = 81 Then
Porta.3 = 0
End If
If A = 90 Then
Porta.4 = 1
If A = 91 Then
Porta.4 = 0
End if

Loop Until A > 91

A = 0

'wieder an den progamm anfang springen

weiss jetzt nicht wenn du das so übernimmst, ab dies läuft!
aber so in etwa sollte es funktionieren.
habe jetzt nicht viel zeit ,aber morgen werde ichmir das mal
näher ansehen.
berichte wie weit du bist.


edit:

sicher kannst du das machen,musst nur die wait 1 ändern und in millisekunden zählen lassen und die entsprechenden zeiten eintragen.