Is this the Melexis sensor?
My code runs at 8mhz on 16f886 or 18F2620 IIRC
Code: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




Bookmarks