基于51單片機和紅外收發模塊的遠程溫度控制與檢測

ID:223492 · 發表于 2017-7-31 10:20

紅外線遙控Proteus仿真電路+發射+接收程序

仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）

同時還附帶了大量的相關新資料：

目錄：
hw+ds1307\
38kHz 紅外發射與接收.doc
8050.pdf
8050S.pdf
90182.pdf
901850303.pdf
S8050.pdf
wendu.ldb
基于M50462AP和CX20106A芯片的雙工紅外線通信系統.pdf
基于nRF9E5的多點無線溫度采集系統設計.pdf
基于ZigBee技術的公共場所無線溫度采集系統.pdf
微機—單片機紅外線通信.pdf
無線溫度采集系統.doc
無線溫度采集系統.pdf
無線溫度采集系統的設計.pdf
無線溫度采集系統設計報告.doc
用89C51單片機控制紅外線通信接口電路設計.pdf
短距離無線溫度采集系統設計.pdf
線溫度采集系統.pdf

單片機發送源程序如下:

#include<reg52.h>
#include<intrins.h>
#include<absacc.h>
#define uchar unsigned char
#define uint unsigned int
#define Write_comm XBYTE[0XFCFF] //RS=0,RW=0,指令寄存器寫入 0100 0000
#define Read_addr XBYTE[0XFEFF] //RS=0,RW=1,忙標志和地址計數器讀出 0100 0010
#define Write_data XBYTE[0X4DFF]
sbit DATA = P1^0; //DS18B20接入口
uchar t;
uchar xsd;
delay1(uint i) //延時1MS
{
uint j,k;
for(j=0;j<i;j++)
for(k=0;k<120;k++);
}
/*延時子函數*/
void delay(uint num)
{
while(num--) ;
}
void LCDBusy() //------------lcd忙碌判斷
{
uchar a;
do{
P0=0xFF;
a=Read_addr;
}
while ((a&0x80)!=0x00);
}
void LCDInit() //---------------lcd初始化
{
LCDBusy();
Write_comm=0x38; //使用8 位數據，顯示兩行，使用5*7 的字型
LCDBusy();
Write_comm=0x01; //清屏
LCDBusy();
Write_comm=0x06; //字符不動，光標自動右移一格
LCDBusy();
Write_comm=0x0c; //顯示器開，光標不顯示，字符不閃爍
}
lcd1() //---------數據處理，液晶顯示屏第一行處理程序
{
LCDBusy();
Write_comm=0x80;
LCDBusy();
Write_data=(0x54); //T
LCDBusy();
Write_data=(0x65); //e
LCDBusy();
Write_data=(0x6d); //m
LCDBusy();
Write_data=(0x70); //p
LCDBusy();
Write_data=(0x65); //e
LCDBusy();
Write_data=(0x72); //r
LCDBusy();
Write_data=(0x61); //a
LCDBusy();
Write_data=(0x74); //t
LCDBusy();
Write_data=(0x75); //u
LCDBusy();
Write_data=(0x72); //r
LCDBusy();
Write_data=(0x65); //e
LCDBusy();
Write_data=(0x3a); //:
LCDBusy();
Write_comm=0xc0;
LCDBusy();
Write_data=0x2b;
LCDBusy();
Write_comm=0xc4;
LCDBusy();
Write_data=0x2e;
LCDBusy();
Write_comm=0xc6;
LCDBusy();
Write_data=0xdf;
LCDBusy();
Write_data=0x43;
}
xsdcl() //小數點位處理程序
{
switch(xsd)
{
case 0x00: return(0); break;
case 0x01: return(0); break;
case 0x02: return(1); break;
case 0x03: return(1); break;
case 0x04: return(2); break;
case 0x05: return(3); break;
case 0x06: return(3); break;
case 0x07: return(4); break;
case 0x08: return(5); break;
case 0x09: return(5); break;
case 0x0a: return(6); break;
case 0x0b: return(6); break;
case 0x0c: return(7); break;
case 0x0d: return(8); break;
case 0x0e: return(8); break;
case 0x0f: return(9); break;
default: break;
}
}
lcd2() //---------數據處理，液晶顯示屏第二行處理程序，顯示當前溫度
{
uchar a[4];
a[0]=t/100;
a[1]=(t%100)/10;
a[2]=t%10;
a[3]=xsdcl();
LCDBusy();
Write_comm=0xc1;
LCDBusy();
Write_data=a[0]+0x30; //百位
LCDBusy();
Write_data=a[1]+0x30; //十位
LCDBusy();
Write_data=a[2]+0x30; //個
LCDBusy();
Write_comm=0xc5;
LCDBusy();
Write_data=a[3]+0x30; //小數點位
}
/*******************************************DS18b20溫度傳感器函數***************************************/
//傳感器初始化
Init_DS18B20(void)
{
uchar x=0;
DATA = 1; //DQ復位
delay(10); //稍做延時
DATA = 0; //單片機將DQ拉低
delay(80); //精確延時大于 480us //450
DATA = 1; //拉高總線
delay(20);
x=DATA; //稍做延時后如果x=0則初始化成功 x=1則初始化失敗
delay(30);
}
//讀一個字節
ReadOneChar(void)
{
uchar i=0;
uchar dat = 0;
for (i=8;i>0;i--)
{
DATA = 0; // 給脈沖信號
dat>>=1;
DATA = 1; // 給脈沖信號
if(DATA)
dat|=0x80;
delay(8);
}
return(dat);
}
//寫一個字節
WriteOneChar(unsigned char dat)
{
uchar i=0;
for (i=8; i>0; i--)
{
DATA = 0;
DATA = dat&0x01;
delay(10);
DATA = 1;
dat>>=1;
}
delay(8);
}
//讀取溫度
ReadTemperature(void)
{
uchar a=0;
uchar b=0;
//int t=0;
float tt=0;
Init_DS18B20();
WriteOneChar(0xCC); // 跳過讀序號列號的操作
WriteOneChar(0x44); // 啟動溫度轉換
Init_DS18B20();
WriteOneChar(0xCC); //跳過讀序號列號的操作
WriteOneChar(0xBE); //讀取溫度寄存器等（共可讀9個寄存器）前兩個就是溫度
a=ReadOneChar();//低位
b=ReadOneChar();//高位
//b=b&0x0f;
t=b<<4;
xsd=a&0x0f;
a=a>>4;
t=t|a;
}
/*********************************************************************************************************/
//*****************溫度采集單片機串行口發送程序***********************//
void transdata()
{
uchar m[2];
uchar i;
m[0]=t;
m[1]=xsd;
for(i=0;i<2;i++)
{
SBUF=m[i];
while(!TI);
TI=0;
}
}
//**********串行口初始化，串行工作在工作方式1，T1定時，工作在方式2，波特率不加倍*************//
void Initial()
……………………
…………限于本文篇幅余下代碼請從51黑下載附件…………

復制代碼

所有資料51hei提供下載:

基于51單片機和紅外收發模塊的遠程溫度控制與檢測.rar (2.37 MB, 下載次數: 113)

ID:102679 · 發表于 2017-8-5 10:53

謝謝分享

ID:294229 · 發表于 2018-3-23 09:37

謝謝您的分享，很有幫助

ID:294229 · 發表于 2018-3-23 09:38

謝謝分享，很有幫助

ID:297180 · 發表于 2018-3-26 13:10

感謝分享

ID:322550 · 發表于 2018-5-5 10:02

謝謝分享

ID:328844 · 發表于 2018-5-13 14:31

謝謝分享

ID:440585 · 發表于 2019-12-7 15:40

樓主您好這個程序非常實用能幫我加一個接收模塊上當溫度達到255.9度時P1^7腳輸出低電平嗎？謝謝了

ID:698376 · 發表于 2020-3-23 17:00

感謝分享

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

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

基于51單片機和紅外收發模塊的遠程溫度控制與檢測