红外线遥控Proteus仿真电路+发射+接收程序

单片机的红外线遥控Proteus仿真电路+发射+接收程序


仿真图：


红外发射程序：

1. /***************************************************************
   
2.         作品：红外线发射
   
3.   单片机：STC89C52RC
   
4.     晶振：12M
   
5. 编译环境：Keil uVision4 V9.00
   
6. ***************************************************************/
   
7. //
   
8. //        发射引脚（接PNP三极管b极）
   
9. //        PNP三极管e极接2Ω电阻，c极接红外发射管
   
10.      
    
11. #include <REG51.h>
    
12. #include <intrins.h>
    
13. #define uchar unsigned char
    
14. #define uint  unsigned int
    
15. 
    
16. #define SBM   0x80                //识别码
    
17. 
    
18. #define m9    (65536-9000)               //约9mS
    
19. #define m4_5  (65536-4500)               //约4.5mS
    
20. #define m1_6  (65536-1630)               //约1.65mS
    
21. #define m_65  (65536-580)               //约0.65mS
    
22. #define m_56  (65536-560)               //约0.56mS
    
23. #define m40   (65536-40000)       //约40mS
    
24. #define m56   (65536-56000)       //56mS
    
25. #define m2_25 (65536-2250)        //约2.25mS
    
26. 
    
27. sbit IR  = P3^6;                                  //定义发射引脚（接PNP三极管基极）
    
28. sbit LED = P3^7;                                  //发射指示灯
    
29. 
    
30. uchar KEY(void);
    
31. void  SanZhuan(void);
    
32. void  ZZ(uchar x);
    
33. void  Z0(uchar temp);
    
34. void  TT0(bit BT,uint x);
    
35. void  YS(uchar time);
    
36. 
    
37. /*┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
    
38. 函数功能：主函数
    
39. ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈*/
    
40. void main(void)
    
41. {
    
42. 
    
43.   TMOD = 0x01;         //T0 16位工作方式
    
44.   IR=1;                                   //发射端口常态为高电平
    
45. 
    
46.   while(1)
    
47.   {
    
48.    SanZhuan();
    
49.   }
    
50. }
    
51. /***************************************************************
    
52. 函数功能：             4×4矩阵键盘
    
53.                            键值                    
    
54. P1.0 P1.1 P1.2 P1.3 P1.4 P1.5 P1.6 P1.7
    
55. │     │    │    │    │    │    │    │    ┃
    
56. │     │    │    └────13   14   15   16   ┃   
    
57. │     │    └─────────9    10   11   12   ┃   
    
58. │     └──────────────5    6    7    8    ┃   
    
59. └────────────────────1    2    3    4    ┃  
    
60. ***************************************************************/
    
61. uchar KEY(void)
    
62. {
    
63. uchar H,L;            //行值，列值
    
64. H=0;
    
65. L=0;
    
66. P1 = 0xf0;            //将键盘端口行值设为1，列值设为0
    
67. if(P1!= 0xf0)         //检测是否有按键按下，如果有则hangval必不为0x0f
    
68.    {
    
69.     YS(10);            //按键去抖动，延时10毫秒
    
70.     if(P1!=0xf0)       //确实有按键按下
    
71.       {
    
72.        H  = P1&0xf0;   //按键后得到按键的行标志位，将行标志位赋值给hangval
    
73.        P1 = 0x0f;      //翻转键盘接口输出
    
74.        L  = P1&0x0f;   //得到列标志位
    
75.       }
    
76.         return (H+L);
    
77.    }
    
78.   return 0;
    
79. }
    
80. /***************************************************************
    
81. 函数功能：散转程序
    
82. 入口参数：v
    
83. //
    
84. //  13 14 15 16
    
85. //  9  10 11 12
    
86. //  5  6  7  8
    
87. //  1  2  3  4
    
88. ***************************************************************/
    
89. void SanZhuan(void)
    
90. {
    
91. uchar v;
    
92. v = KEY();
    
93. 
    
94. switch(v)
    
95. {
    
96.   case 0x77:ZZ(0x01);v=0;break;                //"  "
    
97.   case 0xb7:ZZ(0x02);v=0;break;                //"  "
    
98.   case 0xd7:ZZ(0x03);v=0;break;                //"  "
    
99.   case 0xe7:ZZ(0x04);v=0;break;                //"  "
    
100.   case 0x7b:ZZ(0x05);v=0;break;                //"  "
     
101.   case 0xbb:ZZ(0x06);v=0;break;                //"  "
     
102.   case 0xdb:ZZ(0x07);v=0;break;                //"  "
     
103.   case 0xeb:ZZ(0x08);v=0;break;                //"  "
     
104.   case 0x7d:ZZ(0x09);v=0;break;                //"  "
     
105.   case 0xbd:ZZ(0x10);v=0;break;                //"  "
     
106.   case 0xdd:ZZ(0x11);v=0;break;                //"  "
     
107.   case 0xed:ZZ(0x12);v=0;break;                //"  "
     
108.   case 0x7e:ZZ(0x13);v=0;break;                //"  "
     
109.   case 0xbe:ZZ(0x14);v=0;break;                //"  "
     
110.   case 0xde:ZZ(0x15);v=0;break;                //"  "
     
111.   case 0xee:ZZ(0x16);v=0;break;                //"  "
     
112.   default:v=0;
     
113. }
     
114. }
     
