MLX90640 红外热成像仪测温模块开发笔记（二）

wenkon

MLX90640 红外热成像仪测温模块开发笔记（二）API 移植-I2C 和关键接口函数

API 说明文件里面有官方的移植指导，但我觉得可以把重点放在与 MLX90640 具体操作有关的几个函数上，而与标准 I2C 相关的函数和文件结构还是按照自己习惯的套路实现。这样更符合我们开发人员的可控性的习惯。步骤如下：
（1）        建立标准 I2C 文件 IIC.h 和 IIC.c
用自己的方法实现如下几个函数（硬件也好，GPIO 模拟也好），函数名称用下面建议的。
void IIC_Init(void);        //I2C 接口初始化
void IIC_Start(void);        //发送开始信号
void IIC_Stop(void);        //发送结束信号
void IIC_SendACK(void);        //发送应答信号
void IIC_SendNAK(void);        //发送非应答信号unsigned char IIC_RecvACK(void);        //读取应答信号unsigned char IIC_RecvData(void);        //读取 1 个字节void IIC_SendData(char dat);        //发送 1 个字节
（2）        在工程中引入 MLX90640_API.c
并做如下几处修改
第一行#include <MLX90640_I2C_Driver.h>改为#include <IIC.h>
（3）        添加 3 个函数
void MLX90640_I2CInit(void)
unsigned char MLX90640_I2CRead (unsigned short startAddress, unsigned short nWordsRead, unsigned short *datas)
unsigned char MLX90640_I2CWrite (unsigned short writeAddress, unsigned short word)

void MLX90640_I2CInit(void)
{
IIC_Stop();
}
//从指定地址读取 n 个字（每个字占用 2 个字节）
unsigned char MLX90640_I2CRead(unsigned short startAddress, unsigned short nWordsRead, unsigned short *datas)
{
unsigned char c1,c2; unsigned short i; unsigned char Msb,Lsb;

Msb=(unsigned char)(startAddress>>8); Lsb=(unsigned char)(startAddress&0x00FF);

IIC_Start();        //发送起始命令

IIC_SendData(0x66);        //发送设备地址+写命令IIC_RecvACK();
IIC_SendData(Msb);        //发送要操作的地址值 2 字节

IIC_RecvACK();
IIC_SendData(Lsb);
IIC_RecvACK();

IIC_Start();        //发送起始命令
IIC_SendData(0x67);        //发送设备地址+读命令IIC_RecvACK();
for (i=0;i<nWordsRead;i++)
{
c1=IIC_RecvData(); IIC_SendACK();
c2=IIC_RecvData();
if (i==(nWordsRead-1)) IIC_SendNAK();
else
IIC_SendACK();

datas=c1; datas<<=8; datas|=c2;
}
IIC_Stop();        //发送停止命令

return 0;
}
//向指定地址写入 1 个字（2 字节）
unsigned char MLX90640_I2CWrite(unsigned int writeAddress, unsigned int word)
{
IIC_Start();        //发送起始命令
IIC_SendData(0x66);        //发送设备地址+写命令IIC_RecvACK();
IIC_SendData(writeAddress>>8);        //发送要操作的地址值 2 字节
IIC_RecvACK();
IIC_SendData(writeAddress&0x00FF); IIC_RecvACK();

IIC_SendData(word>>8); IIC_RecvACK();
IIC_SendData(word&0x00FF); IIC_RecvACK();

IIC_Stop(); return 0;

（4）修改 2 个函数
unsigned char MLX90640_DumpEE(unsigned short *eeData)
{
return MLX90640_I2CRead(0x2400, 832, eeData);
}

unsigned char MLX90640_GetFrameData(unsigned short *frameData)
{
unsigned short statusRegister,controlRegister1;

MLX90640_I2CRead(0x8000, 1, &statusRegister); if (statusRegister&0x0008)//有测量完成的 Frame
{
MLX90640_I2CRead(0x800D, 1, &controlRegister1); MLX90640_I2CWrite(0x8000, statusRegister&(~0x0018)); MLX90640_I2CRead(0x0400, 832, frameData); frameData[832] = controlRegister1;
frameData[833] = statusRegister & 0x0001; return 0;
}
Return -1;
}

至此移植完成
编译工程，若没有错误提示则基本上没有问题了，下一篇开始讲述如何操作MLX90640。

tulips

厉害啊，这个成品要多少钱一个。

用的c语言驱动？

wqwq212

开发、测试到实际销售使用需要一个过程，早日走上市场。

憨豆先生

支持楼主，便宜的话我买一台

xjmar

楼主牛人一个

wwk1996

红外传感器太贵了，做个成像仪成本不少。不过相对直接买成品，DIY能学到不少知识，也更有成就感。

数码家园

坐等佳作出品

sun5320

早日走上市场

wenkon

憨豆先生 发表于 2022-8-1 18:33
支持楼主，便宜的话我买一台

300多米，哈。。可以玩一下。

xuguangqi08

有创意，赶紧量产

hade

实力技术帖子，慢慢学习一下

飞向狙沙

tulips 发表于 2022-8-1 16:34
厉害啊，这个成品要多少钱一个。

用的c语言驱动？

模块160.成品估计得250+看错了,没屏幕,那就另说

xilige2020

坐等佳作出品，关注中

tulips

飞向狙沙 发表于 2022-8-2 10:28
模块160.成品估计得250+看错了,没屏幕,那就另说

哦，成本不低。不过比市场上现有的那些成品还是便宜太多了

临风听雨

楼主厉害了

cdxwg

红外热成像仪测温模块很小巧

wenkon

cdxwg 发表于 2022-8-2 22:03
红外热成像仪测温模块很小巧

是的，可玩性也很强。