/************************************************************
	
	程序說明：
	功能：
	通過檢測模塊（紅外+火焰+煤氣），實(shí)現(xiàn)GSM發(fā)中文信息，蜂鳴器報(bào)警，并且處理突發(fā)狀況

時(shí)間：2018年8月日
作者：畫中仙
	不足：
1、火焰檢測模塊。在太陽光下，會錯(cuò)誤識別，產(chǎn)生低電平：可以通過調(diào)節(jié)滑動(dòng)變阻器調(diào)節(jié)靈敏度
2、繼電器高電平開啟，蜂鳴器低電平開啟
3、發(fā)信息過程，不能處理其他事件
注意：蓄電池用久了，可能沒電


*************************************************************/
#include?
#include?
#include?
#define?uchar?unsigned?char
#define?uint?unsigned?int

bit?fame1111=1;???//情況處理標(biāo)志位
bit?thief111=1;
bit?gas111=1;


sbit?gas=P1^0;??????//煤氣：
sbit?fame=P1^1;??????//??火焰
sbit?thief=P0^2;??????//紅外檢測：防盜


sbit?buzzer=P1^4;???????//蜂鳴器：低電平開啟

sbit??fan=P2^0;?????????//風(fēng)扇?：高電平開啟

sbit??water=P2^5;???????//水泵：高電平開啟



//以下是開機(jī)后發(fā)送到手機(jī)的內(nèi)容，發(fā)送的號碼在程序中修改。	
unsigned?int??REC_data=0;????//標(biāo)記Buffer_Uart0接收數(shù)組
unsigned?char?idata?BufferUART_Rec[25]={0};		?//Uart0中斷接收數(shù)組

/*--------------------------------
*硬件上晶振要是12M的，11.092M不行！！！真的坑！！
這個(gè)是預(yù)編譯決定的
*
*/
#define?FOSC_12M

/*初始化程序（，次程序?qū)褂枚〞r(shí)器1*/
void?SerialInti（）//初始化程序（必須使用，否則無法收發(fā)）
{
	TMOD=0x20;//定時(shí)器1操作模式2:8位自動(dòng)重載定時(shí)器

#ifdef?FOSC_12M		???//在這里根據(jù)晶振大小設(shè)置不同的數(shù)值初始化串口
	TH1=0xf3;//裝入初值，波特率2400
	TL1=0xf3;	
#else?	
	TH1=0xfd;//裝入初值，波特率9600
	TL1=0xfd;
#endif?//end?of?SOC_12M
	
	TR1=1;//打開定時(shí)器
	SM0=0;//設(shè)置串行通訊工作模式，（10為一部發(fā)送，波特率可變，由定時(shí)器1的溢出率控制）
	SM1=1;//（同上）在此模式下，定時(shí)器溢出一次就發(fā)送一個(gè)位的數(shù)據(jù)
	REN=1;//串行接收允許位（要先設(shè)置sm0sm1再開串行允許）
	EA=1;//開總中斷
	ES=1;//開串行口中斷	
}


/*

確認(rèn)數(shù)據(jù)發(fā)送完畢函數(shù)打電話函數(shù)中可以不使用

*/
void?Uart1Send（uchar?c）
{
	SBUF=c;
	while（!TI）;//等待發(fā)送完成信號（TI=1）出現(xiàn)
	TI=0;	
}


/*
串行口連續(xù)發(fā)送char型數(shù)組，遇到終止號/0將停止
*/
void?Uart1Sends（uchar?*str）
{
	while（*str!=‘\0‘）
	{
		SBUF=*str;
		while（!TI）;//等待發(fā)送完成信號（TI=1）出現(xiàn)
		TI=0;
		str++;
	}
}

/*100MS延時(shí)*/
void?delay（void）???//100MS延時(shí)
{
????unsigned?char?abc;
????for（c=151;c>0;c--）
????????for（b=24;b>0;b--）
????????????for（a=164;a>0;a--）;
}


