//與源程序代碼1的不同在于調時間的時候可以減
#include<reg51.h>
#include <intrins.h>
#define uchar unsigned char 
#define uint unsigned int
sbit rs=P2^6;
sbit rw=P2^5;
sbit en=P2^7;
sbit k1=P1^7;
sbit k2=P1^6;
sbit k3=P1^5;
sbit BEEP=P3^0;
uint tt1;
long shu;
uchar i=0;
uchar k1num,k2num,k3num,tt,ring=1,gap_ring=1,flag_display_time,flag_display_miaobiao=1,flag_beep=1;
uchar moshi1,moshi2,moshi3,a_hour=12,a_minute=0,a_second=0;				   
uchar year=11,month=6,date=8,day=3,hour=11,minute=59,second=50;
uchar code week[7][3]={"SUN","MON","TUS","WEN","THU","FRI","SAT"};
uchar code table []="  20  -  -      ";
uchar code table1[]="      :  :  ";
uchar code table2[]="   SET  ALARM   ";
uchar code table3[]="    ON   OFF    ";
uchar code table4[]="   MIAO  BIAO   ";
uchar code table5[]="    00:00:00    ";
//*******************************************************************************
//液晶讀寫及初始化
void delay(uint ms)
{							// 延時子程序
	uint i;
	while(ms--)
	{
		for(i = 0; i< 800; i++)
		{
			_nop_();			
		}
	}
}
uchar lcd_bz()				// 測試LCD忙碌狀態
{							
	uchar result;
	rs = 0;
	rw = 1;
	en = 1;
	_nop_();
	_nop_();
	_nop_();
	_nop_();
	result = (P0 & 0x80);
	en = 0;
	return result;	
}
void write_com(uchar com)	// 寫入指令到LCD
{							
	while(lcd_bz());
	rs = 0;
	rw = 0;
	en  = 0;
	_nop_();
	_nop_();	
	P0 = com;
	_nop_();
	_nop_();
	_nop_();
	_nop_();
	en  = 1;
	_nop_();
	_nop_();
	_nop_();
	_nop_();
	en  = 0;		
}
void write_date(uchar dat)	
{							// 寫入數據到LCD
	while(lcd_bz());
	rs = 1;
	rw = 0;
	en  = 0;
	P0 = dat;
	_nop_();
	_nop_();
	_nop_();
	_nop_();
	en  = 1;
	_nop_();
	_nop_();
	_nop_();
	_nop_();
	en  = 0;	
}
void lcd_pc(uchar pc)		// 液晶指針
{
	write_com(pc|0x80);
}
void display(uchar add,uchar w[])
{
	uchar i=0;
	write_com(0x06);
	delay(1);
	lcd_pc(add);
	while(w[i] !='\0')											
		write_date(w[i++]);
}
void lcd_init()				// 液晶初始化
{
	en=0;
	write_com(0x38);
	delay(1);
	write_com(0x0c);		// 開顯示 無光標 不閃爍
	delay(1);
	write_com(0x01);		// 清屏
	delay(1);
	display(0,table);		// 第一行顯示日期
	display(0x40,table1);	// 第二行顯示時間		
}
//**********************************************************************************
//液晶顯示時分秒、年月日
void display_sfm(uchar add,uchar date)	    //顯示 時分秒
{
	uchar shi,ge;
	shi=date/10;
	ge=date%10;
	write_com(0x04);			   			//指針減1
	lcd_pc(0x40+add);
	write_date(0x30+ge);
	write_date(0x30+shi);
}
void display_nyr(uchar add,uchar date)	    //顯示 年月日
{
	uchar shi,ge;
	shi=date/10;
	ge=date%10;
	write_com(0x04);			   			//指針減1
	lcd_pc(add);
	write_date(0x30+ge);
	write_date(0x30+shi);
}
void display_week(uchar add,uchar date)	    //顯示 星期
{
	uchar num;
	write_com(0x06);			   			//指針加1
	lcd_pc(add);
	for(num=0;num<3;num++)
	{
		write_date(week[date][num]);
		delay(4);
	}
}  
void display_miaobiao()
{
	write_com(0x06);			   			//指針減1
	lcd_pc(0x44);
	write_date(0x30+shu/100000);	
	write_date(0x30+shu%100000/10000);
	write_date(':');
	write_date(0x30+shu%100000%10000/1000);
	write_date(0x30+shu%100000%10000%1000/100);
	write_date(':');
	write_date(0x30+shu%100000%10000%1000%100/10);
	write_date(0x30+shu%10);
}  
//*******************************************************************************
//調整時間
uchar second_plus(uchar second_1)
{
	second_1++;
	if(second_1>=60)					
		second_1=0;
	display_sfm(11,second_1);
	lcd_pc(0x4b);
	return second_1;
}
uchar minute_plus(uchar minute_1)
{
	minute_1++;
	if(minute_1>=60)
		minute_1=0;
	display_sfm(8,minute_1);
	lcd_pc(0x48);
	return minute_1;
}
uchar hour_plus(uchar hour_1)
{
	hour_1++;
	if(hour_1>=24)
		hour_1=0;
	display_sfm(5,hour_1);
	lcd_pc(0x45);
	return hour_1;
}
void date_plus()
{
	date++;
	if(month!=2)	 
	{
		switch(month)
		{
			case 1:
			case 3:
			case 5:
			case 7:
			case 8:
			case 10:
			case 12:if(date>=32)date=1;break;									
			case 4:
			case 6:
			case 9:
			case 11:if(date>=31)date=1;break;																						
		}
	}
	else								
	{
		if(year%4==0)
		{
		 	if(date>=30)					//閏年29天													
				date=1;					 
		}
		else
		{
			if(date>=29)			
				date=1;		
		}														
	}
	display_nyr(11,date);
	lcd_pc(0x0b);
}
void month_plus()
{
	month++;
	switch(month)
	{
		case 1:
		case 3:
		case 5:
		case 7:
		case 8:
		case 10:
		case 12:				break;
		case 13:	month=1;	break;
		case 4:
		case 6:
		case 9:
		case 11:	if(date>=31)date=1;break;
		case 2:		if(year%4==0)				
						if(date>=30)date=1;				
					else				
						if(date>=29)date=1;				
	}
	display_nyr(8,month);					
	lcd_pc(0x0b);					  
	display_nyr(11,date);	
	lcd_pc(0x08);		
}
void year_plus()
{
	year++;
	if(year>=100)
		year=0;
	display_nyr(5,year);
	lcd_pc(0x05);
}
void day_plus()
{
	day++;
	if(day>=7)
		day=0;
	display_week(13,day);
	lcd_pc(0x0d);
}	 /*
uchar second_minus(uchar second_1)
{
	second_1--;
	if(second_1==255)						
		second_1=59;
	display_sfm(11,second_1);
	lcd_pc(0x4b);
	return second_1;
}
uchar minute_minus(uchar minute_1)
{
	minute_1--;
	if(minute_1==255)
		minute_1=59;
	display_sfm(8,minute_1);
	lcd_pc(0x48);
	return minute_1;
}
uchar hour_minus(hour_1)
{
	hour_1--;
	if(hour_1==255)
		hour_1=23;
	display_sfm(5,hour_1);
	lcd_pc(0x45);
	return hour_1;
}
void date_minus()
{
	date--;
	if(month!=2)	 
	{
		switch(month)
		{
			case 1:
			case 3:
			case 5:
			case 7:
			case 8:
			case 10:
			case 12:if(date==0)	date=31;break;										
			case 4:
			case 6:
			case 9:
			case 11:if(date==0)	date=30;break;																								
		}					  
	}
	else								
	{
		if(year%4==0)
		{
		 	if(date==0)											  												
				date=29;				 
		}
		else
		{
			if(date==0)		
				date=28;		
		}															
	}
	display_nyr(11,date);
	lcd_pc(0x0b);
}
void month_minus()
{
	month--;
	switch(month)
	{
		case 1:
		case 3:
		case 5:
		case 7:
		case 8:
		case 10:
		case 12:			break;
		case 0:	month=12;	break;
		case 4:
		case 6:
		case 9:
		case 11:	if(date==31)date=1;break;
		case 2:		if(year%4==0)
						if(date>=30)date=1;					
					else
						if(date>=29)date=1;					
	}
	display_nyr(8,month);					
	write_com(0x80+11);					 
	display_nyr(11,date);	
	lcd_pc(0x08);
}
void year_minus()
{
	year--;
	if(year==255)
		year=99;
	display_nyr(5,year);
	lcd_pc(0x05);
}
void day_minus()
{
	day--;
	if(day==255)
		day=6;
	display_week(13,day);
	lcd_pc(0x0d);
}	*/
//**********************************************************************************
//鍵盤掃描
void time_scan()
{
	if(moshi1==0)
	{
		if(k1==0)
		{
			delay(5);
			if(k1==0)
			{
				k1num++;
				while(!k1);
				if(k1num==1)
				{
				    TR0=0;
					moshi2=1;
					moshi3=1;
					flag_display_time=1;
					lcd_pc(0x4b); 	  	//指針指向 秒的個位
					write_com(0x0f);  	//開顯示 開光標 開閃爍
				}		
				if(k1num==2)				
					lcd_pc(0x48);	  				
				if(k1num==3)			
					lcd_pc(0x45);	  			
				if(k1num==4)
					lcd_pc(0x0b);	  		
				if(k1num==5)				
					lcd_pc(0x08);	  									
				if(k1num==6)		
					lcd_pc(0x05);	 			
				if(k1num==7)			
					lcd_pc(0x0d);	 				
				if(k1num==8)
				{
					k1num=0;					
					write_com(0x0c);  //開顯示 無光標 不閃爍	
					TR0=1;
					flag_display_time=0;
					moshi2=0;
					moshi3=0;		
				}
			}
		}		
		if(k1num!=0)				  
		{
			if(k2==0)
			{
				delay(5);
				if(k2==0)
				{
					while(!k2);
					if(k1num==1)			
						second=second_plus(second);																																				 
					if(k1num==2)							 
						minute=minute_plus(minute);													
					if(k1num==3)							   
						hour=hour_plus(hour);									
					if(k1num==4)										
						date_plus();								
					if(k1num==5)										
						month_plus();																				 			
					if(k1num==6)							
						year_plus();													
					if(k1num==7)										
						day_plus();											
				}
			}			
	/*		if(k3==0)
			{
				delay(5);
				if(k3==0)
				{
					while(!k3);
					if(k1num==1)
						second=second_minus(second);																										
					if(k1num==2)			
						minute=minute_minus(minute);			
					if(k1num==3)							  			
						hour=hour_minus(hour);													
					if(k1num==4)											
						date_minus();										
					if(k1num==5)											
						month_minus();														
					if(k1num==6)											
						year_minus();															
					if(k1num==7)							
						day_minus();														
				}
			}	*/		
		}
	}
}
void alarm_scan()
{
	if(moshi2==0)
	{
		if(k2==0)
		{
			delay(5);
			if(k2==0)
			{
				k2num++;
				while(!k2);
				if(k2num==1)
				{
					moshi1=1;
					moshi3=1;
					flag_display_time=1;			
					display(0,table2);				//第一行顯示" SET ALARM "				
					display_sfm(5,a_hour);			//第二行顯示鬧鐘時間
					display_sfm(8,a_minute);
					display_sfm(11,a_second);
					lcd_pc(0x4b); 	  				//指針指向 秒的個位
					write_com(0x0f);  				//開顯示 開光標 開閃爍						
				}
				if(k2num==2)				
					lcd_pc(0x48);	  				
				if(k2num==3)			
					lcd_pc(0x45);
				if(k2num==4)
				{
					display(0x40,table3);
					lcd_pc(0x44);	
				}
				if(k2num==5)
				{
					k2num=0;
					moshi1=0;
					moshi3=0;					
					write_com(0x0c);  				//開顯示 無光標 不閃爍															
					display(0,table);				//第一行顯示日期
					display(0x40,table1);												
					display_sfm(5,hour);			//第二行顯示實時時間
					display_sfm(8,minute);
					display_sfm(11,second);	
					flag_display_time=0;
					if(i==0)
						flag_beep=0;
					else
						flag_beep=1;
				}		
			}
		}
		if(k2num!=0)
		{
			if(k1==0)
			{
				delay(5);
				if(k1==0)
				{
					while(!k1);
					if(k2num==1)			
						a_second=second_plus(a_second);																																				 
					if(k2num==2)							 
						a_minute=minute_plus(a_minute);													
					if(k2num==3)							   
						a_hour=hour_plus(a_hour);
					if(k2num==4)
					{
						i=!i;
						if(i==1)
							lcd_pc(0x49);
						else
							lcd_pc(0x44);
					}
				}
			}
		/*	if(k3==0)
			{
				delay(5);
				if(k3==0)
				{
					while(!k3);
					if(k2num==1)
						a_second=second_minus(a_second);																										
					if(k2num==2)			
						a_minute=minute_minus(a_minute);			
					if(k2num==3)							  			
						a_hour=hour_minus(a_hour);
					if(k2num==4)
					{
						lcd_pc(0x44);
						i=0;
					}
				}
			} */
		}
	}
	if(moshi1==1 && moshi2 && moshi3 == 1)
	{
		if(k1||k2||k3==0)
		{
			flag_beep=1;
			moshi1=0;
			moshi2=0;
			ring=1;
			gap_ring=1;
			TR1=1;
			tt1=0;
		}
	}
}  
void miaobiao_scan()
{
	if(moshi3==0)
	{
		if(k3==0)
		{
			delay(5);
			if(k3==0)
			{				
				while(!k3);	
				k3num++;
				moshi1=1;
				moshi2=1;
				flag_display_time=1;
				flag_display_miaobiao=0;
				shu=0;
				TR1=0;
				display(0,table4);
				display(0x40,table5);
			}
			if(k3num==2)
			{
				TR0=0;
				k3num=0;
				flag_display_time=0;
				flag_display_miaobiao=1;
				moshi1=0;
				moshi2=0;
				display(0,table);
			}
		}
		if(k3num!=0)
		{
			if(k1==0)
			{
				delay(5);
				if(k1==0)
				{
					k1num++;
					if(k1num==1)
					{
						TR1=1;
					}
					if(k1num==2)
					{
						k1num=0;
						TR1=0;
					}
				}
			}
			if(k2==0)
			{
				delay(5);
				if(k2==0)
				{
					shu=0;
					TR1=0;
				}
			}
		}
	}
}  
//**************************************************************************************
//日期和星期自動調節
void date_judge(uchar date_num)
{
	if(date>=date_num)											  
	{										
		date=1;
		month++;
		if(month>=13)
		{
			month=1;
			year++;
			if(year>=100)			
				year=0;						
		}		
	}	
}
void date_update()							//日月年自動更新函數
{
	if(month!=2)
	{
		switch(month)		   
		{
			case 1:						 //31天的月份
			case 3:						  
			case 5:
			case 7:
			case 8:
			case 10:									   
			case 12:date_judge(32);	break;																									
			case 4:						 //30天的月份
			case 6:
			case 9:																									
			case 11:date_judge(31);	break;																							
		}
	}	
	else														   
	{
		if(year%4==0)					   //二月份要判斷是閏年還是平年
			date_judge(30);
		else
			date_judge(29);
	} 
}
void week_update()				  		  //星期自動更新函數
{
	day++;
	if(day>=7)
	{
		day=0;
	}	
}
void beep()
{
	uchar i;
	for(i=0;i<100;i++)
	{
		BEEP=0;
		delay(1);
		BEEP=1;
		delay(1);
	}
	delay(20);
}
//*************************************************************************************
void main()
{
	lcd_init();
	TMOD=0x11;
	TH0=(65536-50000)/256;
	TL0=(65536-50000)%256;
	TH1=(65536-50000)/256;
	TL1=(65536-50000)%256;
	EA=1;
	ET0=1;
	ET1=1;
	TR0=1;
	while(1)
	{
		time_scan();
		alarm_scan();
		miaobiao_scan();
		if(flag_beep==0)
		{
			if(second==a_second && minute==a_minute && hour==a_hour)
			{
				TR1=0;				
				ring=0;
				gap_ring=0;				
			}
		}
		if(ring==0)
		{
			beep();
			moshi1=1;
			moshi2=1;
			moshi3=1;
		}
		if(flag_display_time==0)
		{
			display_nyr(5,year);
			display_nyr(8,month);
			display_nyr(11,date);
			display_week(13,day);
			display_sfm(5,hour);
			display_sfm(8,minute);
			display_sfm(11,second);
		}
		if(flag_display_miaobiao==0)
			display_miaobiao();		  
	}
}					  
void timer0() interrupt 1
{
	TH0=(65536-50000)/256;
	TL0=(65536-50000)%256;
	tt++;
	if(tt==20)
	{
		tt=0;
		second++;
		if(second>=60)
		{
			second=0;
			minute++;
			if(minute>=60)
			{
				minute=0;
				hour++;
				if(hour>=24)
				{
				    hour=0;
					day++;
					date_update();
					week_update();
				}			    			  
			}								
		}
	} 		
}
void timer1() interrupt 3
{
	TH1=(65536-50000)/256;
	TL1=(65536-50000)%256;
	if(gap_ring==0)
	{
		tt1++;
		if(tt1==500)
			ring=1;
		if(tt1==1000)
		{
			ring=0;
			tt1=0;
		}
	}
	shu++;
	if(shu==1000000)
		shu=0;		
}