www.elektronik.si

[stursc]

Pozdravljeni

V aplikaciji berem temperature 5-tih senzorjev DS1820
V primeru nebranja ID senzorja bi rad dobil podatek o tem iz podatka ERR.
Če iz aplikacije odstranim vsej 5 senzorjev, dobim podatek ERR=1, če pa imam priklopljen samo en senzor je pa ERR podatek za vse senzorje- Seer=0.
Podatke bi rad zajemal v spremenjivki Serr(5) za vsak senzor posebej, vendar mi to nikakor ne uspeva.
Prosim za kak namig - rešitev tega problema
V prilogi je trenutno uporabljen način zajemanja ERR podatka, ki se odvija vsako minuto.
Hvala

LP, stursc

[aly]

Predvidevam, da dobiš podatek ERR iz ukaza "RESET one wire bus".
Ta ukaz se izvede na začetku vsakega paketa, še preden senzorje kličeš po IDjih.
Če je na vodilu vsaj en senzor, se na reset odzove z "0". Če je na vodilu več senzorjev, se odzovejo vsi z "0".

Tako da tega ne moreš uporabiti za identificiranje dotičnega senzorja.

Če senzor je in če deluje pravilno, ugotoviš tako, da pošlješ reset, pošlješ ID in prebereš Scratchpad in preračunaš CRC. Če se ujema, potem je s senzorjem in komunikacijo vse ok. Enako za vsakega.

[vilko]

Imel sem nekoč problem, tudi 4 ali 5 senzorjev na enem 1wire busu, dela odlično dan ali dva, potem ne dobim nobene temperature več, vse je v errorju. karkoli sem naredil na busu, je bilo v errorju.

Potem sem za vsak termemeter določil en pin, in vsakega bral na svojem senzorju, spet dela nekaj časa, potem pa samo eden termometer štrajka, in ne dela.

Potem sem zamenjal defektni termometer, in sedaj dela že nekaj mesecev.

Ker sem kontkatke termometra lotal na žičke in čez dal skrčljive špagete, sumim, da sem tistega enega mora z vžigalnikom pregrel, ko sem ogreval špagetke. Od takrat vedno kadar segrevam skrčljive špagetke blizu integriranih vezij, primem samo veze s ploščatimi kleščami, da jih hladim, med tem ko segrevam špagetke.

[Silvo]

Visokonivojskih jezikov, s katerim je napisan gornji košček kode ne poznam. Lahko pa potrdim tisto, kar je že napisal Aljaž. Vsi senzorji, ki so priključeni na 1Wire vodilo se odzivajo na reset, katerega razumejo kot nizko stanje vodila v trajanju ca 480-960 S, z nizkim stanjem v dolžini do 240 S od časa, ko CPU vodilo sprosti, na kar vodilo sprostijo. Z danih informacij lahko izberemo, če je sploh kaj priključeno na vodilo ter ali je vodilo (ali senzor) slučajno v kratkem stiku. Okvaro ali prisotnost dotičnega senzorja za katerega poznamo ID pa lahko preverimo le z branjem CRC-ja.
Osebno sem DS1820 kar dosti uporabljal. (med drugim je z njimi bila razvita ena idustrijska aplikacija, ki se še vedno izdeluje. Senzorji delujejo izredno zanesljivo.) Osebno prilotam 100n smd kondezator neposredno na pine. Senzorje pa zaščitim z termo bužirko, ki vsebuje lepilo. Tak senzor se lahko brez škode namoči v vodo.

[stursc]

Pozdrav

@aly :Če senzor je in če deluje pravilno, ugotoviš tako, da pošlješ reset, pošlješ ID in prebereš Scratchpad in preračunaš CRC. Če se ujema, potem je s senzorjem in komunikacijo vse ok.

To je verjetno tudi najboljša rešitev le izvedba se mi nikakor "ne posveti"
Sedaj sem v ta namen uporabljal ukaz "če je temperatura 0 (nič)" kot simulacijo nedelovanja senzorja, ker pa nekatere koristim kot protizmrzovalno zaščito, kjer naj bi bila uporabna temperatura 0 (nič).
Ni mi jasno kako prebrati ID posameznega senzorja, če je na 1wire priključenih več senzorje. Če obstoja ta rešitev potem bi tudi moja rešitev bila preprosta.
ID posameznega senzorja hranim v eepromu in jih vnašam tako, da je pri vnosu ID-ja priklopljen le dotični.

@Silvo:Okvaro ali prisotnost dotičnega senzorja za katerega poznamo ID pa lahko preverimo le z branjem CRC-ja.
Kako to izvesti ?? bolj po "kmečko", da bom razumel

V prilogi je del kode za branje, ki je sedaj v uporabi


LP, stursc

[Highlag]

Sam sem najprej napisal programček, ki je na LCD-ju izpisal kodo posameznega senzorja, ko je le ta samostojno priključen.

Potem sem te kode uporabil v programu.
Drugače se to verjetno ne da narediti, ker če narediš poizvedbo, ko so priključeni vsi senzorji, odgovorijo vsi hkrati in ni možno razbrati kod posameznih senzorjev.

[robika]

[int47]

[aly]

[stursc]

Hvala aly !
Ostajam pri dosedanji zaščiti,kako stopinjo višje, pa bo !


@robika :Žal ne morem te kode uporabno pretvorit za AVR-je, pa sem poskušal vse živo
Vsekakor boš moral AVR-ju povedat kaj bo kateri pin - AOUTPUT ali INPUT
potem bi pa znalo delovati, saj ti že sam prevajalnik pove, da nekaj ne štima !


LP, stursc

[Silvo]

[int47]

@aly
Bascom ima funkcijo za iskanje že napisano. Samo poklicati jo je treba (in pogledati v dokumentacijo, kako se uporablja).

EDIT: Primer uporabe search funkcije.

[stursc]

Silvo, hvala. Asembler poznam zelo slabo, bolje rečeno ne poznam.
Bo poskušal kaj ugotoviti v Bascom-AVR, dokler bo pa zaščita kot je bila že sedaj
2 leti.
Če bo ratalo bom pa poročal !

Hvala vsem za odziv.


Lp, stursc

[stursc]

Spisal proceduro za 1wsearch.
Stvar res deluje, vendar, kot je napisal aly - ne priporočam.
Ne vidim uporabne možnosti.
Če dotičnega senzorja ni bere naslednjega, če odstranim vse bere zadnjega.
Torej, branje izvrši enkart in podatki ostanejo RAM-u do reseta.
Kateri senzor bo prvi prebran je pa vprašanje.
V mojem primeru ta sistem kontrole nima funkcije



LP, stursc

[robika]

Jaz s tistim programčkom, ki je pripet malo višje preberem naslove vsakega posameznega senzorja, nato pa to vpišem v kodo na sledeči način:

Rem /////////////////////////
'Read Address 1
Sub Srno1 'branje adrese
For I = 0 To 7
Ar(i) = Lookup(i , Dta1)
Next
End Sub


Rem /////////////////////////
'Read Address 2
Sub Srno2 'branje adrese
For I = 0 To 7
Ar(i) = Lookup(i , Dta2)
Next
End Sub

'//////////////////////////////////


Dta1: 'naslov 1
Data 16 , 106 , 205 , 60 , 0 , 8 , 0 , 21 'kotel
Dta2:
Data 16 , 153 , 221 , 64 , 0 , 8 , 0 , 248 'kolektorji

Ravno ta del programa za uporabo z AVR-jem, nikakor ne uspem usposobit, dočim na AT89S8252 ali AT89C4051 dela brez problema.

Lp