PaJa-trb  >  Konstrukce  >  Teploměr s DS18B20

paja@paja-trb.cz

Asi 8 let jsem využíval služeb venkovního teploměru s čidlem PT100 a sestaveného obvodu s 7107 a 7seg. displeji 14,2mm.
Nevýhodou byla špatná kalibrace (v domácích podmínkách hůře realizovatelné) a taky malý displej (přece jenom bez brejlí toho moc nevidím :-)
Proto jsem se rozhodl pro stavbu nového teploměru, tentokrát s digitálními čidly DS18B20 (které jsou kalibrovány od výrobce), displeji s výškou znaku 25mm, procesorem ATmega8 a jako bonbónek analogový teploměr z 5ks RGB LED, plynule měnící barvu a výšku sloupce dle teploty.
Rozsah teplot je od -55°C (testováno jen na -20°C) do 99°C (omezeno programem).

Funkce:
Jádrem celého teploměru je ATmega8 v SMD provedení. Po přečtení teplot z čidel a v závislosti na nastavení programu vyšle data na posuvné registry a zobrazí hodnotu na displejích. Zároveň si neustále hlídá intenzitu osvětlení z foto-odporu a podle toho spíná tranzistory T4 a T5, čímž přemostí diody D6 a D7 v sérii napájení +5V k společným anodám displejů. Snížením napětí (asi o 0,7 nebo 1,4V) klesne i jas a s tím i odběr proudu.
RGB teploměr je ovládán 3 kanály PWM regulací přes T1-T3 a spol. anody LEDek jsou spínány posuvným registrem IO5. I zde je jas svitu LEDek regulován, ale tentokrát pomocí PWM. Na regulaci jasu displejů už nezbyl na ATmega8 žádný volný PWM kanál, vyřešila by to volba výkonnějšího procesoru s vícero PWM kanály a menší úprava programu ... snad někdy.

Nastavení teploměru se prování pomocí 4 tlačítek.
V režimu zobrazování teploty mají tlačítka následující význam: SW2 - přepínání In/Out teploty (neaktivní v případě nastavení automatického střídání teploty)
SW3 - zobrazí Lo °C a po 0,5s MINimální naměřenou teplotu (při výpadku napájení se maže)
SW4 - zobrazí Hi °C a po 0,5s MAXimální naměřenou teplotu (při výpadku napájení se maže)

V menu mají tlačítka následující význam:
SW1 - vstup do menu, přeskočení položek nebo opuštění menu
SW2 - Enter - potvrzení zvolené hodnoty
SW3 - mínus - krok zpět
SW4 - plus - krok vpřed

• Tlačítkem SW1 se dostaneme do menu nastavení - zobrazí se SEt a čeká buď na další stisk SW1 - opustí menu nebo stisk SW4, čímž skočí na tEP
• tEP - stiskem SW2 zvolím, pak se zobrazí out°C, stisk SW4 in °C, stisk SW4 oboj - tedy vybírám si zobrazovanou teplotu. Při oboj se periodicky střídá zobrazení In a Out teploty po několika sekundách.
•   °C - stiskem SW2 zvolím, pak se zobrazí Ano°C, stisk SW4 Ne °C. Zde se vybírá (potvrzením SW2) zda se zobrazí znak °C. S jedinou vyjímkou, a to při záporné hodnotě např. -11.5 by s už znak nevešel na displej, proto se automaticky vypustí, ale stoupne-li teplota a uvolní se místo jednoho segmentu, tak se zase automaticky zobrazí °C
• LEd - stiskem SW2 zvolím, pak se zobrazí Ano , stisk SW4 Ne  . Zde se vybírá (potvrzením SW2) zapnutí RGB teploměru. (barvy jsou míchány dle náčrtku a počet rozsvícených LED je závislý na teplotě)

Zvolené hodnoty se ukládají do paměti a jsou aktivní i po výpadku napájení.

