Ds18b20

[ahmed_salah]

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

[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

[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

[ahmed_salah]

hi,
i update the code u send me before can u check it please soi can begin testing

[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

[ahmed_salah]

hi,
no replies nothing work tell now i got blank screen

[fratello]

Put here the schematic, please.