mam problem najprawdopodobniej z timerami.
poniższy kod obsługuje LCD- tu wszystko OK.
Czujnik Ds18B20- wszystko OK
Dwa przyciski, jeden to Start/Stop, drugi Reset.
Urządzenie ma za zadanie:
1. mierzyć temperaturę
2. po naciśnięciu przycisku Start/Stop, wyświetlić Temperaturę ustaloną (ostatni pomiar), całkowity czas pomiaru, i stała czasową tał.
Problem polega na tym, że timer0 odmierza sobie odstępy czasu co 1 s. I jak zliczy sobie załóżmy 58 s to pojawia się nagle "-1s", i od tej chwili chyba wykonanie kodu się jakoś zapętla i przyciski nie reagują na wciśniecie. Temperatura jest nadal mierzona prawidłowo i czas jest dalej mierzony od -1s. To nie zdarza się konkretnie w 58 sekundzie pomiaru ale całkowicie przypadkowo czasem już po 1 sek, czasem dopiero po 100s, jednak dzieje się to za każdym razem.
Proszę bardziej doświadczonych kolegów o analize kodu i pomoc w wyeliminowaniu błędu, bo nie wiem na czym on dokładnie polega.
Dodam tylko, że kod jest testowany na Atmedze 644p 16MHz, docelowo ma to pracować na Atmedze 8l-8 Mhz.
[syntax=basic4gl]'$regfile = "m8def.dat" 'rejestry mikrokontrolera atmega8
$regfile = "m644pdef.dat"
'$crystal = 8000000 'częstotliwość taktowania mikrokontrolera
$crystal = 16000000
Config Lcd = 16 * 2 'konfiguracja LCD
Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portc.6 , Rs = Portc.7 'konfiguracja pinów LCD
Cursor Off Noblink 'wyłączenie kursora LCD
Deflcdchar 0 , 32 , 32 , 32 , 31 , 4 , 4 , 5 , 3 ' znak stałej czasowej tał (0)
Config 1wire = Pind.4 ' konfiguracja magistrali 1-wire
Dim Lsb As Byte , Msb As Byte , T As Single , S As String * 6 ' Deklaracja zmiennych
Dim L As Single , K As String * 6
Config Pind.2 = Input 'Pind.2 jako wejście
Config Pind.3 = Input 'Pind.3 jako wejście
Config Timer0 = Timer , Prescale = 64 'deklaracja timera0 jako czasomierza z prescalerem 64
Config Timer1 = Timer , Prescale = 256 'deklaracja timera1 jako czasomierza z prescalerem 256
Config Watchdog = 256 'konfiguracja Watchdog, czas oczekiwania 256 msek.
Reset Watchdog ' zerowanie licznika Watchdoga
Start Watchdog ' start Watchdog
On Timer0 Przerwanie_co_2ms 'deklaracja jaka etykieta obsługuje przepełnienie od timer0
On Timer1 Przerwanie_co_1s ' deklaracja jaka etykieta obsługuje przepełnienie od timer1
Set Pind.2 'ustawiwnie stanu wysokiego na PIND.2
Set Pind.3 'ustawiwnie stanu wysokiego na PIND.3
Dim Licznik As Integer 'Deklaracja zmiennej Licznik
Dim Licznik2 As Integer 'Deklaracja zmiennej Licznik2
Dim Licznik3 As Integer 'Deklaracja zmiennej Licznik3
Dim Czas As Integer 'Deklaracja zmiennej Czas
Dim P_p As Word 'Deklaracja zmiennej P_p
Dim P_p2 As Word 'Deklaracja zmiennej P_p2
Enable Interrupts 'odblokowanie globalnych przerwań
Enable Timer0 'odblokowanie przerwania od przepełnienia timer0
Enable Timer1 'odblokowanie przerwania od przepełnienia timer1
Reset Timer0
Reset Timer1
Timer0 = 6 'wpisanie wartości początkowej 6 do timera,czyli timer będzie zliczał 250 (256-6) impulsów
Timer1 = 34286 'wpisanie wartości początkowej 34286 do timera1,czyli timer będzie zliczał (65536-34286) impulsów czyli 31250 impulsów
Licznik = 0 'wyzerowanie zmiennej Licznik
Licznik2 = 0 'wyzerowanie zmiennej Licznik2
Licznik3 = 0 'wyzerowanie zmiennej Licznik3
Czas = 0 'wyzerowanie zmiennej Czas
Cls 'wyczyszczenie LCD
Do 'pętla główna pprogramu
'pętla: Jeżeli licznik3=1 to
If Licznik3 = 1 Then ' w gornej lini LCD
Reset Watchdog ' zerowanie licznika Watchdoga
Upperline ' wyświetl temperaturę ustaloną
Lcd " Tust. " ; S ; ' w dolnej lini
Lowerline ' całkowity czas pomiaru oraz wartość stałej czasowej
Lcd "Czas " ; Czas ; "s " ; Chr(0) ; " " ; K
Else ' jeżeli licznik3 nie rowna się 1 to
Reset Watchdog
Upperline ' w górnej lini LCD
Lcd "Temp. " ; ' wyświetl napis Temp.
Lowerline 'w dolnej lini LCD
Lcd "Czas " ; Czas ; "s" ' wyświetl aktualnie odmierzony czas
End If ' koniec petli If
If Licznik3 > 2 Then
Licznik3 = 0 'zerowanie licznika 3 jeżeli jego wartość jest większa od 2
End If
'//////////////////Pomiar temperatury////////////////////////////////////////////////////////////////////////////////////////////////////////////////
1wreset 'wysyłanie sygnał resetu i inicjalizacji magistrali,
1wwrite &HCC 'wysyłanie rozkazu Convert T, który powoduje dokonanie pomiaru
1wwrite &H44
If Licznik2 > 0 Then 'pętla wykonywana co 1 sekundę potrzebna na wykonaie konwersji pomiaru przez DS18B20
Reset Watchdog ' zerowanie licznika Watchdoga
1wreset 'reset magistrali 1-wire
1wwrite &HCC 'pominięcie identyfikacji czujnika
1wwrite &HBE 'wysłanie rozkazu Read scratchpad, który powoduje, odczyt danych z magistrali 1-wire
Lsb = 1wread() 'odczyt niższego bajtu danych
Msb = 1wread() 'odczyt wyższyego bajtu danych
T = Msb * 256 'obliczenia zmiennej T
T = T + Lsb
T = T / 16 'obliczenia zmiennej L
L = 63 / 100
L = T * L 'dokonujemy konwersji danych na format tupu Single
' koniec pętli If
If Msb.7 = 1 Then
T = T - 4096 'sprawdzamy bit znaku (1-liczba ujemna, 0-liczba nieujemna) i w przypadku liczb ujemnych dokonujemy korekty wartości
End If
S = Fusing(t , "#.##") 'formatujemy dane aby były wyświetlane ze znakiem także dla wartości ujemnych
S = Format(s , "+00000")
K = Fusing(l , "#.##") 'formatujemy dane aby były wyświetlane ze znakiem także dla wartości ujemnych
K = Format(k , "00000")
Upperline 'wyświetlnie temperatury w górnej lini LCD
Lcd "Temp. " ; S
Licznik2 = 0
End If
'////////////////////////////////////////// Obsługa klawiszy///////////////////////////////////////////////////////////////////////////////////////////
If P_p = 0 And Pind.2 = 0 Then 'obsługa przycisku Start/Stop
P_p = 1
Stop Timer0 'zatrzymanie timera0
Stop Timer1 'zatrzymanie timera1
Incr Licznik3 'zwiększenie wartości Licznika3 o 1
Else
If P_p = 1 And Pind.2 = 1 Then
For P_p = 1 To 255 'eliminacja drgań styków
Incr P_p
Next P_p
If P_p = 257 Then
P_p = 0
End If
End If
End If
If P_p2 = 0 And Pind.3 = 0 Then 'obsuga klawisza Reset
P_p2 = 1
Czas = 0 'wyzerowanie zmiennej Czas
Incr Licznik3 'zwiększenie wartości Licznika3 o 1
Cls ' wyczyszczenie ekranu
Else
If P_p2 = 1 And Pind.3 = 1 Then
For P_p2 = 1 To 255 'eliminacja drgań styków
Incr P_p2
Next P_p2
If P_p2 = 257 Then
P_p2 = 0
End If
End If
End If
If Czas = 0 And P_p = 1 Then ' pętla if
Cls ' czyszczenie ekranu
Start Timer0 ' start TIMER0
Start Timer1 ' start TIMER1
End If 'koniec pętli If
Reset Watchdog ' zerowanie licznika Watchdoga
Loop 'koniec pętli Do
End 'koniec programu
'/////////////////////////////////////////////////////////Koniec programu//////////////////////////////////////////////////////////////////////////////
Przerwanie_co_2ms: 'podprogram przerwania od przepełnienia timer0 wywoływanego co 2 ms
Timer0 = Timer0 + 6 'ustawienie początkowej wartości timera0 poprzez dodanie do niego wartości 6 (odliczone zostanie dokładnie kolejne 250 impulsów)
Incr Licznik 'zwiększenie licznika
If Licznik = 500 Then 'jeśli zmienna Licznik równa się 500 (czyli odliczone zostało 500*2ms=1sek), to
Incr Czas ' zwiększ zmienną Czas oraz
Licznik = 0 'wyzeruj zmienną licznik
End If 'koniec pętli IF
Return ' powrót do programu
'podprogram przerwania od przepełnienia timer1 wywoływanego co 1 s
Przerwanie_co_1s:
Timer1 = Timer1 + 34286 'ustawienie początkowej wartości timera1
Incr Licznik2 ' zwiekszenie wartości licznika2 o 1
Return ' powrót do programu[/syntax]Statystyki: Napisane przez Buczek — 30 gru 2013, o 00:19
]]>