Hi!

Habe mir die Gabellichtschranke incl. Inkrementalscheibe gekauft und mitm RNControl samt Beispielprogramm auslesen können. Nun möchte ich sie aber mit nem kleinen 2313 auslesen. Hab ein kleines Programm geschrieben, bei dem nach einer vollen Umdrehung eine led für 2 sec lang leuchten soll. Da rührt sich leider gar nix. Angeschlossen ist die Lichtschranke am int0 und led am pinb.2 . Könnt ihr euch bitte meinen Code durchlesen und mir meinen Fehler zeigen?

Code:
$regfile = "2313def.dat"
$crystal = 7372800
$baud = 19200

Dim Zaehlerirq0 As Long


Config Pinb.2 = Output
Portb.2 = 0

Zaehlerirq0 = 0
On Int0 Irq0
Enable Int0

Config Int0 = Falling

Enable Interrupts




'------------------------------------------------------------
Do

If Zaehlerirq0 > 120 Then
Portb.2 = 1
Wait 2
Portb.2 = 0
Zaehlerirq0 = 0
End If
Waitms 50
Loop

End

'------------------------------------------------------------

Irq0:
 Incr Zaehlerirq0
Return
Gruß
Charly