急求红外发射与解码的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)

}

}

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

方案一：采用频分橡物制多通道红外遥控发射和接收系统。频分制的频率编码一般采用频道编码开关，通过改变振荡电路的参数来改变振荡电路的振荡参数和频率。当按下不同的编码键时，振荡器就会输出不同频率的指令信号。这些指令信号经驱动级放大后对高频载波进行调制，并驱动红外发光管发出红外光脉冲信号。

红外接收控制电路的组成框图包括红外接收光电转换器、前置放大器、频率译码电路、驱动级和执行机件等。当红外光电检测器接收到发射器发来的红外编码指令后，光电检测管随即将其转换成相应的电信号，再经过前置电压放大器放大后，加至频率译码电路和选频电路，选出不同指令的频率信号，并加至相应的驱动级及执行机件。对应每一频率的指令信号，应有一个相应的选频电路。

在频分制红外遥控电路中，代表控制指令信号的频率一般为几百赫兹至几十千赫兹。发射电路中的频率编码开关的位号应与接收电路中的选频电路的位号相对应，以选出不同频率的指令信号。

红外接收、译码电路由族旁红外接收器、前置放大器、解调器、指令译码器、记忆和驱动级组成。红外光电二极管将接收到的红外光信号转变成相应的电脉冲信号，再经高倍数电压放大后加至解调器进行解调，然后由指令译码器解码出指令信号。指令译码器是与指令编码器相对应的译码器，用于脉冲指令信号译出。译出的指令信号加至相应的记忆和驱动级，驱动执行机件动作，实现红外光遥控。

方案二：采用码分制多通道红外遥控发射和接收系统。码分制的遥控指令信号是由编码脉冲发生器（一般由数字集成电路和少量外围元件组成）产生的。码分指令是用不同的脉冲数目或不同宽度的脉冲组合而成的。

指令编码器由基本脉冲发生电路和指令编码开关组成。当按下S1—Sn中的某个指令键时，指令编码器将产生不同编码的指令信号。该编码信号经调制器调制后变为编码脉冲调制信号，再经驱动电路功率放大后加至红外发射级，驱动红外发射管发出红外编码脉冲光信号。

方案一：采用频分制多通道红外遥控系统。主要用在单通道或者几通道的红外遥控系统中。能够形成一个无线的短距离的遥控系统。主要由发射和接收并执行两部分组成。先是发射部分，用户根据需要按下功能键，在经过编码后通过红外发光二极管发射出信号。经过无线传输后，接收部分接收到发射信号，然后经过芯片内部译码并执行对应遥控路上的发光二极管发光

方案二：采用码分制多通道红外遥控系统。主要用在多通道的红外遥控系统中，遥控系统抗干扰强。能够形成一个无线的中距离的遥控系统。主要由发射和接收并执行两部分组成。用户根据需要按下功能键，先是指令编码器进行编码，在进行信号调制，在由红外发光二极管发射出信号，经过无线传输后，接收部分梁穗液接收到发射信号，先经过信号处理，在通过单片机软件译码，查表控制对应遥控路上的发光二极管发光

---