|
仿真原理圖如下(proteus仿真工程文件可到本帖附件中下載)
51hei.png (14.89 KB, 下載次數: 105)
下載附件
2020-6-29 22:34 上傳
51hei.png (21.11 KB, 下載次數: 103)
下載附件
2020-6-29 22:35 上傳
單片機源程序如下:
- /***************************************************************
- 作品:紅外線發射
- 單片機:STC89C52RC
- 晶振:12M
- 編譯環境:Keil uVision4 V9.00
- ***************************************************************/
- //
- // 發射引腳(接PNP三極管b極)
- // PNP三極管e極接2Ω電阻,c極接紅外發射管
-
- #include <REG51.h>
- #include <intrins.h>
- #define uchar unsigned char
- #define uint unsigned int
- #define SBM 0x80 //識別碼
- #define m9 (65536-9000) //約9mS
- #define m4_5 (65536-4500) //約4.5mS
- #define m1_6 (65536-1630) //約1.65mS
- #define m_65 (65536-580) //約0.65mS
- #define m_56 (65536-560) //約0.56mS
- #define m40 (65536-40000) //約40mS
- #define m56 (65536-56000) //56mS
- #define m2_25 (65536-2250) //約2.25mS
- sbit IR = P3^6; //定義發射引腳(接PNP三極管基極)
- sbit LED = P3^7; //發射指示燈
- uchar KEY(void);
- void SanZhuan(void);
- void ZZ(uchar x);
- void Z0(uchar temp);
- void TT0(bit BT,uint x);
- void YS(uchar time);
- /*┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
- 函數功能:主函數
- ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈*/
- void main(void)
- {
- TMOD = 0x01; //T0 16位工作方式
- IR=1; //發射端口常態為高電平
- while(1)
- {
- SanZhuan();
- }
- }
- /***************************************************************
- 函數功能: 4×4矩陣鍵盤
- 鍵值
- P1.0 P1.1 P1.2 P1.3 P1.4 P1.5 P1.6 P1.7
- │ │ │ │ │ │ │ │ ┃
- │ │ │ └────13 14 15 16 ┃
- │ │ └─────────9 10 11 12 ┃
- │ └──────────────5 6 7 8 ┃
- └────────────────────1 2 3 4 ┃
- ***************************************************************/
- uchar KEY(void)
- {
- uchar H,L; //行值,列值
- H=0;
- L=0;
- P1 = 0xf0; //將鍵盤端口行值設為1,列值設為0
- if(P1!= 0xf0) //檢測是否有按鍵按下,如果有則hangval必不為0x0f
- {
- YS(10); //按鍵去抖動,延時10毫秒
- if(P1!=0xf0) //確實有按鍵按下
- {
- H = P1&0xf0; //按鍵后得到按鍵的行標志位,將行標志位賦值給hangval
- P1 = 0x0f; //翻轉鍵盤接口輸出
- L = P1&0x0f; //得到列標志位
- }
- return (H+L);
- }
- return 0;
- }
- /***************************************************************
- 函數功能:散轉程序
- 入口參數:v
- //
- // 13 14 15 16
- // 9 10 11 12
- // 5 6 7 8
- // 1 2 3 4
- ***************************************************************/
- void SanZhuan(void)
- {
- uchar v;
- v = KEY();
-
- switch(v)
- {
- case 0x77:ZZ(0x01);v=0;break; //" "
- case 0xb7:ZZ(0x02);v=0;break; //" "
- case 0xd7:ZZ(0x03);v=0;break; //" "
- case 0xe7:ZZ(0x04);v=0;break; //" "
- case 0x7b:ZZ(0x05);v=0;break; //" "
- case 0xbb:ZZ(0x06);v=0;break; //" "
- case 0xdb:ZZ(0x07);v=0;break; //" "
- case 0xeb:ZZ(0x08);v=0;break; //" "
- case 0x7d:ZZ(0x09);v=0;break; //" "
- case 0xbd:ZZ(0x10);v=0;break; //" "
- case 0xdd:ZZ(0x11);v=0;break; //" "
- case 0xed:ZZ(0x12);v=0;break; //" "
- case 0x7e:ZZ(0x13);v=0;break; //" "
- case 0xbe:ZZ(0x14);v=0;break; //" "
- case 0xde:ZZ(0x15);v=0;break; //" "
- case 0xee:ZZ(0x16);v=0;break; //" "
- default:v=0;
- }
- }
- /*┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
- 函數功能:發送主程序
- ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈*/
- void ZZ(uchar x)
- {
- TT0(1,m9); //高電平9mS
- TT0(0,m4_5); //低電平4.5mS
- /*┈ 發送4幀數據 ┈*/
- Z0(SBM);
- Z0(~SBM);
- Z0(x);
- Z0(~x);
- /*┈┈ 結束碼 ┈┈*/
- TT0(1,m_65);
- TT0(0,m40);
- /*┈┈ 重復碼 ┈┈*/
- while(KEY())
- {
- TT0(1,m9);
- TT0(0,m2_25);
- TT0(1,m_56);
- TT0(0,m40);
- TT0(0,m56);
-
- LED = !LED; //指示燈
- }
- LED = 1;
- }
- /*┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
- 函數功能:單幀發送程序
- 入口參數:1幀數據
- ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈*/
- void Z0(uchar temp)
- {
- uchar v;
- for (v=0;v<8;v++) //循環8次移位
- {
- TT0(1,m_65); //高電平0.65mS
- if(temp&0x01) TT0(0,m1_6); //發送最低位
- else TT0(0,m_56);
- temp >>= 1; //右移一位
- }
- }
- /*┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
- 函數功能:38KHz脈沖發射 + 延時程序
- 入口參數:(是否發射脈沖,延時約 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時不發射38KHz脈沖只延時;BT=1發射38KHz脈沖且延時;
- else while(1) //38KHz脈沖,占空比5:26
- {
- IR = 0;
- if(TF0)break;
- if(TF0)break;
- IR = 1;
- if(TF0)break;
- if(TF0)break;
- ……………………
- …………限于本文篇幅 余下代碼請從51黑下載附件…………
復制代碼
51hei.png (10.18 KB, 下載次數: 93)
下載附件
2020-6-29 22:34 上傳
所有資料51hei提供下載:
紅外線遙控Proteus仿真電路+發射+接收程序.7z
(1.19 MB, 下載次數: 122)
2020-6-29 22:51 上傳
點擊文件名下載附件
下載積分: 黑幣 -5
|
評分
-
查看全部評分
|