You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 

936 lines
26 KiB

#include "MLX90615.h"
#include "stc_8_delay.h"/////
/*******************************************************************************
* Filename: bsp_mlx90615.c
* Revised: All copyrights reserved to Roger.
* Date: 2022-05-04
* Revision: v1.0
* Writer: Roger-WY.
*
* Description: 非接触式红外温度传感器模块驱动(数字式)
*
*
* Notes:
* All copyrights reserved to Roger-WY
*******************************************************************************/
////#include "bsp_mlx90615.h"
TS_mx95_ ts_mx95;
void delay_ms2(unsigned int ms)
{
unsigned int a;
while(ms)
{
///a=1800;
a=290;
while(a--);
ms--;
}
return;
}
void L1_mlx95_cal_tmp(void)
{///27315
///x*2 - 27315
ts_mx95.u16b = D_2uc_u16(ts_mx95.Object[1],ts_mx95.Object[0]);
ts_mx95.u16b *=2;
ts_mx95.u16out_o = ts_mx95.u16b - 27315;
ts_mx95.u16b = D_2uc_u16(ts_mx95.Ambient[1],ts_mx95.Ambient[0]);
ts_mx95.u16b *=2;
ts_mx95.u16out_a = ts_mx95.u16b - 27315;
printf("obj*100 %d A: %d ",(int)ts_mx95.u16out_o,(int)ts_mx95.u16out_a);
}
void L1_mlx95_get_tmp(void)
{
////100us 10k 1ms/10=100us 100k--10us
L0_mlx95_wakeup();
L2_IICMx_ReadReg(D_iicch_mlx96015,MLX90615_ADDR_WR,
MLX90615_AMBIENT_TEMPERATURE,&ts_mx95.Ambient,3);
/// printf("\r\nmlx95 %X %X %X ",(int)0x123,(int)ts_mx95.Ambient[0],(int)ts_mx95.Ambient[1]);
L2_IICMx_ReadReg(D_iicch_mlx96015,MLX90615_ADDR_WR,
MLX90615_OBJECT_TEMPERATURE,&ts_mx95.Object,3);
/// printf("obj %X %X ",(int)ts_mx95.Object[0],(int)ts_mx95.Object[1]);
L1_mlx95_cal_tmp();
}
#if 0
//----------------------------------------------------------------------------//
#define MLX90615_I2C_SCL_RCC RCC_APB2Periph_GPIOC
#define MLX90615_I2C_SCL_PIN GPIO_Pin_4 /* 连接到SCL时钟线的GPIO */
#define MLX90615_I2C_SCL_PORT GPIOC
#define MLX90615_I2C_SDA_RCC RCC_APB2Periph_GPIOC
#define MLX90615_I2C_SDA_PIN GPIO_Pin_5 /* 连接到SDA数据线的GPIO */
#define MLX90615_I2C_SDA_PORT GPIOC
/* 定义读写SCL和SDA的宏 */
#define MLX90615_I2C_SCL_1() MLX90615_I2C_SCL_PORT->BSRR = MLX90615_I2C_SCL_PIN /* SCL = 1 */
#define MLX90615_I2C_SCL_0() MLX90615_I2C_SCL_PORT->BRR = MLX90615_I2C_SCL_PIN /* SCL = 0 */
#define MLX90615_I2C_SDA_1() MLX90615_I2C_SDA_PORT->BSRR = MLX90615_I2C_SDA_PIN /* SDA = 1 */
#define MLX90615_I2C_SDA_0() MLX90615_I2C_SDA_PORT->BRR = MLX90615_I2C_SDA_PIN /* SDA = 0 */
#define MLX90615_I2C_SDA_READ() ((MLX90615_I2C_SDA_PORT->IDR & MLX90615_I2C_SDA_PIN) != 0) /* 读SDA口线状态 */
#define MLX90615_I2C_SCL_READ() ((MLX90615_I2C_SCL_PORT->IDR & MLX90615_I2C_SCL_PIN) != 0) /* 读SCL口线状态 */
//----------------------------------------------------------------------------//
//============================================================================//
/*
********************************************************************************
* 函 数 名: Mlx90615_i2c_Delay
* 功能说明: I2C总线位延迟,最快400KHz
* 形 参: 无
* 返 回 值: 无
********************************************************************************
*/
static void Mlx90615_i2c_Delay(void)
{
volatile uint8_t i;
for (i = 0; i < 50; i++);
}
static void Mlx90615_i2c_Start(void)
{
/* 当SCL高电平时,SDA出现一个下跳沿表示I2C总线启动信号 */
MLX90615_I2C_SDA_1();
Mlx90615_i2c_Delay();
MLX90615_I2C_SCL_1();
Mlx90615_i2c_Delay();
MLX90615_I2C_SDA_0();
Mlx90615_i2c_Delay();
MLX90615_I2C_SCL_0();
// Mlx90615_i2c_Delay();
}
/*******************************************************************************
* 名 称: i2c_Stop
* 功 能: CPU发起I2C总线停止信号
* 入口参数: 无
* 出口参数: 无
* 作  者: Roger-WY
* 创建日期: 2018-05-20
* 修 改:
* 修改日期:
* 备 注: 停止时序
* SCL _____/ˉˉˉˉˉˉˉ
* SDA _________/ˉˉˉˉˉ
* | |
* STOP
*******************************************************************************/
static void Mlx90615_i2c_Stop(void)
{
/* 当SCL高电平时,SDA出现一个上跳沿表示I2C总线停止信号 */
MLX90615_I2C_SCL_0();
Mlx90615_i2c_Delay();
MLX90615_I2C_SDA_0();
Mlx90615_i2c_Delay();
MLX90615_I2C_SCL_1();
Mlx90615_i2c_Delay();
MLX90615_I2C_SDA_1();
// Mlx90615_i2c_Delay();
}
/*******************************************************************************
* 名 称: i2c_WaitAck
* 功 能: CPU产生一个时钟,并读取器件的ACK应答信号
* 入口参数: 无
* 出口参数: 返回0表示正确应答,1表示无器件响应
* 作  者: Roger-WY
* 创建日期: 2018-05-20
* 修 改:
* 修改日期:
* 备 注:
*******************************************************************************/
static uint8_t Mlx90615_i2c_WaitAck(void)
{
uint8_t re;
uint8_t TimeOutCnt = 20; /* 超时计数器 */
MLX90615_I2C_SDA_1(); /* CPU释放SDA总线 */
Mlx90615_i2c_Delay();
MLX90615_I2C_SCL_1(); /* CPU驱动SCL = 1, 此时器件会返回ACK应答 */
Mlx90615_i2c_Delay();
while(TimeOutCnt -- ) {
if (MLX90615_I2C_SDA_READ()) {/* CPU读取SDA口线状态 */
re = 1;
} else {
re = 0;
}
}
MLX90615_I2C_SCL_0();
Mlx90615_i2c_Delay();
return re;
}
/*******************************************************************************
* 名 称: i2c_Ack
* 功 能: CPU产生一个ACK信号
* 入口参数: 无
* 出口参数: 无
* 作  者: Roger-WY
* 创建日期: 2018-05-20
* 修 改:
* 修改日期:
* 备 注:
*******************************************************************************/
static void Mlx90615_i2c_Ack(void)
{
MLX90615_I2C_SDA_0(); /* CPU驱动SDA = 0 */
Mlx90615_i2c_Delay();
MLX90615_I2C_SCL_1(); /* CPU产生1个时钟 */
Mlx90615_i2c_Delay();
MLX90615_I2C_SCL_0();
Mlx90615_i2c_Delay();
MLX90615_I2C_SDA_1(); /* CPU释放SDA总线 */
}
/*******************************************************************************
* 名 称: i2c_NAck
* 功 能: CPU产生1个NACK信号
* 入口参数: 无
* 出口参数: 无
* 作  者: Roger-WY
* 创建日期: 2018-05-20
* 修 改:
* 修改日期:
* 备 注:
*******************************************************************************/
static void Mlx90615_i2c_NAck(void)
{
MLX90615_I2C_SDA_1(); /* CPU驱动SDA = 1 */
Mlx90615_i2c_Delay();
MLX90615_I2C_SCL_1(); /* CPU产生1个时钟 */
Mlx90615_i2c_Delay();
MLX90615_I2C_SCL_0();
Mlx90615_i2c_Delay();
}
/*******************************************************************************
* 名 称: bsp_InitI2C
* 功 能: 配置I2C总线的GPIO,采用模拟IO的方式实现
* 入口参数: 无
* 出口参数: 无
* 作  者: Roger-WY
* 创建日期: 2018-06-29
* 修 改:
* 修改日期:
* 备 注:
*******************************************************************************/
static void Mlx90615_InitI2C(void)
{
GPIO_InitTypeDef GPIO_InitStructure;
RCC_APB2PeriphClockCmd(MLX90615_I2C_SCL_RCC | MLX90615_I2C_SDA_RCC, ENABLE); /* 打开GPIO时钟 */
GPIO_InitStructure.GPIO_Speed = GPIO_Speed_50MHz;
GPIO_InitStructure.GPIO_Mode = GPIO_Mode_Out_OD; /* 开漏输出模式 */
GPIO_InitStructure.GPIO_Pin = MLX90615_I2C_SCL_PIN;
GPIO_Init(MLX90615_I2C_SCL_PORT, &GPIO_InitStructure);
GPIO_InitStructure.GPIO_Pin = MLX90615_I2C_SDA_PIN;
GPIO_Init(MLX90615_I2C_SDA_PORT, &GPIO_InitStructure);
/* 给一个停止信号, 复位I2C总线上的所有设备到待机模式 */
Mlx90615_i2c_Stop();
}
/*******************************************************************************
* 名 称: i2c_SendByte
* 功 能: CPU向I2C总线设备发送8bit数据
* 入口参数: _ucByte : 等待发送的字节
* 出口参数: 无
* 作  者: Roger-WY
* 创建日期: 2018-05-20
* 修 改:
* 修改日期:
* 备 注:
*******************************************************************************/
static void Mlx90615_i2c_SendByte(uint8_t _ucByte)
{
uint8_t i;
/* 先发送字节的高位bit7 */
for (i = 0; i < 8; i++) {
MLX90615_I2C_SCL_0();
Mlx90615_i2c_Delay();
if (_ucByte & 0x80) {
MLX90615_I2C_SDA_1();
} else {
MLX90615_I2C_SDA_0();
}
_ucByte <<= 1; /* 左移一个bit */
Mlx90615_i2c_Delay();
MLX90615_I2C_SCL_1();
Mlx90615_i2c_Delay();
}
MLX90615_I2C_SCL_0();
Mlx90615_i2c_Delay();
}
/*******************************************************************************
* 名 称: Mlx90615_i2c_ReadByte
* 功 能: CPU从I2C总线设备读取8bit数据
* 入口参数: 无
* 出口参数: 读到的数据
* 作  者: Roger-WY
* 创建日期: 2018-05-20
* 修 改:
* 修改日期:
* 备 注:
*******************************************************************************/
static uint8_t Mlx90615_i2c_ReadByte(void)
{
uint8_t i;
uint8_t value;
/* 读到第1个bit为数据的bit7 */
value = 0;
for (i = 0; i < 8; i++) {
value <<= 1;
MLX90615_I2C_SCL_0();
Mlx90615_i2c_Delay();
MLX90615_I2C_SCL_1();
Mlx90615_i2c_Delay();
if (MLX90615_I2C_SDA_READ()) {
value++;
}
}
MLX90615_I2C_SCL_0();
Mlx90615_i2c_Delay();
return value;
}
/*******************************************************************************
* 名 称: bsp_Mlx90615ScanDevice
* 功 能: 检测I2C总线设备,CPU向发送设备地址,然后读取设备应答来判断该设备是否存在
* 入口参数: _Address:设备的I2C总线地址
* 出口参数: 返回值 0 表示正确, 返回1表示未探测到
* 作  者: Roger-WY
* 创建日期: 2018-05-20
* 修 改:
* 修改日期:
* 备 注:
*******************************************************************************/
int8_t bsp_Mlx90615ScanDevice(uint8_t *pSlaveAddr)
{
uint8_t ucAck;
Mlx90615_InitI2C();
if (MLX90615_I2C_SDA_READ() && MLX90615_I2C_SCL_READ()) {
for(uint8_t i = 0; i < 128; i++)
{
Mlx90615_i2c_Start(); /* 发送启动信号 */
Mlx90615_i2c_SendByte(i << 1);
ucAck = Mlx90615_i2c_WaitAck(); /* 检测设备的ACK应答 */
Mlx90615_i2c_Stop(); /* 发送停止信号 */
if(ucAck == 0)
{
*pSlaveAddr = i; //找到设备并获取从机地址
return 0;
}
}
return -1; //没有找到设备
}
return -2; /* I2C总线异常 */
}
//============================================================================//
static const uint8_t crc_table[] = {
0x00, 0x07, 0x0e, 0x09, 0x1c, 0x1b, 0x12, 0x15, 0x38, 0x3f, 0x36, 0x31,
0x24, 0x23, 0x2a, 0x2d, 0x70, 0x77, 0x7e, 0x79, 0x6c, 0x6b, 0x62, 0x65,
0x48, 0x4f, 0x46, 0x41, 0x54, 0x53, 0x5a, 0x5d, 0xe0, 0xe7, 0xee, 0xe9,
0xfc, 0xfb, 0xf2, 0xf5, 0xd8, 0xdf, 0xd6, 0xd1, 0xc4, 0xc3, 0xca, 0xcd,
0x90, 0x97, 0x9e, 0x99, 0x8c, 0x8b, 0x82, 0x85, 0xa8, 0xaf, 0xa6, 0xa1,
0xb4, 0xb3, 0xba, 0xbd, 0xc7, 0xc0, 0xc9, 0xce, 0xdb, 0xdc, 0xd5, 0xd2,
0xff, 0xf8, 0xf1, 0xf6, 0xe3, 0xe4, 0xed, 0xea, 0xb7, 0xb0, 0xb9, 0xbe,
0xab, 0xac, 0xa5, 0xa2, 0x8f, 0x88, 0x81, 0x86, 0x93, 0x94, 0x9d, 0x9a,
0x27, 0x20, 0x29, 0x2e, 0x3b, 0x3c, 0x35, 0x32, 0x1f, 0x18, 0x11, 0x16,
0x03, 0x04, 0x0d, 0x0a, 0x57, 0x50, 0x59, 0x5e, 0x4b, 0x4c, 0x45, 0x42,
0x6f, 0x68, 0x61, 0x66, 0x73, 0x74, 0x7d, 0x7a, 0x89, 0x8e, 0x87, 0x80,
0x95, 0x92, 0x9b, 0x9c, 0xb1, 0xb6, 0xbf, 0xb8, 0xad, 0xaa, 0xa3, 0xa4,
0xf9, 0xfe, 0xf7, 0xf0, 0xe5, 0xe2, 0xeb, 0xec, 0xc1, 0xc6, 0xcf, 0xc8,
0xdd, 0xda, 0xd3, 0xd4, 0x69, 0x6e, 0x67, 0x60, 0x75, 0x72, 0x7b, 0x7c,
0x51, 0x56, 0x5f, 0x58, 0x4d, 0x4a, 0x43, 0x44, 0x19, 0x1e, 0x17, 0x10,
0x05, 0x02, 0x0b, 0x0c, 0x21, 0x26, 0x2f, 0x28, 0x3d, 0x3a, 0x33, 0x34,
0x4e, 0x49, 0x40, 0x47, 0x52, 0x55, 0x5c, 0x5b, 0x76, 0x71, 0x78, 0x7f,
0x6a, 0x6d, 0x64, 0x63, 0x3e, 0x39, 0x30, 0x37, 0x22, 0x25, 0x2c, 0x2b,
0x06, 0x01, 0x08, 0x0f, 0x1a, 0x1d, 0x14, 0x13, 0xae, 0xa9, 0xa0, 0xa7,
0xb2, 0xb5, 0xbc, 0xbb, 0x96, 0x91, 0x98, 0x9f, 0x8a, 0x8d, 0x84, 0x83,
0xde, 0xd9, 0xd0, 0xd7, 0xc2, 0xc5, 0xcc, 0xcb, 0xe6, 0xe1, 0xe8, 0xef,
0xfa, 0xfd, 0xf4, 0xf3
};
uint8_t CRC8_Calc (uint8_t *p, uint8_t len)
{
uint16_t i;
uint16_t crc = 0x0;
while (len--) {
i = (crc ^ *p++) & 0xFF;
crc = (crc_table[i] ^ (crc << 8)) & 0xFF;
}
return (crc & 0xFF);
}
/*******************************************************************************
* 名 称: bsp_Mlx90615Init
* 功 能: Mlx90615传感器的初始化
* 入口参数: 无
* 出口参数: 无
* 作  者: Roger-WY.
* 创建日期: 2018-08-08
* 修 改:
* 修改日期:
* 备 注:
*******************************************************************************/
int8_t bsp_Mlx90615Init(void)
{
int8_t ucError = 0;
Mlx90615_InitI2C();
return (ucError);
}
int8_t bsp_Mlx90615WriteReg(uint8_t devAddr, uint8_t regAddr, uint16_t data)
{
uint8_t ucAck = 0;
uint8_t i = 0;
uint8_t crcSendBuffer[5] = {0x00,0x00,0x00,0x00,0x00}; //used to save the data to send
crcSendBuffer[0] = devAddr << 1;
crcSendBuffer[1] = regAddr;
crcSendBuffer[2] = (uint8_t)data;
crcSendBuffer[3] = (uint8_t)(data >> 8);
crcSendBuffer[4] = CRC8_Calc(crcSendBuffer,4);
Mlx90615_i2c_Start();
for(i = 0; i < 5; i++)
{
Mlx90615_i2c_SendByte(crcSendBuffer[i]);
ucAck = Mlx90615_i2c_WaitAck();
if(ucAck) { /* 如果Mlx90615,没有应答 */
goto cmd_fail; /* 器件无应答 */
}
}
/* 发送I2C总线停止信号 */
Mlx90615_i2c_Stop();
return 0; /* 执行成功 */
cmd_fail: /* 命令执行失败后,切记发送停止信号,避免影响I2C总线上其他设备 */
/* 发送I2C总线停止信号 */
Mlx90615_i2c_Stop();
return -1;
}
int8_t bsp_Mlx90615ReadReg(uint8_t devAddr, uint8_t regAddr,uint16_t *pReadData)
{
uint8_t ucAck = 0;
uint8_t ValBuf[6] = {0};
uint8_t prcRegVal = 0;
ValBuf[0] = devAddr << 1;
ValBuf[1] = regAddr;
ValBuf[2] = (devAddr << 1) | 0x01;
Mlx90615_i2c_Start();
Mlx90615_i2c_SendByte(ValBuf[0]);
ucAck = Mlx90615_i2c_WaitAck();
if(ucAck) { /* 如果LM75X,没有应答 */
goto cmd_fail; /* 器件无应答 */
}
Mlx90615_i2c_SendByte(ValBuf[1]);
ucAck = Mlx90615_i2c_WaitAck();
if(ucAck) { /* 如果LM75X,没有应答 */
goto cmd_fail; /* 器件无应答 */
}
//------------------------------------------------------------------------//
Mlx90615_i2c_Start();
Mlx90615_i2c_SendByte(ValBuf[2]);
ucAck = Mlx90615_i2c_WaitAck();
if(ucAck) { /* 如果LM75X,没有应答 */
goto cmd_fail; /* 器件无应答 */
}
ValBuf[3] = Mlx90615_i2c_ReadByte();
Mlx90615_i2c_Ack();
ValBuf[4] = Mlx90615_i2c_ReadByte();
Mlx90615_i2c_Ack();
ValBuf[5] = Mlx90615_i2c_ReadByte();
Mlx90615_i2c_Ack();
/* 发送I2C总线停止信号 */
Mlx90615_i2c_Stop();
prcRegVal = CRC8_Calc(ValBuf,5);
if(prcRegVal == ValBuf[5])
{
*pReadData = (ValBuf[4] << 8) + ValBuf[3];
return 0; /* 执行成功 */
}
else
{
return -2; //校验不正确
}
cmd_fail: /* 命令执行失败后,切记发送停止信号,避免影响I2C总线上其他设备 */
/* 发送I2C总线停止信号 */
Mlx90615_i2c_Stop();
return -1;
}
/* 读取环境温度 */
int8_t bsp_Mlx90615ReadTempAmbient(uint8_t slaveAddr, float *ao)
{
int8_t ret = 0;
uint16_t data = 0;
ret = bsp_Mlx90615ReadReg(slaveAddr,MLX90615_AMBIENT_TEMPERATURE,&data);
if( 0 == ret)
{
*ao = (data * 0.02) - 273.15;
}
else
{
*ao = MLX90615_TEMP_READ_ERR_CODE;
}
return ret;
}
/* 读取目标温度 */
int8_t bsp_Mlx90615ReadTempObject(uint8_t slaveAddr, float *to)
{
int8_t ret = 0;
uint16_t data = 0;
ret = bsp_Mlx90615ReadReg(slaveAddr,MLX90615_OBJECT_TEMPERATURE,&data);
if( 0 == ret)
{
*to = (data * 0.02) - 273.15;
}
else
{
*to = MLX90615_TEMP_READ_ERR_CODE;
}
return ret;
}
int8_t bsp_Mlx90615ReadIrData(uint8_t slaveAddr, uint16_t *ir)
{
int8_t ret = 0;
uint16_t data = 0;
ret = bsp_Mlx90615ReadReg(slaveAddr,MLX90615_RAW_IR_DATA,&data);
if(ret == 0)
{
*ir = data;
}
else
{
*ir = (uint16_t)MLX90615_TEMP_READ_ERR_CODE;
}
return (ret);
}
int8_t bsp_Mlx90615ReadEmissivity(uint8_t slaveAddr, float *emissivity)
{
int8_t ret = 0;
uint16_t data = 0;
ret = bsp_Mlx90615ReadReg(slaveAddr,MLX90615_EEPROM_EMISSIVITY,&data);
if(data < 32768)
{
*emissivity = (float)data / 0x4000;
}
else
{
*emissivity = (32768 - (float)data) / 0x4000;
}
return (ret);
}
int8_t bsp_Mlx90615SetEmissivity(uint8_t slaveAddr, float emissivity)
{
int8_t ret = 0;
uint16_t newE = 0;
float temp = 0;
if(emissivity > 1.0 || emissivity < 0.05)
{
return -6;
}
temp = emissivity * 0x4000 + 0.5;
newE = (uint16_t)temp;
ret = bsp_Mlx90615WriteReg(slaveAddr, MLX90615_EEPROM_EMISSIVITY, 0x0000);
if(ret == 0)
{
ret = bsp_Mlx90615WriteReg(slaveAddr, MLX90615_EEPROM_EMISSIVITY, newE);
}
return (ret);
}
/***************************** (END OF FILE) **********************************/
内部配置:
1)MLX90615只有3V供电,而MLX90614则有5V和3V选项;
2)MLX90615只集成了IIR数字滤波,MLX90614同时集成FIR和IIR滤波;
3)SMBus地址不兼容,MLX90615出厂设置为0x5B,而MLX90614为0x5B;
4)PWM频率,MLX90615可选为10Hz或者1kHz,而MLX90614是在1Hz和1kHz之间支持编程调节;
5)两者在对RAM和EEPROM进行操作时,其操作指令不同,开发者在两者切换时需要注意;
6)唤醒指令脉冲施加引脚不同,MLX90615在SCL脚,而MLX90614在SDA脚。
#endif
#if 0
#include "intrins.h"
##define SA 0x00 // Slave address
#define DEFAULT_SA 0x5B // Default Slave address
#define RAM_Access 0x20 // RAM access command
#define EEPROM_Access 0x10 // EEPROM access command
#define RAM_Ta 0x06 // Ta address in the ram
#define RAM_To 0x07 // To address in the ram
#define _NOP() _nop_()
// 5us
void delay_Tbuf()
{
unsigned char a, b;
for ( b = 1; b > 0; b-- )
for ( a = 1; a > 0; a-- );
}
void delay_Thd()
{
_nop_();
}
void MLX90615_init ( void )
{
mSDA_OUT; // Set SDA as Output
mSCL_OUT; // Set SCL as Output
mSDA_HIGH(); // bus free
mSCL_HIGH();
}
void START_bit ( void )
{
mSDA_OUT;
mSDA_HIGH(); // Set SDA line
delay_Tbuf(); // Wait a few microseconds
mSCL_HIGH(); // Set SCL line
delay_Tbuf(); // Generate bus free time between Stop
// and Start condition (Tbuf=4.7us min)
mSDA_LOW(); // Clear SDA line
delay_Tbuf(); // Hold time after (Repeated) Start
// Condition. After this period, the first clock is generated.
//(Thd:sta=4.0us min)
mSCL_LOW(); // Clear SCL line
delay_Tbuf(); // Wait a few microseconds
}
void STOP_bit ( void )
{
mSDA_OUT;
mSCL_LOW(); // Clear SCL line
delay_Tbuf(); // Wait a few microseconds
mSDA_LOW(); // Clear SDA line
delay_Tbuf(); // Wait a few microseconds
mSCL_HIGH(); // Set SCL line
delay_Tbuf(); // Stop condition setup time(Tsu:sto=4.0us min)
mSDA_HIGH(); // Set SDA line
}
unsigned char TX_byte ( unsigned char Tx_buffer )
{
unsigned char Bit_counter;
unsigned char Ack_bit;
unsigned char bit_out;
for ( Bit_counter = 8; Bit_counter; Bit_counter-- )
{
if ( Tx_buffer & 0x80 )
bit_out = 1; // If the current bit of Tx_buffer is 1 set bit_out
else
bit_out = 0; // else clear bit_out
send_bit ( bit_out ); // Send the current bit on SDA
Tx_buffer <<= 1; // Get next bit for checking
}
Ack_bit = Receive_bit(); // Get acknowledgment bit
return Ack_bit;
}// End of TX_bite()
unsigned char RX_byte ( unsigned char ack_nack )
{
unsigned char RX_buffer;
unsigned char Bit_Counter;
for ( Bit_Counter = 8; Bit_Counter; Bit_Counter-- )
{
if ( Receive_bit() ) // Get a bit from the SDA line
{
RX_buffer <<= 1; // If the bit is HIGH save 1 in RX_buffer
RX_buffer |= 0x01;
}
else
{
RX_buffer <<= 1; // If the bit is LOW save 0 in RX_buffer
RX_buffer &= 0xfe;
}
}
send_bit ( ack_nack ); // Sends acknowledgment bit
return RX_buffer;
}
//---------------------------------------------------------------------------------------------
void send_bit ( unsigned char bit_out )
{
mSDA_OUT;
if ( bit_out )
mSDA_HIGH();
else
mSDA_LOW();
delay_Thd(); // Tsu:dat = 250ns minimum
mSCL_HIGH(); // Set SCL line
delay_Tbuf(); // High Level of Clock Pulse------------------
mSCL_LOW(); // Clear SCL line
delay_Tbuf(); // Low Level of Clock Pulse----------------------
// mSDA_HIGH(); // Master release SDA line ,
return;
}//End of send_bit()
//---------------------------------------------------------------------------------------------
unsigned char Receive_bit ( void )
{
unsigned char Ack_bit;
mSDA_IN; // SDA-input
_NOP();
_NOP();
_NOP();
mSCL_HIGH(); // Set SCL line
delay_Tbuf(); // High Level of Clock Pulse
// if(P2Input(BIT2))
SDA = 1;
if ( SDA )
Ack_bit = 1; // \ Read acknowledgment bit, save it in Ack_bit
else
Ack_bit = 0; // /
mSCL_LOW(); // Clear SCL line
delay_Tbuf(); // Low Level of Clock Pulse
return Ack_bit;
}//End of Receive_bit
unsigned int MemRead ( unsigned char SlaveAddress, unsigned char command )
{
unsigned int tdata; // Data storage (DataH:DataL)
unsigned char Pec; // PEC byte storage
unsigned char DataL; // Low data byte storage
unsigned char DataH; // High data byte storage
unsigned char arr[6]; // Buffer for the sent bytes
unsigned char PecReg; // Calculated PEC byte storage
unsigned char ErrorCounter; // Defines the number of the attempts for communication with MLX90614
ErrorCounter = 0x00; // Initialising of ErrorCounter
do
{
repeat:
STOP_bit(); //If slave send NACK stop comunication
--ErrorCounter; //Pre-decrement ErrorCounter
if ( !ErrorCounter ) //ErrorCounter=0?
{
break; //Yes,go out from do-while{}
}
START_bit(); //Start condition
if ( TX_byte ( SlaveAddress ) ) //Send SlaveAddress
{
goto repeat; //Repeat comunication again
}
if ( TX_byte ( command ) ) //Send command
{
goto repeat; //Repeat comunication again
}
START_bit(); //Repeated Start condition
if ( TX_byte ( SlaveAddress ) ) //Send SlaveAddress-------------------???
{
goto repeat; //Repeat comunication again
}
DataL = RX_byte ( ACK ); //Read low data,master must send ACK
DataH = RX_byte ( ACK ); //Read high data,master must send ACK
Pec = RX_byte ( NACK ); //Read PEC byte, master must send NACK
STOP_bit(); //Stop condition
arr[5] = SlaveAddress; //
arr[4] = command; //
arr[3] = SlaveAddress; //Load array arr
arr[2] = DataL; //
arr[1] = DataH; //
arr[0] = 0; //
PecReg = PEC_calculation ( arr ); //Calculate CRC
// UART1_SendOneChar ( PecReg );
// UART1_SendOneChar ( Pec );
}
while ( PecReg != Pec ); //If received and calculated CRC are equal go out from do-while{}
* ( ( unsigned char * ) ( &tdata ) ) = DataH; //
* ( ( unsigned char * ) ( &tdata ) + 1 ) = DataL; //data=DataH:DataL
return tdata;
}
unsigned char PEC_calculation ( unsigned char pec[] )
{
unsigned char crc[6];
unsigned char BitPosition = 47;
unsigned char shift;
unsigned char i;
unsigned char j;
unsigned char temp;
do
{
crc[5] = 0; /* Load CRC value 0x000000000107 */
crc[4] = 0;
crc[3] = 0;
crc[2] = 0;
crc[1] = 0x01;
crc[0] = 0x07;
BitPosition = 47; /* Set maximum bit position at 47 */
shift = 0;
//Find first 1 in the transmited message
i = 5; /* Set highest index */
j = 0;
while ( ( pec[i]& ( 0x80 >> j ) ) == 0 && i > 0 )
{
BitPosition--;
if ( j < 7 )
{
j++;
}
else
{
j = 0x00;
i--;
}
}/*End of while */
shift = BitPosition - 8; /*Get shift value for crc value*/
//Shift crc value
while ( shift )
{
for ( i = 5; i < 0xFF; i-- )
{
if ( ( crc[i-1] & 0x80 ) && ( i > 0 ) )
{
temp = 1;
}
else
{
temp = 0;
}
crc[i] <<= 1;
crc[i] += temp;
}/*End of for*/
shift--;
}/*End of while*/
//Exclusive OR between pec and crc
for ( i = 0; i <= 5; i++ )
{
pec[i] ^= crc[i];
}/*End of for*/
}
while ( BitPosition > 8 ); /*End of do-while*/
return pec[0];
}/*End of PEC_calculation*/
#endif