急求红外发射与解码的c程序

（1）发送程序

#include <reg52.h>

static bit OP //红外发射管的亮灭

static unsigned int count //延时计数器

static unsigned int endcount//终止延时计数

static unsigned int temp//按键

static unsigned char flag //红外发送标志

static unsigned char num

sbit ir_in=P3^4

char iraddr1 //十六位地址的第一个字节

char iraddr2 /脊贺/十六位地址的第二个字节

unsigned char code table[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8, 2009-8-11 <br>4 <br>红外数据传输 <br>0x80,0x90,0x88,0x83,0xc6,0xa1,0x86,0x8e} //共阳数码管 0~~f

void SendIRdata(char p_irdata)

void delay(unsigned int)

void keyscan()

/******************主函数**************************/

void main(void)

{

num=0

P2=0x3f

count = 0

flag = 0

OP = 0

ir_in= 0

EA = 1//允许CPU中断

TMOD = 0x11//设定时器0和1为16位模式1

ET0 = 1//定时器0中断允许

TH0 = 0xFF

TL0 = 0xE6//设定时值0为38K 也就是每隔26us中断一次

TR0 = 1//开始芦腊计数

iraddr1=3//00000011

iraddr2=252//11111100

do{keyscan()<br>}while(1)

}

/***********************定时器0中断处理 **********************/

void timeint(void) interrupt 1

{

TH0=0xFF

TL0=0xE6//设定时值为38K 也就是每隔26us中断一次

count++

if (flag==1)

{

OP=~OP

}

else

{

OP = 0

}

ir_in= OP

}

void SendIRdata(char p_irdata)

{ 2009-8-11

5

红外数据传输

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=0i<8i++)

{

/*****先发送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=0i<8i++)

{

endcount=10

flag=1

count=0

do{}while(count<endcount)

if(irdata-(irdata/2)*2)

{

endcount=41

}

else

{ 2009-8-11

6

红外数据传输

endcount=15

}

flag=0

count=0

do{}while(count<endcount)

irdata=irdata>>1

}

/******************发送八位数据********************************/

irdata=p_irdata

for(i=0i<8i++)

{

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=0i<8i++)

{

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

}

2009-8-11

7

红外数据传输

endcount=10

flag=1

count=0

do{}while(count<endcount)

flag=0

}

void delay(unsigned int z)

{

unsigned char x,y

for(x=zx>0x--)

for(y=110y>0y--)

}

/*********************4×4键盘扫描按下按键发射数据************************/

void keyscan()

{

P1=0xfe

temp=P1

temp=temp&0xf0

while(temp!=0xf0)

{

temp=P1

switch(temp)

{

case 0xee:num=1

break

case 0xde:num=2

break

case 0xbe:num=3

break

case 0x7e:num=4

break

}

while(temp!=0xf0)

{

temp=P1

temp=temp&0xf0

}

P2=table[num-1]

SendIRdata(table[num-1])

}

P1=0xfd

temp=P1

temp=temp&0xf0

while(temp!=0xf0)

{

temp=P1

switch(temp)

{

case 0xed:num=5

break

case 0xdd:num=6

break

case 0xbd:num=7

break

case 0x7d:num=82009-8-11

8

红外数据传输

break

}

while(temp!=0xf0)

{

temp=P1

temp=temp&0xf0

}

P2=table[num-1]

SendIRdata(table[num-1])

}

P1=0xfb

temp=P1

temp=temp&0xf0

while(temp!=0xf0)

{

temp=P1

switch(temp)

{

case 0xeb:num=9

break

case 0xdb:num=10

break

case 0xbb:num=11

break

case 0x7b:num=12

break

}

while(temp!=0xf0)

{

temp=P1

temp=temp&0xf0

}

P2=table[num-1]

SendIRdata(table[num-1])

}

P1=0xf7

temp=P1

temp=temp&0xf0

while(temp!=0xf0)

{

temp=P1

switch(temp)

{

case 0xe7:num=13

break

case 0xd7:num=14

break

case 0xb7:num=15

break

case 0x77:num=16

break

}

while(temp!=0xf0)

{

temp=P1

temp=temp&0xf0

} 2009-8-11

9

红外数据传输

P2=table[num-1]

SendIRdata(table[num-1])

}

}

