用单片机设计万年历

〃主程序

voidSING(unsignedcharhi);

voidDELAY(unsignedcharIo);

//voidswith(unsignedchar*rd);

voidINTT1()

{th0_temp=0x3c;

THO=thO_temp;

tlO_temp=OxbO;

TLO=tlO_temp;

TMOD=0X01;

ET0=1;

EA=1;

TR0=1;

TR0=1;

)

unsignedcharDelayNS(unsignedcharno)

(

unsignedchari,j;

for(;no>0;no-)

for(i=0;i<100;i++)

for(j=0;j<100;j++)

return0;

)

voidmain()

(

unsignedchartd[13]={0x00,0x12,0x52,0x59,0x12,0x06,0x05,0x02,0x04,0x0a,0x00,0x00,0x00};

RST=0;

DelayNS(1);

RST=1;

ISendStr(PCF8563,WRADDR,td,0x5);

DelayNS(1);

ISendStr(PCF8563,WRADDR+5,&td[5],0x5);

IRcvStr(PCF8563,RDADDR,td+2,0x7);

while(1)

{ISendStr(PCF8563,0x01,&td[9],0x1);

ISendStr(PCF8563,0x09,&td[10],0x1);

ISendStr(zlg7290,0x02,&td[10],0x1);

DelayNS(1);

IRcvStr(PCF8563,RDADDR,&td[12],0x1);

IRcvStr(PCF8563,RDADDR,td+2,0x7);

DelayNS(1);

if(swich_date==O)

display_time(td+2,disp_buf);

elseif(swich_date==1)

display_date(td+5,disp_buf);

elseif(swich_date==2)

display_week(td+2,disp_buf);

elseif(swich_date==3)

nongli(td+5,disp_buf);

if(KEY_INTT==O)

{DelayNS(1);

INTT1();

ISendStr(PCF8563,0x01,&td[11],0x1);

ISendStr(PCF8563,0x09,&td[12],0x1);

KEY_INTT=1;

)

if(KEY_INT==0)

(

KEY=ZLG7290_GetKey();

if(KEY==1)

(

swich_date++;

while(swich_date==9)

swich_date=0;}

if(KEY==2)

{if(swich_date==4)

tiao_en(td,disp_buf);

elseif(swich_date==5)

tiao_shi(td,disp_buf);

elseif(swich_date==6)

tiao_day(td,disp_buf);

elseif(swich_date==7)

tiao_yue(td,disp_buf);

elseif(swich_date==8)

tiao_nian(td,disp_buf);

)

)

})

voidDELAY()

{unsignedintlo=5;

unsignedchartempi,temp2;

do

(

for(temp1=0;temp1<1;temp1++)

for(temp2=0;temp2<1;temp2++);

}while(lo-);

)

voidINTT0()interrupt1

{unsignedinti;

for(i=0;i<=5000;i++)

{DELAY();

P1_3=-P1_3;}

TH0=0x3c;

TL0=0xb0;

TR0=0;

}

//xianshi.c

#include<zlg7290.h>

unsignedchardisplay_time(unsignedchar*sd,unsignedchar*disp_buf)

(

sd[0]=sd[0]&0x7f;

sd[1]=sd[1]&0x7f;

sd[2]=sd[2]&0x3f;

disp_buf[0]=(sd[0]%16);

disp_buf[1]=(sd[0]/16);

disp_buf[2]=31;

disp_buf[3]=(sd[1]%16);

disp_buf[4]=(sd[1]/16);

disp_buf[5]=31;

disp_buf[6]=(sd[2]%16);

disp_buf[7]=(sd[2]/16);

ZLG7290_SendBuf(disp_buf,8);

return0;

)

unsignedchardisplay_week(unsignedchar*sd,unsignedchar*disp_buf)

(

unsignedinti;

for(i=0;i<8;i++)

disp_buf[i]=O;

sd[4]=sd[4]&0x07;

disp_buf[O]=(sd[4]%16);

ZLG7290_SendBuf(disp_buf,8);

return0;

)

unsignedchardisplay_date(unsignedchar*sd,unsignedchar*disp_buf)

(

sd[0]=sd[0]&0x3f;

sd[2]=sd[2]&0x1f;

disp_buf[0]=(sd[0]%16);

disp_buf[1]=(sd[0]/16);

disp_buf[2]=(sd[2]%16)+0x80;

disp_buf[3]=(sd[2]/16);

disp_buf[4]=(sd[3]%16)+0x80;

disp_buf[5]=(sd[3]/16);

disp_buf[6]=0;

disp_buf[7]=2;

ZLG7290_SendBuf(disp_buf,8);

return0;

)