Konstrukce:
Teploměr je na jednostranné DPS s větším množstvím drátových propojek, hlavně pod displeji. Většina součástek je SMD, takže je potřeba pevná ruka a trocha trpělivosti při osazování, zvláště procesoru odporů k RGB LEDkám, kde pod nimi vedou i 2 cesty.
Pozor při osazení DIS4, ten je oproti ostatním otočený !!! Protože se na něm zobrazuje znak °C.
Kondenzátory jsem umístil naležato, aby nepřevyšovaly přes displej. Naopak tlačítka jsou vyvýšené pomocí pinů z precizní patice. Foto-odpor je taktéž připájený do úrovně displejů, aby líp zachytával intenzitu osvětlení.
Pod stabilizátor je třeba dát chladič (použil jsem kus hliníku a dopiloval dle okolních součástek), protože při maximálním osvětlení a zapnutých RGB LED s napájením 12V už celkem dost topí. To byl taky jeden z důvodů umístit čidlo vnitřní (In) teploty částečně ven z krabičky (vypilovanou dírou v levém horním rohu) a zajištěné tavným lepidlem. Protože poblíž stabilizátoru čidlo už po pár minutách snímalo i vyzařované teplo s chladiče a to značně zkreslovalo měřenou teplotu (klidně i o pár °C).
Použité RGB LEDky bylo potřeba přebrousit jemným šmirglem, mezi ně jsem umístil přepážky, aby se tolik nepřenášelo světlo k okolním LED a nakonec jsem je zalil do tavného lepidla, pro zmatnění a rozptylu barev.
Teploměr jsem umístil do krabičky Z 28 (KP 17), není sice úplně ideální (má zkosené díly, proto jsem je musel otočit, aby se krabička srovnala).
Displej je krytý kouřovým plexisklem a RGB teploměr mléčným plexisklem. Obě plexiskla přesně padnou do děr v krabičce a pro jistotu jsou zevnitř zakápnuta tavným lepidlem. Nakonec jsem na krabičku nalepil potištěnou samolepku přelepenou (mimo displej) ještě průhlednou samolepící fólií. Vnitřek písmene o v nápisu teploměr je vystřihnutý, protože za ním je foto-odpor snímající intenzitu osvětlení.
Teploměr by měl fungovat i při neosazení IO5, RGB LED a součástek okolo nich - ve schématu označeno fialovou čárou, ale nezkoušel jsem (nechtělo se mi odpájet součástky).

Spotřeba:
Napájení adaptér 12V/0,5A v sérii s 3x1N4007, odběr v závislosti na zobrazené teplotě a osvětlení (hodnoty jsou přibližné) ...
0,25A     5V     při plném osvětlení
0,15A     4,3V
0,05A     3,6V
 Při 5V a R=68ohm jde na segment displeje 16mA,    při 4,3V I=8,6mA    a při 3,6V I=3mA

Program:
Nelze rozhodně brát jako nějaké dílo hodné programátora, při čtení teploty z čidel jsem se inspiroval ze ukázkových programů Bascomu a internetu, zbytek je tak nějak poslepovaný (hlavně překombinované menu) aby to nějak fungovalo. Dokonce se mi povedlo zaplnit Atmegu8 až po strop.
Po zapnutí napájení se zobrazí na displeji PAJA (klasika u mých konstrukcí :-), procesor si osahá čidla a načte se teplota, která ovšem po zapnutí ukazuje na 85°C, proto je tam prodleva 1s, po které se pokračuje v normální činnosti. Toto je z důvodu nezobrazení a nezaznamenání této "blbosti" do Max teploty.
Hlavní program kontroluje stav tlačítek, pak jednou za 10 kontrol přečte teplotu z čidel, změří intenzitu osvětlení a dle nastavení zobrazí požadovanou teplotu a případně i RGB LED.
Dojde li k odpojení nebo poruše čidla za provozu, tak to program pozná a na displeji bliká Err1 nebo Err2
Při zobrazení program kontroluje zda je na místě desítek 0, jestli ano tak ji nezobrazí. Dál kontroluje zda se má zobrazit znak °C, to ještě za podmínky větší záporné teploty např. -12.5 tento znak automaticky vypustí (nevešel by se na displej) a při oteplení se zase automaticky vrátí.

