/***************************************************************
	作品：紅外線發(fā)射
??單片機：STC89C52RC
????晶振：12M
編譯環(huán)境：Keil?uVision4?V9.00
***************************************************************/
//
//	發(fā)射引腳（接PNP三極管b極）
//	PNP三極管e極接2Ω電阻，c極接紅外發(fā)射管
?????
#include?
#include?
#define?uchar?unsigned?char?
#define?uint??unsigned?int?

#define?SBM???0x80????????????????//識別碼

#define?m9????（65536-9000）?	??????//約9mS
#define?m4_5??（65536-4500）?	??????//約4.5mS
#define?m1_6??（65536-1630）?	??????//約1.65mS
#define?m_65??（65536-580）?	??????//約0.65mS
#define?m_56??（65536-560）?	??????//約0.56mS
#define?m40???（65536-40000）???????//約40mS
#define?m56???（65536-56000）???????//56mS
#define?m2_25?（65536-2250）????????//約2.25mS

sbit?IR??=?P3^6;				??//定義發(fā)射引腳（接PNP三極管基極）
sbit?LED?=?P3^7;				??//發(fā)射指示燈

uchar?KEY（void）;
void??SanZhuan（void）;
void??ZZ（uchar?x）;
void??Z0（uchar?temp）;
void??TT0（bit?BTuint?x）;
void??YS（uchar?time）;

/*┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
函數(shù)功能：主函數(shù)
┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈*/
void?main（void）
{?

??TMOD?=?0x01;?????????//T0?16位工作方式
??IR=1;				???//發(fā)射端口常態(tài)為高電平

??while（1）?
??{
???SanZhuan（）;
??}
}
/***************************************************************
函數(shù)功能：?????????????4×4矩陣鍵盤
???????????????????????????鍵值????????????????????
P1.0?P1.1?P1.2?P1.3?P1.4?P1.5?P1.6?P1.7?
│?????│????│????│????│????│????│????│????┃
│?????│????│????└────13???14???15???16???┃???
│?????│????└─────────9????10???11???12???┃???
│?????└──────────────5????6????7????8????┃???
└────────────────────1????2????3????4????┃??
***************************************************************/
uchar?KEY（void）
{
?uchar?HL;????????????//行值，列值
?H=0;
?L=0;
?P1?=?0xf0;????????????//將鍵盤端口行值設(shè)為1，列值設(shè)為0
?if（P1!=?0xf0）?????????//檢測是否有按鍵按下，如果有則hangval必不為0x0f
???{
????YS（10）;????????????//按鍵去抖動，延時10毫秒
????if（P1!=0xf0）???????//確實有按鍵按下
??????{
???????H??=?P1&0xf0;???//按鍵后得到按鍵的行標(biāo)志位，將行標(biāo)志位賦值給hangval
???????P1?=?0x0f;??????//翻轉(zhuǎn)鍵盤接口輸出
???????L??=?P1&0x0f;???//得到列標(biāo)志位
??????}
	return?（H+L）;
???}
??return?0;
}
/***************************************************************
函數(shù)功能：散轉(zhuǎn)程序
入口參數(shù)：v
//
//??13?14?15?16
//??9??10?11?12
//??5??6??7??8
//??1??2??3??4
***************************************************************/
void?SanZhuan（void）
{
?uchar?v;
?v?=?KEY（）;
?
?switch（v）
?{
??case?0x77:ZZ（0x01）;v=0;break;		//“??“
??case?0xb7:ZZ（0x02）;v=0;break;		//“??“
??case?0xd7:ZZ（0x03）;v=0;break;		//“??“
??case?0xe7:ZZ（0x04）;v=0;break;		//“??“
??case?0x7b:ZZ（0x05）;v=0;break;		//“??“
??case?0xbb:ZZ（0x06）;v=0;break;		//“??“
??case?0xdb:ZZ（0x07）;v=0;break;		//“??“
??case?0xeb:ZZ（0x08）;v=0;break;		//“??“
??case?0x7d:ZZ（0x09）;v=0;break;		//“??“
??case?0xbd:ZZ（0x10）;v=0;break;		//“??“
??case?0xdd:ZZ（0x11）;v=0;break;		//“??“
??case?0xed:ZZ（0x12）;v=0;break;		//“??“
??case?0x7e:ZZ（0x13）;v=0;break;		//“??“
??case?0xbe:ZZ（0x14）;v=0;break;		//“??“
??case?0xde:ZZ（0x15）;v=0;break;		//“??“
??case?0xee:ZZ（0

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2011-07-25?20:30??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\
?????文件??????147555??2011-07-22?11:30??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\Last?Loaded?紅外線發(fā)射接收_電路仿真.DBK
?????目錄???????????0??2011-07-25?20:30??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\
?????文件??????131261??2011-06-29?22:07??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\Last?Loaded?紅外線發(fā)射2.1簡化.DBK
?????文件??????144400??2011-07-22?10:26??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\Last?Loaded?紅外線發(fā)射接收.DBK
?????文件????????6376??2009-05-07?14:37??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\STARTUP.A51
?????文件???????14048??2011-07-22?12:24??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\STARTUP.LST
?????文件?????????749??2011-07-22?12:24??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\STARTUP.OBJ
?????文件????????8484??2011-07-22?12:24??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\紅外線發(fā)射
?????文件????????5751??2011-07-22?10:47??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\紅外線發(fā)射.c
?????文件????????1573??2011-07-22?12:24??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\紅外線發(fā)射.hex
?????文件??????????68??2011-07-22?12:24??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\紅外線發(fā)射.lnp
?????文件???????29343??2011-07-22?12:24??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\紅外線發(fā)射.LST
?????文件???????11174??2011-07-22?12:24??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\紅外線發(fā)射.M51
?????文件????????9169??2011-07-22?12:24??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\紅外線發(fā)射.OBJ
?????文件?????????393??2011-07-22?12:24??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\紅外線發(fā)射.plg
?????文件???????56113??2011-07-22?12:24??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\紅外線發(fā)射.uvopt
?????文件???????13424??2011-07-22?12:24??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\紅外線發(fā)射.uvproj
?????文件?????????969??2011-06-29?23:31??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\紅外線發(fā)射2.1簡化.PWI
?????文件???????56115??2011-07-22?12:24??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\紅外線發(fā)射_uvopt.bak
?????文件???????13444??2011-06-04?12:50??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\紅外線發(fā)射_uvproj.bak
?????文件????????1078??2011-07-22?10:14??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\發(fā)射\紅外線發(fā)射接收.PWI
?????目錄???????????0??2011-07-25?20:30??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\接收\
?????文件???????13853??2011-06-04?12:13??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\接收\CK.LST
?????文件????????5642??2011-06-04?12:13??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\接收\CK.OBJ
?????文件????????2403??2011-07-23?16:31??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\接收\HT1621.c
?????文件???????17891??2011-07-23?16:32??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\接收\HT1621.LST
?????文件????????7461??2011-07-23?16:32??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\接收\HT1621.OBJ
?????文件????????6376??2009-05-07?14:37??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\接收\STARTUP.A51
?????文件???????14048??2011-07-23?16:32??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\接收\STARTUP.LST
?????文件?????????749??2011-07-23?16:32??紅外線遙控Proteus仿真電路+發(fā)射+接收程序\接收\STARTUP.OBJ
............此處省略12個文件信息