可调电子钟.doc

/-/名称：用DS1302与数码管设计的可调电子钟/-/说明：本例持续读取DS1302实时时钟并显示在7段数码管上，按下K1键，K2键可/ 调整小时与分钟，按下K3键可保存调整后的时间/-#include #include #include #define uchar unsigned char#define uint unsigned intsbit SDA=P10;/DS1302数据线sbit SCLK=P11;/DS1302时钟线sbit RST=P12;/DS1302复位线sbit K1=P32; /选择sbit K2=P33; /调整uchar code DSY_CODE = 0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90,0xff; /共阳数码管段码表uchar Display_Buffer = 0x00,0x00,0xbf,0x00,0x00,0xbf,0x00,0x00; /显示缓冲，格式：HH-MM-SSuchar code Bit_Code = 0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80; /数码管位码uchar code Runyue =1,3,5,7,8,10,12;uchar code Frunyue=4,6,9,11;uchar Current_Time7; /所读取的日期时间uchar f=0;/-/延时/-void delay(uint m)uchar t;while(m-) for(t=0;t120;t+);/-/向DS1302写入一个字节/-void Write_A_Byte_TO_DS1302(uchar x)uchar i;SCLK=0; /拉低SCLK，为脉冲上升沿写入数据做好准备for (i=0;i=1; /将x的各数据位右移1位，准备写入下一个数据位/-/从DS1302读取一个字节,/注意：DS1302中所存放的数据是BCD码，在读写时要注意转换/-uchar Get_A_Byte_FROM_DS1302()uchar i,b=0x00;for (i=0;i8;i+)b |= _crol_(uchar)SDA,i);/将uchar类型的IO数据左移i位SCLK=1; /将SCLK置于高电平，为下降沿读出SCLK=0; /时钟下降沿读取return (b/16)*10+b%16; /从二进制数返回BCD码，而BCD码和十进制的0-9一一对应/-/从DS1302指定位置读取数据/-uchar Read_Data(uchar addr)uchar dat;RST=0; /拉低RSTSCLK=0; /确保写数据前SCLK被拉低RST=1; /启动数据传输Write_A_Byte_TO_DS1302(addr); /写入命令字dat=Get_A_Byte_FROM_DS1302();SCLK=1; /将时钟电平置于已知状态RST=0; /禁止数据传递return dat;/-/向DS1302某地址写入数据/-void Write_DS1302(uchar addr,uchar dat)RST=0; /拉低RSTSCLK=0;RST=1; /启动数据传输Write_A_Byte_TO_DS1302(addr); /写入命令字Write_A_Byte_TO_DS1302(dat);SCLK=1; /将时钟电平置于已知状态RST=0; /禁止数据传递/-/设置时间/-void SET_DS1302()Write_DS1302(0x8e,0x00);/写控制字，取消写保护Write_DS1302(0x82,(Current_Time0/104) | (Current_Time0%10);/写入秒Write_DS1302(0x82,(Current_Time1/104) | (Current_Time1%10);/写入分Write_DS1302(0x84,(Current_Time2/104) | (Current_Time2%10);/写入时Write_DS1302(0x86,(Current_Time5/104) | (Current_Time5%10);/写入日Write_DS1302(0x88,(Current_Time4/104) | (Current_Time4%10);/写入月Write_DS1302(0x8c,(Current_Time3/104) | (Current_Time3%10);/写入年Write_DS1302(0x8e,0x80);/加保护/-/读取当前日期时间/-void GetTime()Current_Time0 = Read_Data(0x81); /秒Current_Time1 = Read_Data(0x83); /分钟Current_Time2 = Read_Data(0x85); /小时Current_Time3 = Read_Data(0x8d); /年Current_Time4 = Read_Data(0x89); /月Current_Time5 = Read_Data(0x87); /日/-/显示时间/-void Time()uchar i;Display_Buffer0 = DSY_CODE Current_Time2 / 10; /查表得到小时十位Display_Buffer1 = DSY_CODE Current_Time2 % 10; /查表得到小时个位Display_Buffer3 = DSY_CODE Current_Time1 / 10; Display_Buffer4 = DSY_CODE Current_Time1 % 10;Display_Buffer6 = DSY_CODE Current_Time0 / 10;Display_Buffer7 = DSY_CODE Current_Time0 % 10;/动态刷新数码管显示for (i=0; i8;i+)P2 = Bit_Codei;P0 = Display_Bufferi;delay(2);/-/显示日期/-void Date()uchar i; /如果未执行调节操作则正常读取当前时间 Display_Buffer0 = DSY_CODE Current_Time3 / 10; Display_Buffer1 = DSY_CODE Current_Time3 % 10; Display_Buffer3 = DSY_CODE Current_Time4 / 10; Display_Buffer4 = DSY_CODE Current_Time4 % 10;Display_Buffer6 = DSY_CODE Current_Time5 / 10;Display_Buffer7 = DSY_CODE Current_Time5 % 10;for (i=0; i8;i+)P2 = Bit_Codei;P0 = Display_Bufferi;delay(2);/-/调整时间时，闪烁/-void TZ_Time(uint f)uchar i;Display_Buffer0 = DSY_CODE Current_Time2 / 10; Display_Buffer1 = DSY_CODE Current_Time2 % 10; Display_Buffer3 = DSY_CODE Current_Time1 / 10; Display_Buffer4 = DSY_CODE Current_Time1 % 10;Display_Buffer6 = DSY_CODE Current_Time0 / 10;Display_Buffer7 = DSY_CODE Current_Time0 % 10;switch(f)case 1:Display_Buffer0=0xff;Display_Buffer1=0xff;break;case 2:Display_Buffer3=0xff;Display_Buffer4=0xff;break;case 3:Display_Buffer6=0xff;Display_Buffer7=0xff;break;/动态刷新数码管显示for (i=0; i8;i+)P2 = Bit_Codei;P0 = Display_Bufferi;delay(2);/-/调整日期时，闪烁/-void TZ_Date(uint f)uchar i;Display_Buffer0 = DSY_CODE Current_Time3 / 10; Display_Buffer1 = DSY_CODE Current_Time3 % 10; Display_Buffer3 = DSY_CODE Current_Time4 / 10; Display_Buffer4 = DSY_CODE Current_Time4 % 10;Display_Buffer6 = DSY_CODE Current_Time5 / 10;Display_Buffer7 = DSY_CODE Current_Time5 % 10;switch(f)case 4:Display_Buffer0=0xff;Display_Buffer1=0xff;break;case 5:Display_Buffer3=0xff;Display_Buffer4=0xff;break;case 6:Display_Buffer6=0xff;Display_Buffer7=0xff;break;/动态刷新数码管显示for (i=0; i8;i+)P2 = Bit_Codei;P0 = Display_Bufferi;delay(2);/-/日调整（加1并判断是否闰年，闰月）/-void TZ_Day()uint i;uchar year,y;year=2000+Current_Time3;if(Current_Time4=2)if(year % 4=0 & year % 100 !=0) | (year % 400 =0)y=28;else y=29;for(i=0;i7;i+)if(Current_Time4=Runyuei)y=31;if(Current_Time4=Frunyuei)y=30;Current_Time5 = (Current_Time5 + 1)%y;if(Current_Time5=0) Current_Time5=y;/-/月调整/-void TZ_Month()Current_Time4 = (Current_Time4 + 1)%12;if(Current_Time4=0) Current_Time4=12;/-/键盘中断（INT0）选择调整时、分、年、月、日。/-void EX_INT0() interrupt 0uint a;IT1=1;f=0;while(1)if (IE0) f+;IE0=0;for(a=0;a7;a+)if(f4) TZ_Time(f);else TZ_Date(f);for(a=0;a7;a+)if(f6)SET_DS1302();f=0;IT1=0;break;/-/键盘中断（INT1）调整时间时，加1；不调整时间时，显示日历./-void EX_INT1() interrupt 2switch(f)case 0: GetTime();Date();case 1: Current_Time2 = (Current_Time2 + 1)%24;break; /小时case 2: Current_Time1 = (Current_Time1 + 1)%60;break;case 3: Current_Time0 = (Current_Time0 + 1)%60;break;case 4: C