基于51单片机的红外发射和接收程序

用51单片机写的数据红外和发射和接收程序，发送32位数据，液晶1602显示

#include
#define uint unsigned int
#define uchar unsigned char

sbit led=P1^2;
sbit out=P3^7;
sbit rs=P2^5;
sbit rw=P2^6;
sbit e=P2^7;
sbit key1=P1^0;
sbit key2=P1^1;

char mode;
uchar iraddr1=0x0f;  
uchar iraddr2=0x0f;
uchar irdata1=0xf0;
uchar irdata2=0xf0;
int a1a2a3a4b1b2b3b4;
  
static unsigned int count; //延时计数器
static unsigned int endcount; //终止延时计数
static unsigned char flag;  //红外发送标志

uchar code table[]={“0123456789“};

void delay（uint a）
{
	while（a--）;	
}

void lcd1602_delay（uint z）
{
    uint xy;
    for（x=z;x>0;x--）
        for（y=220;y>0;y--）;
}

void write_com（uchar com）
{
    rs=0;
    rw=0;
    P0=com;
    lcd1602_delay（5）;     
    e=1;
    lcd1602_delay（5）;
    e=0;
}

void write_dat（uchar dat）
{
    rs=1;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件     218938  2011-06-08 17:26  红外遥控\原理图\Backup of 发射.PCB

     文件      19931  2011-06-08 18:01  红外遥控\原理图\Backup of 发射.Sch

     文件     214622  2011-06-08 14:19  红外遥控\原理图\Backup of 接收.PCB

     文件      15891  2011-06-08 14:19  红外遥控\原理图\Backup of 接收.Sch

     文件      95641  2011-06-08 12:31  红外遥控\原理图\Previous Backup of 发射.PCB

     文件      19959  2011-06-08 12:31  红外遥控\原理图\Previous Backup of 发射.Sch

     文件      88684  2011-06-08 11:08  红外遥控\原理图\Previous Backup of 接收.PCB

     文件      15915  2011-06-08 12:31  红外遥控\原理图\Previous Backup of 接收.Sch

     文件     684032  2011-06-12 00:14  红外遥控\原理图\红外遥控.Bkp

     文件     684032  2011-06-16 22:38  红外遥控\原理图\红外遥控.ddb

     文件      14362  2011-06-16 12:51  红外遥控\程序\红外发射\红外发射

     文件       5631  2011-06-16 12:51  红外遥控\程序\红外发射\红外发射.c

     文件       4072  2011-06-16 12:51  红外遥控\程序\红外发射\红外发射.hex

     文件         48  2011-06-16 12:51  红外遥控\程序\红外发射\红外发射.lnp

     文件      16821  2011-06-16 12:51  红外遥控\程序\红外发射\红外发射.LST

     文件      19793  2011-06-16 12:51  红外遥控\程序\红外发射\红外发射.M51

     文件      17641  2011-06-16 12:51  红外遥控\程序\红外发射\红外发射.OBJ

     文件        830  2011-06-16 12:51  红外遥控\程序\红外发射\红外发射.plg

     文件      55242  2011-06-16 12:51  红外遥控\程序\红外发射\红外发射.uvopt

     文件      13261  2011-06-10 10:38  红外遥控\程序\红外发射\红外发射.uvproj

     文件      55242  2011-06-13 01:09  红外遥控\程序\红外发射\红外发射_uvopt.bak

     文件          0  2011-06-10 09:17  红外遥控\程序\红外发射\红外发射_uvproj.bak

     文件      13477  2011-06-13 02:07  红外遥控\程序\红外接收\红外接收

     文件       6178  2011-06-13 02:07  红外遥控\程序\红外接收\红外接收.c

     文件       4141  2011-06-13 02:07  红外遥控\程序\红外接收\红外接收.hex

     文件         48  2011-06-13 02:07  红外遥控\程序\红外接收\红外接收.lnp

     文件      16641  2011-06-13 02:07  红外遥控\程序\红外接收\红外接收.LST

     文件      19497  2011-06-13 02:07  红外遥控\程序\红外接收\红外接收.M51

     文件      17154  2011-06-13 02:07  红外遥控\程序\红外接收\红外接收.OBJ

     文件        181  2011-06-16 02:45  红外遥控\程序\红外接收\红外接收.plg

............此处省略12个文件信息