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, 下載次數: 509)

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

下載看看，不過現在這個傳感器貴

帳號		自動登錄	找回密碼
密碼			立即注冊

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

51單片機MLX90614非接觸紅外測溫程序中文資料，帶電路親測有效

評分

	14^# 無效樓層，該帖已經被刪除

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

51單片機MLX90614非接觸紅外測溫程序中文資料，帶電路親測有效

評分

51單片機MLX90614非接觸紅外測溫程序中文資料，帶電路親測有效