Hallo

Meine ersten Schritte in Bascom sind eher Fehltritte.
Hoffe jemand kann mir sagen wo das der Fehler liegt.
Wen ich den Taster drücke soll eine LED Leuchten. Doch leider leuchtet die LED immer.

Code:
$regfile = "m8def.dat"
$crystal = 3686400



Config Portd.2 = Input                                      'D.2 ist Eingang
Portd.2 = 1                                                 'D.2 Inter Pull an

Config Portb.5 = Output                                     'B.5 ist Ausgang
Led Alias Portb.5                                           'B.5 heisst LED


Do                                                          'Start Hauptprogramm

If Portd.2 = 1 Then
   Led = 1
   Else
   Led = 0
End If


Loop
End
Danke Für die Hilfe