Jak zliczać czas stanu niskiego w Atmega16 BASCOM przy przerwaniach?

Question

Mam pytanko czy da się zrobić tak aby przerwanie było aktywowane zboczem opadającym i wyłączane narastającym? czy trzeba to zrobić na 2 przerwaniach? bo chodzi mi o zliczanie czasu trwania stanu niskiego i nie wiem dokładnie jak to zrobić.
Z góry dzięki za pomoc

redart · Accepted Answer

Najpierw dajesz

Config INT0=Falling

Wprowadzasz zmienną opisującą wybrane zbocze wyzwalające przerwanie (Edge_) i w procedurze obsługi tego przerwania:

If Edge_ =0 Then 
   Start Timer1
   Config INT0=Rising
Else
   Stop Timer1
   Config INT0=Falling
End If

Niektóre AVR'y umożliwiają konfigurację typu

Config INT0= Change

Wtedy przerwanie wywoływane będzie po stwierdzeniu dowolnego zbocza sygnału.

szymtro · Accepted Answer

Jeżeli już tak to ustaw przerwanie na każdą zmianę i sprawdzaj stan pinu int0.
będzie szybsze bo nie będzie procedur ustawiania falling/rising:

config int0=change
...
przerwanie_int0:
if pind.2=0 then 'opadajace zbocze
else 'narastajace
end if
...
return

Z analizy kodu asm bascoma wynika ze szybciej zadziała oddzielny warunek:

if pind.2=0 end if
if pind.2=1 end if

niż if/else/end if

ja_dzik · Answer

Mozesz wykorzystac rozkaz Bitwait. Chodzi o to ze jesli wpiszesz:


Bitwait pind.1 , set

to program zostanie wstrzymane tak długo az na porcie d.1 pojawi sie stan wysoki.
Czyli najpierw konfigurujesz np przerwanie INT0 tak aby włączało sie przy opadającym zboczu następnie w programie przrwania zliczasz czas np za pomocą któregos z timerów, wpisujesz własnie rozkaz Bitwait który podowuje ze program nie bedzie dalej przechodził dopuki na porcie d.1 nie pojawi sie stan wysoki, ale timer dalej bedzie zliczał czas dopuki nie zostanie on zatrzymany.

crazy_phisic · Answer

Rejestry konfiguracyjne możesz zmieniać w każdej chwili więc nie ma problemu aby w obsłudze przerwania napisać Config INTx = Rising Pozdrawiam

BOGAD · Answer

OK to jeszcze dopytam tak, rozumiem że na początku przerwania zmieniam stan Edge_ na 0, liczy timer i config int0=rising ale co dalej załóżmy że nadejdzie zbocze narastające i co wtedy się dzieje?

redart · Answer

No tak, zabrakło jeszcze jednej linijki... sory... Powinno być: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkaIf Edge_ =0 Then     Start Timer1    Config INT0=Rising Else    Stop Timer1    Config INT0=Falling End If Toggle Edge Działa to tak: najpierw masz wejście INT wyzwalane zboczem opadającym, jeśli ono nadejdzie to startuje Timer i zmienia aktywację przerwania na zbocze narastające. Po wyjściu z pętli If/Then zmienia wartość zmiennej Edge_ na przeciwną, sygnalizującą które zbocze jest aktywne (wtedy aktywne jest narastające). Wraca do głównej pętli. Gdy nadejdzie zbocze narastające na we INT to wykonywany jest drugi warunek w procedurze obsługi przerwania: zatrzymany zostaje Timer, następuje ponowna zmiana zbocza aktywującego przerwanie na opadające i na koniec odwrócenie zmiennej Egde_. Coś jeszcze nie jasne? Sory za tę linijkę, ale jak się człowiek spieszy...

BOGAD · Answer

OK dziękuję wszystkim za pomoc, rozumiem że Timer będzie liczył czas non stop aż nie nadejdzie zbocze narastające i nie dojdzie do komendy stop timer1? Chodzi mi o to że włączam go w przerwaniu a potem się ono kończy i czy timer wtedy nie zakończy zliczania?

redart · Answer

Po komendzie Stop Timer1 należy odczytać ilość zliczonych impulsów zegarowych przypisując jakiejś zmiennej (typu Word, np Timer_val) jego wartość:

Dim Timer_val As Word
...
Timer_val=Timer1

lub

Timer_val=Counter1

a następnie wyzerować rejestry timera, przygotowując go do zliczania od nowa:

Timer1=0

Jak zliczać czas stanu niskiego w Atmega16 BASCOM przy przerwaniach?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Podsumowanie tematu