/*延時(shí)1S函數(shù)*/
void?DelaySec（int?sec）???//1S延時(shí)
{
	//12M?晶振，1S誤差?0.14%。10S誤差0.15%
????unsigned?char?abci;
	for（i=0;?i?????for（c=71;c>0;c--）
????????for（b=168;b>0;b--）
????????????for（a=250;a>0;a--）;
????
}
/*發(fā)信息驅(qū)動(dòng)函數(shù)*/
void?sendtestqudong（）
{
???
????Uart1Sends（“AT+CSCS=\“UCS2\“\r\n“）;
????DelaySec（2）;//延時(shí)大約2秒
????Uart1Sends（“AT+CMGF=1\r\n“）;
????DelaySec（2）;//延時(shí)2秒
	??Uart1Sends（“AT+CSCA?\r\n“）;
????DelaySec（2）;//延時(shí)2秒
	??Uart1Sends（“AT+CSMP=17167025\r\n“）;
????DelaySec（2）;//延時(shí)2秒
	?
????Uart1Sends（“AT+CMGS=\“xxxxxxxxxxxxxx\“\r\n“）;//此處修改為對方的電話號，電話話的UNICON編碼，可使用我們配套的
																				//資料包中的?中文轉(zhuǎn)UNICON編碼工具來獲取。特別注意：那個(gè)軟件
																				//獲得的unicon?編碼待有空格，實(shí)際中要去掉，否則模塊會報(bào)錯(cuò)
????DelaySec（3）;//延時(shí)3秒
		
}

/*
*火災(zāi)檢測GSM報(bào)警函數(shù)
*/
	void	GSMfire（）
	{
	if（fame1111==0）
	{
		fame1111=1;
		sendtestqudong（）;
	if（fame==0）
	{
		Uart1Sends（“4EB2723176844E3B4EBAFF0C4F605BB67740706B5566FF01FF01FF01“）;????//著火
		Uart1Send（0x1a）;
		DelaySec（3）;//延時(shí)3秒
	}
??else
	{
		Uart1Sends（“4EB2723176844E3B4EBAFF0C4F605BB6521A521A68C06D4B5230660E706BFF0C4F465DF25E2E4F606251706DFF0C8BF7653E5F

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2018-08-24?07:22??GSM報(bào)警程序\
?????目錄???????????0??2018-08-24?07:21??GSM報(bào)警程序\Listings\
?????文件???????15150??2018-08-24?07:21??GSM報(bào)警程序\Listings\GSM報(bào)警.m51
?????文件???????14350??2018-08-24?07:21??GSM報(bào)警程序\Listings\main.lst
?????文件???????15222??2018-08-15?21:17??GSM報(bào)警程序\Listings\決賽啦.m51
?????目錄???????????0??2018-08-24?07:21??GSM報(bào)警程序\objects\
?????文件???????11726??2018-08-24?07:21??GSM報(bào)警程序\objects\GSM報(bào)警
?????文件?????????975??2018-08-24?07:21??GSM報(bào)警程序\objects\GSM報(bào)警.build_log.htm
?????文件????????3406??2018-08-24?07:21??GSM報(bào)警程序\objects\GSM報(bào)警.hex
?????文件??????????95??2018-08-24?07:21??GSM報(bào)警程序\objects\GSM報(bào)警.lnp
?????文件???????13170??2018-08-24?07:21??GSM報(bào)警程序\objects\main.obj
?????文件???????11883??2018-08-15?21:17??GSM報(bào)警程序\objects\決賽啦
?????文件?????????990??2018-08-15?21:17??GSM報(bào)警程序\objects\決賽啦.build_log.htm
?????文件??????????93??2018-08-15?21:17??GSM報(bào)警程序\objects\決賽啦.lnp
?????文件?????????857??2018-08-17?20:57??GSM報(bào)警程序\ReadMe.txt
?????文件????????6324??2018-08-24?07:21??GSM報(bào)警程序\main.c
?????文件???????71663??2018-08-24?07:22??GSM報(bào)警程序\決賽啦.uvgui.Administrator
?????文件????????5172??2018-08-17?15:31??GSM報(bào)警程序\決賽啦.uvopt
?????文件???????14104??2018-08-17?15:31??GSM報(bào)警程序\決賽啦.uvproj
?????目錄???????????0??2018-08-19?21:51??GSM報(bào)警程序\字庫軟件\
?????文件??????398848??2011-03-22?21:28??GSM報(bào)警程序\字庫軟件\Chiness_Unicode-中文轉(zhuǎn)UNICON編碼工具.exe