Okomentovaný výpis programu pro teploměr z BASCOMu
'*********************************************************************** ' Digitální teploměr ' ' 2x DS18B20 (-55 až +125°C) ' v 1.0 (z 3.2.2011) ' ' Autor : Pavel Janík ' www.paja-trb.cz ' paja@paja-trb.cz ' '*********************************************************************** 'po prvnim zapnuti zobrazi Out teplotu + °C 'Tlac1 - vstup do menu nastaveni (po opetovnem stisku i rychly odchod z menu) 'Tlac2 - rychle prepinani In/Out i s ulozenim do pameti (neaktivni pri nastaveni automatickeho prepinani) ' - jinak Enter v menu 'Tlac3 - Lo - minimalni zobrazena teplota (kombinace In/Out) ' - jinak - v menu (krok zpet) 'Tlac4 - Hi - maximalni zobrazena teplota (kombinace In/Out) ' - jinak + v menu (krok vpred) '$sim '!!!Odstranit při programování - zrychlení simulace $regfile = "m8def.dat" 'Soubor s deklaracemi $crystal = 4000000 'Kmitočet oscilátoru v Hz $hwstack = 32 $swstack = 10 $framesize = 40 Declare Sub Cti_teplotu() Declare Sub Prepocitej() Declare Sub Preved() Declare Sub Zobraz() Declare Sub Osvetleni() Declare Sub Displej() Declare Sub Tlacitka() Declare Sub Rgb_teplomer() 'ovladani pos. registru Dat Alias Portc.2 Clk Alias Portc.4 Strobe Alias Portc.3 'vstupni tlacitka pro nastaveni Tlac1 Alias Pinc.5 Tlac2 Alias Pind.1 Tlac3 Alias Pind.2 Tlac4 Alias Pind.0 Config Portc.5 = Input Config Portd.1 = Input Config Portd.2 = Input Config Portd.0 = Input 'skokove ovladani jasu displeju Jas1 Alias Portd.6 'tranzistor zkratujici diodu do serie s +5V napajeni displeju Jas2 Alias Portd.7 Config Portd.6 = Output Config Portd.7 = Output 'data pro posuvne registry Dim Displej1 As Byte Dim Displej2 As Byte Dim Displej3 As Byte Dim Displej4 As Byte Dim Ledky As Byte Const Shift_delay = 20 ' shift delay in microseconds for 74HD595 Dim Cetlose As Byte Dim Opakuj As Bit Dim In_out_save As Eram Byte At 1 'hodnoty v EEPROM Dim Celsius As Eram Byte At 2 'hodnoty v EEPROM Dim Rgb As Eram Byte At 3 'hodnoty v EEPROM Dim In_out As Bit Dim Celsius_zobraz As Byte Dim Prepinac As Byte Dim A As Byte Dim B As Byte 'registry a nastaveni pro mereni teploty Dim W As Byte 'pocet nactenych cidel Dim Teplota As Word 'nactena a upravena teplota Dim Teplota_min As Word Dim Teplota_max As Word Dim Teplota_min_nula As Byte Dim Teplota_max_nula As Byte Dim Tep_nula As Byte 'inforamce zda je hodnota teploty - nebo + (11-minus, 10-plus) Dim Des As Word 'DESitky (most temperature digit) Dim Jed As Word 'JEDnotky (least temperature digit) Dim Tec As Word 'desetiny (fraction temperature digit) Dim Cty As Word ' °C nebo desetiny Dim N_tep As Word '1wire cidla DS18B20 Config 1wire = Portd.5 'cidla zapojena na PortD.5 (taky na +5V a Gnd) Dim Dsid1(8) As Byte 'Dallas ID 64 bits incl CRC Dim Dsid2(8) As Byte 'When used like this : DsId(1) = 1wread(8) 'DsId(1) = family code 'Ds1820 10h, DS18B20 28h, Ds18s20 10h 'DsId(2) '48 Bits Serial, LSB 'DsId(3) 'DsId(4) 'DsId(5) 'DsId(6) 'DsId(7) '48 Bits Serial, MSB 'DsId(8) '8 CRC Dim Sc(9) As Byte 'Scratchpad 0-8 72 bits incl CRC, explanations for DS18b20 'Sc(1) 'Temperature LSB 'Sc(2) 'Temperature MSB 'Sc(3) 'TH/user byte 1 also SRAM 'Sc(4) 'TL/user byte 2 also SRAM 'Sc(5) 'config also SRAM x R1 R0 1 1 1 1 1 - the r1 r0 are config for resolution - write FF to byte for 12 bit - others dont care 'Sc(6) 'res 'Sc(7) 'res 'Sc(8) 'res 'Sc(9) '8 CRC 'DALLAS DS18B20 ROM and scratchpad commands''''''''''''''''''''''''''1wwrite.... '&H 33 read rom - single sensor '&H 55 match rom, followed by 64 bits '&H CC skip rom '&H EC alarm search - ongoining alarm >TH <TL '&H BE read scratchpad '&H 44 convert T ' ------------- PWM ----------------------- Red Alias Pwm1a Blue Alias Pwm1b Green Alias Ocr2 Config Portb.1 = Output Config Portb.2 = Output Config Portb.3 = Output Config Timer1 = Pwm , Prescale = 8 , Compare A Pwm = Clear Down , Pwm = 8 , Compare B Pwm = Clear Down , Pwm = 8 Config Timer2 = Pwm , Prescale = 8 , Compare Pwm = Clear Up ' , Pwm = On 'Timer2 jako PWM, dělička = 8, při dosažení shody resetuj, PWM zapnuto Enable Timer1 'Used for 2 PWM channels Enable Timer2 'Used for 3rd PWM channel '--------------- ADC ---------------------- Dim Svit As Word Dim Svitx As Single Config Adc = Single , Prescaler = Auto , Reference = Avcc ' konfigurace AD převodníku Reset Jas1 'rozsvit displeje na plny jas Reset Jas2 Svit = 0 Cetlose = 0 Prepinac = 0 Red = 0 Green = 0 Blue = 0 Cls If In_out_save > 2 Then In_out_save = 0 If Rgb > 1 Then Rgb = 0 If Celsius > 1 Then Celsius = 1 'po zapnuti vysli na displej "tmu" a nezapinej RGB LED (vycistit zobrazovaci pole) a pak zobraz PAJA Displej1 = &B11111111 Displej2 = &B11111111 Displej3 = &B11111111 Displej4 = &B11111111 Gosub Displej Displej1 = &B01110000 'P Displej2 = &B01010000 'A Displej3 = &B00010111 'J Displej4 = &B01000001 'A Gosub Displej Waitms 400 '------------------------------------------------------------ W = 1wirecount() 'najdi pocet slave zarizeni (cidel) na lince ' Here I assume 2 sensors - no errorcontrol made, but would be easy to do with the "Err"-variable ' Getting the two sensors IDs. ' Sensor identified and stored in variable Dsid1(1) = 1wsearchfirst() If Dsid1(8) = Crc8(dsid1(1) , 7) Then ' Control that the received CRC match the calculated Displej1 = Displej1 And &B11101111 'je-li kontrola 1.cidla OK tak zobraz na Displeji 1 tecku Gosub Displej Waitms 300 Dsid2(1) = 1wsearchnext() If Dsid2(8) = Crc8(dsid2(1) , 7) Then Displej2 = Displej2 And &B11101111 'je-li kontrola 2.cidla OK tak zobraz na Displeji 2 tecku Gosub Displej End If End If 'prvotni nacteni "teploty", protoze je po zapnuti teplota cidla jako 85°C tak nacti, pockej 1s, nezobrazuj a vynuluj teploty Gosub Cti_teplotu Waitms 500 Teplota_min = 999 Teplota_max = 1 Teplota = 0 '======================= hlavni program =============================================== Do Gosub Tlacitka 'cte tlacitka - Menu Incr Cetlose If Cetlose = 10 Then '10x zkraceny cas pro cteni a zobrazeni oproti cteni stavu tlacitek Cetlose = 0 If In_out_save = 0 Then In_out = 0 'kdyz je ulozena hodnota 0 tak je aktualni venkovni OUT teplota If In_out_save = 1 Then In_out = 1 'IN vnitrni If In_out_save = 2 Then 'prepina IN/OUT po par sekundach Incr Prepinac If Prepinac >= 50 Then Toggle In_out Prepinac = 0 End If End If Gosub Osvetleni 'nacti intenzitu osvetleni a uprav jas displeje Gosub Cti_teplotu 'precti a uprav teplotu If Rgb = 1 Then Gosub Rgb_teplomer 'ma-li se zobrazovat RGB teplomer Gosub Zobraz 'zobraz teplotu a pripadne i povol RGB teplomer End If Waitms 100 Loop '============================================================================= Sub Rgb_teplomer() B = 0 A = 0 'upravi rozsah na teoreticky -100°C až +155°C (ale čidlo měří od -55°C do +125°C). 'součet desitek + jednotek B = Des * 10 B = B + Jed If Tep_nula = 11 Then B = 100 - B 'je-li pod nulou odečti teplotu od 100 (tj. záporná teplota třeba -15°C bude B=85) A = 10 - Jed Else B = B + 100 'posunutí hodnoty o 100° vejš ... 100 = 0°C A = Jed End If Select Case B Case 70 To 89 : Ledky = &B00010000 '-30 az -11 Red = 0 Green = 0 A = A * 3 Blue = 130 - A Case 90 : Ledky = &B00010000 '-10 Red = 0 Green = 5 Blue = 100 Case 91 To 99 : Ledky = &B00011000 '-9 az -1 Red = 0 A = A * 5 Green = 10 + A Blue = 100 - A Case 100 : Ledky = &B00011100 '0 Red = 0 Green = 55 Blue = 50 Case 101 To 109 : Ledky = &B00011100 '1 az 9 Red = 0 A = A * 5 Blue = 45 - A A = A * 2 Green = 60 + A Case 110 To 119 : Ledky = &B00011110 '10 az 19 A = A * 7 Green = 145 - A Red = 10 + A Blue = 0 Case 120 To 129 : Ledky = &B00011111 '20 az 29 A = A * 8 Red = 80 A = A * 2 If A < 70 Then 'zabrani preteceni (pri odectu napr. 70-100 by byla Green=225) Green = 70 - A Else Green = 0 End If Blue = 0 Case Is >= 130 : Ledky = &B00011111 '30 a víc Red = 155 Green = 0 Blue = 0 End Select 'V Zavislosti na osvetleni uprav intenzitu RGB LEDek Select Case Svit Case 0 To 50 : Red = Red / 6 'temno, hodnotu PWM / 6 Green = Green / 6 Blue = Blue / 5 Case 51 To 130 : Red = Red / 3 Green = Green / 3 Blue = Blue / 3 End Select End Sub '------------------------------------------------------------------------------ Sub Tlacitka() 'neboli MENU nastaveni 'stiskem tlac2 zmen zobrazeni In/Out (neplati pri stridavem zobrazeni In/Out) If Tlac2 = 0 Then If In_out_save = 0 Then In_out_save = 1 Else If In_out_save = 1 Then In_out_save = 0 End If End If Bitwait Tlac2 , Set Goto Konec End If '- minimalni teplota If Tlac3 = 0 Then Displej1 = &B00111101 'L Displej2 = &B00011110 'o Displej3 = &B11111111 Displej4 = &B11101000 ' °c Gosub Displej Bitwait Tlac3 , Set Waitms 500 Tep_nula = Teplota_min_nula 'byla-li minimalni zaporna, tak zobraz znamenko Teplota = Teplota_min Gosub Preved Gosub Zobraz Wait 1 Goto Konec End If '+ maximalni teplota If Tlac4 = 0 Then Displej1 = &B01010100 'H Displej2 = &B11011111 'i Displej3 = &B11111111 Displej4 = &B11101000 ' °c Gosub Displej Bitwait Tlac4 , Set Waitms 500 Tep_nula = Teplota_max_nula 'byla-li maximalni kladna, tak nezobrazuj znamenko Teplota = Teplota_max Gosub Preved Gosub Zobraz Wait 1 Goto Konec End If 'kdyz stiskunu Tlac1 dostanu se do MENU "SEt " (jinak ne) If Tlac1 = 0 Then 'menu Displej1 = &B10011000 'S Displej2 = &B00111000 'E Displej3 = &B00111100 't Displej4 = &B11111111 Gosub Displej 'zobraz na displeji Bitwait Tlac1 , Set 'cekej dokud se neuvolni tlacitko Menu '----------------------- Do Waitms 100 If Tlac1 = 0 Then Goto Konec 'stiskem MENU tlacitky prejdu na konec nastaveni If Tlac4 = 0 Then 'stiskem + se dostanu k nastaveni tEP Dal0: 'zobraz: tEP Displej1 = &B00111100 't Displej2 = &B00111000 'E Displej3 = &B01110000 'P Displej4 = &B11111111 Gosub Displej Bitwait Tlac4 , Set Do Waitms 100 If Tlac4 = 0 Then Goto Dal1 'nechcu-li nastavit tEP skocim na dalsi nastaveni °C If Tlac2 = 0 Then 'enter - vlezu do nastaveni tEP Zpet1: Displej1 = &B00011110 'o Displej2 = &B00011111 'u Displej3 = &B00111100 't Displej4 = &B11101000 ' °c Gosub Displej Bitwait Tlac2 , Set Do Waitms 50 If Tlac2 = 0 Then In_out_save = 0 'zobrazuj Out Goto Dal1 'kdyz potvrdi dohnotu Enterem tak ji ulozi a vyskkoci z nastavni tEP End If If Tlac4 = 0 Then Zpet11: Displej1 = &B11011111 'i Displej2 = &B01011110 'n Displej3 = &B11111111 Displej4 = &B11101000 ' °c Gosub Displej Bitwait Tlac4 , Set Do Waitms 50 If Tlac2 = 0 Then In_out_save = 1 'zobrazuj In Goto Dal1 End If If Tlac3 = 0 Then Goto Zpet1 End If If Tlac4 = 0 Then Displej1 = &B00011110 'o Displej2 = &B00011100 'b Displej3 = &B00011110 'o Displej4 = &B00010111 'J Gosub Displej Bitwait Tlac4 , Set Do Waitms 50 If Tlac2 = 0 Then In_out_save = 2 'zobrazuj In / Out po 5s Goto Dal1 End If If Tlac3 = 0 Then Goto Zpet11 End If Loop End If Loop End If Loop End If If Tlac1 = 0 Then Bitwait Tlac1 , Set Goto Dal1 End If Loop End If '----------------------------------- If Tlac4 = 0 Then Dal1: Displej1 = &B11111111 Displej2 = &B11111111 Displej3 = &B11111111 Displej4 = &B11101000 ' °c Gosub Displej Bitwait Tlac4 , Set Bitwait Tlac2 , Set 'pocka na uvolneni enteru pri potvrzeni a odchodu z predchozi polozky menu Do Waitms 100 If Tlac4 = 0 Then Goto Dal2 If Tlac2 = 0 Then 'enter Zpet2: Displej1 = &B01010000 'A Displej2 = &B01011110 'n Displej3 = &B00011110 'o Displej4 = &B11101000 ' °c Gosub Displej Bitwait Tlac2 , Set Do Waitms 50 If Tlac2 = 0 Then Celsius = 1 'zobrazuj °C Goto Dal2 'kdyz potvrdi dohnotu Enterem tak ji ulozi a vyskkoci z nastavni End If If Tlac4 = 0 Then Displej1 = &B01011110 'n Displej2 = &B00111000 'E Displej3 = &B11111111 Displej4 = &B11101000 ' °c Gosub Displej Do Waitms 50 If Tlac2 = 0 Then Celsius = 0 'ne zobrazuj °C Goto Dal2 End If If Tlac3 = 0 Then Goto Zpet2 End If Loop End If Loop End If If Tlac1 = 0 Then Goto Dal2 If Tlac3 = 0 Then Goto Dal0 Loop End If '---------------------------------- If Tlac4 = 0 Then Dal2: Displej1 = &B00111101 'L Displej2 = &B00111000 'E Displej3 = &B00010110 'd Displej4 = &B11111111 Gosub Displej Bitwait Tlac4 , Set Bitwait Tlac2 , Set 'pocka na uvolneni enteru pri potvrzeni a odchodu z predchozi polozky menu Do Waitms 100 If Tlac2 = 0 Then 'enter Zpet3: Displej1 = &B01010000 'A Displej2 = &B01011110 'n Displej3 = &B00011110 'o Displej4 = &B11111111 Gosub Displej Bitwait Tlac2 , Set Do Waitms 50 If Tlac2 = 0 Then Rgb = 1 'zobrazuj RGB teplomer a uloz hodnotu do pameti Goto Konec 'kdyz potvrdi dohnotu Enterem tak ji ulozi a vyskkoci z nastavni End If If Tlac4 = 0 Then Displej1 = &B01011110 'n Displej2 = &B00111000 'E Displej3 = &B11111111 Displej4 = &B11111111 Gosub Displej Do Waitms 50 If Tlac2 = 0 Then Rgb = 0 'ne zobrazuj RGB teplomer a uloz hodnotu do pameti Red = 0 Green = 0 Blue = 0 Goto Konec End If If Tlac3 = 0 Then Goto Zpet3 End If Loop End If Loop End If If Tlac1 = 0 Then Goto Konec If Tlac3 = 0 Then Goto Dal1 Loop End If Loop End If Konec: Bitwait Tlac1 , Set Waitms 50 'ochrana proti zakmitum Cetlose = 9 'urychli nacteni a zobrazeni teploty po odchodu z MENU End Sub '------------------------------------------------------------------------------- 'zmeri intenzitu osvetleni na fotoodporu a dle toho pak upravi intenzitu sviceni displeje (snizi napeti o 0,7 nebo 1,4V) Sub Osvetleni() Start Adc 'Zapněte ADC převodník Svit = Getadc(6) 'a načtěte hodnotu, kterou změřil převodník ADC 6 (vyvod 19): Svitx = Svit / 4.02 'prevede max. 1023 => na max 254 Svit = Svitx 'upraveny rozsah z 10bit na 8bit (0-254) Stop Adc Select Case Svit Case 0 To 50 : Set Jas1 Set Jas2 Case 51 To 130 : Reset Jas1 Set Jas2 Case 121 To 255 : Reset Jas1 Reset Jas2 End Select End Sub '------------------------------------------------------------------------------- Sub Cti_teplotu() 'teplota 1 1wreset ' reset the bus 1wwrite &HCC ' skip rom 1wwrite &H44 ' Convert T Waitus 200 : Waitus 200 : Waitus 200 : Waitus 200 'if you use 2-wire, could be reduced to 200us 1wverify Dsid1(1) 'Issues the "Match ROM " If Err = 1 Then Displej1 = &B00111000 'E Displej2 = &B01111110 'r Displej3 = &B01111110 'r Displej4 = &B11010111 '1 Gosub Displej Waitms 500 Elseif Err = 0 Then 'lcd " Sensor found" 1wwrite &HBE Sc(1) = 1wread(9) 'read bytes into array If Sc(9) = Crc8(sc(1) , 8) Then If In_out = 1 Then Gosub Prepocitej 'kdyz ma zobrazit IN tak nacti a preved hodnoty End If End If '--------------------- 'teplota 2 1wreset ' reset the bus 1wwrite &HCC ' skip rom 1wwrite &H44 ' Convert T Waitus 200 : Waitus 200 : Waitus 200 : Waitus 200 'if you use 2-wire, could be reduced to 200us 1wverify Dsid2(1) 'Issues the "Match ROM " If Err = 1 Then Displej1 = &B00111000 'E Displej2 = &B01111110 'r Displej3 = &B01111110 'r Displej4 = &B00100011 '2 Gosub Displej Waitms 500 Elseif Err = 0 Then 'lcd " Sensor found" 1wwrite &HBE Sc(1) = 1wread(9) 'read bytes into array If Sc(9) = Crc8(sc(1) , 8) Then If In_out = 0 Then Gosub Prepocitej End If End If End Sub '------------------------------------------------------------------------------ Sub Prepocitej() If Sc(2) > 127 Then 'kdyz je pod nulou tak je Sc(2) > 127, Tep_nula = 11 'informace o zaporne teplote (zaroven i kod z tabulky pro zobrazeni minusu) Toggle Sc(2) 'zneguj nactene hodnoty Toggle Sc(1) Teplota = Makeint(sc(1) , Sc(2)) 'kombinace MSB & LSB teploty Teplota = Teplota * 10 Teplota = Teplota / 16 'decimal format x10 Teplota = Teplota + 1 If Teplota > 999 Then Teplota = 999 Teplota_min_nula = 11 'pokud teplota klesna pod nulu, tak musi byt minumalni teplota vzdy pod nulou ! If Teplota_min < Teplota Then Teplota_min = Teplota If Teplota_max_nula <> 10 Then If Teplota_max > Teplota Then Teplota_max = Teplota End If Else Tep_nula = 10 'teplota nad nulou Teplota = Makeint(sc(1) , Sc(2)) 'kombinace MSB & LSB teploty Teplota = Teplota * 10 Teplota = Teplota / 16 'decimal format x10 If Teplota > 999 Then Teplota = 999 If Teplota_min_nula <> 11 Then If Teplota_min > Teplota Then Teplota_min = Teplota End If Teplota_max_nula = 10 If Teplota_max < Teplota Then Teplota_max = Teplota End If Gosub Preved End Sub '------------------------------------------------------------------------------- Sub Preved() Des = Teplota / 100 'desitky N_tep = Des * 100 Teplota = Teplota - N_tep Jed = Teplota / 10 'jednotky N_tep = Jed * 10 Teplota = Teplota - N_tep Tec = Teplota 'desetiny End Sub '------------------------------------------------------------------------------- 'zobrazeni polozek MENU a uvodniho PAJA Sub Displej() Ledky = &B00000000 'vypne RGB LEDky Shiftout Dat , Clk , Ledky , 0 , 8 , Shift_delay Shiftout Dat , Clk , Displej4 , 0 , 8 , Shift_delay Shiftout Dat , Clk , Displej3 , 0 , 8 , Shift_delay Shiftout Dat , Clk , Displej2 , 0 , 8 , Shift_delay Shiftout Dat , Clk , Displej1 , 0 , 8 , Shift_delay Waitms 1 Set Strobe Waitms 1 Reset Strobe Waitms 100 End Sub '------------------------------------------------------------------------------ Sub Zobraz If Des = 0 Then Des = 10 'zamezi zobrazovani zbytecne nuly 'pokud by hodnota zaporna teplota byla vetsi nez 10'C, tak zrus zobrazeni °C a posun displej doprava If Des <> 10 And Tep_nula = 11 Then Celsius_zobraz = 0 Else Celsius_zobraz = Celsius End If If Celsius_zobraz = 1 Then 'pokud jsou °C povoleny tak je zobraz .... Cty = 11 ' °c If Tep_nula = 11 Then Des = 11 'kdyz je pod nulou a teplota neni mensi nez -10°C tak nahrad zbytecne (vynechane) desitky minusem Else 'jinak posun zobrazeni doprava (taktez je-li zobrazeni °C zakazane) Cty = Tec Tec = Jed Jed = Des Des = Tep_nula 'je-li pod nulou tak zobraz minus End If Displej1 = Lookup(des , Tabulka_displej123) 'podivej se do tabulky, preved a uloz do displej1 Displej2 = Lookup(jed , Tabulka_displej123) Displej3 = Lookup(tec , Tabulka_displej123) Displej4 = Lookup(cty , Tabulka_displej4) If Celsius_zobraz = 1 Then 'zobraz desetinou tecku (podle posunu displeje) Displej2 = Displej2 And &B11101111 Else Displej3 = Displej3 And &B11101111 End If Shiftout Dat , Clk , Ledky , 0 , 8 , Shift_delay 'odesli data na posuvne registry 74HC595 Shiftout Dat , Clk , Displej4 , 0 , 8 , Shift_delay Shiftout Dat , Clk , Displej3 , 0 , 8 , Shift_delay Shiftout Dat , Clk , Displej2 , 0 , 8 , Shift_delay Shiftout Dat , Clk , Displej1 , 0 , 8 , Shift_delay Waitms 1 Set Strobe 'nastav Strobe Waitms 1 Reset Strobe Waitms 5 End Sub ' ==================================== Dekodavaci tabulky displeju z pos. reg. ======================================================================' Tabulka_displej123: '&Bxxx0xxxx - desetinná tečka edctbafg Data &B00010001 , &B11010111 , &B00110010 , &B10010010 , &B11010100 , &B10011000 , &B00011000 , &B11010011 , &B00010000 , &B10010000 , &B11111111 , &B11111110 ' 0 1 2 3 4 5 6 7 8 9 10 - tma 11 - minus Tabulka_displej4: '&Bxxxxxxx0 - desetinná tečka bafgedct Data &B00010001 , &B11010111 , &B00100011 , &B10000011 , &B11000101 , &B10001001 , &B00001001 , &B11010011 , &B00000001 , &B10000001 , &B11111111 , &B11101000 ' 0 1 2 3 4 5 6 7 8 9 10 - tma 11 °c ' Copyright (C) PaJa 2011 ' www.paja-trb.cz



