[ATMEGA8][BASCOM] - Termostat. Pomiar temperatury w przerwaniu.

Nie wiem czy chcesz się nauczyć czy potrzebujesz program.

Na początek te uwagi:
1. Nie wiem co tam robi dyrektywa $eeprom. Jest niepotrzebna w tym kodzie
2. Zmienna Ds jest zwiększana w przerwaniu niezależnie od tego czy jesteś w Menu czy nie. Tak więc po powrocie z Menu już na pewno nie zdążysz załapać się na warunek If Ds = 2 i wyzerować jej wartość.
3. Korzystasz z GoTo to bardzo nierozważne. GoTo używa się tylko do przeskoczenia linii kodu które nie chcesz żeby się wykonały jeśli zaszedł jakiś warunek.

Poniżej przepisany program.
Używa CTC i zapisuje do eeproma. Przy starcie czyta z eeproma.


Miłego dnia

Kod wydaje się sprawować prawidłowo. Przecinek jest względny.
Operacje na zmiennych z przecinkiem są męczące dla mikrokontrolera. Jesli nie jest to konieczne to należy ich unikać. Zauważ że sam DS nie wysyła Single tylko Integer. Każda zmienna z jednym miejscem po przecinku pomnożona przez dziesięć da liczbę całkowitą.
Tutaj przecinek jest "wirtualny" i domalowany przez funkcję FORMAT

Z przykładowej wartości 371 zrobi na wyświetlaczu 37,1
Dlatego regulacja o 1/10 stopnia czyli 0,1st realizowana jest przez dodanie albo odjęcie jednynki.

Jeśli zmienna Termostat ma być regulowana z dokładnością 0,1st to ten zapis

trzeba zamienić na

To samo z odejmowaniem.
Uznałem że regulacja taka byłaby długotrwała.
Dodatkowo kilka cyferek możesz dostosować do swoich potrzeb.

Bez problemu można zrobić szybsze przestawianie o stopień przy dłuższym naciśnięciu a o 0,1st przy krótkim naciśnięciu, ale zostawiłem coś Autorowi
Nie ruszałem też drugiego przekaźnika.
Mój kod jest nawet o 10% mniejszy mimo iż ma więcej funkcji wiec możesz dopisać co tam potrzebujesz.

Pod tym linkiem możesz zobaczyć też inny kod do termostatu wylęgarni który pomagałem przerobić Link
(na samym końcu jest w pełni działający kod)

Gdybym opisał program wszystko stałoby się oczywiste

Użycie IF ELSE bez END IF zawsze warte jest omówienia bo potem nikt nie może się doliczyć END IF

Chodzi o to że jeśli tylko jedna instrukcja jest od jakiegoś warunku zależna to można ją zapisać w jednej linii. Jeśli z powodu jakiegoś warunku musza juz być zmienione dwie zmienne lub wykonać się dwie instrukcje to już musisz to rozpisać w wielu liniach. Tak więc możesz napisać

Jest to jednak niepotrzebne bo można to zapisać tak:


Jeśli jednak A ma być wyzerowane i ma się stać coś jeszcze to juz musisz to rozpisać na wiecej linii.


Teraz dopiero dodam że można jeszcze coś dodać w tej jednej linii jeśli warunek nie jest spełniony. I również można tam zapisać tylko jedną instrukcję.
Można więc zapisać coś takiego

Co oznacza zwiększaj A jeśli mniejsze od 4

