基于51单片机的红外遥控灯 原理图及程序

红外遥控灯单片机原理图：




单片机源程序：

1. //头函数
   
2. #include <reg52.h>
   
3. //宏定义
   
4. #define uint unsigned int
   
5. #define uchar unsigned char
   
6. 
   
7. //时间计算
   
8. #define Imax 14000    //此处为晶振为11.0592时的取值,
   
9. #define Imin 8000    //如用其它频率的晶振时,
   
10. #define Inum1 1450    //要改变相应的取值。
    
11. #define Inum2 700
    
12. #define Inum3 3000
    
13. sbit led1=P2^3;
    
14. sbit led2=P2^0;
    
15. //解码变量
    
16. unsigned char Im[4]={0x00,0x00,0x00,0x00};
    
17. 
    
18. //全局变量
    
19. uchar f;
    
20. unsigned long m,Tc;
    
21. unsigned char IrOK;
    
22. 
    
23. 
    
24. //主函数
    
25. void main()
    
26. {
    
27.         P2=0xff;
    
28.        
    
29.         EA=1;//开启总中断
    
30.          
    
31.         IT1=1;//下降沿有效
    
32.         EX1=1;//外部中断1开
    
33.          
    
34.         TMOD=0x01;//定时器初始化  
    
35.         TH0=0;//T0赋初值
    
36.         TL0=0;
    
37.         TR0=0;//t0开始计时
    
38.         while(1)
    
39.         {
    
40.                 if(IrOK==1)
    
41.                 {
    
42.                         //1键
    
43.                         if(Im[2]==0x0c)
    
44.                         {
    
45.                            P2=0x00;
    
46.                  led1=0;
    
47.                         }
    
48.                         //2键
    
49.                         else if(Im[2]==0x18)
    
50.                         {
    
51.                            //P2=0xa2;
    
52.                                     led1=1;
    
53.                         }
    
54.                         //3键
    
55.                         else if(Im[2]==0x5e)
    
56.                         {
    
57.                            P2=0xb0;
    
58.                         }
    
59.                         //4
    
60.                         else if(Im[2]==0x08)
    
61.                         {
    
62.                           // P2=0x08;
    
63.                                    led2=0;
    
64.                         }
    
65.                         //5
    
66.                         else if(Im[2]==0x1c)
    
67.                         {
    
68.                           // P2=0x91;
    
69.                                    led2=1;
    
70.                         }
    
71.                         //6
    
72.                         else if(Im[2]==0x5a)
    
73.                         {
    
74.                            P2=0x8c;
    
75.                         }
    
76.                         //7键
    
77.                         else if(Im[2]==0x42)
    
78.                         {
    
79.                            P2=0xf8;
    
80.                         }
    
81.                         //8
    
82.                         else if(Im[2]==0x52)
    
83.                         {
    
84.                            P2=0x80;
    
85.                         }
    
86.                         //9
    
87.                         else if(Im[2]==0x4a)
    
88.                         {
    
89.                            P2=0x90;
    
90.                         }
    
91.                         //0
    
92.                         else if(Im[2]==0x16)
    
93.                         {
    
94.                            P2=0xc0;
    
95.                         }
    
96.                         //关机
    
97.                         else if(Im[2]==0x45)
    
98.                         {
    
99.                            P2=0xff;
    
100.                         }
     
101.                    IrOK=0;          
     
102.                 }
     
103.         }
     
104. }
     
105. 
     
106. //外部中断解码程序_外部中断1
     
107. void intersvr1(void) interrupt 2 using 1
     
108. {
     
109. TR0=1;
     
110. Tc=TH0*256+TL0;//提取中断时间间隔时长
     
111. TH0=0;
     
112. TL0=0;         //定时中断重新置零
     
113. if((Tc>Imin)&&(Tc<Imax))
     
114. {
     
115.         m=0;
     
116.         f=1;
     
117.         return;
     
118. }       //找到启始码
     
119. if(f==1)
     
120. {
     
121.     if(Tc>Inum1&&Tc<Inum3)
     
122.     {
     
123.            Im[m/8]=Im[m/8]>>1|0x80; m++;
     
124.     }
     
125.     if(Tc>Inum2&&Tc<Inum1)
     
126.     {
     
127.       Im[m/8]=Im[m/8]>>1; m++; //取码
     
128.            }
     
129.            if(m==32)
     
130.     {
     
131.       m=0;  
     
132.       f=0;
     
133.       if(Im[2]==~Im[3])
     
134.       {
     
135.            IrOK=1;
     
136.                           TR0=0;
     
137.            }
     
138.       else IrOK=0;   //取码完成后判断读码是否正确
     
139. 
     
140. 
     
141. …………限于本文篇幅 余下代码请从51黑下载附件…………
     

复制代码

完整源码下载：
1-程序.rar (19.54 KB, 下载次数: 334)

2017-5-8 17:23 上传

点击文件名下载附件

请问红外遥控接收头发送头怎么找的呢，谢谢了

程序都是全的吗？

谢谢楼主，这个刚刚好需要，简直就是及时雨的存在，谢谢

不错，如果把if语句改为swich，程序看起来就舒服点了

是发射和接收两个程序么？

内容不错，学习了

正好是我现在需要的，谢谢了

可以，很完整

红外是用什么元器件啊？

程序都是全的吗？

根本没用

谢谢分享。

P1在哪里，软件上找不到

有原理图有代码，赞一下楼主！