also insgesamt so:


Do

If Pinc.2 = 1 Then

Portd.4 = 0
Portd.7 = 0

Portd.6 = 1
Portd.5 = 1
Waitms 2000
End If

Portd.4 = 0
Portd.7 = 0

Portd.6 = 0
Portd.5 = 0

loop


End[/quote]