Using the TMP100 series of I2C temperature sensor from Texas Instruments

[ScaleRobotics]

Nice one Aberco.

Promoted to article here: http://www.picbasic.co.uk/forum/cont...as-Instruments

[aberco]

Bug report on the conversion routine... should be:

TempL = TempL + 16 'adding 1 temperature unit

Wiki article was fixed

TempDec = 0
IF TempL.7 = 1 THEN TempDec = 5000
IF TempL.6 = 1 THEN TempDec = TempDec + 2500
IF TempL.5 = 1 THEN TempDec = TempDec + 1250
IF TempL.4 = 1 THEN TempDec = TempDec + 625

can also be replaced by:

TempDec = TempL * 625

Not sure what takes the longest to compute, use whichever you like.

[aberco]

And more code cleaning... I don't need yet the part to display to LCD so that's why I haven't paid much attention to it. Works the same way but with much less resources.

TempSign VAR Byte
TempDec VAR Word

'*******************************************************
'Convert temperature to LCD
'*******************************************************
ConvertTemp:

IF TempH.7 = 1 THEN
        TempSign = "-"
        TempL = TempL ^ %11110000 'bitwise invert on the 4 MSB
        TempL = TempL + 16 'adding 1 temperature unit
        TempH = TempH ^ %11111111 'bitwise invert 
        IF TempL = 0 THEN
                TempH  = TempH + 1
        ENDIF 
ELSE
        TempSign = "+"
ENDIF

TempDec = TempL * 625

LCDOUT $FE,1, TempSign, #TempH, ".", #TempL, "°C"

RETURN