Zde je návrh plošného spoje o rozměrech 127 x 71 mm.

Seznam použitých součástek :

R1-R6,8,11-17,
 19-25,27-32,34  - 68            SMD vel. 1206    (28ks)
R7,R9,35-37      - 4k7           SMD vel. 1206    (5ks)
R10,18,26,33,
 42,45,48,51,54  - 470           SMD vel. 1206    (9ks)
R38,R39          - 100
R40              - VT43N1        FOTO odpor
R41,44,47,50,53  - 220           SMD vel. 0805
R43,46,49,52,55  - 680           SMD vel. 1206
R56,57,59        - 10k
R58              - 10k           SMD vel. 1206
P1               - 5k            TRIMR - PT6V

C1-C4, C7-C10    - 100n          SMD vel. 1206    (8ks)
C5               - 470M/25V
C6               - 100M/16V  

T1-T3            - BC817          
T4, T5           - IRFD9120
D1-D5            - HB5-40ARAAGCABC (TME)  RGB LED - spol. anoda
D6, D7           - 1N4007        SMD 
DIS1-4           - HD-AA16RD     červený, 25mm, apol anoda
IO1-5            - 74HC595D      SMD - SO16
IO6              - 7805          + chladič
IO7              - DS18B20       TO-92
IO8B             - PSH02-03W  + protikus a na kablík druhé čidlo DS18B20
IO9              - MEGA8-16AU    TQFP32
ISP              - MLW06G

K1               - ARK500/2
SW1-SW4          - P-B1720       + piny z precizní patice na zvednutí tlačítek (16pinů)

---

---