红外程序

/********************************************************************************

* 描述: *

* lcd1602显示 遥控键值读取器 *

* lcd1602显示 遥控器接p3.2 *

* 喇叭接p1.5 继电器接p1.4*

* 17(40h)键按下，继电器吸合。19(04h)键按下，继电器关闭。 *

* 连接方法：使用红外功能时 J1跳线短接 *

********************************************************************************/

#include <reg51.h>

#include <intrins.h>

#define uchar unsigned char

#define uint unsigned int

#define delayNOP(){_nop_()_nop_()_nop_()_nop_()}

void delay(uchar x) //x*0.14MS

void delay1(int ms)

void beep()

sbit IRIN = P3^2//红外接收器数据线

sbit BEEP = P1^5//蜂鸣器驱动线

sbit RELAY= P1^4//继电器驱动线

uchar IRCOM[9]

sbit LCD_RS = P2^6

sbit LCD_RW = P2^5

sbit LCD_EN = P2^7

uchar code cdis1[ ] = {" Red Control "}

uchar code cdis2[ ] = {"IR-CODE: ----H "}

/*******************************************************************/

/* */

/*检查LCD忙状态*/

/*lcd_busy为1时，忙，等待。lcd-busy为0时,闲，可写指令与数据。 */

/* */

/*******************************************************************/

bit lcd_busy()

{

bit result

LCD_RS = 0

LCD_RW = 1

LCD_EN = 1

delayNOP()

result = (bit)(P0&0x80)

LCD_EN = 0

return(result)

}

/*******************************************************************/

/* */

/*写指令数据到LCD */

/*RS=L，RW=L，E=高脉冲，D0-D7=指令码。 */

/* */

/*******************************************************************/

void lcd_wcmd(uchar cmd)

{

while(lcd_busy())

LCD_RS = 0

LCD_RW = 0

LCD_EN = 0

_nop_()

_nop_()

P0 = cmd

delayNOP()

LCD_EN = 1

delayNOP()

LCD_EN = 0

}

/*******************************************************************/

/* */

/*写显示数据到LCD */

/*RS=H，RW=L，E=高脉冲，D0-D7=数据。 */

/* */

/*******************************************************************/

void lcd_wdat(uchar dat)

{

while(lcd_busy())

LCD_RS = 1

LCD_RW = 0

LCD_EN = 0

P0 = dat

delayNOP()

LCD_EN = 1

delayNOP()

LCD_EN = 0

}

/*******************************************************************/

/* */

/* LCD初始化设定 */

/* */

/*******************************************************************/

void lcd_init()

{

delay1(15)

lcd_wcmd(0x38) //16*2显示，5*7点阵，8位数据

delay1(5)

lcd_wcmd(0x38)

delay1(5)

lcd_wcmd(0x38)

delay1(5)

lcd_wcmd(0x0c) //显示开，关光标

delay1(5)

lcd_wcmd(0x06) //移动光标

delay1(5)

lcd_wcmd(0x01) //清除LCD的显示内容

delay1(5)

}

/*******************************************************************/

/* */

/* 设定显示位置 */

/* */

/*******************************************************************/

void lcd_pos(uchar pos)

{

lcd_wcmd(pos | 0x80) //数据指针=80+地址变量

}

/*******************************************************************/

main()

{

uchar m

IE = 0x81//允许总中断中断,使能 INT0 外部中断

TCON = 0x01 //触发方式为脉冲负边沿触发

IRIN=1 //I/O口初始化

BEEP=1

RELAY=1

delay1(10)//延时

lcd_init() //初始化LCD

lcd_pos(0) //设置显示位置为第一行的第1个字符

m = 0

while(cdis1[m] != '\0')

{ //显示字符

lcd_wdat(cdis1[m])

m++

}

lcd_pos(0x40)//设置显示位置为第二行第1个字符

m = 0

while(cdis2[m] != '\0')

{

lcd_wdat(cdis2[m]) //显示字符

m++

}

while(1)

} //end main

/**********************************************************/

void IR_IN() interrupt 0 using 0

