电子万年历(数码管显示)

程序#include#include#define uchar unsigned char#define uint unsigned int#define jump_ROM 0xCC #define start 0x44 #define readdata 0xBEsbit dq=P17;sbit w1=P06;sbit w2=P05;sbit w3=P04;sbit w4=P07;sbit wela=P03;sbit A=P00;sbit b=P01;sbit C=P02;sbit SCLK=P10; /DS1302通讯线定义sbit DIO=P11;sbit RST=P12;sbit k1=P16;sbit k2=P15;sbit add=P14;sbit sub=P13;uchar code smgw=0,1,2,3,4,5,6,7;uchar code smgd=0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x00;/uchar code tab=0x077,0x12,0x0c7,0x0d3,0x0b2,0x0f1,0x0f4,0x13,0x0f7,0x0b3,0x00;uchar temperature10=0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f;uchar code xingqi=0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x7f; uchar tab19;uchar tab29;uchar nian,yue,ri,zhou,shi,fen,miao,a,shan,tt,shan;uchar knum; uchar q,j,tempp; void display(); void delay(uint z)uint x,y;for(x=z;x0;x-)for(y=55;y0;y-);void delay1(int useconds)int s;for(s=0;suseconds;s+);uchar resetds(void) uchar presencesignal; dq=0; delay1(30); dq=1; delay1(3); presencesignal=dq; delay1(30); return presencesignal; void writebit(char val) dq=0; if(val=1) dq=1; else dq=0; delay1(5); dq=1; void writebyte(char val) uchar i; uchar temp; for(i=0;ii; temp&=0x01; writebit(temp); delay1(5);uchar readbit(void) uchar i; dq=0; dq=1; for(i=0;i3;i+) return dq; uchar readbyte(void) uchar i; uchar value=0; for(i=0;i8;i+) if(readbit() value|=0x01i; delay1(7); return (value);void temper() uchar get9; uchar k,lsb,msb,n; int m; float t; m=0; resetds(); writebyte(jump_ROM); writebyte(start); delay1(5); resetds(); writebyte(jump_ROM); writebyte(readdata); display(); for(k=0;k9;k+) getk=readbyte(); msb=get1; lsb=get0; if(msb&0x80)!=0) / /取补码/ m=1; msb=msb; lsb=( lsb)+1; if(lsb=0) msb+; display(); n=lsb; msb=msb4; tempp=msb|lsb; n=n&0x0f; t=(float )(n); t=t*0.0625; j=(int)(t*100); P2=temperaturej%10; w4=1; w1=0; delay(2); P2= temperaturej/10; w1=1; w2=0; delay(2); P2=temperaturetempp%10+0x80; w2=1; w3=0; delay(2); P2= temperaturetempp/10; w3=1; w4=0; delay(2); w4=1; void write(uchar date) /写入DS1302一个字节uchar temp,i;RST=1;SCLK=0;temp=date;for(i=0;i=1;uchar read() /读出DS1302一个字节uchar a,temp;RST=1;for(a=8;a0;a-) temp=1;SCLK=1;_nop_(); _nop_(); _nop_(); _nop_(); _nop_(); _nop_(); _nop_(); SCLK=0; if(DIO) temp=temp|0x80;else temp=temp|0x00;return (temp); void write_1302(uchar add,uchar dat) /写DS1302数据 RST=0;SCLK=0;RST=1;write(add);write(dat);SCLK=1;RST=0;uchar read_1302(uchar add) /读DS1302数据uchar dat1,dat2;RST=0;SCLK=0;RST=1;write(add);dat1=read();SCLK=1;RST=0; dat2=dat1/16; /数据进制转换 dat1=dat1%16; dat1=dat1+dat2*10; /十六进制转十进制return(dat1);void ds1302_init() /1302初始化RST=0;SCLK=0;write_1302(0x8e,0x00); /允许写入write_1302(0x80,0x00);/设置初始值SECwrite_1302(0x82,0x59);/设置初始值MINwrite_1302(0x84,0x23);/设置初始值HRwrite_1302(0x86,0x20);/设置初始值DATEwrite_1302(0x88,0x4);/设置初始值MONTHwrite_1302(0x8A,0x03);/设置初始值DAY write_1302(0x8C,0x12);/设置初始值YEARwrite_1302(0x8e,0x80); void display()P2=temperaturej%10; w4=1; w1=0; delay(2); P2= temperaturej/10; w1=1; w2=0; delay(2); P2=temperaturetempp%10+0x80; w2=1; w3=0; delay(2); P2= temperaturetempp/10; w3=1; w4=0; delay(2); w4=1;miao=read_1302(0x81); /读秒 fen=read_1302(0x83); /读分 shi=read_1302(0x85);/&0x3f; /读时 ri=read_1302(0x87); /读日 yue=read_1302(0x89); /读月 nian=read_1302(0x8d); /读年 zhou=read_1302(0x8B); /读星期 if(knum=7)wela=0;/年A=0;b=1;C=1;P2=0x5b&shan;delay(2);A=1;b=1;C=1;P2=0x3f&shan;delay(2);wela=1;A=0;b=0;C=0;P2=smgdnian/10&shan;delay(2);A=1;b=0;C=0;P2=smgdnian%10&shan;delay(2); elsewela=0;/年A=0;b=1;C=1;P2=0x5b;delay(2);A=1;b=1;C=1;P2=0x3f;delay(2);wela=1; A=0;b=0;C=0;P2=smgdnian/10;delay(2);A=1;b=0;C=0;P2=smgdnian%10;delay(2); if(knum=6)wela=1;A=0;b=1;C=0;/月P2= smgd yue/10&shan;delay(2); A=1;b=1;C=0;P2= smgd yue%10&shan; delay(2);else wela=1;A=0;b=1;C=0;/月P2=smgd yue/10;delay(2); A=1;b=1;C=0;P2= smgd yue%10;delay(2);if(knum=4)wela=1;A=0;b=1;C=1;/星期P2=xingqizhou%10&shan;delay(2);elseA=0;b=1;C=1;/星期P2=xingqizhou%10;delay(2);if(knum=5) wela=1;A=0;b=0;C=1; / 日P2= smgd ri/10&shan;delay(2);A=1;b=0;C=1;P2= smgd ri%10&shan;delay(2);else wela=1;A=0;b=0;C=1; / 日P2= smgd ri/10;delay(2);A=1;b=0;C=1;P2= smgd ri%10;delay(2); if(knum=3)wela=0; A=0;b=0;C=0;/ 时P2= smgd shi/10&shan;delay(2);A=1;b=0;C=0;P2= smgd shi%10&shan;delay(2);else wela=0;A=0;b=0;C=0;/ 时P2= smgd shi/10;delay(2);A=1;b=0;C=0;P2= smgd shi%10;delay(2); if(knum=2)wela=0; A=0;b=1;C=0; / 分P2= smgd fen/10&shan;delay(2);A=1;b=1;C=0;P2= smgd fen%10&shan;delay(2);else wela=0;A=0;b=1;C=0; / 分P2= smgd fen/10;delay(2);A=1;b=1;C=0;P2= smgd fen%10;delay(2); if(knum=1) wela=0;A=0;b=0;C=1; / 秒P2= smgd miao/10&shan;delay(2);A=1;b=0;C=1;P2= smgd miao%10&shan;delay(2); wela=1;A=1;b=1;C=1;else wela=0;A=0;b=0;C=1; /秒P2= smgd miao/10;delay(2);A=1;b=0;C=1;P2= smgd miao%10;delay(2); wela=1;A=1;b=1;C=1; void key() uchar temp;display();if(k1=0) delay1(20);if(k1=0)while(!k1);knum+;if(knum=8)knum=1; if(k2=0) delay1(20);if(k2=0)while(!k2);knum-;if(knum=0)knum=7; if(knum!=0) if(add=0)delay1(20);if(add=0)while(!add);switch(knum)case 1:miao+;if(miao=60)miao=0;temp=(miao)/10*16+(miao)%10;/十进制转换成DS1302要求的DCB码write_1302(0x8e,0x00); /允许写，禁止写保护 write_1302(0x80,temp); write_1302(0x8e,0x80); /打开写保护break;case 2:fen+;if(fen=60)fen=0;temp=(fen)/10*16+(fen)%10;/十进制转换成DS1302要求的DCB码write_1302(0x8e,0x00); /允许写，禁止写保护 write_1302(0x82,temp); write_1302(0x8e,0x80); /打开写保护break;case 3:shi+;if(shi=24)shi=0; temp=(shi)/10*16+(shi)%10;/十进制转换成DS1302要求的DCB码write_1302(0x8e,0x00); /允许写，禁止写保护 write_1302(0x84,temp); write_1302(0x8e,0x80); /打开写保护break;case 5:ri+;switch(yue) case 1:case 3:case 5:case 7:case 8:case 10:case 12: if(ri=32) ri=1; break; case 4:case 6:case 9:case 11: if(ri=31) ri=1; break; case 2: if(nian%4=0|nian%400=0)if(ri=30)ri=1;elseif(ri=29)ri=1; break; temp=(ri)/10*16+(ri)%10;/十进制转换成DS1302要求的DCB码write_1302(0x8e,0x00); /允许写，禁止写保护 write_1302(0x86,temp); write_1302(0x8e,0x80); /打开写保护break;case 4:zhou+;if(zhou=8)zhou=1; temp=(zhou)/10*16+(zhou)%10;/十进制转换成DS1302要求的DCB码write_1302(0x8e,0x00); /允许写，禁止写保护 write_1302(0x8a,temp); /向DS1302内写秒寄存器80H写入调整后的秒数据BCD码 write_1302(0x8e,0x80); /打开写保护break;case 6:yue+;if(yue=13) yue=1; temp=(yue)/10*16+(yue)%10;/十进制转换成DS1302要求的DCB码write_1302(0x8e,0x00); /允许写，禁止写保护 write_1302(0x88,temp); write_1302(0x8e,0x80); /打开写保护break;case 7:nian=(nian4)&0x0f)*10+(nian&0x0f)+1;if(nian=99)nian=0; /temp=(nian)/10*16+(nian)%10;/十进制转换成DS1302要求的DCB码write_1302(0x8e,0x00); /允许写，禁止写保护 write_1302(0x8c,(nian/10)4)+(nian%10)&0x0f); /向DS1302内写秒寄存器80H写入调整后的秒数据BCD码 write_1302(0x8e,0x80); /打开写保护break; if(sub=0)delay1(20);if(sub=0)while(!sub);switch(knum)case 1:miao-;if(miao=-1)miao=59;temp=(miao)/10*16+(miao)%10;/十进制转换成DS1302要求的DCB码write_1302(0x8e,0x00); /允许写，禁止写保护 write_1302(0x80,temp);/write_1302(0x80,(miao/10)4)+(miao%10)&0x0f); /向DS1302内写秒寄存器80H写入调整后的秒数据BCD码 write_1302(0x8e,0x80); /打开写保护break;case 2:fen-;if(fen=-1)fen=59;temp=(fen)/10*16+(fen)%10;/十进制转换成DS1302要求的DCB码write_1302(0x8e,0x00); /允许写，禁止写保护 write_1302(0x82,temp);/write_1302(0x82,(fen/10)4)+(fen%10)&0x0f); /向DS1302内写秒寄存器80H写入调整后的秒数据BCD码 write_1302(0x8e,0x80); /打开写保护break;case 3:shi-;if(shi=-1)shi=23; temp=(shi)/10*16+(shi)%10;/十进制转换成DS1302要求的DCB码write_1302(0x8e,0x00); /允许写，禁止写保护 write_1302(0x84,temp);/write_1302(0x84,(shi/10)4)+(fen%10)&0x0f); /向DS1302内写秒寄存器80H写入调整后的秒数据BCD码 write_1302(0x8e,0x80); /打开写保护break;case 5:ri-;switch(yue) case 1:case 3:case 5:case 7:case 8:case 10:case 12: if(ri=0) ri=31; break; case 4:case 6:case 9:case 11: if(ri=0) ri=30; break; case 2: if(nian%4=0|nian%400=0)if(ri=0)ri=29;elseif(ri=0)ri=28; break; temp=(ri)/10*16+(ri)%10;/十进制转换成DS1302要求的DCB码write_1302(0x8e,0x00); /允许写，禁止写保护 write_130