Problem mit den interrupts bei Bascom
tach allesamt,
Ich versuche gerade mit einem mega8 in Bascom eine schaltung zu realisieren, die standartmässig die rote LED auf meinem myAVR Board leuchten lässt und sobald man den Taster drückt, für die Dauer des Drucks die rote abschaltet und die grüne erleuchten lässt.
Das will ich über die externen interrupts realisieren.
Hier mal mein Code, das problem schildere ich unten:
Code:
$regfile = "m8def.dat"
$crystal = 8000000
Dim Pressed As Bit
Pressed = 0
Config Int0 = Falling 'INT0 wird aufgerufen, sobald der Taster gedrückt wird.
Enable Interrupts
Enable Int0
Config Portd = Input
Portd = &B11111111 ' Pull-up Widerstatände aktivieren
Config Portb = Output
Portb = &B00000001 'nach reset soll rot leuchten
On Int0 Isrint0
Isrint0:
If Pressed = 0 Then
Portb = &B00000010 'grüne LED anmachen (an PinB.1)
Config Int0 = Rising
Pressed = 1
Elseif Pressed = 1 Then
Portb = &B00000001 'rote LED wieder anmachen (an PinB.0)
Config Int0 = Falling
Pressed = 0
End If
Return
Do
Loop
End
problem ist jetzt, dass statt der roten immer die grüne leuchtet, dazu leuchtet auch noch die rote standig , aber nur ganz dunkel. Wenn ich jetzt den Taster drücke, passiert nichts, außer dass abundzu einmal die rote heller aufflackert.
ich hoffe ihr könnt mir helfen, wobei mir wirklich wichtig ist, das über die interrupts zu steuern.
*Danke*
EDIT:
mir ist aufgefallen, dass WENN die rote LED mal flackert, dass dann auch gleichzeitig die grüne mit erlischt. Immerhin etwas wie es sein soll.
