Erstes Programm mit Bascom-AVR
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