51单片机红外收发程序

51单片机的红外收发程序 分为发送程序和接收程序 新手可以参考一下

/***********************************************************
实验名称：红外发射原理
程序说明：通过红外发射接收闪烁LED，同普通LED显示程序相同。
  		  由于主板集成了红外38K调制，所以只需发送需要发送的码即可
实验平台：YZ200 V2.0开发箱
作者：徐锐锋
日期：2010-10-13
广州研展电子科技有限公司 www.52yanfa.com （我爱研发网）  版权所有 
***********************************************************/

#include //包含头文件，一般情况不需要改动，头文件包含特殊功能寄存器的定义

sbit IRSend=P3^3;  //定义红外发射
sbit IRRev =P3^2;  //接收接口

sbit LED = P0^0;   //演示LED

void Init_Timer0（void）;//定时器初始化
/*------------------------------------------------
                    主函数
------------------------------------------------*/
void main （void）
{
Init_Timer0（）;

while （1）         //主循环
  {
   LED = IRRev;   //接收值反应到LED
  }
}

/*------------------------------------------------
                    定时器初始化子程序
------------------------------------------------*/
void Init_Timer0（void）
{
 TMOD |= 0x01;	  //使用模式1，16位定时器，使用“|“符号可以在使用多个定时器时不受影响		     
 //TH0=0x00;	      //给定初值
 //TL0=0x00;
 EA=1;            //总中断打开
 ET0=1;           //定时器中断打开
 TR0=1;           //定时器开关打开
}
/*------------------------------------------------
                 定时器中断子程序
------------------------------------------------*/
void Timer0_isr（void） interrupt 1 
{
 TH0=0;		  //重新赋值 65.536ms
 TL0=0;
 
 IRSend=!IRSend;//发射管电平取反，表明以周期 65.536x2 ms时间闪烁

}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2012-02-20 19:29  100.红外发射原理\
     文件      245967  2010-12-20 11:56  100.红外发射原理\MVI_4157.3gp
     目录           0  2012-02-20 19:29  100.红外发射原理\obj\
     文件        1992  2010-12-13 23:38  100.红外发射原理\obj\红外发射原理
     文件         183  2010-12-13 23:38  100.红外发射原理\obj\红外发射原理.hex
     文件        3322  2010-12-13 23:38  100.红外发射原理\obj\红外发射原理.lst
     文件        3837  2010-12-13 23:38  100.红外发射原理\obj\红外发射原理.m51
     文件        2126  2010-12-13 23:38  100.红外发射原理\obj\红外发射原理.obj
     文件         272  2011-04-20 10:32  100.红外发射原理\obj\红外发射原理.plg
     文件       12800  2011-04-02 19:01  100.红外发射原理\Thumbs.db
     文件        1583  2010-12-13 23:38  100.红外发射原理\红外发射原理.c
     文件        1035  2010-12-20 11:50  100.红外发射原理\红外发射原理.Opt
     文件         179  2010-06-15 11:30  100.红外发射原理\红外发射原理.plg
     文件        2022  2010-06-15 15:28  100.红外发射原理\红外发射原理.Uv2
     文件        1037  2010-12-13 23:38  100.红外发射原理\红外发射原理_Opt.Bak
     目录           0  2012-02-20 19:29  101.红外收发测试\
     目录           0  2012-02-20 19:29  101.红外收发测试\obj\
     文件        3341  2010-06-15 16:44  101.红外收发测试\obj\红外收发测试
     文件         470  2010-06-15 16:44  101.红外收发测试\obj\红外收发测试.hex
     文件        5339  2010-06-15 16:44  101.红外收发测试\obj\红外收发测试.lst
     文件        6149  2010-06-15 16:44  101.红外收发测试\obj\红外收发测试.m51
     文件        3800  2010-06-15 16:44  101.红外收发测试\obj\红外收发测试.obj
     文件         272  2011-04-20 10:33  101.红外收发测试\obj\红外收发测试.plg
     文件        2683  2010-06-15 16:48  101.红外收发测试\红外收发测试.c
     文件        1028  2010-12-20 11:50  101.红外收发测试\红外收发测试.Opt
     文件         179  2010-06-15 15:28  101.红外收发测试\红外收发测试.plg
     文件        2022  2010-06-15 16:49  101.红外收发测试\红外收发测试.Uv2
     文件        1030  2010-12-13 23:24  101.红外收发测试\红外收发测试_Opt.Bak