51单片机MLX90614非接触红外测温程序中文资料，带电路亲测有效

ID:655794 · 发表于 2019-12-4 11:27

这个模块采用I2C通讯，只需要接两个上拉电阻，就可以了，还是很好用的。推荐一波

单片机源程序如下:

#include"at89x52.h"
#include"intrins.h"
//************************************
#define uint unsigned int
#define uchar unsigned char
#define Nack_counter 10
//************** 端口定义**************
//LCD 控制线接口
uchar flag1;
sbit RS=P0^7;
sbit RW=P0^6;
sbit LCDE=P0^5;
//mlx90614 端口定义
sbit SCL=P1^6;// 时钟线
sbit SDA=P1^7;// 数据线
//************ 数据定义****************
bdata uchar flag;//可位寻址数据
sbit bit_out=flag^7;
sbit bit_in=flag^0;
uchar DataH,DataL,Pecreg;
//************ 函数声明*****************************************
void start_bit(); //MLX90614 发起始位子程序
void stop_bit(); //MLX90614发结束位子程序
uchar rx_byte(void); //MLX90614 接收字节子程序
void send_bit(void); //MLX90614发送位子程序
void tx_byte(uchar dat_byte); //MLX90614 接收字节子程序
void receive_bit(void); //MLX90614接收位子程序
void delay(uint N); //延时程序
uint memread(void); // 读温度数据
void init1602(void); //LCD 初始化子程序
void chk_busy_flg(void); //LCD 判断忙子程序
void dis_cmd_wrt(uchar cmd); //LCD 写命令子程序
void dis_dat_wrt(uchar dat); //LCD 写数据子程序
void display(uint Tem); // 显示子程序
//*************主函数*******************************************
void main()
{
uint Tem;
//函数部分
SCL=1;SDA=1;_nop_();
_nop_();_nop_();_nop_();
SCL=0;
delay(1000);
SCL=1;
init1602();
while(1)
{
Tem=memread();
display(Tem);
delay(20);
}
}
//*********输入转换并显示*********
void display(uint Tem)
{
uint T,a,b;
T=Tem*2;
dis_cmd_wrt(0x01);//清屏
if(T>=27315)
{
T=T-27315;
a=T/100;
b=T-a*100;
//---------------------------
if(a>=100)
{
dis_dat_wrt(0x30+a/100);
a=a%100;
dis_dat_wrt(0x30+a/10);
a=a%10;
dis_dat_wrt(0x30+a);
}
else if(a>=10)
{
dis_dat_wrt(0x30+a/10);
a=a%10;
dis_dat_wrt(0x30+a);
}
else
{
dis_dat_wrt(0x30+a);
}
dis_dat_wrt(0x2e);// 显示点
//---------------------------
if(b>=10)
{
dis_dat_wrt(0x30+b/10);
// b=b%10;
// dis_dat_wrt(0x30+b);
}
else
{
dis_dat_wrt(0x30);
// dis_dat_wrt(0x30+b);
}
}
//==========
else
{
T=27315-T;
a=T/100;
b=T-a*100;
dis_dat_wrt(0x2d);
//--------------------------
if(a>=10)
{
dis_dat_wrt(0x30+a/10);
a=a%10;
dis_dat_wrt(0x30+a);
}
else
{
dis_dat_wrt(0x30+a);
}
dis_dat_wrt(0x2e);//显示点
//--------------------------
if(b>=10)
{
dis_dat_wrt(0x30+b/10);
b=b%10;
dis_dat_wrt(0x30+b);
}
else
{
dis_dat_wrt(0x30);
dis_dat_wrt(0x30+b);
}
}
}
//************************************
void start_bit(void)
{
SDA=1;
_nop_();_nop_();_nop_();_nop_();_nop_();
SCL=1;
_nop_();_nop_();_nop_();_nop_();_nop_();
SDA=0;
_nop_();_nop_();_nop_();_nop_();_nop_();
SCL=0;
_nop_();_nop_();_nop_();_nop_();_nop_();
}
//------------------------------
void stop_bit(void)
{
SCL=0;
_nop_();_nop_();_nop_();_nop_();_nop_();
SDA=0;
_nop_();_nop_();_nop_();_nop_();_nop_();
SCL=1;
_nop_();_nop_();_nop_();_nop_();_nop_();
SDA=1;
}
//--------- 发送一个字节---------
void tx_byte(uchar dat_byte)
{
char i,n,dat;
n=Nack_counter;
TX_again:
dat=dat_byte;
for(i=0;i<8;i++)
{
if(dat&0x80)
bit_out=1;
else
bit_out=0;
send_bit();
dat=dat<<1;
}
receive_bit();
if(bit_in==1)
{
stop_bit();
if(n!=0)
{n--;goto Repeat;}
else
goto exit;
}
else
goto exit;
Repeat:
start_bit();
goto TX_again;
exit: ;
}
//-----------发送一个位---------
void send_bit(void)
{
if(bit_out==0)
SDA=0;
else
SDA=1;
_nop_();
SCL=1;
_nop_();_nop_();_nop_();_nop_();
_nop_();_nop_();_nop_();_nop_();
SCL=0;
_nop_();_nop_();_nop_();_nop_();
_nop_();_nop_();_nop_();_nop_();
}
//---------- 接收一个字节--------
uchar rx_byte(void)
{
uchar i,dat;
dat=0;
for(i=0;i<8;i++)
{
dat=dat<<1;
receive_bit();
if(bit_in==1)
dat=dat+1;
}
send_bit();
return dat;
}
//---------- 接收一个位----------
void receive_bit(void)
{
SDA=1;bit_in=1;
SCL=1;
_nop_();_nop_();_nop_();_nop_();
_nop_();_nop_();_nop_();_nop_();
bit_in=SDA;
_nop_();
SCL=0;
_nop_();_nop_();_nop_();_nop_();
_nop_();_nop_();_nop_();_nop_();
}
//------------ 延时--------------
void delay(uint N)
{
uint i;
for(i=0;i<N;i++)
_nop_();
}
//------------------------------
uint memread(void)
{
start_bit();
tx_byte(0xB4); //Send SlaveAddress ==============================
//tx_byte(0x00);
tx_byte(0x07); //Send Command
//------------
start_bit();
tx_byte(0x01);
bit_out=0;
DataL=rx_byte();
bit_out=0;
DataH=rx_byte();
bit_out=1;
Pecreg=rx_byte();
stop_bit();
return(DataH*256+DataL);
}
//******************LCD 显示子函数***********************
void init1602(void) // 初始化LCD
{
dis_cmd_wrt(0x01);
dis_cmd_wrt(0x0c);
dis_cmd_wrt(0x06);
dis_cmd_wrt(0x38);
}
void chk_busy_flg(void) //LCD 忙标志判断
{
flag1=0x80;
while(flag1&0x80)
{
P2=0xff;
RS=0;
RW=1;
LCDE=1;
flag1=P2;
LCDE=0;
}
}
void dis_cmd_wrt(uchar cmd) // 写命令子函数
{
chk_busy_flg();
P2=cmd;
RS=0;
RW=0;
LCDE=1;
LCDE=0;
}
void dis_dat_wrt(uchar dat) // 写数据子函数
{
chk_busy_flg();
if(flag1==16)
{
P2=0XC0;
RS=0;
RW=0;
LCDE=1;
LCDE=0;
}
P2=dat;
RS=1;
RW=0;
LCDE=1;
LCDE=0;
}

