www.elektronik.si

[vulgaris]

Pozdravljeni, trenutno se ukvarjam z temperaturno regulacijo. Zadeve pridno delujejo z senzorjem lm35, vendar želim preklopiti na ds1820. Imam vzorčni program za uporabo omenjenega senzorja ( ds1820) kateri deluje in izmerjeno temperaturo pokaže na lcd-ju, težava pa se pojavi ko hočem še kaj drugega kot samo gledati izmerjrno temp. na lcd-ju. Na primer vklopiti ledico na nekem pinu ob določeni temperaturi ( termostat).
Da poenostavim: kako temperaturo ki jo pokaže lcd "zapakirati " v neko spremenljivko katero bi potem nadalje uporabljal. uporabljam picbasicpro.
Vzorec kode:
' Picbasic Pro program to read DS1820 1-wire temperature sensor
' and display temperature on LCD

' Define LCD pins
Define LCD_DREG PORTD
Define LCD_DBIT 4
Define LCD_RSREG PORTE
Define LCD_RSBIT 0
Define LCD_EREG PORTE
Define LCD_EBIT 1


' Allocate variables
command var byte ' Storage for command
i var byte ' Storage for loop counter
temp var word ' Storage for temperature
DQ var PORTC.0 ' Alias DS1820 data pin
DQ_DIR var TRISC.0 ' Alias DS1820 data direction pin


ADCON1 = 7 ' Set PORTA and PORTE to digital

Low PORTE.2 ' LCD R/W line low (W)
Pause 100 ' Wait for LCD to start

Lcdout $fe, 1, "Temp in degrees C"' Display sign-on message


' Mainloop to read the temperature and display on LCD
mainloop:
Gosub init1820 ' Init the DS1820

command = $cc ' Issue Skip ROM command
Gosub write1820

command = $44 ' Start temperature conversion
Gosub write1820

Pause 2000 ' Wait 2 seconds for conversion to complete

Gosub init1820 ' Do another init

command = $cc ' Issue Skip ROM command
Gosub write1820

command = $be ' Read the temperature
Gosub write1820
Gosub read1820

' Display the decimal temperature
Lcdout $fe, 1, dec (temp >> 1),".",dec(temp.0 * 5)," degrees C"

Goto mainloop ' Do it forever


' Initialize DS1820 and check for presence
init1820:
Low DQ ' Set the data pin low to init
Pauseus 500 ' Wait > 480us
DQ_DIR = 1 ' Release data pin (set to input for high)

Pauseus 100 ' Wait > 60us
If DQ = 1 Then
Lcdout $fe, 1, "DS1820 not present"
Pause 500
Goto mainloop ' Try again
Endif
Pauseus 400 ' Wait for end of presence pulse
Return


' Write "command" byte to the DS1820
write1820:
For i = 1 to 8 ' 8 bits to a byte
If command.0 = 0 Then
Gosub write0 ' Write a 0 bit
Else
Gosub write1 ' Write a 1 bit
Endif
command = command >> 1 ' Shift to next bit
Next i
Return

' Write a 0 bit to the DS1820
write0:
Low DQ
Pauseus 60 ' Low for > 60us for 0
DQ_DIR = 1 ' Release data pin (set to input for high)
Return

' Write a 1 bit to the DS1820
write1:
Low DQ ' Low for < 15us for 1
@ nop ' Delay 1us at 4MHz
DQ_DIR = 1 ' Release data pin (set to input for high)
Pauseus 60 ' Use up rest of time slot
Return


' Read temperature from the DS1820
read1820:
For i = 1 to 16 ' 16 bits to a word
temp = temp >> 1 ' Shift down bits
Gosub readbit ' Get the bit to the top of temp
Next i
Return

' Read a bit from the DS1820
readbit:
temp.15 = 1 ' Preset read bit to 1
Low DQ ' Start the time slot
@ nop ' Delay 1us at 4MHz
DQ_DIR = 1 ' Release data pin (set to input for high)
If DQ = 0 Then
temp.15 = 0 ' Set bit to 0
Endif
Pauseus 60 ' Wait out rest of time slot
Return

Najlepsa hvala za kakršen koli preedlog.

End

[gkrusi]

Jaz uporabljam tole kodo in mi v float obliki vrne temperaturo. Je pa za CCS C compiler, tako da boš jo moral predelati. Morda vseeno kaj koristi.

[vulgaris]

hvala za odgovor ampak se zame programska jezika prevec razlikujeta. prosil bi, da me nekdo usmeri na pravo pot, namreč problem je samo to da ne vem kako bi iz rezultata ds senzorja v bin obliki dobil rezultat v decimalni obliki in to shranil v neko variablo.
hvala

[matjazkariz]

V basicu sicer picev nisem nikoli programiral ampak v tvojem programu ne najdem dela, ki bi preklapljal kako ledico. Pripel si samo demo, ki izpisuje temperaturo na LCD. Drugače pa je spremenljivka temp tista, ki vsebuje vrednost izmerjene temperature. Če veš koliko je temp, potem res ni težko vklopit in izklopit lediko pri eni fiksni vrednosti. Žal ne vem kako se v basicu to napiše, ampak kar rabiš storiti, je v inicializaciji definirat pin na katerem je ledika kot output (TRISX,Y = 0) ter ga postavit na 0 (PORTX,Y = 0) ter definirat konstanto pri kateri želiš preklop.

Kasneje pri primerjavi vrednosti temp in konstante postaviš s pogojnim stavkom LED na 1 ali 0.

Upam, da je opis razumljiv...
Če ne ti pa bo kakšen basic programer naprej pomagal.

[vulgaris]

hvala za post, ocitno sem se napacno izrazil, to je demo program ja, v njem res ni nobenega stavka za preklop ledice ali cesa drugega, niti ni problem v tem, problem se pojavi ker varibla temp enostavno ne deluje, verjetno je rezultat v binarni oblik,i jaz pa rabim decimalni zapis.

"moji poizkus uporabe temp variable:
if temp>20 then vklop
.
.
.
vklop:
high portb.1
.
.
""

kaki predlogi?

[gumby]

Malo poglej, v kaki obliki senzor pošilja temperaturo... vrednost spremenljivke "temp" ni direktno temperatura v stopinjah

[vulgaris]

ja to mi je jasno da temp ni direktna spremenljivka, dal sem samo primer kako bi spremenljivko uporabil. senzor poda temp v binarni obliki. v gornjem demo programu je ze pretvorjena in jo lcd izpise, jaz bi rabil samo kako spremenljivko dec (temp >> 1) pretvorim v uporabno obliko, saj if stavek z dec (temp >> 1) spremenljivko ne deluje. Rabil bi nekaj podobnega kot " senz=dec (temp >> 1), tako da bi potem spremenljivko senz uporabil v if stafku .
upam da je bolj razumljivo.
Hvala

[gumby]

Kaj je "binarno"?
Poglej datasheet od senzorja, kjer lepo piše, kaj kateri bit pomeni. Ko boš to vedel, ti tudi ne bo več problem pretvorit v kako drugo obliko. Ali pa kar direktno primerjavo naredit v if(), kot si v prejšnjem primeru naredil, samo cifra mora biti prava.
"20" pomeni +1,25 stopinje in ne +20 stopinj, kot si pričakoval

[vulgaris]

Hvala na namigu, zadeva ze nekoliko bolj jasna in deluje, vsaj v proteusu ).
Najlepsa hvala.