Charly_cs
13.02.2006, 22:00
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?
$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
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?
$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