//tiaozheng.c

#include<tiaozheng.h>

#include<viic_c51.h>

#include<xianshi.h>

#definePCF85630xA2

#defineWRADDR0x00

#defineRDADDR0X02

voidtiao_en(unsignedchar*td,unsignedchar*disp_buf)

(

display_time(td+2,disp_buf);

{td[3]++;

if(td[3]%16>9)

{td[3]+=6;

if(td[3]/16>=6)

{td[3]-=0x60;

td[4]++;

})

ISendStr(PCF8563,WRADDR,td,0x5);

ISendStr(PCF8563,WRADDR+5,&td[5],0x5);

IRcvStr(PCF8563,RDADDR,td+2,0x7);

display_time(td+2,disp_buf);

})

)

voidtiao_shi(unsignedchar*td,unsignedchar*disp_buf)

display_time(td+2,disp_buf);

{td[4]++;

if(td[4]%16>9)

td[4]+=6;

if(td[4]>=0x24)

{td[4]-=0x24;

td[5]++;

)

ISendStr(PCF8563,WRADDR,td,0x5);

ISendStr(PCF8563,WRADDR+5,&td[5]f0x5);

IRcvStr(PCF8563,RDADDR,td+2,0x7);

display_time(td+2,disp_buf);

})

voidtiao_day(unsignedchar*td,unsignedchar*disp_buf)

(

display_date(td+5,disp_buf);

{td[5]++;

if(td[5]%16>9)

td[5]+=6;

if(td[5]>con(td[7]))

{td[5]-=con(td[7]);

td[7]++;

)

ISendStr(PCF8563,WRADDR,td,0x5);

ISendStr(PCF8563,WRADDR+5,&td[5],0x5);

IRcvStr(PCF8563,RDADDR,td+2,0x7);

display_date(td+5,disp_buf);

})

unsignedcharcon(unsignedchars)

{unsignedcharday;

switch(s)

{case1:returnday=0x31;

case3:returnday=0x31;

case5:returnday=0x31;

case7:returnday=0x31;

case8:returnday=0x31;

case10:returnday=0x31;

case12:returnday=0x31;

case4:returnday=0x30;

case6:returnday=0x30;

case9:returnday=0x30;

case11:returnday=0x30;

case2:returnday=0x29;}

}

voidtiao_yue(unsignedchar*td,unsignedchar*disp_buf)

(

display__date(td+5,disp_buf);

(

{td[7]++;

if(td[7]%16>9)

td[7]+=6;

if(td[7]>0x12)

{td[7]-=0x12;

td[8]++;

)

ISendStr(PCF8563,WRADDR,td,0x5);

ISendStr(PCF8563,WRADDR+5,&td[5],0x5);

IRcvStr(PCF8563,RDADDR,td+2,0x7);

display_date(td+5,disp_buf);

}})

voidtiao_nian(unsignedchar*td,unsignedchar*disp_buf)

(

display_date(td+5,disp_buf);

{td[8]++;

if(td[8]%16>9)

td[8]+=6;

if(td[8]>0x99)

{td[8]-=0x99;

}

ISendStr(PCF8563,WRADDR,td,0x5);

ISendStr(PCF8563,WRADDR+5,&td[5],0x5);

IRcvStr(PCF8563,RDADDR,td+2,0x7);

display_date(td+5,disp_buf);

}})

Z/nongli.c

#include<zlg7290.h>

#include<viic_c51.h>

#include<intrins.h>

#include<nongli.h>

ucharc_sun,year_sun,month_sun,day_sun;

