#include??		?

#define?u8?unsigned?char
#define?u16?unsigned?int	???

#define?Dla?P1		?//數碼管段

u8?TIME=0;			?//=20計時?1?s
u8?TIMES=0;			?//=1?計時?1?s
u8?TIMEM=0;			?//=1?計時?1?min

sbit?Wla1?=?P0^2;?	?//數碼管位
sbit?Wla2?=?P0^3;	?//數碼管位

sbit?Beep?=?P3^6;	??//Beep
sbit?Din?=?P3^4;?	??//Din
sbit?Led?=?P3^5;	??//Led

u8?code?table[16]={0x3f0x060x5b0x4f0x660x6d0x7d0x070x7f0x6f0x770x7c0x390x5e0x790x71};??//0-F?編碼

void?display（u8?time）;//顯示time

void?Delayms（u8?ms）;??//延時ms毫秒

void?TimerInit（void）;?//定時器初始化

void?main（）?	
{?
	TimerInit（）;
	while（1）?
	{
	?	if（Din）
		{
			TR0=1;	//啟動定時器0
			Led=0;
			Beep=0;
		}
		else
		{
			Led=1;
			TR0=0;??//關閉定時器0
			Beep=1;
			TIMES=0;
		}
		display（TIMES）;	??//顯示
	}
}

void?TimerInit（void）
{
?	TMOD=0x11;				//GATE?C/T?M0?M1?GATE?C/T?M0?M1
	TH0=（65536-50000）/256;	//50MS初值
	TL0=（65536-50000）%256;	//50MS初值
	EA=1;
	ET0=1;
	TR0=0;
}
void?display（u8?time）
{
	u8?shi=0ge=0;			??
	shi=time/10;
	ge=time%10;

	Wla2=1;					??
	Dla=~table[shi];
	Delayms（1）;
	Wla2=0;

	Dla=0xFF;

	Wla1=1;					??
	Dla=~table[ge];
	Delayms（1）;
	Wla1=0;

	Dla=0xFF;
}
void?Delayms（u8?ms）
{
	u8?i=0;
	for（i=0;i	{
		TH1=（65536-1000）/256;	//1MS初值
		TL1=（65536-1000）%256;
		TR1=1;
		while（!TF1）;
		TF1=0;
	}
	TR1=0;
}
void?timer0（）?interrupt?1
{
	TH0=（65536-50000）/256;
	TL0=（65536-50000）%256;
	TIME++;
	if（TIME==20）
	{
		TIME=0;
		TIMES++;
		if（TIMES==60）
		{
			TIMEM++;
			if（TIMEM==60）
				TIMEM=0;
		}
	}
}

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

?????文件????????399??2015-04-22?16:23??紅外報警程序\keilkilll.bat

?????文件???????2369??2017-05-04?20:20??紅外報警程序\Obj\紅外報警

?????文件????????258??2017-05-04?20:20??紅外報警程序\Obj\紅外報警.hex

?????文件?????193536??2017-05-05?17:04??紅外報警程序\Sheet1.SchDoc

?????文件???????5707??2017-05-05?09:56??紅外報警程序\User\Obj\紅外報警

?????文件???????1053??2017-05-05?09:56??紅外報警程序\User\Obj\紅外報警.hex

?????文件???????6376??2017-05-04?19:10??紅外報警程序\User\STARTUP.A51

?????文件???????1613??2017-05-05?10:22??紅外報警程序\User\紅外報警.c

?????文件???????9274??2017-05-05?09:56??紅外報警程序\User\紅外報警.m51

????.......?????70573??2019-03-16?09:55??紅外報警程序\User\紅外報警.uvgui.Guoqing

????.......??????5025??2019-03-16?09:55??紅外報警程序\User\紅外報警.uvopt

????.......?????13968??2019-03-16?09:55??紅外報警程序\User\紅外報警.uvproj

?????目錄??????????0??2017-08-19?18:16??紅外報警程序\User\Obj

?????目錄??????????0??2017-08-19?18:16??紅外報警程序\Obj

?????目錄??????????0??2019-03-16?09:55??紅外報警程序\User

?????目錄??????????0??2017-08-19?18:16??紅外報警程序

-----------?---------??----------?-----??----

???????????????310151????????????????????16