AVR Pulslänge messen

Karl Gast 17.11.2009 16:58 #1486283

Lesenswert?

•

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
  <mein code>
Timer1irq:
  TIMER1 = 55536
  Incr Zeit1
  If Zeit1 >= 1000 Then
    Print Zeit1alt
  End If
Int1irq:
  If Int1falling = 1 Then
    Zeit1 = 0
    Int1falling = 0
  Elseif Int1falling = 0 Then
    Zeit1alt = Zeit1
    Int1falling = 1
  End if



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

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden

Karl H. (kbuchegg) 17.11.2009 17:06 #1486294

Lesenswert?

•

▲
▼

> 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?

Antwort Zitieren Bearbeiten Löschen Beitrag melden

AVR Pulslänge messen

Antwort schreiben