复制代码

所有资料51hei提供下载:

YX62425-MAX90614非接触红外测温-190518.zip (17.78 MB, 下载次数: 506)

ID:678308 · 发表于 2019-12-31 17:42

对应这个代码的电路原理图没有吗

ID:678308 · 发表于 2019-12-31 18:10

对应的电路原理图单片机和lcd的连接

ID:84495 · 发表于 2020-2-19 16:35

非常时期，这个东西还是挺不错的，可以搞个测温枪了

ID:84495 · 发表于 2020-2-19 16:48

楼主测试的精度如何，我的614还没到货，

ID:695384 · 发表于 2020-2-20 23:51

MLX90614esf-baa 5K

ID:373684 · 发表于 2020-2-21 10:56

MLX90614 一百多1块啊。好贵啊。做不出来就麻烦了

ID:373684 · 发表于 2020-2-21 11:35

是不是用Aduino 做的

ID:696181 · 发表于 2020-2-21 16:59

好像下载不了

ID:696181 · 发表于 2020-2-21 17:09

有原理图吗

ID:384489 · 发表于 2020-2-24 17:21

这个系列BAA都炒到95块了还不好买，DCC直接买不到。

ID:89286 · 发表于 2020-2-25 10:53

thanks for sharing

ID:697813 · 发表于 2020-2-25 11:14

说实在话。没有原理图，只有程序，，很难搞明白工作原理的。

ID:56665 · 发表于 2020-2-25 11:44

不知道以前MLX90614模组价格是多少，现在这个价格太贵了。

ID:373684 · 发表于 2020-2-26 09:23

m182892 发表于 2020-2-25 11:44
不知道以前MLX90614模组价格是多少，现在这个价格太贵了。

TB要70多啊

ID:700929 · 发表于 2020-3-4 23:27

对应仿真图没有吗

ID:679425 · 发表于 2020-3-5 14:12

谢谢楼主分享！！！

ID:580340 · 发表于 2020-3-6 18:37

m182892 发表于 2020-2-25 11:44
不知道以前MLX90614模组价格是多少，现在这个价格太贵了。

75买的

ID:688939 · 发表于 2020-3-21 22:20

这玩意现在买太坑，年前那个宝BAA 25块钱一个，年后100多都不零售，就因为这个我的项目都改了

ID:369306 · 发表于 2020-4-3 10:10

很好的资料

ID:735912 · 发表于 2020-5-7 13:35

这个能加报警功能吗

ID:746300 · 发表于 2020-5-8 14:31

absflash 发表于 2020-2-19 16:35
非常时期，这个东西还是挺不错的，可以搞个测温枪了

这里面的文件怎么用啊，，，

ID:604918 · 发表于 2020-9-20 22:10

求个原理图

ID:217419 · 发表于 2020-9-27 21:21

对应的电路原理图单片机和lcd的连接

ID:826428 · 发表于 2020-11-28 21:25

这不是smbus总线通信吗，还是我认错了，虽然和i2c很像

ID:136485 · 发表于 2021-10-11 09:05

下载看看，不过现在这个传感器贵

帐号		自动登录	找回密码
密码			立即注册

51单片机MLX90614非接触红外测温程序中文资料，带电路亲测有效

评分