/*********************************************/
/*??????紅外發射管波長940nm，載波38kHz???????*/
/*??????????????晶振11.0592M?????????????????*/
/*			?版權所有者：張興恩				?*/
/*			?	QQ:?410846867				?*/
/*********************************************/
#include
typedef?unsigned?char?BYTE;
typedef?unsigned?int?WORD;
sbit?IR=P1^0;		//?紅外發射管控制腳
sbit?KEY1=P3^6;		//?按鍵1?
sbit?KEY2=P3^7;		//?按鍵2?
sbit?dula=P2^6;		//?數碼管段選（消除數碼管顯示）?
sbit?wela=P2^7;		//?數碼管位選（消除數碼管顯示）
bit?T1Flag=0;

/***************************
		延時函數
***************************/
//延時函數最好用定時器來設定，不要用普通延時函數
//否則容易出現古怪的錯亂，如矩形波頻率不對，或者幀長度出錯等
void?Delay5ms（void）
{
	TH1=0xEE;
	TL1=0x00;?
????TR1=1;
	while（!T1Flag）;
	T1Flag=0;
}
void?Delay10ms（void）
{
	TH1=0xDC;
	TL1=0x00;
????TR1=1;
	while（!T1Flag）;
	T1Flag=0;
}


/***************************
		定時器相關
***************************/
/*定時器初始化*/
void?TimerInit（）
{?
	EA=1;
	ET0=1;
	ET1=1;
	TMOD=0x12;??	//定時0方式2（8位自動重裝模式）定時器1方式1（16位定時器）
	TH0=0xf4;
	TL0=0xf4;		//定時12us理論上紅外矩形波為41.67kHz，但實測到為38.462kHz
}
/*定時器0中斷*/?
void?Timer0（）?interrupt?1?
{
	//定時器會自動裝載，因此不需重新設置TH0和TL0
	IR=~IR;?	//發射38khz的矩形波
}
/*定時器1中斷*/
void?Timer1（）?interrupt?3?
{
	TR1=0;
	T1Flag=1;
}

/***************************
		紅外發射
***************************/
void?IRSend（BYTE?MyData）?//發送紅外數據，每個bit持續10ms，高位開始發送
{
	BYTE?i;
	for（i=0;i<8;i++）
	{
		//若對應bit為1則先發射5ms38kHz矩形波，再發射5ms高電平
		if（MyData&（0x80>>i））//從最高位開始逐位檢測是1還是0
		{
			TR0=1;?
			Delay5ms（）;		//延時5ms?保證?Minimum?Burst?Length?>?280us
			TR0=0;
			IR=1;
			Delay5ms（）;		//延時5ms?保證?No?Burst?Length?>?300us
		}
		//若對應bit為0則關閉發射紅外線
		else
		{
			IR=1;
			Delay10ms（）;	//信號0延時10ms
		}
	}
	IR=1;
}?



void?main（）?
{
	wela=0;
	dula=0;?
	TimerInit（）;
	IR=1;
	while（1）?
	{?
		if（!KEY1）??				//若有獨立按鍵1按下
		{
			Delay10ms（）;		//消抖
			if（!KEY1）
			{
				while（!KEY1）;?	//松手檢測
				IRSend（0xa1）;?	//紅外發送數據0xA1
			}??
	???	}
		if（!KEY2）				//若有獨立按鍵2按下
		{
			Delay10ms（）;		//消抖
			if（!KEY2）
			{
				while（!KEY2）;	//松手檢測?
				IRSend（0xa2）;	//紅外發送數據0xA2
			}??
	???	}
	}?
}
?

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????4827??2014-04-25?12:15??紅外收發\紅外發射\IR

?????文件???????2423??2014-08-22?20:50??紅外收發\紅外發射\IR.c

?????文件????????983??2014-04-25?12:15??紅外收發\紅外發射\IR.hex

?????文件?????????52??2014-04-25?12:15??紅外收發\紅外發射\IR.lnp

?????文件???????5500??2014-04-25?12:15??紅外收發\紅外發射\IR.LST

?????文件???????9108??2014-04-25?12:15??紅外收發\紅外發射\IR.M51

?????文件???????4754??2014-04-25?12:15??紅外收發\紅外發射\IR.OBJ

?????文件???????1127??2014-04-25?12:38??紅外收發\紅外發射\IR.plg

????.......?????56061??2014-04-25?12:38??紅外收發\紅外發射\IR.uvopt

????.......?????13392??2014-04-02?23:08??紅外收發\紅外發射\IR.uvproj

????.......?????57764??2014-04-25?01:10??紅外收發\紅外發射\IR_uvopt.bak

????.......?????????0??2014-04-02?22:43??紅外收發\紅外發射\IR_uvproj.bak

?????文件???????6376??2009-05-07?14:37??紅外收發\紅外發射\STARTUP.A51

?????文件??????14048??2014-04-25?12:15??紅外收發\紅外發射\STARTUP.LST

?????文件????????749??2014-04-25?12:15??紅外收發\紅外發射\STARTUP.OBJ

?????文件???????6468??2014-04-25?12:56??紅外收發\紅外接收\1838T

?????文件???????3068??2014-08-22?20:54??紅外收發\紅外接收\1838T.c

?????文件???????1461??2014-04-25?12:56??紅外收發\紅外接收\1838T.hex

?????文件?????????58??2014-04-25?12:56??紅外收發\紅外接收\1838T.lnp

?????文件???????7326??2014-04-25?12:56??紅外收發\紅外接收\1838T.LST

?????文件??????11324??2014-04-25?12:56??紅外收發\紅外接收\1838T.M51

?????文件???????6717??2014-04-25?12:56??紅外收發\紅外接收\1838T.OBJ

?????文件????????380??2014-04-25?12:59??紅外收發\紅外接收\1838T.plg

????.......?????56080??2014-04-25?12:59??紅外收發\紅外接收\1838T.uvopt

????.......?????13400??2014-04-22?14:29??紅外收發\紅外接收\1838T.uvproj

????.......?????56502??2014-04-25?11:53??紅外收發\紅外接收\1838T_uvopt.bak

????.......?????13401??2014-04-12?03:23??紅外收發\紅外接收\1838T_uvproj.bak

?????文件???????6376??2009-05-07?14:37??紅外收發\紅外接收\STARTUP.A51

?????文件??????14048??2014-04-25?12:56??紅外收發\紅外接收\STARTUP.LST

?????文件????????749??2014-04-25?12:56??紅外收發\紅外接收\STARTUP.OBJ

............此處省略6個文件信息