codeucharyear_code[597]={

0x04,OxAe,0x53,//19010

OxOA,0x57,0x48,//19023

0x55,0x26,OxBd,//19036

OxOd,0x26,0x50,//19049

OxOd,0x95,0x44,//190512

0x46,0xAA,0xB9,//190615

0x05,0x6A,0x4d,Z/190718

0x09,OxAd,0x42,//190821

0x24,0xAe,0xB6,Z/1909

0x04,0xAe,0x4A,//1910

0x6A,0x4d,0xBe,//1911

0x0A,0x4d,0x52,//1912

OxOd,0x25,0x46,//1913

0x5d,0x52,0xBA,//1914

0x0B,0x54,0x4e,//1915

0x0d,0x6A,0x43,//1916

0x29,0x6d,0x37,//1917

0x09,0x5B,0x4B,//1918

0x74,0x9B,0xC1,//1919

0x04,0x97,0x54,//1920

0x0A,0x4B,0x48,//1921

0x5B,0x25,0xBC,//1922

0x06,0xA5,0x50,//1923

0x06,Oxd4,0x45,//1924

0x4A,0xdA,0xB8,//1925

0x02,0xB6,0x4d,//1926

0x09,0x57,0x42,//1927

0x24,0x97,0xB7,//1928

0x04,0x97,0x4A,//1929

0x66,0x4B,0x3e,//1930

0x0d,0x4A,0x51,//1931

0x0e,0xA5,0x46,//1932

0x56,0xd4,0xBA,//1933

0x05,0xAd,0x4e,//1934

0x02.0xB6,0x44,//1935

0x39,0x37,0x38,//1936

0x09,0x2e,0x4B,//1937

0x7C,0x96,0xBf,//1938

OxOC,0x95,0x53,//1939

0x0d,0x4A,0x48,//1940

0x6d,0xA5,0x3B,//1941

0x0B,0x55,0x4f,//1942

0x05,0x6A,0x45,//1943

0x4A,0xAd,0xB9,//1944

0x02,0x5d,0x4d,//1945

0x09,0x2d,0x42,//1946

0x2C,0x95,0xB6,//1947

0x0A,0x95,0x4A,//1948

0x7B,0x4A,0xBd,//1949

0x06,OxCA,0x51,//1950

OxOB,0x55,0x46,//1951

0x55,0x5A,0xBB,//1952

0x04,0xdA,0x4e,//1953

0x0A,0x5B,0x43,//1954

0x35,0x2B,0xB8,//1955

0x05,0x2B,0x4C,//1956

0x8A,0x95,0x3f,//1957

OxOe,0x95,0x52,//1958

0x06,OxAA,0x48,//1959

0x7A,0xd5,0x3C,//1960

0x0A,0xB5,0x4f,//1961

0x04,0xB6,0x45,//1962

0x4A,0x57,0x39,//1963

0x0A,0x57,0x4d,//1964

0x05,0x26,0x42,//1965

0x3e,0x93,0x35,//1966

OxOd,0x95,0x49,//1967

0x75,0xAA,0xBe,//1968

0x05,0x6A,0x51,//1969

0x09,0x6d,0x46,//1970

0x54,0xAe,0xBB,//1971

0x04,0xAd,0x4f,//1972

0x0A,0x4d,0x43,//1973

0x4d,0x26,0xB7,//1974

0x0d,0x25,0x4B,//1975

0x8d,0x52,0xBf,//1976

0x0B.0x54.0x52,//1977

0x0B,0x6A,0x47,//1978

0x69,0x6d,0x3C,//1979

0x09,0x5B,0x50,//1980

0x04,0x9B,0x45,//1981

0x4A,0x4B,0xB9,//1982

0x0A,0x4B,0x4d,//1983

0xAB,0x25,0xC2,//1984

0x06,0xA5,0x54,//1985

0x06,0xd4,0x49,//1986

0x6A,0xdA,0x3d,//1987

0x0A,0xB6,0x51,//1988

0x09,0x37,0x46,//1989

0x54,0x97,OxBB,//1990

0x04,0x97,0x4f,//1991

0x06,0x4B,0x44,//1992

0x36,0xA5,0x37,//1993

0x0e,0xA5,0x4A,//1994

0x86,0xB2,0xBf,//1995

0x05,OxAC,0x53,//1996

0x0A,0xB6,0x47,//1997

0x59,0x36,OxBC,//1998

0x09,0x2e,0x50,/Z1999294

0x0C,0x96,0x45,//2000297

0x4d,0x4A,0xB8,//2001

0x0d,0x4A,0x4C,//2002

0x0d,0xA5,0x41,//2003

0x25,0xAA,0xB6,//2004

0x05,0x6A,0x49,//2005

0x7A,0xAd,0xBd,//2006

0x02,0x5d,0x52,//2007

0x09,0x2d,0x47,//2008

0x5C,0x95,0xBA,//2009

0x0A,0x95,0x4e,//2010

0x0B,0x4A,0x43,//2011

0x4B,0x55,0x37,//2012

0x0A,0xd5,0x4A,//2013

0x95,0x5A,0xBf,//2014

0x04,OxBA,0x53,//2015

0x0A,0x5B,0x48,//2016

0x65,0x2B,0xBC,//2017

0x05,0x2B,0x50,//2018

OxOA,0x93,0x45,//2019

0x47,0x4A,0xB9,//2020

0x06,0xAA,0x4C,//2021

0x0A,0xd5,0x41,//2022

0x24,0xdA,0xB6,//2023

0x04,0xB6,0x4A,//2024

0x69,0x57,0x3d,//2025

0x0A,0x4e,0x51,Z/2026

OxOd,0x26,0x46,//2027

0x5e,0x93,0x3A,//2028

0x0d,0x53,0x4d,//2029

0x05,OxAA,0x43,//2030

0x36,0xB5,0x37,//2031

0x09,0x6d,0x4B,//2032

0xB4,0xAe,0xBf,//2033

0x04,OxAd,0x53,//2034

0x0A,0x4d,0x48,//2035

0x6d,0x25,0xBC,//2036

0x0d,0x25,0x4f,//2037

OxOd,0x52,0x44,//2038

0x5d.0xAA.0x38,//2039

0x0B,0x5A,0x4C,//2040

0x05,0x6d,0x41,//2041

0x24,0xAd,0xB6,//2042

0x04,0x9B,0x4A,//2043

0x7A,0x4B,0xBe,//2044

0x0A,0x4B,0x51,//2045

0x0A,0xA5,0x46,//2046

0x5B,0x52,0xBA,//2047

0x06,0xd2,0x4e,//2048

0x0A,0xdA,0x42,//2049

0x35,0x5B,0x37,//2050

0x09,0x37,0x4B,//2051

0x84,0x97,0x01,//2052

0x04,0x97,0x53,//2053

0x06,Ox4B,0x48,//2054

0x66,0xA5,0x3C,//2055

0x0e,0xA5,0x4f,//2056

0x06,0xB2,0x44,//2057

0x4A,0xB6,0x38,//2058

0x0A,0xAe,0x4C,//2059

0x09,0x2e,0x42,Z/2060

0x30,0x97,0x35,//2061

0x00,0x96,0x49,//2062

0x7d,0x4A,0xBd,//2063

0x0d,0x4A,0x51,//2064

0x0d,0xA5,0x45,//2065

0x55,0xAA,0xBA,//2066

0x05,0x6A,0x4e,//2067

0x0A,0x6d,0x43,//2068

0x45,0x2e,0xB7,//2069

0x05,0x2d,0x4B,//2070

0x8A,0x95,0xBf,//2071

OxOA,0x95,0x53,//2072

0x0B,0x4A,0x47,//2073

0x6B.0x55.0x3B,//2074

0x0A,0xd5,0x4f,//2075

0x05,0x5A,0x45,Z/2076

0x4A,0x5d,0x38,//2077

0x0A,0x5B,0x4C,//2078

0x05,0x2B,0x42,//2079

0x3A,0x93,0xB6,//2080

0x06,0x93,0x49,//2081

0x77,0x29,OxBd,//2082

0x06,OxAA,0x51,//2083

0x0A,0xd5,0x46,//2084

0x54,0xdA,0xBA,//2085

0x04,0xB6,0x4e,//2086

OxOA,0x57,0x43,//2087

0x45,0x27,0x38,//2088

0x0d,0x26,0x4A,//2089

0x8e,0x93,0x3e,//2090

OxOd,0x52,0x52,//2091

0x0d,0xAA,0x47,//2092

0x66,0xB5,0x3B,//2093

0x05,0x6d,0x4f,//2094

0x04,OxAe,0x45,//2095

0x4A,0x4e,0xB9,//2096

0x0A,0x4d,0x4C,//2097

OxOd,0x15,0x41,//2098

0x2d,0x92,0xB5,//2099

);

