ATNEL tech-forum

Re: Przerwanie zewnętrzne INT0 w Attiny45

2013-01-25T14:53:49+01:00

Zbigniew Raabe, BASCOM Collage Ćwiczenie 3 napisał(a):

Niekontrolowane przerwania mogą narobić większego bigosu, niż używanie instrukcji GOTO (zgiń, przepadnij, siło nieczysta!).

Radzę wziąć pod uwagę słowa nieśmiertelnego popularyzatora Bascoma w Polsce. Zamiast goto używaj gosub, a każdą procedurę na końcu koniecznie zakończ return i wtedy program będzie przewidywalny.

Statystyki: Napisane przez Krauser — 25 sty 2013, o 14:53

Re: Przerwanie zewnętrzne INT0 w Attiny45

2013-01-25T11:32:09+01:00

Koledzy pomóżcie bo już nie wyrabiam.
Znów nie mogę opanować przerwania int0.
Program wygląda aktualnie tak:
[syntax=basic4gl]
$regfile = "attiny45.dat"
$crystal = 8000000

Config Pinb.2 = Input 'przycisk
Portb.2 = 1
Switch Alias Pinb.2

En Alias Portb.1 'wyjście pwm
Config En = Output

Config Portb.4 = Output 'zasilanie dzielnika
Portb.4 = 0

'*****************ZMIENNE****************************
Dim Licznik As Byte
Dim W As Word

'*****************KONFIGURACJA TIMERA****************
Config Timer0 = Pwm , Compare A Pwm = Clear Up , Prescale = 1

'*****************PRZETWORNIK ADC********************
Config Adc = Single , Prescaler = Auto
Admux.4 = 0
Admux.7 = 1 'wlaczenie wewnetrznego napiecia odniesienia 1.1V
Admux.6 = 0

'*****************KONFIGURACJA PRZERWANIA************
Gimsk.6 = 1 'enable int0
Sreg.7 = 1 'enable interrupts

'Enable Interrupts
'Enable Int0
'Config Int0 = Low Level

On Int0 Sprawdz

Powerdown

Licznik = 0
Do

Portb.4 = 1
W = Getadc(3)

If W < 583 Then 'jesli napiecie aku nizsze niz 3V zmniejsz tryb o jeden
If Licznik > 0 Then
Licznik = Licznik - 1
End If
End If

If W < 538 Then 'jesli napiecie aku nizsze niz 2,8V wylacz latarke
Goto Wyl
End If

Debounce Switch , 0 , Procedura , Sub

Select Case Licznik:
Case 0:
Pwm0a = 10
Case 1:
Pwm0a = 50
Case 2:
Pwm0a = 255
End Select

Loop
End

Procedura:
Waitms 400
If Switch = 1 Then
Incr Licznik
Else
Goto Wylaczenie
End If
If Licznik > 2 Then Licznik = 0
Return

Wylaczenie:
Waitms 500
If Switch = 0 Then
Wyl:
Pwm0a = 0
Waitms 100
Pwm0a = 255
Waitms 300
Pwm0a = 0
Enable Int0
Portb.4 = 0
Stop Adc
Waitms 500
Powerdown
Else
Return
End If

Sprawdz:
Disable Int0
Licznik = 0
Start Adc
W = Getadc(3)
Return
[/syntax]

Problem przerwania INT0 jest taki że po pierwszym włączeniu zasilania bądź resecie procesor wybudza się z powerdown po przerwaniu INT0. Ale gdy już go wprowadzimy w powerdown poprzez przytrzymanie przycisku to wybudzić można go z tego jeszcze przez około 5s a po tym czasie procesor jest jakby martwy aż do kolejnego resetu.

To tak jakby przerwanie INT0 działało tylko 5s a później już nie.

Co może być przyczyną takiego działania?

Statystyki: Napisane przez Pier — 25 sty 2013, o 11:32

Re: Przerwanie zewnętrzne INT0 w Attiny45

2013-01-04T10:30:30+01:00

No po konfiguracji którą Podałeś procesor budzi się z przerwania
Mirek ja wiem za co odpowiada prescaler, chodziło mi które bity są za niego odpowiedzialne.
Noty katalogowe czytam namiętnie ostatnio ale co innego czytać a co innego zrozumieć. Jakoś nie bardzo mogę to załapać.
Wielkie dzięki za odpowiedzi.

Statystyki: Napisane przez Pier — 4 sty 2013, o 10:30

Re: Przerwanie zewnętrzne INT0 w Attiny45

2013-01-04T09:24:39+01:00

