Hallo Forum,

Hier habe ich ein kleines Listing.
Ich möchte die Taste PD2 drücken die LED an Port PD3 soll eine Minute leuchten dann aus gehen.

Code:
$Regfile = "m8def.dat" 
$Crystal = 3686000    'Quarz: 3.6860 MHz
DDRD = &B0001000      'Pin PD3 Ausgang, Rest Eingang
'PORTD = &B0000100    'PullUp von Pin PD2 aktivieren

Do
  If PIND.2 = 0 Then  'Wenn Taster (Pin PD2) gedrückt
    PORTD.3 = 1       'Rote LED (Pin PD3) an
  Else                'Wenn Taster nicht gedrückt
    PORTD.3 = 0       'Rote LED aus
  End If
Loop
End
Kann mir da jemand helfen ?

mfg

Enterprise