codeucharday_code1[9]={0x0,0x1f,0x3b,0x5a,0x78,0x97,0xb5,0xd4,0xf3};

codeuintday_code2[3]={0x111,0x130,0x14e};

bitc_moon;

dataucharyear_moon,month_moon,day_moon,week;

bitget_moon_day(ucharmonth_p,uinttable_addr)

(

uchartemp;

switch(month_p)

(

case1:{temp=year_code[table_addr]&0x08;

if(temp==0)return(0);elsereturn(1);}

case2:{temp=year_code[table_addr]&0x04;

if(temp==0)return(0);elsereturn(1);}

case3:{temp=year_code[table_addr]&0x02;

if(temp==0)return(0);elsereturn(1);}

case4:{temp=year_code[table_addr]&0x01;

if(temp==0)retum(0);elsereturn(1);}

case5:{temp=year_code[table_addr+1]&0x80;

if(temp==0)return(O);elseretum(1);}

case6:{temp=year_code[table_addr+1]&0x40;

if(temp==O)return(O);elsereturn(1);}

case7:{temp=year_code[table_addr+1]&0x20;

if(temp==O)return(O);elsereturn(1);}

case8:{temp=year_code[table_addr+1]&0x10;

if(temp==O)return(O);elsereturn(1);}

case9:{temp=year_code[table_addr+1]&0x08;

if(temp==O)return(O);elsereturn(1);}

case10:{temp=year_code[table_addr+1]&0x04;

if(temp==O)return(O);elsereturn(1);}

case11:{temp=year_code[table_addr+1]&0x02;

if(temp==O)return(O);elsereturn(1);}

case12:{temp=year_code[table_addr+1]&0x01;

if(temp==O)return(O);elsereturn(1);}

case13:{temp=year_code[table_addr+2]&0x80;

if(temp==O)return(O);elsereturn(1);}

)

)