（2）接收程序

#include"reg52.h"

#define uchar unsigned char

#define uint unsigned int

uchar dis_num,num,num1,num2,num3

sbit led=P1^0

unsigned char code table[]={

0xc0,0xf9,0xa4,0xb0,

0x99,0x92,0x82,0xf8,

0x80,0x90,0x88,0x83,

0xc6,0xa1,0x86,0x8e} //共阳数码管 0~~f

sbit prem =P3^2 //定义遥控头的接收脚

uchar ram[4]={0,0,0,0}//存放接受到的4个数据 地址码16位+按键码8位+按键码取反的8位

void delaytime(uint time) //延迟90uS

{

uchar a,b

for(a=timea>0a--)

{

for(b=40b>0b--)

}

}

void rem()interrupt 0 //中断函数

{

uchar ramc=0 //定义接收了4个字节的变量

uchar count=0 //定义现在接收第几位变量

uint i=0 //此处变量用来在下面配合连续监测9MS 内是否有高电平

prem=1

for(i=0i<1100i++) //以下FOR语句执行时间为8MS左右

{

if(prem) //进入遥控接收程序首先进入引导码的前半部判断,即:是否有9MS左右的低电平

return //引导码错误则退出

}

while(prem!=1) //等待引导码的后半部 4.5 MS 高电平开始的到来。

delaytime(50) //延时大于4.5MS时间，跨过引导码的后半部分，来到真正遥控数据32位中

//第一位数据的0.56MS开始脉冲

for(ramc=0ramc<4ramc++)//循环4次接收4个字节

{for(count=0count<8count++) //循环8次接收8位（一个字节）

{

while(prem!=1) //开始判断现在接收到的数据是0或者1 ，首先在这行本句话时，

//保已经进入数据的0.56MS 低电平阶段

//等待本次接受数据的高电平的到来。

delaytime(9)//高电平到来后，数据0 高电平最多延续0.56MS，而数据1，高电平可 2009-8-11

10

红外数据传输

//延续1.66MS大于0.8MS 后我们可以再判断遥控接收脚的电平，

if(prem) //如果这时高电平仍然在继续那么接收到的数据是1的编码

{

ram[ramc]=(ram[ramc]<<1)+1//将目前接收到的数据位1放到对应的字节中

delaytime(11)//如果本次接受到的数据是1，那么要继续延迟1MS，这样才能跨入

//下个位编码的低电平中（即是开始的0.56MS中）

}

else //否则目前接收到的是数据0的编码

ram[ramc]=ram[ramc]<<1 //将目前接收到的数据位0放到对应的字节中

} //本次接收结束，进行下次位接收，此接收动作进行32次，正好完成4个字节的接收

}

if(ram[2]!=(~(ram[3]&0x7f)))//本次接收码的判断

{

for(i=0i<4i++) //没有此对应关系则表明接收失败，清除接受到的数据

ram[i]=0

return

}

dis_num=ram[2] //将接收到的按键数据赋给显示变量

}

main()

{

IT0=1 //设定INT0为边沿触发

EX0=1 //打开外部中断0

EA=1 //全局中断开关打开

while(1)

{

switch(dis_num)

{

case 0x81: num=0break

case 0xcf: num=1break

case 0x92: num=2break

case 0x86: num=3break

case 0xcc: num=4break

case 0xa4: num=5break

case 0xa0: num=6break

case 0x8f: num=7break

case 0x80: num=8break

case 0x84: num=9break

case 0x88: num=10break

case 0xe0: num=11break

case 0xb1: num=12break

case 0xc2: num=13break

case 0xb0: num=14break

case 0xb8: num=15break

}

P2=table[num]

P1=0x01

delaytime(5)

}

}