{

unsigned char j,k,N=0

EX0 = 0

delay(15)

if (IRIN==1)

{ EX0 =1

return

}

//确认IR信号出现

while (!IRIN)//等IR变为高电平，跳过9ms的前导低电平信号。

{delay(1)}

for (j=0j<4j++) //收集四组数据

{

for (k=0k<8k++)//每组数据有8位

{

while (IRIN)//等 IR 变为低电平，跳过4.5ms的前导高电平信号。

{delay(1)}

while (!IRIN) //等 IR 变为高电平

{delay(1)}

while (IRIN) //计算IR高电平时长

{

delay(1)

N++

if (N>=30)

{ EX0=1

return} //0.14ms计数过长自动离开。

}//高电平计数完毕

IRCOM[j]=IRCOM[j] >>1 //数据最高位补“0”

if (N>=8) {IRCOM[j] = IRCOM[j] | 0x80} //数据最高位补“1”

N=0

}//end for k

}//end for j

if (IRCOM[2]!=~IRCOM[3])

{ EX0=1

return}

IRCOM[5]=IRCOM[2]/16//取键码的低四位

IRCOM[6]=IRCOM[2]%16 //右移4次，高四位变为低四位

IRCOM[7]=IRCOM[1]/16//取键码的低四位

IRCOM[8]=IRCOM[1]/16 //右移4次，高四位变为低四位

/*if(IRCOM[5]>9)

{ IRCOM[5]=IRCOM[5]+0x37}

else

IRCOM[5]=IRCOM[5]+0x30

if(IRCOM[6]>9)

{ IRCOM[6]=IRCOM[6]+0x37}

else

IRCOM[6]=IRCOM[6]+0x30

if(IRCOM[7]>9)

{ IRCOM[7]=IRCOM[7]+0x37}

else

IRCOM[7]=IRCOM[7]+0x30

if(IRCOM[8]>9)

{ IRCOM[8]=IRCOM[8]+0x37}

else

IRCOM[8]=IRCOM[8]+0x30*/

lcd_pos(0x4b)

lcd_wdat(IRCOM[6]) //第一位数显示

lcd_pos(0x4c)

lcd_wdat(IRCOM[5]) //第二位数显示

lcd_pos(0x49)

lcd_wdat(IRCOM[8]) //第一位数显示

lcd_pos(0x4a)

lcd_wdat(IRCOM[7]) //第二位数显示

beep()

EX0 = 1

}

/**********************************************************/

void beep()

{

unsigned char i

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

{

delay(4)

BEEP=!BEEP//BEEP取反

}

BEEP=1 //关闭蜂鸣器

}

/**********************************************************/

void delay(unsigned char x)//x*0.14MS

{

unsigned char i

while(x--)

{

for (i = 0i<13i++) {}

}

}

/**********************************************************/

void delay1(int ms)

{

unsigned char y

while(ms--)

{

for(y = 0y<250y++)

{

_nop_()

_nop_()

_nop_()

_nop_()

}

}

}

这个应该是可以运行的

下面是一个用C写的遥控器程序.能在数码管上显示键码.

#include <reg52.h>

#define c(x) (x*110592/120000)

sbit Ir_Pin=P3^3

unsigned char code Led_Tab[]={0xC0,0xF9,0xA4,0xB0,0x99,0x92,0x82,

0xf8,0x80,0x90,0x88,0x83,0xC6,0xA1,0x86,0x8E} //共阳极数码显示码0-F.

unsigned char code Led_Sel[]={0xe,0xd,0xb,0x7}

unsigned char Led_Buf[4]//显示缓冲区

char Led_Index //位选

unsigned char Ir_Buf[4]//用于保存解码结果

//==============================================================

//数码管扫描

timer0() interrupt 1 using 1

{

TL0=65536-1000

TH0=(65536-1000)/256//定时器0设定约1000us中断一次，用于数码管扫描

P0=0xff

P2=Led_Sel[Led_Index] //位选

P0=Led_Tab[Led_Buf[Led_Index]] //段选

if(++Led_Index>3) Led_Index=0 //四个扫描完了,到第一个数码管

}

//==============================================================

unsigned int Ir_Get_Low()

{

TL1=0

TH1=0

TR1=1

while(!Ir_Pin &&(TH1&0x80)==0)

TR1=0

return TH1*256+TL1

}

//=============================================================

unsigned int Ir_Get_High()

{

TL1=0

TH1=0

TR1=1

while(Ir_Pin &&(TH1&0x80)==0)

TR1=0

return TH1*256+TL1

}

//==============================================================

main()

{

unsigned int temp

char i,j

Led_Index=1

TMOD=0x11

TL0=65536-1000

TH0=(65536-1000)/256//定时器0设定约1000us中断一次，用于数码管扫描

EA=1

ET0=1

TR0=1

Led_Buf[0]=0

Led_Buf[1]=0

Led_Buf[2]=0

Led_Buf[3]=0//显示区设成0

do{

restart:

while(Ir_Pin)

temp=Ir_Get_Low()

if(temp<c(8500) || temp>c(9500)) continue//引导脉冲低电平9000

temp=Ir_Get_High()

if(temp<c(4000) || temp>c(5000)) continue//引导脉冲高电平4500

for(i=0i<4i++) //4个字节

for(j=0j<8j++) //每个字节8位

{

temp=Ir_Get_Low()

if(temp<c(200) || temp>c(800)) goto restart

temp=Ir_Get_High()

if(temp<c(200) || temp>c(2000)) goto restart

Ir_Buf[i]>>=1

if(temp>c(1120)) Ir_Buf[i]|=0x80

}

Led_Buf[0]=Ir_Buf[2]&0xf

Led_Buf[1]=(Ir_Buf[2]/16)&0xf

Led_Buf[2]=Ir_Buf[3]&0xf

Led_Buf[3]=(Ir_Buf[3]/16)&0xf//显示结果

}while(1)

}

---