DS1302设计的可调万年历实测正常附有程序

DS1302设计的可调万年历实测正常附有程序本制作所用数码管全为共阳数码管我刚开始想做万年历的时候是上网找别人的程序，可是发现找了不少都不理想，要不就没日历和时间一起显示，要不就不能调时间的，后来我研究了两天，自己终于把程序编了出来好了，废话我就不多说，本制作我已经把实物做了出来，保证没问题！下面附有仿真图和实物图拍摄的效果不够好，但实物是不错的，本人实物中用三级管代替了仿真图的74HC04非门，用哪个都是可以的……请注意本程序分两个C文件的，如果不会编，可以Q我1107588997我直接发程序过去给你……软件源程序初始化程序只在开始时用一次，之后要把它屏蔽掉#include#include#includeucharwri te_add

[7]={0某8c,0某8a,0某88,0某86,0某84,0某82,0某80};ucharread_add

[7]={0某8d,0某8b,0某89,0某87,0某85,0某83,0某81};voidwrite_dl302_byteuchardat{uchari;for i=0;i8;i++{ck=0;io=dat0某01;dat=datl;ck=l;}}voidwrite_dl302ucharadd,uchardat{rt=0;_nop_;ck=0;_nop_;rt=l;_nop_;write_dl302_byteadd;write_dl302_bytedat;rt=0;_nop_;io=l；ck=l;}ucharread_dl302ucharadd{uchari,value;rt=0;_nop_;ck=0;_nop_;rt=l;_nop_;write_dl302_byteadd;fori=0;i8;i++{value=valuel;ck=0;i fiovalue=value10某80;ck=l;}rt=0;_nop_;ck=0;_nop_;ck=l;io=l;returnvalue;}voidread_rtcvoid{uchari;voidmain{//zicheng某u.c#defineDUANlP2#defineDUAN2P3#defineWEIP0#defineuintunignedintftdefineucharunignedcharbitck=Pl1;bitio=P10;bitrt=Pl2;bitkl=Pl4;bitk2=Pl5;bitk3=Pl6;bitk4=Pl7;ucharhi,fen,miao,nian,yue,ri,某i,menu,y;un ignedcharcodequan[]={0某cO,0某f9,0某a4,0某bO,0某99,0某92,0某82,0某f8,0某80,0某90;voidwrite_dl302_byteuchardat;voidwrite_dl302ucharadd,uchardat;ucharread_dl302ucharadd;voiddiplayvoid;voidbuttonvoid;voiddelay uintz{uchar某,y;for某二z;某〉0;某一fory=110;y0;y一;}/某voidInit_DS1302void〃初始化{write_dl3020某8e,0某00;write_dl3020某80,0某00;write_dl3020某82,0某20;write_dl3020某84,0某09;write_dl3020某86,0某25;write_dl3020某88,0某12;write_d13020某8a,0某06;write_dl3020某8c,0某10;write_dl3020某90,0某01;write_dl3020某c0,0某f0;write_dl3020某8e,0某80;}某/voiddiplay void{WEI=0;DUANl=quan

[2];ifmenu==3y80kl!=0k2!=0k3!=0k4!=0{DUAN2=0某ff;}e1eDUAN2=quan[h i/10];delay2;DUAN0某ff;DUAN2=0某ff;WEI=1;DUANl=quan

[0];if menu==3y80kl!=0k2!=0k3!=0k4!=0{DUAN2=0某ff;}e1eDUAN2=quan[hi];delay2;DUAN1=O某ff;DUAN2=0某ff;WEI=2;ifmenu==7y80kl!=0k2!=0k3!=0k4!=0{DUAN1=O某ff;}e1eDUANl=quan[n ian/10];if menu=2y〈80kl!二0k2!二0k3!二0k4!二0{DUAN2=0某ff;}eleDUAN2=quan[fen/10];delay2;DUAN0某ff;DUAN2=0某ff;WE3;ifmenu=7y〈80kl!=0k2!=0k3!=0k4!=0{DUANl=0某ff;}eleDUANl=quan[nian];ifmenu=2y〈80kl!=0k2!=0k3!=0k4!=0{DUAN2=0某ff;}eleDUAN2=quan[fen];delay2;DUAN0某ff;DUAN2=0某ff;WEI=4;ifmenu=6y〈80kl!=0k2!=0k3!=0k4!=0{DUANl=0某ff;}eleDUANl=quan[yue/10];ifmenu=ly〈80kl!二0k2!二0k3!二0k4!二0{DUAN2=0某ff;}eleDUAN2=quan[miao/10];delay2;DUAN1=O某ff;DUAN2=0某ff;WEI=5;if menu==6y80kl!=0k2!=0k3!=0k4!=0{DUAN1=O某ff;}eleDUANl=quan[yue];ifmenu==ly80kl!=0k2!=0k3!=0k4!=0{DUAN2=0某ff;}eleDUAN2=quan[miao];delay2;DUAN1=O某ff;DUAN2=0某ff;WEI=6;ifmenu==5y80kl!=0k2!=0k3!=0k4!=0{DUAN1=O某ff;}eleDUANl=quan[ri/10];DUAN2=0某ff;delay2;DUAN1=O某ff;WEI=7;if menu==5y80kl!=0k2!=0k3!=0k4!=0{DUAN1=O某ff;}eleDUANl=quan[ri];ifmenu==4y80kl!=0k2!=0k3!=0k4!=0{DUAN2=0某ff;}eleDUAN2=quan[某i];delay2;DUAN1=O某ff;DUAN2=0某ff;}voidbutton void{if k4-0{delay10;if k4-0{menu++;if menu=8{menu=0;}whi le!k4{diplay;}}}ifmenu~l{if k2-0{delay10;if k2~0{miao++;ifmiao—60{miao=0;}while!k2{diplay;}}}ifk3—0{delay10;if k3==0{miao--;if miao==255{miao=59;}while!k3{diplay0;}}}write_d13020某8e,0某00;write_dl3020某80,miao/10某16+miao;write_dl3020某8e,0某80;y++;ify=160{y=0;}}ifmenu==2{ifk2==0{delay10;ifk2==0{fen++;iffen==60{fen=0;}while!k2{diplayO;}}}if k3—0{delay10;if k3==0{fen-iffen==255{fen=59;}while!k3{diplay;}}}write_dl3020某8e,0某00;write_d13020某82,fen/10某16+fen;write_dl3020某8e,0某80;y++;ify=160{y=0;}}if menu-3{if k2—0{delay10;if k2—0{hi++;if hi—24{hi=0;}while!k2{diplay;}}}if k3—0{delay10;if k3==0{hi--;if hi—255{hi=23;}while!k3{diplay;}}}write_dl3020某8e,0某00;write_dl3020某84,hi/10某16+hi;write_dl3020某8e,0某80;y++;ify=160{y=0;}}if menu==4{if k2==0{delay10;if k2==0{某i++;if某i=8{某i=l;}while!k2{diplay;}}}if k3-0{delay10;if k3=二0{某i一;if某i=0{某i=7;}while!k3{diplay0;}}}write_dl3020某8e,0某00;write_dl3020某8a,某i/10某16+某i;write_dl3020某8e,0某80;y++;ify=160{y=0;}}if menu—5{ifk20{delay10;if k2==0{ri++;if ri==32{ri=1;}while!k2{diplay;}}}if k3-0{delay10;if k3—0{ri--;if ri-0{ri=31;}while!k3{diplay;}}}write_dl3020某8e,0某00;write_dl3020某86,ri/10某16+ri;write_dl3020某8e,0某80;y++;ify=160{y=0;}}ifmenu==6{ifk2==0{delay10;ifk2==0{yue++;ifyue==13{yue=l;}while!k2{diplay;}}}ifk3==0{delay10;if k3=0{yue—;if yue==0{yue=12;}while!k3{diplay;}}}write_dl3020某8e,0某00;write_dl3020某88,yue/10某16+yue;write_d13020某8e,0某80;y++;ify=160{y=0;}}if menu-7{ifk2==0{delay10;if k2==0{nian++;if nian==100{nian=0;}while!k2{diplay;}}}if k3—0{delay10;if k3—0{nian一一;ifnian==255{nian=99;}while!k3{diplay;}}}write_dl3020某8e,0某00;write_dl3020某8c,nian/10某16+nian;write_dl3020某8e,0某80;y++;ify=160{y=0;}}ifkl==0{menu=0;while!kl{diplay;}}。