使用兩個51單片機采用一體式紅外通信,傳輸ASCII,并且使用接收單片機顯示在數碼管上。
仿真和程序都具有
0.png (71.3 KB, 下載次數: 80)
下載附件
2019-7-4 22:19 上傳
單片機源程序如下:
- #include <REG51.h>
- #include <intrins.h>
- #include "hongwaifashe.h"
- void hongwaifashe(void)
- {
- TMOD = 0x01; //T0 16位工作方式
- IR=1; //發(fā)射端口常態(tài)為高電平
- ZZ(setdata[0]);
- ZZ(setdata[1]);
- }
- void ZZ(uchar x)
- {
- TT0(1,m9); //高電平9mS
- TT0(0,m4_5); //低電平4.5mS
- /*┈ 發(fā)送4幀數據 ┈*/
- Z0(SBM);
- Z0(~SBM);
- Z0(x);
- Z0(~x);
- /*┈┈ 結束碼 ┈┈*/
- TT0(1,m_56);
- TT0(0,m40);
- }/*┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
- 函數功能:單幀發(fā)送程序
- 入口參數:1幀數據
- ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈*/
- void Z0(uchar temp)
- {
- uchar v;
- for (v=0;v<8;v++) //循環(huán)8次移位
- {
- TT0(1,m_56); //高電平0.65mS
- if(temp&0x01) TT0(0,m1_68); //發(fā)送最低位
- else TT0(0,m_56);
- temp >>= 1; //右移一位
- }
- }
- /*┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
- 函數功能:38KHz脈沖發(fā)射 + 延時程序
- 入口參數:(是否發(fā)射脈沖,延時約 x (uS))
- ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈*/
- void TT0(bit BT,uint x)
- {
- TH0 = x>>8; //輸入T0初始值
- TL0 = x;
- TF0=0; //清0
- TR0=1; //啟動定時器0
- if(BT == 0) while(!TF0); //BT=0時不發(fā)射38KHz脈沖只延時;BT=1發(fā)射38KHz脈沖且延時;
- else while(1) //38KHz脈沖,占空比5:26
- {
- IR = 0;
- if(TF0)break;
- if(TF0)break;
- IR = 1;
- if(TF0)break;
- if(TF0)break;
- if(TF0)break;
- if(TF0)break;
- if(TF0)break;
- if(TF0)break;
- if(TF0)break;
- if(TF0)break;
- if(TF0)break;
- if(TF0)break;
- }
- TR0=0; //關閉定時器0
- TF0=0; //標志位溢出則清0
- IR =1; //脈沖停止后,發(fā)射端口常態(tài)為高電平
- }
復制代碼
所有資料51hei提供下載:
紅外無線通信.zip
(146.29 KB, 下載次數: 117)
2019-7-4 21:45 上傳
點擊文件名下載附件
下載積分: 黑幣 -5
|