/*函数功能:输入BCD阳历数据，输出BCD阴历数据(只允许1901-2099年)*/

voidConversion(bitc.ucharyear.ucharmonth,ucharday)

{//c=0为21世纪,c=1为19世纪输入输出数据均为BCD数据

uchartempi,temp2,temp3Jmonth_p;

uinttemp4,table_addr;

bitflag2,flag_y;

tempi=year/16;//BCD->hex先把数据转换为十六进制

temp2=year%16;

year=temp1*10+temp2;

temp1=month/16;

temp2=month%16;

month=temp1*10+temp2;

temp1=day/16;

temp2=day%16;

day=temp1*10+temp2;

〃定位数据表地址

if(c==O)

(

table_addr=(year+0x64-1)*0x3;

)

else

(

table_addr=(year-1)*0x3;

}

//定位数据表地址完成

//取当年春节所在的公历月份

tempi=year_code[table_addr+2]&0x60;

tempi=_cror_(temp1,5);

〃取当年春节所在的公历月份完成

〃取当年春节所在的公历日

temp2=year_code[table_addr+2]&0x1f;

〃取当年春节所在的公历日完成

//计算当年春年离当年元旦的天数，春节只会在公历1月或2月

if(temp1==0x1)

(

temp3=temp2-1;

)

else

(

temp3=temp2+0x1f-1;

)

〃计算当年春年离当年元旦的天数完成

〃计算公历□离当年元旦的天数,为了减少运算，用了两个表

//day_code1[9],day_code2[3]

〃如果公历月在九月或前，天数会少于Oxff,用表day_code1[9],

〃在九月后，天数大于Oxff,用表day_code2[3]

〃如输入公历日为8月10日,则公历I」离元旦天数为day_code1[8-1]+10-1

〃如输入公历日为11月10日，则公历日离元旦天数为day_code2[11-10]+10-1

if(month<10)

(

temp4=day_code1[month-1]+day-1;

)

else

(

temp4=day_code2[month-10]+day-1;

)

if((month>0x2)&&(year%0x4==0))

{〃如果公历月大于2月并且该年的2月为闰月,天数加1

temp4+=1;

}

//计算公历日离当年元旦的天数完成

〃判断公历日在春节前还是春节后

if(temp4>=temp3)

{temp4-=temp3;

month=0x1;

month_p=0x1;

flag2=get_moon_day(month_p,table_addr);

flag_y=O;

if(flag2==0)temp1=0x1d;〃小月29天

elsetempi=0x1e;〃大小30天

temp2=year_code[table_addr]&0xf0;

temp2=_cror_(temp2,4);〃从数据表中取该年的闰月月份，如为0则该年无闰月

while(temp4>=temp1)

(

temp4-=temp1;

month_p+=1;

if(month==temp2)

(

flag_y=~flag_y;

if(flag_y==O)

month+=1;

)

elsemonth+=1;

flag2=get_moon_day(month_p,table_addr);

if(flag2==0)tem