Please help with code for DS18B20

[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