#include?	?????????//調(diào)用單片機(jī)頭文件

#include?

#define?uchar?unsigned?char??//無符號字符型?宏定義	變量范圍0~255
#define?uint??unsigned?int	?//無符號整型?宏定義	變量范圍0~65535

#define?key_io?P3
uchar?key_can;

//???紅外熱釋電平時(shí)為0??有輸出為1

sbit?beep?=?P1^0;	???//蜂鳴器定義
sbit?red??=?P1^3;	???//紅色發(fā)光二極管定義
sbit?green?=?P1^2;	???//綠色發(fā)光二極管定義
sbit?yellow?=?P1^1;	???//黃色發(fā)光二極管定義
sbit?hw????=?P1^4;	???//紅外熱釋傳感器定義
bit?flag_300ms?=?0;

sbit?RS?=?P2^5;
sbit?RW?=?P2^6;
sbit?EN?=?P2^7;

#define?RS_H???????RS?=?1
#define?RS_L???????RS?=?0

#define?RW_H???????RW?=?1
#define?RW_L???????RW?=?0

#define?EN_H???????EN?=?1
#define?EN_L???????EN?=?0

#define?READ_DATA??P0


void?DelayMs（unsigned?int?z）
{
???unsigned?int?x;
???for（;z>0;z--）
?????for（x=110;x>0;x--）;
}
/***************************LCD1602液晶寫命令*****************************/
void?LCDWriteCom（unsigned?char?com）
{
	RS_L;
	RW_L;
	READ_DATA?=?com;
	EN_H;
	DelayMs（5）;
	EN_L;
}

/***************************LCD1602液晶寫數(shù)據(jù)*****************************/
void?LCDWriteData（unsigned?char?dat）
{
	RS_H;
	RW_L;
	READ_DATA?=?dat;
	EN_H;
	DelayMs（5）;
	EN_L;
}

void?LcdWriteStr（unsigned?char?hangunsigned?char?addchar*s）
{
????unsigned?char?i;
????unsigned?char?length?=?0;
	if（hang==1）???
		LCDWriteCom（0x80+add）;
	else
		LCDWriteCom（0x80+0x40+add）;
????length?=?strlen（s）;
????for（i=0;i??????LCDWriteData（*s++）;??????????//指針?biāo)屯陻?shù)據(jù)后自加一
}


void?Init_1602（void）
{
	?LCDWriteCom（0x38）;	//1602?5x7點(diǎn)陣
	?LCDWriteCom（0x0c）;	//液晶開顯示
	?LCDWriteCom（0x06）;	?//光標(biāo)右移
	?LCDWriteCom（0x01）;	?//清屏
	?DelayMs（2）;
}

//獨(dú)立按鍵處理函數(shù)
void?key（）
{
	static?uchar?key_new?=?0key_old?=?0key_value?=?0;
	if（key_new?==?0）		?//按鍵松開
	{
		if（（key_io?&?0x07）?==?0x07）
			key_value?++;
		else?
			key_value?=?0;
		if（key_value?>=?5）	?//按鍵松開松手檢測
		{
			key_value?=?0;
			key_new?=?1;	//按鍵松開后進(jìn)入等待按鍵狀態(tài)
		}
	}
	else?
	{
		if（（key_io?&?0x07）?!=?0x07）	?//按鍵按下
			key_value?++;
		else?
			key_value?=0;
		if（key_value?>=?5）	//按鍵按下消抖
		{
			key_value?=?0;
			key_new?=?0;	???//按鍵松開后進(jìn)入等待松開按鍵狀態(tài)
		}
	}
	key_can?=?20;
	if（（key_new?==?0）?&&?（key_old?==?1））
	{
		switch（key_io?&?0x07）
		{
			case?0x06:?key_can?=?1;?break;	??//得到按鍵值?
			case?0x05:?key_can?=?2;?break;	??//得到按鍵值?
			case?0x03:?key_can?=?3;?break;	??//得到按鍵值?
		}
	}			?
	key_old?=?key_new;	?
}

void?time_init（）	??
{
	EA???=?1;	?	??//開總中斷
	TMOD?=?0X01;	??//定時(shí)器0工作方式1
	ET0??=?1;		??//開定時(shí)器0中斷?
	TR0??=?1;		??//允許定時(shí)器0定時(shí)
}

uchar?flag_alarm?;?????//報(bào)警標(biāo)志位
uchar?flag_bufang?;????//布防標(biāo)志位
uchar?flag_bufang_en?;?//布防標(biāo)志位使能
uint??flag_value;??????//用做定時(shí)器的變量
uchar?shige;?
uchar?num;
//紅外報(bào)警處理???
void?hongwai_dis（）
{	
????static?uchar?flag_num=0flag_va=1;	??//
????
	if（flag_alarm?==?1）	???//報(bào)警
	{
		red?=?~red;		???//紅燈報(bào)警
		beep?=?~beep;	???//蜂鳴器報(bào)警
	}	
	if（flag_bufang_en?==?1）?//準(zhǔn)備開始布防
	{
		green?=?~green;	???//綠燈閃
			
	}??
	if（flag_bufang?==?1）???//確認(rèn)布防
	{
		green?=?0;?????????//如果延時(shí)布防成功?綠燈長亮

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2018-03-26?15:48??上交文件\
?????文件??????162889??2018-03-26?15:42??上交文件\Last?Loaded?紅外熱釋電.DBK
?????文件??????709198??2018-03-26?15:43??上交文件\基于STC89C51的防盜報(bào)警器.docx
?????目錄???????????0??2018-03-26?15:42??上交文件\源代碼\
?????文件???????11775??2018-03-26?15:42??上交文件\源代碼\基于51單片機(jī)?紅外熱釋報(bào)警器
?????文件????????4796??2018-03-26?15:42??上交文件\源代碼\基于51單片機(jī)?紅外熱釋報(bào)警器.c
?????文件????????2673??2018-03-26?15:42??上交文件\源代碼\基于51單片機(jī)?紅外熱釋報(bào)警器.hex
?????文件??????????86??2018-03-26?15:42??上交文件\源代碼\基于51單片機(jī)?紅外熱釋報(bào)警器.lnp
?????文件???????11793??2018-03-26?15:42??上交文件\源代碼\基于51單片機(jī)?紅外熱釋報(bào)警器.LST
?????文件???????16076??2018-03-26?15:42??上交文件\源代碼\基于51單片機(jī)?紅外熱釋報(bào)警器.M51
?????文件???????13659??2018-03-26?15:42??上交文件\源代碼\基于51單片機(jī)?紅外熱釋報(bào)警器.OBJ
?????文件?????????194??2018-03-26?15:42??上交文件\源代碼\基于51單片機(jī)?紅外熱釋報(bào)警器.plg
?????文件???????55319??2018-03-26?15:42??上交文件\源代碼\基于51單片機(jī)?紅外熱釋報(bào)警器.uvopt
?????文件???????13331??2018-03-26?15:42??上交文件\源代碼\基于51單片機(jī)?紅外熱釋報(bào)警器.uvproj
?????文件???????55319??2018-03-26?15:42??上交文件\源代碼\基于51單片機(jī)?紅外熱釋報(bào)警器_uvopt.bak
?????文件???????????0??2018-03-26?15:42??上交文件\源代碼\基于51單片機(jī)?紅外熱釋報(bào)警器_uvproj.bak
?????文件??????162763??2018-03-26?15:42??上交文件\紅外熱釋電.DSN
?????文件?????????742??2018-03-26?15:42??上交文件\紅外熱釋電.PWI