/*copyright 2007,ShangHai HaoTun Electronic Technology co.,Ltd
*
*红外测试程序，用单片机通过发射管发射38K的调制频率码，由一体化接收并解码由发光管显示。
*正常情况下，由于反射和高灵敏度接收，LED4（P1.3)一直闪烁，可以用黑色纸片完全遮挡接收头使
*之不能接收到发射管的信号，这是LED4熄灭。说明功能性正常
*
*write by Shifang 2007-4-26
*
*V1.1
*/
#includesbit LED=P3^3;//红外发射
sbit LED1=P1^3;
sbit IR=P3^2;//红外一体化接收
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;j<27;j++)//大约38KHz
{
LED=!LED;//发射管输出
}
}
}
}