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

《电子万年历(数码管显示).doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、程序#include#include#defineucharunsignedchar#defineuintunsignedint#definejump_ROM0xCC#definestart0x44#definereaddata0xBEsbitdq=P1^7;sbitw1=P0^6;sbitw2=P0^5;sbitw3=P0^4;sbitw4=P0^7;sbitwela=P0^3;sbitA=P0^0;sbitb=P0^1;sbitC=P0^2;sbitSCLK=P1^0

2、;//DS1302通讯线定义sbitDIO=P1^1;sbitRST=P1^2;sbitk1=P1^6;sbitk2=P1^5;sbitadd=P1^4;sbitsub=P1^3;ucharcodesmgw[]={0,1,2,3,4,5,6,7};ucharcodesmgd[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x00};//ucharcodetab[]={0x077,0x12,0x0c7,0x0d3,0x0b2,0x0f1,0x0f4,0x

3、13,0x0f7,0x0b3,0x00};uchartemperature[10]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f};ucharcodexingqi[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x7f};uchartab1[9];uchartab2[9];ucharnian,yue,ri,zhou,shi,fen,miao,a,shan,tt,shan;ucharknum;ucharq,j,tempp;voi

4、ddisplay();voiddelay(uintz){uintx,y;for(x=z;x>0;x--)for(y=55;y>0;y--);}voiddelay1(intuseconds){ints;for(s=0;s

5、(charval){dq=0;if(val==1)dq=1;elsedq=0;delay1(5);dq=1;}voidwritebyte(charval){uchari;uchartemp;for(i=0;i<8;i++){temp=val>>i;temp&=0x01;writebit(temp);}delay1(5);}ucharreadbit(void){uchari;dq=0;dq=1;for(i=0;i<3;i++)returndq;}ucharreadbyte(void){uchari;ucharva

6、lue=0;for(i=0;i<8;i++){if(readbit())value

7、=0x01<

8、0;k<9;k++){get[k]=readbyte();}msb=get[1];lsb=get[0];if((msb&0x80)!=0)///取补码/{m=1;msb=~msb;lsb=(~lsb)+1;if(lsb==0){msb++;}}display();n=lsb;msb=msb<<4;lsb=lsb>>4;tempp=msb

9、lsb;n=n&0x0f;t=(float)(n);t=t*0.0625;j=(int)(t*100);P2=temperature[j%10];w4=1;w1=0;delay

10、(2);P2=temperature[j/10];w1=1;w2=0;delay(2);P2=temperature[tempp%10]+0x80;w2=1;w3=0;delay(2);P2=temperature[tempp/10];w3=1;w4=0;delay(2);w4=1;}voidwrite(uchardate)//写入DS1302一个字节{uchartemp,i;RST=