Termometr na AVT3500

kioso · Post autor: **kioso** » 06 sty 2011, 14:14

Witam.
Gdy zaczął się kurs oślej łączki zmątowałem kit i zacząłem ćwiczyć. Na wyżyny się jednak nie wzniosłem. Później mój zapał ostygł. Teraz mam rodzinę i nie za bardzo czas na dalsze szlifowanie wiedzy. Chciał bym jednak praktycznie wykorzystać ten układ w roli termometru. Czy znajdzie się na tyle miła i wyrozumiała osoba żeby udostępniła mi taki program z wykorzystaniem jednego DS1820?

Dawid 95 · Post autor: **Dawid 95** » 06 sty 2011, 17:11

Tutaj jest całkiem oddzielny projekt ze schematem , programem itp. http://mirley.firlej.org/termometr_uniwersalny
Pod głównym programem są załączniki . Między innymi programy na procesor : attiny2313 oraz atmega8 , płytka itp.

kioso · Post autor: **kioso** » 08 sty 2011, 17:04

Jeżeli nikt mi nie pomoże z programem na płytkę testową 3500 z LCD to wezmę się za to.
Wielkie dzięki

Pikczu · Post autor: **Pikczu** » 08 sty 2011, 19:00

Witam jakis czas temu zrobiłem coś podobnego.
Zobacz na link ponizej
LINK
Zmień rodzaj procka, zmięń konfiguracjie portów, wytnij procedure obsługi DS-a z mojego koud, dodaj LCD.
Na dole w linku znjadziesz załącznik z wszytkimi potrzebnymi plikami.

kioso · Post autor: **kioso** » 10 sty 2011, 22:15

Dzięki za pomoc.
Napisałeś @#$%^&*() kod. Ale przeceniasz moje możliwości.

Pikczu · Post autor: **Pikczu** » 11 sty 2011, 21:32

Na ilu czujnikach chcesz zrobic ten termometr ?

kioso · Post autor: **kioso** » 12 sty 2011, 14:08

Na jednym

agrala · Post autor: **agrala** » 18 sty 2011, 11:23

Jeżeli jeszcze nie masz kupionego czujnika to podaje program na DS18B20 (nie mylić z DS1820)

Kod: Zaznacz cały

$regfile = "m32def.dat" 
$crystal = 16000000 


Config Lcdbus = 4 
Config Lcd = 16 * 2 
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2                                       ' konfiguracja wyświetlacza
Config 1wire = Porta.2                                      ' konfiguracja portu a.2 jako 1wire
Dim I As Integer                                              'zmienne do odczytu temp. 
Dim S As Single 
Dim T As String * 4 

Deflcdchar 0 , 6 , 9 , 6 , 32 , 32 , 32 , 32 , 32           ' znak stopnia 

Cursor Off 
Cls 
                                             
Do 

   1wreset 
   1wwrite &HCC 
   1wwrite &H44 
   Waitms 750 

   1wreset 
   1wwrite &HCC 
   1wwrite &HBE 

   I = 1wread(2) 
   S = I / 16 
   T = Fusing(s , "##.#") 

   Locate 1 , 1 
   Lcd "Temp:" ; T ; Chr(0) ; "C" 

Loop

Zmień tylko dyrektywę procesora ($regfile = "m32def.dat") na procesor jaki stosujesz.
Skonfiguruj piny pod jakie dajesz wyświetlacz, rodzaj wyświetlacza (Config Lcd = 16 * 2) i pin pod jaki podłaczysz magistarle 1wire czyli środkową nóżkę czujnika (Config 1wire = Porta.2 ).

kioso · Post autor: **kioso** » 19 sty 2011, 0:17

Zakupiony i jest to 1820. Czy dużo to zmienia?

agrala · Post autor: **agrala** » 19 sty 2011, 6:19

W załączniku masz programy na DS18B20 i DS1820.

kioso · Post autor: **kioso** » 20 sty 2011, 0:36

Dziękuje. Wygląda bardzo obiecująco i myślę że będzie wszystko OK. W weekend się tym zajmę i dam znać jak poszło

mdm150 · Post autor: **mdm150** » 20 sty 2011, 15:38

Ello

agrala
Mam do Ciebie pytanko jak zrobić termometr dwupunktowy na atmedze8 +lcd 2x16? Z pisaniem programow puki co jestem na bakier.

agrala · Post autor: **agrala** » 20 sty 2011, 16:52

mdm150 pisze:Ello
agrala
Mam do Ciebie pytanko jak zrobić termometr dwupunktowy na atmedze8 +lcd 2x16? Z pisaniem programow puki co jestem na bakier.

Pobierz załącznik który wstawiłem wcześniej. Jest tam kilka programów, m.in. na dwa DS18B20 i wyświetlacz LCD. Musisz tylko skonfigurować rodzaj wyświetlacza bo nie widze żeby tam był zdefiniowany.

Kod: Zaznacz cały

Config Lcd = 16 * 2

Wyświetlacz podłączasz pod piny podane w programie lub zmieniasz w programie na takie pod które się podłaczyłeś.
Nie wiem czy te programy z załacznika są dobre gdyż nie są mojego autorstwa i ich wcześniej nie używałem.

mdm150 · Post autor: **mdm150** » 20 sty 2011, 17:38

Dzięki, jak dorwę czujniki to poeksperymentuje.