Jeśli jednak jest dużo IF to można się gubić...Jest na to sposób
Jeśli cokolwiek jest zapisane za wyrażeniem "Then" znaczy ze jest to zapis w jednej linii i nie potrzebuje "End If" oraz...co jest ważniejsze, instrukcje pod tą linią nie są już objęte IF`em

Wracając do pierwszego pytania

Ten zapis tworzy granicę do której można podnieść wartośc zmiennej.
Znaczy "Tylko jeśli jeszcze zmienna nie ma 400 to dodaj jeden" Jeśli juz ma 400 to nic się nie doda.
Takie zabezpieczenie stosje się tym częściej im mniejsza jest zmienna. Na przykład Bajt

Stosuje się dlatego że po dodaniu 1 do 255 wartość wynosiłaby znów 0.

Moim zdaniem dużo ciekawszy jest ten zapis

Pomyśl jakie wartości sa w komórkach Eeproma po programowaniu.
Cała pamięć ma wartości FF FF FF FF FF
Czyli po włączeniu pierwszy raz czytana jest temperatura i wynosi....65535 (FF FF)
Dlatego zapis że jeśli temperatura odczytana z Eeproma wieksza niż "typowa" to przyjmij bezpieczna wartość.
To samo jest dla wartości typu Byte. Odczytana ze "świeżego" Eeproma wynosi 255.
Nie chcę zaciemniać, ale dla Integer trzeba innego zapisu

Wracając do pytań. Status to sposób na rozpoznanie w każdym miejscu programu co akurat się dzieje w programie. Ciekawsze są jednak te stałe

Kiedy napiszesz że

..to w całym programie możesz używać "Normal" albo "Term"
Ty wiesz dokładnie w jakim stanie jest program, możesz też w każdym miejscu programu zmienić stan na jakiś z tych wcześniej zapisanych...a mikrokontroler widzie to tak : Status = 2

Ty piszesz If Status = Normal a mikrokontroler widzi If Status = 0
Piszesz Status = Hist a mikrokontroler sobie zapisuje Status = 1

Nie do końca wiem co Ci się nie wyświetla ale napiszę że nie wysyła się ciągle tego samego w pętli na wyświetlacz jeśli nic się nie zmieniło. To byłby bezsens.
Stosuje się więc zabieg:
Jeśli coś jest do wyświetlenia to to wyświetl i gotowe. To że cos jest do wyświetlenia pokazuje zmienna Refresh.
W przypadku zegarków, na przykład, taka Refresh jest ustawiana co sekundę i wtedy zmieniają się sekundy na LCD ale tylko raz na sekundę..bo po co częściej.

..ale gdy jesteś w menu to odświeżanie co sekundę mogło by być zbyt wolne. Dlatego gdy jakaś wartosć się zmieniła bo ją ustawiasz to ustawiasz też zmienną Refresh = 1
Wtedy od razu nowa wartość pokaże się na LCD.
Czyli wyświetlacz jest odświeżany kiedy coś się zmieniło i musi być pokazane.
Jesli Refresh = 1 to jest od razu kasowane Refresh = 0 ..ale dalej program analizuje co ma pokazać. patrzy jaki jest Status i wybiera co pokazać.
W zależności co chcesz osiągnąć czasem potrzebne jest Cls ale pod przyciskiem nie w pętli.

To nie jest jakiś superprogram tylko przerobiony troche Twój

Można go jednak rozbudowywać dalej w ten sposób. Prawdopodobnie to co chcesz osiągnąć da się zrobić dopisując



..pewnie o czyms zapomniałem ale dokombinujesz

EDIT: Nie wszystkie przykłady są trafione. czasem żeby cos wytłumaczyć trzeba się zastanowic jak to powiedzieć.
Kazdy kod można zoptymalizować.
Przedtem pisało If Zmienna < 400 Then Zmienna = Zmienna + 10 i dlatego taki zapis.
W przypadku jedynki można po prostu napisać
If Zmienna < 400 Then Incr Zmienna

Tak samo przykład dla Else
If A = 1 Then Idź tam Else Idź gdzieś indziej i takie tam niuanse

Napisałeś że spieszy o 1,5s ale nie w jakim czasie. Jeśli 1,5s na minutę to zobacz obliczenia pod Timerem. Coś tam poprawiłem. Rezonator i tak będzie czuły na zmiany temperatur, ale możesz próbować to dostroić.

Zmieniłem lekko obliczanie watogodzin. Powinno już po 5 min pokazać 0,01kWh

Dodałem też szybkie kasowanie alarmu z automatycznym powrotem jeśli temperatura wróci do normy.


Nie testowałem Może coś trzeba poprawić.

EDIT. Wsród wiekszej ilości projektów można zapomnieć który pracuje na wewnetrznym oscylatorze. Tam można regulować OSCCAL

No o godzinie #9 06 Kwi 2015 05:47 człowiek powinien wstawać a nie dopiero się kłaść

Proszę. Takie rzeczy to przy kawie. Masz nawet możliwość przerwania odliczania
Na samym końcu wpadłem na pomysł żeby dodać ikony termometrów przed odczytami, ale zostawiłem coś Tobie



Miłego dnia

Pamięć Eeprom może się wysypać przy zasilaniu nie gwarantującym poprawnej pracy mikrokontrolera.
Raz w moim sterowniku też Eeprom się posypał podczas burzy kiedy napięcie sieciowe przerywało bo wiatr szarpał przewody.

Wtedy dopiero doczytałem o bitach konfiguracyjnych BODLEVEL i BODEN
Można je tak ustawić, że mikrokontroler będzie utrzymywany w stanie RESET jeśli napięcie jest niższe niż 2,7V albo 4V - piszę o Atmega8.
Tak wiec po włączeniu zasilania mikrokontroler poczeka aż napięcie będzie wynosić 4V i to powinno rozwiązać obydwa Twoje problemy/pytania.

Bity BODEN i BODLEVEL powinno się ustawiać zawsze gdy pracuje się z pamięcią Eeprom.
Co do bezpieczeństwa kurczaków..sprawdziłbym co się stanie jeśli zaszwankuje okablowanie któregoś z czujników
Mogę to oprogramować w wolnej chwili łącznie z Watchdogiem

P.S. Sprawdź prywatną wiadomość