IR Temperature Sensor

[longpole001]

any chance the pic u are using as eeprom

[retepsnikrep]

Is this the Melexis sensor?

My code runs at 8mhz on 16f886 or 18F2620 IIRC

I2CClock	var PORTC.3	'I2CClock Line
I2CData		var PORTC.4	'I2CData Line

I2CAddr   var BYTE	'I2C Device Address
I2CReg	  var BYTE	'I2C Device Register 



Cal26:							'Melexis IR Temp Sensor Routine MLX90614 IR sensor 

'The temperature in degrees Kelvin is then calculated as TempK = 0.02 * MelTemp Or TempC = 2 * MelTemp - 27315. 

	'I2CReg = $06					'Ram register for Ambient Temp
    	'I2CReg = $07					'Ram register for Object 1
	'I2CReg = $08					'Ram register for Object 2

	I2Caddr = 0
	I2CRead I2CData, I2CClock, I2CAddr, I2CReg, [Result.lowbyte, Result.highbyte]
 	Result = ((Result * 2) - 27315) / 100		'Convert to Centigrade
 	LCDOUT #Result,32	'Display 
	Return						'Return to main program

[TravisM]

Thanks for the reply. I am using the Melexis MLX90614 sensor and the PIC16F886 micro. I see in your sample code that you don't swap the low and high bytes in the result to get the 16 bit result in the standard format. Perhaps I will try not swaping my MSB & LSB. I have also discovered that I do not have a couple of the Special Function Registers setup properly. I will make those changes and post the results.

TravisM

[eggman]

here's a thread about the melexis sensor: http://www.picbasic.co.uk/forum/arch...p/t-11782.html