51单片机红外收发演示程序.doc

/*copyright 2007,ShangHai HaoTun Electronic Technology co.,Ltd * *红外测试程序，用单片机通过发射管发射38K的调制频率码，由一体化接收并解码由发光管显示。 *正常情况下，由于反射和高灵敏度接收，LED4（P1.3)一直闪烁，可以用黑色纸片完全遮挡接收头使 *之不能接收到发射管的信号，这是LED4熄灭。说明功能性正常 * *write by Shifang 2007-4-26 * *V1.1 */#includesbit LED=P33;/红外发射sbit LED1=P13;sbit IR=P32;/红外一体化接收 bit Flag;void Init_Timer0(void) TMOD |= 0x01; TH0=0xf0; /* Init value */ TL0=0x00; EA=1; /* interupt enable */ ET0=1; /* enable timer0 interrupt */ TR0=1; void Timer0_isr(void) interrupt 1 using 1 TH0=0x0f;/* Init value */ TL0=0x00; Flag=!Flag;main() unsigned int j; Init_Timer0(); while(1) LED1=IR;/读取一体化接收头数值if(Flag) for(j=0;j27;j+)/大约38KHz LED=!LED;/发射管输出