115. /*┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
     
116. 函数功能：发送主程序
     
117. ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈*/
     
118. void ZZ(uchar x)
     
119. {
     
120.   TT0(1,m9);                   //高电平9mS
     
121.   TT0(0,m4_5);               //低电平4.5mS
     
122. 
     
123.   /*┈ 发送4帧数据 ┈*/
     
124.   Z0(SBM);                                                                                                                                       
     
125.   Z0(~SBM);
     
126.   Z0(x);
     
127.   Z0(~x);
     
128. 
     
129.   /*┈┈ 结束码 ┈┈*/
     
130.   TT0(1,m_65);
     
131.   TT0(0,m40);
     
132. 
     
133.   /*┈┈ 重复码 ┈┈*/
     
134.   while(KEY())
     
135.    {
     
136.         TT0(1,m9);
     
137.         TT0(0,m2_25);
     
138. 
     
139.         TT0(1,m_56);
     
140.         TT0(0,m40);
     
141.                 TT0(0,m56);
     
142.                
     
143.                 LED = !LED;                  //指示灯                                          
     
144.     }
     
145. 
     
146.    LED = 1;                    
     
147. 
     
148. }
     
149. /*┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
     
150. 函数功能：单帧发送程序
     
151. 入口参数：1帧数据
     
152. ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈*/
     
153. void Z0(uchar temp)
     
154. {
     
155.   uchar v;
     
156.   for (v=0;v<8;v++)                     //循环8次移位
     
157.        {     
     
158.                  TT0(1,m_65);                        //高电平0.65mS         
     
159.                          if(temp&0x01) TT0(0,m1_6); //发送最低位
     
160.                          else          TT0(0,m_56);     
     
161.                          temp >>= 1;                //右移一位
     
162.         }   
     
163. }
     
164. 
     
165. /*┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
     
166. 函数功能：38KHz脉冲发射 + 延时程序
     
167. 入口参数：（是否发射脉冲,延时约 x (uS)）
     
168. ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈*/
     
169. void TT0(bit BT,uint x)
     
170. {
     
171.   TH0 = x>>8;                    //输入T0初始值
     
172.   TL0 = x;
     
173.   TF0=0;                                //清0
     
174.   TR0=1;                                //启动定时器0
     
175.   if(BT == 0) while(!TF0);        //BT=0时不发射38KHz脉冲只延时；BT=1发射38KHz脉冲且延时；
     
176.   else while(1)                            //38KHz脉冲，占空比5:26
     
177.          {
     
178.                   IR = 0;
     
179.                   if(TF0)break;
     
180.               if(TF0)break;
     
181.                   IR = 1;
     
182.                 if(TF0)break;
     
183.                  if(TF0)break;
     
184.                  if(TF0)break;
     
185.                   if(TF0)break;
     
186.                  if(TF0)break;
     
187.                  if(TF0)break;
     
188.                  if(TF0)break;
     
189.                  if(TF0)break;
     
190.                  if(TF0)break;
     
191.                   if(TF0)break;
     
192.                  }
     
193.   TR0=0;                                //关闭定时器0
     
194.   TF0=0;                                //标志位溢出则清0
     
195. 
     
196.   IR =1;                                //脉冲停止后，发射端口常态为高电平
     
197. }
     
198. /***************************************************************
     
199. 函数功能：按键消抖    延时程序
     
200. 入口参数：1ms×time       （晶振=12MHz）
     
201. ***************************************************************/
     
202. void YS(uchar time)
     
203. {
     
204.      uchar i,j;
     
205.          for(i=0; i<time; i++)
     
206.      for(j=0; j<247; j++)_nop_();
     
207. }

复制代码

红外接收程序：

1. // STC 12T系列单片机红外接收NEC解码程序。适用于市场上用量最大的HT6121/6122及其兼容的IC编码。
   
2. // 使用外部中断0接收P3.2
   
3. //
   
4. #include <REGX52.H>
   
5. #include <intrins.h>
   
6. #define uchar unsigned char   
   
7. #define uint  unsigned int  
   
8. 
   
9. uchar code tab[] = {0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90,0X88,0X83,0XC6,0XA1,0X86,0X8E,0xFF};
   
10. 
    
11. sbit        IR    = P3^2;                 
    
12. 
    
13. uchar        N[4];                                 //识别码，操作码存放
    
14. uchar   X1,X2,X3,X4;
    
15. 
    
16. void XSQ(void);
    
17. void YS(uchar time);
    
18. 
    
19. /****************** 主函数 *******************/
    
20. void main(void)
    
21. {        
    
22.   X1=X2=X3=X4 = 0;
    
23.   
    
24.   IT0 = 1;
    
25.   EX0 = 1;
    
26.   EA  = 1;
    
27. 
    
28.   while(1)
    
29.   {
    
30.    XSQ();
    
31.   }
    
32. }
    
