Ds18b20

Printable View

- 3rd June 2009, 15:38
ahmed_salah

1 Attachment(s)

Ds18b20

i have a problem i made temp sensore project based on ds1820 but i want to replace it with ds18B20 for high resolution but when i change it i got strange readings , i think that i have to change something in code can some one help me do that attached is code
- 6th June 2009, 18:51
fratello

OWOut DQ, 1, [$CC, $4E, 0, 0, DS18B20_12bit] '

OWOut DQ, 1, [$CC, $44] ' Start conversion
WaitLoop:
While not DQ
Wend

OWOut DQ, 1, [$CC, $BE]
OWIn DQ, 2, [Temperature.Lowbyte, Temperature.Highbyte]

Convert_Temp:

If Temperature.15 then
Temperature= ~Temperature +1
Twist = 1
Endif

TempC = (Temperature & $7FF) >> 4
Float = ((Temperature.Lowbyte & $0F ) * 25 )>>2
Temperature = TempC*100 + Float

If Twist then
V= 10000 - Temperature ' 25 C=12500 0 C=10000 -10 C=9000
Twist = 0
else
V= 10000 + Temperature
EndIf

' SUBROUTINES:
'----------------------------------------
SelectSign:
If v = 10000 then ' Temperature = 0 C.
Sign=" " ' No sign
Else
If v < 10000 then ' <> 0
Sign="-" ' Temperature below 0 C.
Else
Sign="+" ' Temperature above 0 C.
EndIf
EndIf
Return

'----------------------------------------
DisplayTemp:
If V >= 10000 then ' Above 0 C.
Temperature=V-10000
Else
Temperature=10000-V ' Below 0 C.
EndIf
LcdOut $FE, $C0, Sign, DEC (Temperature / 100), ".", DEC2 Temperature, " ",223,"C "
Return
- 7th June 2009, 09:23
ahmed_salah

hi,
thanks for replay but i am beginner in pbp so can u guide me where is the part i have to replace in my old code
- 7th June 2009, 10:45
ahmed_salah

1 Attachment(s)

hi,
i update the code u send me before can u check it please soi can begin testing
- 7th June 2009, 10:57
Acetronics2

Hi, Ahmed

This subject in the SEARCH function of the Forum Gives 72 Hits ... including working programs for the 18B20

so, just use it !!!

Alain
- 7th June 2009, 18:42
ahmed_salah

hi,
no replies nothing work tell now i got blank screen
- 8th June 2009, 06:50
fratello

Put here the schematic, please.
- 8th June 2009, 08:39
Acetronics2

Hi, Ahmed

Just comparing the 18B20 Datasheet, page 5 to the 1820 Data., Page 4 will help you to understand how temperatures are coded in both cases ...

and what you have to modify to get a nice result ...

Alain
- 8th June 2009, 09:31
ahmed_salah

2 Attachment(s)

hi,
thanks for replay please find attached schematic
i am trying also to get rom id for ds18b20 but i got only 8 hex digit attached is the code
- 8th June 2009, 09:44
Acetronics2

At first, try

Code:

... for i = 0 to 7 LcdOut HEX2 ID[i] next i ...

should print missing Zeroes ...

Alain
- 8th June 2009, 10:34
ahmed_salah

hi,
acetronics , still got 8 characters only
- 9th June 2009, 06:35
ahmed_salah

1 Attachment(s)

hi,
i update the code to read rom id and i can read it now working code attached , but still can not read temp. any update
- 9th June 2009, 10:56
fratello

Here is all that You have need : http://www.picbasic.co.uk/forum/show...hlight=ds18b20
- 13th June 2009, 22:00
ahmed_salah

1 Attachment(s)

hi,
thanks for help i update the code and i can read temp now but the resolution is 0.5 degree even when i set resolution to 12 bit , attached is the code
- 14th June 2009, 08:00
fratello

1 Attachment(s)

Try this, please and post the results.
- 14th June 2009, 08:46
mvs_sarma

1 Attachment(s)

Quote:

Originally Posted by fratello

Try this, please and post the results.

the file had four Minor errors. corrected file and a complied hex are attached
- 14th June 2009, 09:35
ahmed_salah

hi,
can u please send me picbasic code so i can know where is the error cause i am not god in assembely
- 14th June 2009, 09:50
ahmed_salah

hi,
i try the code u send me but still the same result nochange the resolution still 0.5
- 14th June 2009, 13:01
Acetronics2

Hi, Ahmed

No surprise ... you do not write tte DS Config Word in the right registers ...

our friend Fratello saw that ( and corrected it ... )

a pair of zeros is missing in your command line ...

Alain
- 14th June 2009, 13:35
ahmed_salah

1 Attachment(s)

hi,
still the same resolution 0.5 even after i update the code , attached is the code u send me if u want to check
- 14th June 2009, 14:24
Acetronics2

Where's the bug ???

Hi, Ahmed

I must admit Fratello's program only shows half degrees ... ( just tested on an EasyPic 5 )

but still have not found Why !!!

Alain
- 14th June 2009, 14:32
ahmed_salah

hi,
i am using pic basic pro 2.44 do u think this the problem
- 14th June 2009, 14:58
mvs_sarma

Quote:

Originally Posted by ahmed_salah

hi,
can u please send me picbasic code so i can know where is the error cause i am not god in assembely

complied code and also the corrected .asm are attached.
- 14th June 2009, 15:00
Acetronics2

Hi, Ahmed

I Finally got it !!!

the problem is in the Waiting loop ... that doesn't wait !!!

sooo... add :

Code:

Busy VAR BIT

at the top of the program

and change :

Code:

WaitLoop: ' While not DQ ' NOT Working !!! ' Wend

by

Code:

WaitLoop: OWIn DQ, 4, [Busy] ' Check for still busy converting 'PORTC.4 = 1 ' Show waiting for conv complete If Busy = 0 Then GOTO waitloop ENDIF ' PORTC.4 = 0

Port C.4 was chosen to show the time the DS is Busy ... very useful tool to verify conversion is really complete !!!

Have fun,

Alain
- 14th June 2009, 15:21
ahmed_salah

1 Attachment(s)

hi,
so thanks for help now i got resolution 1/100 i am so happy but i want to underestand what no 4 in statement OWIn DQ, 4, [Busy] means ???
i have another question i want to read the o/p to pc serial port i connect 1k resistance to portb.1 and send it to pc rx pin (2) and circuit ground to pc gnd pin (5)
note : i am using usb to serial converter
i update the program just for testing to send a message but i notice that the Rx led on usb to serial converter flashes and nothing out on hyberterminal ????
attached is code