红外的一些小程序Word下载.doc
《红外的一些小程序Word下载.doc》由会员分享，可在线阅读，更多相关《红外的一些小程序Word下载.doc（17页珍藏版）》请在冰豆网上搜索。
3.程序如下：
//硬件连接
#include<
reg51.h>
intrins.h>
#defineucharunsignedchar
#defineuintunsignedint
sbithongwai=P3^2;
//此表为数码管的字模,共阴数码管0-9-
uchar code table[]={0x3F,0x06,0x5B,0x4F,0x66,0x6D,0x7D,0x07,0x7F,0x6F,0x77,0x7C,0x39,0x5E,0x79,0x71};
ucharrecieve[3];
//储存用户码、用户反码与键数据码、键数据反码
uchara[]={0,0,0,0};
voiddelay（uinti）
{
charj;
for（i;
i>
0;
i--）
for（j=200;
j>
j--）;
}
voidIRdelay（ucharx）//x*0.14MS
uchari;
while（x--）
{
for（i=0;
i<
13;
i++）;
}
voiddisplay（ucharkeyno）
{
uchari,j;
a[0]=keyno%10000/1000;
a[1]=keyno%1000/100;
a[2]=keyno%100/10;
//十位
a[3]=keyno%10;
//个位
j=0xfe;
//对数码管进行逐位扫描显示
for（i=0;
=3;
i++）
{
j=_cror_（j,1）;
P2=j;
P0=table[a[i]];
delay（50）;
}
P0=0;
}
voidIR_IN（void）interrupt0 //外部中断0，即红外接收P3.2
ucharj,k,count=0;
EX0=0;
//关闭外部中断0，即停止接收红外
IRdelay（5）;
if（hongwai==1）
{
EX0=1;
return;
}//确认IR信号出现
while（!
hongwai）//等IR变为高电平，跳过9ms的前导低电平信号。
{
IRdelay
（1）;
}
for（j=0;
j<
4;
j++）//收集四组数据
{
for（k=0;
k<
8;
k++）//每组数据有8位
{
while（hongwai）//等IR变为低电平，跳过4.5ms的前导高电平信号。
{
IRdelay
（1）;
}
while（!
hongwai）//等IR变为高电平
while（hongwai）//计算IR高电平时长
{
IRdelay
（1）;
count++;
if（count>
=30）
{
EX0=1;
return;
}//0.14ms计数过长自动离开。
}//高电平计数完毕
recieve[j]=recieve[j]>
>
1;
//数据最高位补"
0"
if（count>
=8）
{
recieve[j]=recieve[j]|0x80;
}//数据最高位补"
1"
count=0;
}//endfork
}//endforj
if（recieve[2]!
=~recieve[3]）//校验键值码与键值反码的值，
{
EX0=1;
//如果键值码与键值反码取反后相等，则开外部中断中断0，开始接收下一个红外信号
return;
}
EX0=1;
}
voidmain（）
{
EA=1;
//开放全局中断
EX0=1;
//开外部中断0
IT0=1;
//触发方式为脉冲负边沿触发
hongwai=1;
while
（1）
{
//显示红外键码
display（recieve[2]）;
}
2主要功能：
当遥控器上的数字键被按下时，让八个数码管同时显示按下的数字
硬件连接：
P0口为数码管的段选段，P2口为数码管的位选端，默认位选端全部开放0x00，P3.2接红外接收头
程序如下：
uchar code table[]={0x3F,0x06,0x5B,0x4F,0x66,0x6D,0x7D,0x07,0x7F,0x6F,0x77,
0x7C,0x39,0x5E,0x79,0x71};
uchari;
P2=0x00;
switch（recieve[2]）
{
case22:
P0=table[0];
break;
//不同的遥控器可能键值不一样，可以根据程序1测出键值，在修改case后面的值即可
case12:
P0=table[1];
case24:
P0=table[2];
case94:
P0=table[3];
case8:
P0=table[4];
case28:
P0=table[5];
case90:
P0=table[6];
case66:
P0=table[7];
case82:
P0=table[8];
case74:
P0=table[9];
case68:
P2=0xff;
P0=0x00;
}
}
}//确认红外信号出现
hongwai）//等红外变为高电平，跳过9ms的前导低电平信号。
while（hongwai）//等IR变为低电平，跳过4.5ms的前导高电平信号。
//高电平时间过长则开外部中断，并返回
recieve[j]=recieve[j]>
//各数据位右移一位，因为先读出的是高位数据
=8）//如果是高电平
升级会员 