33. 
    
34. /**********************数码管显示函数************************/
    
35. void XSQ(void)
    
36. {
    
37.          P2_7=1;P0=tab[X1];P2_0=0;YS(1);        //识别码
    
38.      P2_0=1;P0=tab[X2];P2_1=0;YS(1);
    
39.      P2_1=1;P0=tab[16];P2_2=0;YS(1);
    
40.      P2_2=1;P0=tab[16];P2_3=0;YS(1);
    
41.      P2_3=1;P0=tab[16];P2_4=0;YS(1);
    
42.      P2_4=1;P0=tab[16];P2_5=0;YS(1);
    
43.      P2_5=1;P0=tab[X3];P2_6=0;YS(1);        //操作码
    
44.      P2_6=1;P0=tab[X4];P2_7=0;YS(1);
    
45. }
    
46. 
    
47. /********************** 外部中断函数************************/
    
48. void exint0() interrupt 0
    
49. {          
    
50.    uint cnt;
    
51.    uchar i;
    
52. 
    
53.    EX0 = 0;
    
54.    cnt = 0;       
    
55.        
    
56.    while(!IR) cnt++;                               //记录引导码时间
    
57.    if(cnt < 1000){EX0=1;return;}                   //9ms的计数值（12MHz：1000< cnt <1500）
    
58.           
    
59.    cnt = 0;                         
    
60.    while(IR) if(cnt++ > 400){EX0=1;return;}        //防卡死，超时保护（12MHz： > 300）   
    
61.    if(cnt < 200){EX0=1;return;}                    //（12MHz不分频： <260）            
    
62. 
    
63.    for(i=0; i<32; i++)                             //读取32位位码
    
64.        {
    
65.          cnt = 0;                                                                                                                                               
    
66.          while(!IR);                       
    
67.          while(IR) if(cnt++ > 200){EX0=1;return;}  //超时保护（12MHz：>=200）
    
68.          N[i/8] >>= 1;
    
69.          if(cnt>60) N[i/8] |= 0x80;                //0和1的计数界线（12MHz：< 109）   
    
70.        }
    
71. 
    
72.          if(N[0] == ~N[1] && N[2] == ~N[3])            //校验识别码，操作码       
    
73.            {
    
74.                    X1 = N[0]/16;
    
75.                 X2 = N[0]%16;
    
76.                 X3 = N[2]/16;
    
77.                 X4 = N[2]%16;
    
78.            }
    
79. 
    
80.         EX0 = 1;                 
    
81. }
    
82. 
    
83. /***************************************************************
    
84. 函数功能：按键消抖    延时程序
    
85. 入口参数：1ms×time       （晶振=12MHz）
    
86. ***************************************************************/
    
87. void YS(uchar time)
    
88. {
    
89.      uchar i,j;
    
90.          for(i=0; i<time; i++)
    
91.      for(j=0; j<247; j++)_nop_();
    
92. }

复制代码

全部资料下载：
红外线遥控Proteus仿真电路 发射 接收程序.zip (969.31 KB, 下载次数: 668)

2016-6-22 22:58 上传

点击文件名下载附件

mark一下，搞了半天,把Proteus换成7.5版本 终于打开了,如图

好东西啊，谢谢啦 好资料，51黑有你更精彩!!!

好东西谢谢啦！！

谢谢分享！！

为什么我下载的只能显示一个端口，另外一个没有现象

你好，请问这么下载啊

lizanai         发表于 2017-11-27 08:51
好东西谢谢啦！！

请问这个下下来的话，有没有仿真图

我还仿真图片都看不清楚呢

谢谢分享

好资料,非常感谢楼主！

好东西啊，谢谢啦

老铁能给发一份吗

好东西啊，谢谢啦

老铁能给发一份吗?

TT0的函数里面占空比怎么控制的？

有两个源代码  怎么一起使用呢

有用，非常感谢

TFS00133144 发表于 2017-11-30 16:54
请问这个下下来的话，有没有仿真图

有仿真图的，跟上面图片发的差不多

好东西啊，谢谢啦

好东西，谢谢啦

如果protues里没有IRLINK怎么办？

好东西啊，谢谢啦

很给力！

好东西啊，谢谢啦

好东西,下来学习下,谢谢分享

顶一个，下载过来试试看

没有一点实际意思，很明显的38KHZ载波没有，发射与接收如同接通的导线

刀刀见红 发表于 2019-1-17 22:54
没有一点实际意思，很明显的38KHZ载波没有，发射与接收如同接通的导线

嗯！真的是那么个事，还是用实物做实验才有效果!

给力，谢谢大佬

楼主神人！！

。。。。这个程序有问题吧

非常好的东西，学习啦

Mark一下，有币了再来！

谢谢大神的程序

难说哎 感觉不可以

为什么我下载的只能显示一个端口，另外一个没有现象

zyjywll 发表于 2020-8-6 18:03
为什么我下载的只能显示一个端口，另外一个没有现象

我也是

proteus 全图及元件名称可以发一下吗

Proteus7.5才能打开仿真 右边的单片机是发送,程序没有让屏幕显示 左侧单片机是接受