Svet elektronike

[Boštjan]

Imam naslednjo kodo s kadero berem tri senzorje DS1820 vsakega na sojem pinu, kot ste mi svetovali. Težava se mi pojavi, ker je pri meritvi potreben waitms 600 ukaz . Zraven temperatur prikazujem na LCD_ju še čas s sekundami, vendar mi zaradi teh zakasnitem ne prikazuje lepo tekoče sekund, ampak vsako drugo sekundo. Se da kaj tukaj naredit?

Meritev_temp1:
1wwrite &HCC , 1 , Pina , 5
1wwrite &H44 , 1 , Pina , 5
Waitms 600
Gosub Read1820_1
If Err = 1 Then
Locate 2 , 1 : Lcd "T1: " ; "NO SENSOR "
Else
Locate 2 , 1 : Lcd "T1: " ; T1_1 ; Chr(0) ; "C" ; " "
End If
Return
'-------------------------------------------------------------------------------
Meritev_temp2:
1wwrite &HCC , 1 , Pina , 6
1wwrite &H44 , 1 , Pina , 6
Waitms 600
Gosub Read1820_2
If Err = 1 Then
Locate 3 , 1 : Lcd "T2: " ; "NO SENSOR "
Else
Locate 3 , 1 : Lcd "T2: " ; T2_1 ; Chr(0) ; "C" ; " "
End If
Return
'-------------------------------------------------------------------------------
Meritev_temp3:
1wwrite &HCC , 1 , Pinb , 0
1wwrite &H44 , 1 , Pinb , 0
Waitms 600
Gosub Read1820_3
If Err = 1 Then
Locate 4 , 1 : Lcd "T3: " ; "NO SENSOR "
Else
Locate 4 , 1 : Lcd "T3: " ; T3_1 ; Chr(0) ; "C" ; " "
End If
Return

[Vlado]

Boštjan,
zakaj pa izvajaš meritve tako pogosto?
Če že imaš uro, meritev lahko izvedeš poljubno, recimo enkrat v minuti.

If _sec=0 then 'predvidevam da uporabljaš RTC
GoSub meritev
'prikaži na LCD
end if

druga stvar, ni ti potrebno za vsak senzor čakati 600ms, pošlješ ukaze vsem senzorjem, počakaš 600ms, prebereš vse senzorje in obdelaš podatek.

Zdi se mi, nisem pa prepričan da ni potrebe po čakanju pri pretvorbi ča imaš napajanje na senzorjih, ne pa parazitno napajanje.
LP

[vilko]

Jaz to delam tako:

V sekundi 1 startam pripravo na branje temperature na vseh termometrih (8)
na pinih od C.0 do C.7

[Boštjan]

Ja odlično deluje OK
Hvala lepa