faok.c

用89S52做的NEC码的红外发射程序

#include <AT89X51.h> 
#define uchar unsigned char
#define uint  unsigned int
static bit OP;        //红外发射管的亮灭
static unsigned int count;       //延时计数器
static unsigned int endcount; //延时计数
static unsigned char flag;      //红外发送标志
uchar  temp;
uchar  key;               



char iraddr1;  
char iraddr2;  

void SendIRdata(char p_irdata);

void  delay1(uchar x)
{ uchar j;
    while((x--)!=0)
    { for(j=0;j<125;j++)
         {;}
    }
}
//--------------------------------------------------
 /*键扫描子程序*/
 void  keyscan(void)
 { 
    P1=0x0F;           
    delay1(1);
	temp=P1;         
    temp=temp&0x0F;
    temp=~(temp|0xF0);
    if(temp==1)
        key=0;
    else if(temp==2)
        key=1;
    else if(temp==4)
        key=2;
    else if(temp==8)
        key=3;
    else
        key=16;
        
    P1=0xF0;        
    delay1(1);
	temp=P1;                
    temp=temp&0xF0;
    temp=~((temp>>4)|0xF0);     //此处也可用~(temp|0x0f)，只不过判断时要用temp=16,32,64,128等             
    if(temp==1)
        key=key+0;
    else if(temp==2)
        key=key+4;
    else if(temp==4)
        key=key+8;
    else if(temp==8)
        key=key+12;
    else
        key=16;
    	
    
 }
//--------------------------------------------------
/*判断键是否按下*/
 void  keydown(void)
 {  
  	P1=0xF0;
	if(P1!=0xF0)
	{
	  keyscan();
	  SendIRdata(key);
      while(P1!=0xF0);  //等待键释放
	}
 } 

void main(void) 
{
  count = 0;
  flag = 0;
  OP = 0;
  P2_0 = 0;

  EA = 1; //允许CPU中断 
  TMOD = 0x11; //设定时器0和1为16位模式1 
  ET0 = 1; //定时器0中断允许 


  TH0 = 0xFF; 
  TL0 = 0xE6; //设定时值0为38K 也就是每隔26us中断一次  
  TR0 = 1;//开始计数

  iraddr1=3;
  iraddr2=252;


  do{
       keydown();
       delay1(2);
  }while(1);
} 

//定时器0中断处理 
void timeint(void) interrupt 1 
{ 
  TH0=0xFF; 
  TL0=0xE6; 
  count++;

  if (flag==1)
  {
    OP=~OP;
  }
  else
  {
    OP = 0;
  }
  P2_0 = OP;
} 


void SendIRdata(char p_irdata)
{
  int i;
  char irdata=p_irdata;

  //发送9ms的起始码
  endcount=223;
  flag=1;
  count=0;
  do{}while(count<endcount);

  //发送4.5ms
  endcount=117;
  flag=0;
  count=0;
  do{}while(count<endcount);

  //发送十六位地址的前八位
  irdata=iraddr1;
  for(i=0;i<8;i++)
  {

     //先发送0.56ms的38KHZ红外波（即编码中0.56ms的低电平）
     endcount=10;
     flag=1;
     count=0;
     do{}while(count<endcount);

    //停止发送红外信号（即编码中的高电平）
     if(irdata-(irdata/2)*2)  //判断二进制数个位为1还是0
     {
       endcount=41;  //1为宽的高电平
     }
    else
     {
     endcount=15;   //0为窄的高电平
     }
    flag=0;
    count=0;
    do{}while(count<endcount);

    irdata=irdata>>1;
  }

  //发送十六位地址的后八位
  irdata=iraddr2;
  for(i=0;i<8;i++)
  {
     endcount=10;
     flag=1;
     count=0;
     do{}while(count<endcount);

     if(irdata-(irdata/2)*2)
     {
        endcount=41;
     }
     else
     {
       endcount=15;
     }
     flag=0;
     count=0;
     do{}while(count<endcount);

     irdata=irdata>>1;
  }

  //发送八位数据
  irdata=p_irdata;
  for(i=0;i<8;i++)
  {
     endcount=10;
     flag=1;
     count=0;
     do{}while(count<endcount);

     if(irdata-(irdata/2)*2)
     {
         endcount=41;
     }
     else
     {
       endcount=15;
     }
     flag=0;
     count=0;
     do{}while(count<endcount);

     irdata=irdata>>1;
  }

  //发送八位数据的反码
  irdata=~p_irdata;
  for(i=0;i<8;i++)
  {
     endcount=10;
     flag=1;
     count=0;
     do{}while(count<endcount);

     if(irdata-(irdata/2)*2)
     {
         endcount=41;
     }
     else
     {
       endcount=15;
     }
     flag=0;
     count=0;
     do{}while(count<endcount);

     irdata=irdata>>1;
  }

  endcount=10;
  flag=1;
  count=0;
  do{}while(count<endcount);
  flag=0;
}