also verwende ich keine Variable mehr, die "inkremiert" wird?
...exakt!
Ein Programm sagt mehr als 1000 Worte
:
Code:
Dim Zeit as Long
Dim Flag as Bit
Config Timer1=timer, prescale=1024
Stop Timer1
Timer1=0
Config INT0=falling
On INT0 ISR_lichtschranke1
Enable INT0
Config INT1=falling
On INT1 ISR_lichtschranke2
Enable INT1
Enable Interrupts
Do
(werkel - werkel...)
If Flag=1 then
Zeit = Zeit * 64
Zeit = Zeit / 1000 'Zeit ist jetzt die Zeit in ms. Umrechnung in km/h
hängt vom Abstand der Lichtschranken ab!!
Flag = 0
End if
Loop
ISR_lichtschranke1: '1. Lichtschranke wurde passiert
Start Timer1
Return
ISR_lichtschranke2: '2. Lichtschranke wurde passiert
Stop Timer1
Zeit=Timer1
Timer1=0
Flag=1
Return
Isses jetzt etwas klarer?
LG,
Daniel
Lesezeichen