给你一个我编的红外解码的程序，这个程序会将接收到的红外编码中的8位码通过串口发送到上位机，你可以通过串口调试助手来看看，程序是正确的，希望对你有参考价值。 ////////////////////////////////////////////////////////////////// //////////////////////////yorkWorldDream//////////////////////搭咐/// ///////////////////////////////////////////////////////////////// #include"reg52.h" #define uchar unsigned char #define uint unsigned int  //tc9012 uchar flag=0//是否接到起始位标志 未接到为0 接到为1 uchar traflag=0//翻译是否完成标记 完成为1 uchar rec[33]//接收遥控器发送的所有数据 用来记录两个下降沿之间的时间 uchar recok=0//是否接收完一帧数据标记 接收完为1 uchar sendok=0//是否发送完毕标记 发送完成为1 uchar num=0//变相记录时间   uchar n=0//rec[]中的数组定位 void timerinit()//定时器0初始化    void ruptinit()//外部中断0初始化   void tradata()//一帧数据的翻译 即把时间记录转换成0/1 void send()//把收到的数据发给上位机    void delay()//////////////////////////定时器 中断初始化///////////////////////////////// void timerinit()//定时器0 {  TMOD=0x02//定时器0使用方式2  TH0=0x00 TL0=0x00 EA=1 ET0=1//定时器中断开   TR0=1//计时开     } void ruptinit()//外部中断0 {  EA=1 EX0=1//外部中断开      IT0=1//下降沿触发 0是电平触发   } ////////////////////////////定时器 中断函数////////////////////////////// void timer() interrupt 1 //系统从0x00记到0xff 每记一次时间大概为1us 记256次 即256us中断一次 {  num++//num记录的是256us的个数 总时间=num*256us } void rupt() interrupt 0   //外部中断0 当遇到下降沿时触发    {  if(flag==1)//flag为1 说明收到了起始位 接下来要开始进行记录了     {   if(num>32)//时间为32*256us=8.2ms是整个起始位的时间      { n=0 }   rec[n]=num//记录两个下降沿之间的num值 这样也就相当于记录了其间的时间   num=0  n++  if(n==33)//因为前面是n++ 所以当n=33时 数组已经从0记到了32 已经记满了   {    recok=1//标记 接收一帧数据完成         n=0      }    }  else//首次得到下降沿到达这里 使flag变1 用来说明收到了起始位  {    flag=1 } } /////////////////////////////时间翻译函数/////////////////////////////////////// void tradata()//一帧数据的翻译 即把时间记录转换成0/1 {  uchar i for(i=1i/0的数据时间是num=4.4 1的数据时间是num=8.8   {     //记住要从rec[1]开始 因为rec[0]记录的是引导码的num值    if(rec[i]>6)//使用6做中间值 小于则为0 大于为1 用0/1替换rec中的数据 这样就进行了翻译   { rec[i]='1' }//因为要以字符串发送 所以这里用字符形式    else    rec[i]='0'    }  traflag=1//翻译完成标记  } /////////////////////////////发送数据函数//////////////////////////////////// void send()//把收到的数据发送给上位机 具体细节不懂看串口通信 mcu to pc {   uchar i TMOD=0x20 TH1=0xfd TL1=0xfd TR1=1 SM0=0 SM1=1 REN=1 for(i=25i/选择要发送出去的数据 这里是从25开始发送的     {  SBUF=rec[i] while(!TI) TI=0 }  sendok=1}               搏燃                               //////////////////////////////////////////////////////////////////////// void delay()//1ms {  unsigned char a,b,c    for(c=1c>0c--)         for(b=142b>0b--)             for(a=2a>0a--)} void main() {  timerinit()//定时器0初始化     ruptinit()//外部中断0初始化    while(1)  {   if(recok==1)//接收一帧数据完成      {    P1=0xfe//灯亮一下 为了指示是否收到了数据       tradata()//翻译数据     }   delay()  if(traflag==1)//翻译完成      {    send()//发送       基枝虚   }   delay()  if(sendok==1)//发送完成       {    flag=0   traflag=0   recok=0   sendok=0   P1=0xff   timerinit()   ruptinit()  }      //全部恢复初始    }

这个直接用红外接收头接到PLC上编程实现磨轿是很复杂的，不好做。我能想到的法是用51，或者其他单片机，做一个红外接收解码昌谈的解码器程序，然后把解码器挂到MODBUS一类的通讯线上，接入PLC系统。这耐游碰个相对来说要简单的多。或者有这类现成的解码模块，但我确实没听说过，你可以找找看，有现成的最好，没有现成的只有自己做了。

---