AVR Pulslänge messen

[Karl (Gast)]

Hallo!

Ich möchte gerne mit einem ATMEGA8 die Länge eines Pulses am INT1 
messen.
Die Zeit soll zwischen einer fallenden und einer steigenden Flanke 
gemessen werden.

Ich habe es so versucht:

'Timer1 mit 10ms Zeitbasis
Config TIMER1 = Timer , Prescale = 8
On Timer1 timerirq
Enable Timer1
Timer1 = 55536

'Externer Interrupt1
Config INT1 = Falling
On INT1 Int1irq
Enable Int1

Enable Interrupts

Dim Zeit1 as Word
Dim Zeit1alt as Word
Dim Int1falling as Bit


Main:
Do
  <mein code>
Loop


Timer1irq:
  TIMER1 = 55536
  Incr Zeit1

  If Zeit1 >= 1000 Then
    Print Zeit1alt
  End If
return


Int1irq:
  If Int1falling = 1 Then
    Zeit1 = 0
    Int1falling = 0
  Elseif Int1falling = 0 Then
    Zeit1alt = Zeit1
    Int1falling = 1
  End if
return

Leider funktioniert das Ganze nicht so, wie ich es mir vorgestellt habe. 
Die Zeiten, die ich am Terminal ausgegeben bekomme stimmen nicht. 
Vielleicht kann mir jemand helfen, der soetwas schoneinmal gemacht hat.

Karl

[Karl H. (kbuchegg)]

> Config INT1 = Falling

Wenn du den Interrupt so konfigurierst, wirst du dir schwer tun die Zeit 
zwischen fallender und steigender Flanke zu messen. Im Moment reagiert 
dein Interrupt nur auf fallende Flanken.

Warum so kompliziert?
Lass den Interrupt in beiden Fällen, steigend und fallend, auslösen. Du 
brauchst doch nur am Input-Pin nachsehen welchen Pegel er hat. Hat er 1 
Pegel, dann kann es nur eine steigende Flanke gewesen sein. Ist dort bei 
Auftreten des Interrupts aber ein 0 Pegel, dann kann es nur eine 
fallende Flanke gewesen sein.


NB: Du kennst den Capture Interrupt?