stc12c5a红外hx1838解码

单片机将红外解码之后将红外遥控器的键值显示在数码管上

#include “STC12C.h“
#include “MY_STC.h“
#include “HX1838.h“

#define Imax	14000    //此处为晶振为11.0592时的取值 
#define Imin	8000     //如用其它频率的晶振时
#define Inum1	1450    //要改变相应的取值。
#define Inum2	700 
#define Inum3	3000 

uchar Im[4]={0x000x000x000x00};//用于存储四个八位码
uchar nfra_al[8]={00000000};//用于存储解码到的数据
uchar fIrOK;
ulong mTc;

void Infrared_Init（void）
{
	unsigned int a; 
	m=0;
	f=0;
	EA=1;
	IT0=1;
	EX0=1;
	TMOD=0x11;
	TH0=0;
	TL0=0;
	TR0=1;//ET0=1;
}


//外部中断解码程序
void Infrared（void） interrupt 2 using 1
{
	Tc=TH0*256+TL0;//提取中断时间间隔时长
	//Tc=（TH0<<8）+TL0;
	TH0=0; 
	TL0=0;//定时中断重新置零
	if（（Tc>Imin）&&（Tc	{
		m=0;
		f=1;
		return;
	}//找到启始码
	if（f==1）
	{
		if（Tc>Inum1&&Tc		{
			Im[m/8]=Im[m/8]>>1|0x80; 
			m++; 
		}
		if（Tc>I

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       9439  2015-01-30 08:38  HX1838\HX1838

     文件        696  2015-01-30 11:46  HX1838\HX1838.build_log.htm

     文件       1368  2015-01-30 08:42  HX1838\HX1838.c

     文件        136  2015-01-30 08:41  HX1838\HX1838.h

     文件       2805  2015-01-30 08:38  HX1838\HX1838.hex

     文件         88  2015-01-30 08:38  HX1838\HX1838.lnp

     文件       4092  2015-01-30 08:38  HX1838\HX1838.LST

     文件      11135  2015-01-30 08:38  HX1838\HX1838.M51

     文件       5231  2015-01-30 08:38  HX1838\HX1838.OBJ

    .......     72477  2015-01-30 11:46  HX1838\HX1838.uvgui.clbiao

    .......     72503  2015-01-30 08:44  HX1838\HX1838.uvgui_clbiao.bak

    .......      6104  2015-01-30 08:44  HX1838\HX1838.uvopt

    .......     14342  2015-01-30 08:44  HX1838\HX1838.uvproj

    .......      6104  2015-01-29 08:00  HX1838\HX1838_uvopt.bak

    .......     14338  2015-01-28 23:56  HX1838\HX1838_uvproj.bak

     文件        163  2015-01-30 08:41  HX1838\MAIN.c

     文件       1158  2015-01-30 08:38  HX1838\MAIN.LST

     文件       1797  2015-01-30 08:38  HX1838\MAIN.OBJ

     文件        594  2015-01-30 08:10  HX1838\MY_STC.c

     文件        276  2015-01-30 08:33  HX1838\MY_STC.h

     文件       1836  2015-01-30 08:38  HX1838\MY_STC.LST

     文件       2998  2015-01-30 08:38  HX1838\MY_STC.OBJ

     文件       6376  2014-01-29 12:40  HX1838\STARTUP.A51

     文件      14060  2015-01-30 08:38  HX1838\STARTUP.LST

     文件        749  2015-01-30 08:38  HX1838\STARTUP.OBJ

     文件       9713  2012-01-17 22:01  HX1838\STC12C.h

     目录          0  2015-01-30 11:46  HX1838

----------- ---------  ---------- -----  ----

               260578                    27



............此处省略0个文件信息