DS1302实时时钟

《DS1302实时时钟》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、DS1302实时时钟/*************************************LED_D(数码管段选)LED_W(数码管位选)*************************************/#include#include#defineucharunsignedchar#defineuintunsignedint#defineLED_WP2#defineLED_DP0sbitLED=P3^2;sbitSCK=P3^4;sbitIO=P3^5;sbitRST=P3^6;sbitse

2、t=P1^0;sbits1=P1^1;sbits2=P1^2;ucharcodetable[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f};//0-9ucharwrite_add[]={0x8c,0x8a,0x88,0x86,0x84,0x82,0x80};//年、星期、月份、日期、时、分、秒ucharread_add[]={0x8d,0x8b,0x89,0x87,0x85,0x83,0x81};//年、星期、月份、日期、时、分、秒uchartime_date[7];//年、星期、月份、日

3、期、时、分、秒uchardisp[4];ucharnum,setn,minite,hour;voiddelay(uintz){uintx,y;for(x=0;x>1;SCK=1;}}voidWrite_DS1302(ucharadd,uchardat){RST=0;_nop_();SCK=0;_nop_();RST=1;_nop_(

4、);Write_DS1302_Byte(add);Write_DS1302_Byte(dat);RST=0;_nop_();IO=1;SCK=1;}ucharRead_DS1302(ucharadd){uchari,value;RST=0;_nop_();SCK=0;_nop_();RST=1;_nop_();Write_DS1302_Byte(add);for(i=0;i<8;i++){value=value>>1;SCK=0;if(IO)value=value

5、0x80;SCK=1;}RST=0;_nop_();SCK=0;_nop_();SC

6、K=1;IO=1;returnvalue;}ucharChang_H_D(uchardat){uchart;t=dat/16*10+dat%16;returnt;}ucharChang_D_H(uchardat){uchart;t=dat/10*16+dat%10;returnt;}voidRead(){uchari;for(i=0;i<7;i++){time_date[i]=Read_DS1302(read_add[i]);}}voidtimepro(){disp[0]=time_date[5]%16;disp[1]=time_date[5]/1

7、6;disp[2]=time_date[4]%16;disp[3]=time_date[4]/16;}voidkeyscan(){if(set==0){delay(5);if(set==0){while(!set);setn++;LED=0;TR0=0;num=0;TH0=(65536-50000)/256;TL0=(65536-50000)%256;Write_DS1302(0x8e,0x00);delay(1);Write_DS1302(0x80,Chang_D_H(128));delay(1);Write_DS1302(0x8e,0x80);

8、if(setn==3){setn=0;TR0=1;Write_DS1302(0x8e,0x00);delay(1);Write_DS1302(0x80,Chang_D_H(0));delay(1);Write_DS1302(0x8e,0x80);}}}if(setn!=0){if(s1==0){delay(5);if(s1==0){while(!s1);Write_DS1302(0x8e,0x00);if(setn==1){minite=Chang_H_D(time_date[5]);minite++;if(minite==60)minite=0;

9、}Write_DS1302(0x82,Chang_D_H(minite));if(setn==2){hour=Chang_