ATNEL tech-forum

Re: TIMER0 - spaźnia o 15 sekund w skali godziny

2017-05-12T08:53:24+01:00

grzeniu 73 napisał(a):

A nie lepiej od razu policzyc

Jak się nie ma takich wątpliwości to zapewne lepiej. Ale jak coś źle działa, to podmiana wartości jest szybką i skuteczną metodą. Oczywiście potem warto problem przemyśleć, najlepiej konfrontując z dokumentacją.

Statystyki: Napisane przez czarekgr — 12 maja 2017, o 08:53

Re: TIMER0 - spaźnia o 15 sekund w skali godziny

2017-05-11T13:10:01+01:00

A nie lepiej od razu policzyc

Statystyki: Napisane przez grzeniu 73 — 11 maja 2017, o 13:10

Re: TIMER0 - spaźnia o 15 sekund w skali godziny

2017-05-11T07:01:27+01:00

Ja dodam swoje 3 grosze. W takich sytuacjach warto zrobić po prostu eksperyment i wartość wpisywaną zmienić o +/- 1 czy nawet więcej i zobaczyć czy jest OK. Jak będzie dobrze, to można pomyśleć dlaczego.

Statystyki: Napisane przez czarekgr — 11 maja 2017, o 07:01

Re: TIMER0 - spaźnia o 15 sekund w skali godziny

2017-05-10T19:21:10+01:00

Zmieniłem na:

[syntax=basic4gl]Timer0 = 6[/syntax]

i jest OK - odchyłki nie ma.
Poza tym nic więcej w programie głównym nie zmieniałem.

Dziękuję za pomoc!

Temat można zamknąć

Statystyki: Napisane przez Qume — 10 maja 2017, o 19:21

Re: TIMER0 - spaźnia o 15 sekund w skali godziny

2017-05-10T18:40:08+01:00

Używam identycznej procedury odliczania jak u Ciebie i się sprawdza doskonale. Miles po prostu wpisana złą wartość. Po za tym co masz nic więcej nie musisz ustawiac

Statystyki: Napisane przez grzeniu 73 — 10 maja 2017, o 18:40

Re: TIMER0 - spaźnia o 15 sekund w skali godziny

2017-05-10T18:27:29+01:00

Muszę to po prostu sprawdzić.

Mam pytanie odnośnie innej kwestii.
Otóż piszecie, żeby wpisać wartość początkową Timera0 w programie głównym.
Tzn. gdzie? Przed pętlą DO? czy może w pętli DO?
I o co chodzi z tym użyciem Timera z automatycznym przeładowaniem?
Można jakiś fragment kodu prosić?

Będę wdzięczny.
Fusy mam ustawione na zewnętrzny kwarc

PS
Widzę, że zanim kliknąłem wyślij pojawiły się nowe wpisy.
No to tak:
Ma być Timer0 = x - tak ja jest u mnie jest OK.
Wpiszę Timer0 = 6 i sprawdzę będzie?

Pozostałe pytania pozostają aktualne:
Otóż piszecie, żeby wpisać wartość początkową Timera0 w programie głównym.
Tzn. gdzie? Przed pętlą DO? czy może w pętli DO?
I o co chodzi z tym użyciem Timera z automatycznym przeładowaniem?
Można jakiś fragment kodu prosić?

Statystyki: Napisane przez Qume — 10 maja 2017, o 18:27

Re: TIMER0 - spaźnia o 15 sekund w skali godziny

2017-05-10T18:24:19+01:00

Zamiast 5 wpisz 6 będziesz miał wtedy równe 8ms teraz masz 8,0320 ms.

Statystyki: Napisane przez grzeniu 73 — 10 maja 2017, o 18:24

Re: TIMER0 - spaźnia o 15 sekund w skali godziny

2017-05-10T18:23:08+01:00

Tak masz rację, pomyliły mi się znaki , i =.

Statystyki: Napisane przez zorro — 10 maja 2017, o 18:23

Re: TIMER0 - spaźnia o 15 sekund w skali godziny

2017-05-10T17:46:14+01:00

Load Timer0 , 5 est to wartość początkowa licznika, doliczy jeszcze 251 cyknięć i przerwanie.

Statystyki: Napisane przez zorro — 10 maja 2017, o 17:46

Re: TIMER0 - spaźnia o 15 sekund w skali godziny

2017-05-10T17:09:28+01:00

[syntax=basic4gl]Load Timer0 , 5[/syntax] wpisz jeszcze w programie głównym.
Wartość początkową Timera wpisujemy z przecinkiem nie ze znakiem równości.
Myślę, że obsłudze przerwania masz za dużo działań.
W obsłudze przerwania powinno być jak najmniej działań.

Statystyki: Napisane przez zorro — 10 maja 2017, o 17:00

TIMER0 - spaźnia o 15 sekund w skali godziny

2017-05-10T16:04:04+01:00

Jak w temacie.

Nie mówię, że musi być dokładnie co do sekundy, ale mając licznik, który liczy sumaryczny czas pracy urządzenia to w dłuższym okresie czasu taka odchyłka może boleć.
Albo to kwarc, albo mam źle napisane oprogramowanie?

Może mi ktoś sprawdzić czy dobrze to wszystko mam policzone?
Z góry dziękuję.

[syntax=basic4gl]$regfile = "m32DEF.DAT"
$crystal = 8000000

Config Timer0 = Timer , Prescale = 256
Enable Timer0
On Timer0 Prztimer0
Enable Interrupts

Dim Dzielnik(2) As Byte
Dim Flaga_8ms As Bit
Dim Flaga_200ms As Bit
Dim Flaga_1s As Bit

Prztimer0:
Timer0 = 5
Set Flaga_8ms
Incr Dzielnik(1)
If Dzielnik(1) = 25 Then
Dzielnik(1) = 0
Set Flaga_200ms
Incr Dzielnik(2)
If Dzielnik(2) = 5 Then
Dzielnik(2) = 0
Set Flaga_1s
End If
End If
Return[/syntax]

Statystyki: Napisane przez Qume — 10 maja 2017, o 16:04