Please help with code for DS18B20

[fratello]

Hope I am not boring with this subject !
1. I replace one sensor and now both temperatures are similar.
2.I write the code for dual thermometer and thermostat ; works verry good !
If somebody have idea to improve this code, please post here !
I wish you all the best !

[Acetronics2]

Hi, Fratello

What about a nice Bargraph to show what's going on ... ???

like this one :

'*****************************************************************************
'*****************************************************************************
'                              AFFICHAGE
'*****************************************************************************
'*****************************************************************************

'Motifs CGRAM

      LCDOUT  $FE,$40,$00,$00,$00,$00,$00,$04,$04,$04  ' Cust Char $0 'Small bar
      LCDOUT  $FE,$48,$00,$00,$00,$04,$04,$04,$04,$04  ' Cust Char $1 'Mid bar
      LCDOUT  $FE,$50,$04,$04,$04,$04,$04,$04,$04,$04  ' Cust Char $2 'Big bar 
      LCDOUT  $FE,$58,$04,$04,$0E,$0E,$0E,$1F,$1B,$11  ' Cust Char $3 'Arrow
      LCDOUT  $FE,$60,$11,$1B,$1F,$0E,$0E,$0E,$04,$04  ' Cust Char $4 'Inv Arrow     
      LCDOUT  $FE,$68,$04,$04,$0E,$1F,$1F,$0E,$04,$04  ' Cust Char $5 'Diamond

'*****************************************************************************
Aff:'Affichage temp
'*****************************************************************************

'préparation chiffre : sign = 1 = valeur négative

Decal	= ( TempC // 5 ) << 1 

IF NOT sign THEN

	Loscale = ( TempC /5 ) * 5 
	Hiscale = (( TempC /5 ) + 1) * 5
	
	IF Float > 25 AND Float <= 75 then Decal = Decal + 1
	IF Float > 75 Then Decal = Decal + 2
	
ELSE

	Loscale = (( TempC /5 + 1 ) * 5) * -1  
	Hiscale = ((TempC /5) * 5 )* -1 
	Decal = 10 - Decal
	
	IF Float > 25 AND Float <= 75 then Decal = Decal - 1
	IF Float > 75 Then Decal = Decal - 2
	
		TempC = TempC * -1
		
ENDIF


'Impression valeurs 1ère ligne

IF Sign THEN

  LCDOUT	$FE, $80 ,SDEC2 Loscale,178,Unit," "
  IF TempC = 0 THEN LCDOUT "-" 
  LCDOUT SDEC TempC,".",dec2 Float
  IF ABS TempC < 10 then LCDOUT " "
  LCDOUT $FE,$80 + 11,SDEC2 Hiscale,178,Unit
  
ELSE
  
  LCDOUT	$FE, $81 ,SDEC2 Loscale,178,Unit," ",SDEC TempC,".",dec2 Float
  IF TempC < 10 then LCDOUT " "
  LCDOUT $FE,$80 + 12,SDEC2 Hiscale,178,Unit 
  
ENDIF 
  
  
'Impression échelle 2ème ligne

 LCDOUT	$FE,$C0,$01,$00,$02,$00,$01,$00,$01,$00,$01,$00,$01,$00,$02,$00,$01,$00
  
'Impression index

 IF Tempeff < ( Setpoint - 5 ) THEN
 
	LCDOUT	$FE, $C2 + Decal,$03				'Index Chauffage
	
 ELSE
 
 	IF Tempeff > ( Setpoint + 5 ) THEN
 	
		LCDOUT	$FE, $C2 + Decal,$04				' Index Refroidissement
	
	ELSE
	
		LCDOUT	$FE, $C2 + Decal,$05				' Index Zone neutre
		
	ENDIF
	
ENDIF

Better shown on attachment

[fratello]

Thanks for reply !
Sorry, but my LCD is 2 x 16 ; at first line I display "In" and at second "Out" values of temperatures. Otherwise, nice code are You writing .

[fratello]

New problem :
-the thermometer PIC 12F675 + DS18B20 + Nokia LCD = 24.5 'C
-the thermometer LM 35DZ + Fluke 830DM = 24.5 'C
-the thermometer PIC 16F628A + DS18B20 = 25.5 ' C !!!!!!!!!!!

I try to write in PIC the same code of themperature conversion like Mr.Novakovic Ivica.
Check for similarity !!!! Why this diference ? I thing I go crazy, soon ....

[Acetronics2]

Hi,

count_remain, count_per_c

DO NOT use that with DS 18B20 ....

That's a first step.

Alain

[fratello]

Anything code I write in thermo that I made, the temperatures are NOT similar with those measured with other devices (mentioned). I try to change the sensor (I use three !) but nothing change. I don't know what to believe : which of temperature is - more- accurate ?

[fratello]

I found this on forum :
"OSCCON = %01100000 'Internal clock set to 4-MHz (MUST DO THIS!!!)"
I added in my code, but PBP say "Error : Undefined Symbol 'OSCCON'.
Maybe this is the error that shows different temperatures ?