To nie są tajne dane http://www.atmel.com/Images/doc2586.pdf od strony 86 od 97.
Poniżej wszystkie bity rejestru TCCR1, który ty ustawiasz teraz na 01110001
CTC1 PWM1A COM1A1 COM1A0 CS13 CS12 CS11 CS10
W tym momencie masz COM1A1 COM1A0 = 11, a jak chcesz mieć odwrócony sygnał to wpisujesz wartości 10 na te pozycje.
Do ustawiania preskalera służą 4 ostatnie bity CS13 CS12 CS11 CS10.
Radzę nie stosować instrukcji Bascoma typu Config tylko samemu ustawiać rejestry, bo na rejestrach można zrobić wszystko. Dodatkowo nie polecam ustawiać bitów wprost na rejestrze tylko za pośrednictwem nazw bitów wtedy łatwiej się później analizuje taki program. Przykład podałem wcześniej.

Statystyki: Napisane przez Krauser — 4 sty 2013, o 09:24

Re: Przerwanie zewnętrzne INT0 w Attiny45

2013-01-03T23:48:13+01:00

Pier napisał(a):

A i jeśli Możesz to wskaż mi co to odpowiada za prescaler w tym Pwm-ie.

Preskaler wszędzie i w każdym trybie będzie odpowiadał za częstotliwość wykonywania się czegoś. Preskaler to dzielnik częstotliwości. Więc przy PWM'ach preskaler również bierze udział w ostatecznej częstotliwości twojego PWM'a

Statystyki: Napisane przez mirekk36 — 3 sty 2013, o 23:48

Re: Przerwanie zewnętrzne INT0 w Attiny45

2013-01-03T23:00:27+01:00

Źle się wyraziłem co do tego drugiego kontrolera. Chodziło mi o to że przerwanie w attiny44 dobrze działało program był trochu inny.
Jutro wypróbuję czy taka konfiguracja pomoże.
A wiesz jak skonfigurować pwm w moim programie aby działał odwrotnie?
Bo teraz mam tak że gdy OCR1A =0 to urządzenie sterowane działa na full a chciałbym żeby tak było przy OCR1A=255. Nie wiem jak to się fachowo nazywa i który bit w którym rejestrze za to odpowiada.
A i jeśli Możesz to wskaż mi co to odpowiada za prescaler w tym Pwm-ie.
Pozdrawiam piotr.

Statystyki: Napisane przez Pier — 3 sty 2013, o 23:00

Re: Przerwanie zewnętrzne INT0 w Attiny45

2013-01-03T19:25:38+01:00

Pier napisał(a):

Ten sam program wgrany do attiny44 działa bez zarzutu.
Może trzeba skonfigurować to przerwanie bezpośrednio na rejestrach ale jak?

To dziwne, bo attiny44 ma dwa rejestry TCCR1A i TCCR1B, a attiny45 tylko jeden TCCR1.
Czy na pewno wiesz co robi ta linia?
[syntax=basic4gl]Tccr1 = &B01110001[/syntax]
Podobnie możesz ustawić INT0. domyslnie po resecie procesora jest ustawione to przerwanie na Low Level więc wystarczy tylko:
[syntax=basic4gl]GIMSK.INT0 = 1 'enable int0
SREG.I = 1 'enable interrupts[/syntax]

Statystyki: Napisane przez Krauser — 3 sty 2013, o 19:25

Przerwanie zewnętrzne INT0 w Attiny45

2013-01-03T17:18:08+01:00

Witam.

Proszę o pomoc w sprawie niedziałającego przerwania w Attiny45.

Poniżej kod:
[syntax=basic4gl]
$regfile = "attiny45.dat"

En Alias Portb.1
Switch Alias Pinb.2

Config En = Output
Config Switch = Input

Switch = 1

Tccr1 = &B01110001
Gtccr = &B00000000

Dim Licznik As Byte

Licznik = 0

'*****************WLACZENIE PRZERWAN***************
Enable Interrupts
Enable Int0
Config Int0 = Low Level
On Int0 Sprawdz

Do

Debounce Switch , 0 , Procedura , Sub

Select Case Licznik:
Case 0:
Ocr1a = 200
Case 1:
Ocr1a = 0
Case 2:
Ocr1a = 230
End Select

Loop
End

Procedura:
Waitms 400
If Switch = 1 Then
Incr Licznik
Else
Goto Wylaczenie
End If
If Licznik > 2 Then Licznik = 0
Return

Wylaczenie:
Wait 1
If Switch = 0 Then
Ocr1a = 255
Enable Int0
Waitms 300
Powerdown
Else
Return
End If

Sprawdz:
Disable Int0
Licznik = 0
Return

[/syntax]

Program działa tak jak chcę. Procesor po przytrzymaniu przycisku wchodzi w tryb "powerdown" ale już po tym nie mogę go normalnie obudzić przyciskiem.
Wydaje mi się że problem leży po stronie nieumiejętnego dogadywania się bascoma z attiny45.
Ten sam program wgrany do attiny44 działa bez zarzutu.
Może trzeba skonfigurować to przerwanie bezpośrednio na rejestrach ale jak?

Statystyki: Napisane przez Pier — 3 sty 2013, o 17:18