#include<reg52.h>#include "intrins.h"#define uint unsigned int#define uchar unsigned charuchar a,miao,shi,fen,ri,yue,nian,week,keynum,temp,flagtime,ledcount,count,alarmflag,flagT/*时间分段标志*/,year1,month1,day1,lednum;uint flag;//取温度bitc_moon;dataucharyear_moon,month_moon,day_moon;#define h1 0x80 //LCD第一行的初始化位置#define h2 0x80+0x40 //LCD第二行初始化位置sbitGled=P1^6;//定义粉色led灯的管脚sbitYled=P3^7;//定义黄色led灯的管脚//定义1602相关管脚sbitrs=P1^0;sbit en=P2^5;sbitrw=P1^1;//sbit led=P2^3;/*控制背光:15脚（串联10欧电阻）背光源正极*///sbit busy=P0^7;//测忙线//DS1302芯片的管脚定义sbit IO=P2^0;sbit SCLK=P2^1;sbit RST=P2^4;sbit DQ=P2^2;/*定义DS18b20管脚*/sbit ACC0=ACC^0;//设置累加器sbit ACC7=ACC^7;//按键sbit key1=P3^4;//设置按键sbit key2=P3^5;sbit key3=P3^6;sbit beep=P2^3;//蜂鸣器，用于报时sbitlcdbusy=P0^7;void delay(uint z)//延时函数{uintx,y;for(x=z;x>0;x--)for(y=110;y>0;y--);}void testbusy()//测忙函数{P0=0xff;//注意是P0组rs=0;rw=1;en=1;while(lcdbusy);//等待不忙en=0;}void writecom(uchar com)//写入指令函数{testbusy();P0=com;rs=0;rw=0;en=1;en=0;}void writedata(uchardat)//写入数据函数{testbusy();//先测忙P0=dat;rs=1;rw=0;en=1;en=0;}void print(uchar a3,uchar *str)//写字符串函数（没有延时）{writecom(a3|0x80);while(*str!='\0'){//delay(100);//延时一下writedata(*str++);}*str=0;}void print2(uchar a2,uchar *str)//用于头字条的显示延时{writecom(a2|0x80);while(*str!='\0'){delay(130);//延时一下writedata(*str++);}*str=0;}void lcdinit()//1602初始化函数{writecom(0x38);//设置为两行显示，8位显示writecom(0x0c);//开显示，不显示光标writecom(0x06);//光标右移writecom(0x01);//清零print2(0x80,"^_^ @_@ U_U -_-");//第一行显示制作者print2(0x40,"Enjoy Your Life!");//第二行显示制作人delay(3000);// 延时3秒//writecom(0x01);//再次清零//writecom(h1);//第一行第一个字开始写入}/*和DS1302时钟芯片有关的函数*/void write_byte(uchardat)//写一个字节函数{ACC=dat;RST=1;for(a=8;a>0;a--){IO=ACC0;SCLK=0;SCLK=1;ACC=ACC>>1;}}ucharread_byte()//读一个字节函数{RST=1;for(a=8;a>0;a--){ACC7=IO;SCLK=1;SCLK=0;ACC=ACC>>1;}return (ACC);}void write_1302(ucharadd,uchardat)//向时钟芯片写入函数，指定地址，数据{RST=0;SCLK=0;RST=1;write_byte(add);write_byte(dat);SCLK=1;RST=0;}uchar read_1302(uchar add)//从芯片读出数据，指定地址{uchar temp;RST=0;SCLK=0;RST=1;write_byte(add);temp=read_byte();SCLK=1;RST=0;return(temp);}ucharturnBCD(ucharbcd)//BCD码转换为十进制函数{ucharshijin;shijin=bcd>>4;return(shijin=shijin*10+(bcd&=0x0f));//返回十进制数}void ds1302_init()//1302时钟芯片初始化函数{RST=0;SCLK=0;write_1302(0x8e,0x00);//允许写/*write_1302(0x80,0x00);//秒：00write_1302(0x82,0x00);//分：00write_1302(0x84,0x12);//时：12write_1302(0x8a,0x04);//周：4write_1302(0x86,0x15);//日：15write_1302(0x88,0x03);//月：3write_1302(0x8c,0x11);//年：11 */write_1302(0x8e,0x80);//打开保护}/*以下是温度芯片DS18b20的相关函数*/void delay2(uint s)//延时，用于温度程序部分{while(s--);//区分i，用s表示}void Init_DS18B20(void)//初始化DS18b20{uchar W=0;//注意是wDQ=1;delay2(8);DQ=0;//拉低delay2(29);//延时大于480us（此处延时时间不确定，实际时修改）DQ=1;//拉高delay2(3);//（时间不确定）W=DQ;//稍作延时后如W=0则初始化成功delay2(20);}ucharReadOneChar(void)//DS18b20读一个字节函数{uchar i=0;uchardat=0;for(i=8;i>0;i--){DQ=0;//给脉冲信号dat>>=1;//右移一位DQ=1;//给脉冲信号if(DQ)dat|=0x80;delay2(4);}return(dat);}void WriteOneChar(uchardat)//写一个字节函数{uchar i=0;for(i=8;i>0;i--){DQ=0;DQ=dat&0x01;delay2(5);DQ=1;dat>>=1;}}uintReadTemperature(void)//读取温度{uchar a1=0;//用于合并uchar b1=0;uint t=0;floattt=0;Init_DS18B20();WriteOneChar(0xCC);//跳过读取序列号的操作WriteOneChar(0x44);//启动温度转换Init_DS18B20();//再次初始化WriteOneChar(0xCC);//跳过读取序列号WriteOneChar(0xBE);//读取温度寄存器a1=ReadOneChar();//先读取低位b1=ReadOneChar();//后读取高位t=b1;t<<=8;t=t|a1;tt=t*0.0625;t=tt*10+0.5;//放大10倍并四舍五入return(t);}/*下面是相关数据的显示函数*///温度显示函数void writetemp(ucharadd,uintdat)//写入温度值函数指定位置{uchargw,sw,xw;//个位，十位，小数位（注意得到为三位有效数）gw=dat%100/10;/*特别注意此处*/sw=dat/100;xw=dat%10;writecom(h2+add);//h2为头文件规定的值0x80+0x40writedata(0x30+sw);//数字+30得到显示码writedata(0x30+gw);//个位数writedata(0x2e);//小数点writedata(0x30+xw);//小数位writedata(0xdf);//显示“°”（度）//writedata(0x43);//显示“C”符号，为液晶字符的地址码（考虑是否要）}//时分秒显示函数void writetime(ucharadd,uchardat)//写入时分秒{uchargw,sw;gw=dat%10;//取得个位数sw=dat/10;//取得十位数writecom(h2+add);//第二行显示writedata(0x30+sw);//显示该数字writedata(0x30+gw);}//年月日显示函数void writeday(ucharadd,uchardat)//写入年月日函数{uchargw,sw;gw=dat%10;//取得个位数字sw=dat/10;//取得十位数字writecom(h1+add);//在第一行显示writedata(0x30+sw);writedata(0x30+gw);//显示}void writeweek(uchar week)//写星期函数{writecom(h1+0x0e);/*巨注意：第一行是从0位开始的*/switch(week){case 1:writedata('1');//括号内写入1 注意是单引号break;case 2:writedata('2');break;case 3:writedata('3');break;case 4:writedata('4');break;case 5:writedata('5');break;case 6:writedata('6');break;case 7:writedata('7');break;}}//按键扫描函数voidkeyscan(){if(key1==0)//设置键按下{delay(5);//延时if(key1==0){beep=0;//蜂鸣器短响一声delay(20);beep=1;alarmflag=0;/*按下标志，用于防止调节时间时鸣叫*/while(!key1);keynum++;if(keynum==9)keynum=1;//返回switch(keynum){case 1:TR0=0;//关闭定时器writecom(h2+0x07);//秒的位置writecom(0x0f);//设置为光标闪烁temp=(miao)/10*16+(miao)%10;//秒化为bcd码write_1302(0x8e,0x00);write_1302(0x80,0x80|temp);//秒数据写入write_1302(0x8e,0x80);break;case 2:writecom(h2+4);//分的位置break;//不用再次设置为闪烁状态了case 3:writecom(h2+1);//时的位置break;case 4:writecom(h1+0x0e);//星期的位置break;case 5:writecom(h1+0x09);//日的位置break;case 6:writecom(h1+0x06);//月的位置break;case 7:writecom(h1+0x3);//年的位置break;case 8:writecom(0x0c);//第8次，光标不闪烁alarmflag=1;/*设置标志重新设置为1*/TR0=1;//重新打开定时器temp=(miao)/10*16+(miao)%10;write_1302(0x8e,0x00);write_1302(0x80,0x00|temp);//写入秒write_1302(0x8e,0x80);break;}}}if(keynum!=0)//当设置键按下时才能操作{if(key2==0)//加键{delay(5);if(key2==0){beep=0;//蜂鸣器短响delay(20);beep=1;while(!key2);//按键松开switch(keynum){case 1:miao++;//if(miao==60) miao=0;writetime(0x06,miao);/*在十位的位置写入，因为为两位数，个位数自动再后面显示*/temp=(miao)/10*16+(miao)%10;//转换为bcd码write_1302(0x8e,0x00);//允许写write_1302(0x80,temp);// 写入秒write_1302(0x8e,0x80);//打开保护writecom(h2+0x07);//液晶模式为写入后自动右移，在此返回原来位置break;case 2:fen++;if(fen==60) fen=0;writetime(0x03,fen);//在十位数位置开始写入temp=(fen)/10*16+(fen)%10;//转换为bcd码write_1302(0x8e,0x00);//允许写write_1302(0x82,temp);//写入分write_1302(0x8e,0x80);//打开保护writecom(h2+4);//返回个位数的位置break;case 3:shi++;if(shi==24) shi=0;writetime(0,shi);//在0位开始写入temp=(shi)/10*16+(shi)%10;//转换为bcd码write_1302(0x8e,0x00);//允许写write_1302(0x84,temp);//写入时write_1302(0x8e,0x80);//打开保护writecom(h2+1);//返回到个位位置break;case 4:week++;if(week==8) week=1;writecom(h1+0x0e);//显示位置writeweek(week);//写入星期temp=(week)/10*16+(week)%10;write_1302(0x8e,0x00);//允许写入write_1302(0x8a,temp);//写入周write_1302(0x8e,0x80);//打开保护writecom(h1+0x0e);/*此处有疑惑：返回原来位置？*/break;case 5:ri++;if(ri==32) ri=1;writeday(8,ri);//注意是在十位开始写入temp=(ri)/10*16+(ri)%10;//转换为bcd码write_1302(0x8e,0x00);//允许写write_1302(0x86,temp);//写入日write_1302(0x8e,0x80);//打开保护writecom(h1+9);//返回个位数break;case 6:yue++;if(yue==13) yue=1;writeday(5,yue);//在十位开始写入temp=(yue)/10*16+(yue)%10;//转换为bcd码write_1302(0x8e,0x00);//允许写write_1302(0x88,temp);//写入月write_1302(0x8e,0x80);//打开保护writecom(h1+6);//返回个位位置break;case 7:nian++;if(nian==100) nian=0;writeday(2,nian);//在第一行第三个字符开始写入temp=(nian)/10*16+(nian)%10;//转换为bcd码write_1302(0x8e,0x00);//允许写write_1302(0x8c,temp);//写入年write_1302(0x8e,0x80);//打开保护writecom(h1+3);//返回个位位置break;}}}//以下是减的函数if(key3==0){delay(5);//消抖if(key3==0){beep=0;//蜂鸣器短响一下delay(20);beep=1;while(!key3);switch(keynum){case 1:miao--;/*此处有疑问：无符号数据是否要修改*/ if(miao==-1) miao=59;//减到-1返回59writetime(0x06,miao);//在十位数写入temp=(miao)/10*16+(miao)%10;//转换为bcd码write_1302(0x8e,0x00);//允许写write_1302(0x80,temp);//写入秒write_1302(0x8e,0x80);//打开保护writecom(h2+0x07);//返回个位位置break;case 2:fen--;if(fen==-1) fen=59;writetime(0x03,fen);//在十位数位置写入temp=(fen)/10*16+(fen)%10;//转换为bcd码write_1302(0x8e,0x00);//允许写入write_1302(0x82,temp);//写入分write_1302(0x8e,0x80);//打开保护writecom(h2+4);//返回个位数位置break;case 3:shi--;if(shi==-1) shi=23;writetime(0,shi);//在0位开始写入temp=(shi)/10*16+(shi)%10;//转换为bcd码write_1302(0x8e,0x00);//允许写入write_1302(0x84,temp);//写入时write_1302(0x8e,0x80);//打开保护writecom(h2+1);//返回到个位位置break;case 4:week--;if(week==0) week=7;writecom(h1+0x0e);//显示位置writeweek(week);//写入星期temp=(week)/10*16+(week)%10;//转换为bcd码write_1302(0x8e,0x00);//允许写入write_1302(0x8a,temp);//写入周write_1302(0x8e,0x80);//打开保护writecom(h1+0x0e);//返回原来位置break;case 5:ri--;if(ri==0) ri=31;writeday(8,ri);//在十位开始显示temp=(ri)/10*16+(ri)%10;//转换为bcd码write_1302(0x8e,0x00);//允许写入write_1302(0x86,temp);//写入日write_1302(0x8e,0x80);//打开保护writecom(h1+9);//返回个位数break;case 6:yue--;if(yue==0) yue=12;writeday(5,yue);//在十位数位置开始写入temp=(yue)/10*16+(yue)%10;//转换为bcd码write_1302(0x8e,0x00);//允许写入write_1302(0x88,temp);//写入月write_1302(0x8e,0x80);//打开保护writecom(h1+6);//返回到个位位置break;case 7:nian--;if(nian==-1) nian=99;writeday(2,nian);//第一行第三个字符开始写入temp=(nian)/10*16+(nian)%10;//转换为bcd码write_1302(0x8e,0x00);//允许写入write_1302(0x8c,temp);//写入年write_1302(0x8e,0x80);//打开保护writecom(h1+3);//返回在年的尾数位置break;}}}}}//初始化的函数void init()//定时器初始化函数{TMOD=0x11;//设置为定时器0和1的工作方式1TH0=(65536-60000)/256;//10毫秒TL0=(65536-60000)%256;TH1=(65536-50000)/256;//设置定时器1的初值TL1=(65536-50000)%256;EA=1;ET0=1;//允许T0中断TR0=1;//启动中断ET1=1;/*允许T1中断（未打开）*/TR1=1;//打开}/*////////以下为转换农历的相关函数////////////////// */codeucharyear_code[597]={0x04,0xAe,0x53, //1901 00x0A,0x57,0x48, //1902 30x0d,0x26,0x50, //1904 9 0x0d,0x95,0x44, //1905 12 0x46,0xAA,0xB9, //1906 15 0x05,0x6A,0x4d, //1907 18 0x09,0xAd,0x42, //1908 21 0x24,0xAe,0xB6, //19090x04,0xAe,0x4A, //19100x6A,0x4d,0xBe, //19110x0A,0x4d,0x52, //19120x0d,0x25,0x46, //19130x5d,0x52,0xBA, //19140x0B,0x54,0x4e, //19150x0d,0x6A,0x43, //19160x29,0x6d,0x37, //19170x09,0x5B,0x4B, //19180x74,0x9B,0xC1, //19190x04,0x97,0x54, //19200x0A,0x4B,0x48, //19210x5B,0x25,0xBC, //19220x06,0xA5,0x50, //19230x06,0xd4,0x45, //19240x4A,0xdA,0xB8, //19250x02,0xB6,0x4d, //19260x09,0x57,0x42, //19270x24,0x97,0xB7, //19280x04,0x97,0x4A, //19290x66,0x4B,0x3e, //19300x0d,0x4A,0x51, //19310x0e,0xA5,0x46, //19320x56,0xd4,0xBA, //19330x05,0xAd,0x4e, //19340x02,0xB6,0x44, //19350x39,0x37,0x38, //19360x09,0x2e,0x4B, //19370x7C,0x96,0xBf, //19380x0C,0x95,0x53, //19390x0d,0x4A,0x48, //19400x6d,0xA5,0x3B, //19410x0B,0x55,0x4f, //19420x05,0x6A,0x45, //19430x4A,0xAd,0xB9, //19440x02,0x5d,0x4d, //19450x09,0x2d,0x42, //19460x0A,0x95,0x4A, //1948 0x7B,0x4A,0xBd, //1949 0x06,0xCA,0x51, //1950 0x0B,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 0x0e,0x95,0x52, //1958 0x06,0xAA,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 0x0d,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,0xBB, //19900x06,0x4B,0x44, //19920x36,0xA5,0x37, //19930x0e,0xA5,0x4A, //19940x86,0xB2,0xBf, //19950x05,0xAC,0x53, //19960x0A,0xB6,0x47, //19970x59,0x36,0xBC, //19980x09,0x2e,0x50, //1999 294 0x0C,0x96,0x45, //2000 297 0x4d,0x4A,0xB8, //20010x0d,0x4A,0x4C, //20020x0d,0xA5,0x41, //20030x25,0xAA,0xB6, //20040x05,0x6A,0x49, //20050x7A,0xAd,0xBd, //20060x02,0x5d,0x52, //20070x09,0x2d,0x47, //20080x5C,0x95,0xBA, //20090x0A,0x95,0x4e, //20100x0B,0x4A,0x43, //20110x4B,0x55,0x37, //20120x0A,0xd5,0x4A, //20130x95,0x5A,0xBf, //20140x04,0xBA,0x53, //20150x0A,0x5B,0x48, //20160x65,0x2B,0xBC, //20170x05,0x2B,0x50, //20180x0A,0x93,0x45, //20190x47,0x4A,0xB9, //20200x06,0xAA,0x4C, //20210x0A,0xd5,0x41, //20220x24,0xdA,0xB6, //20230x04,0xB6,0x4A, //20240x69,0x57,0x3d, //20250x0A,0x4e,0x51, //20260x0d,0x26,0x46, //20270x5e,0x93,0x3A, //20280x0d,0x53,0x4d, //20290x05,0xAA,0x43, //20300x36,0xB5,0x37, //20310x09,0x6d,0x4B, //20320xB4,0xAe,0xBf, //20330x04,0xAd,0x53, //20340x6d,0x25,0xBC, //2036 0x0d,0x25,0x4f, //2037 0x0d,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,0xC1, //2052 0x04,0x97,0x53, //2053 0x06,0x4B,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, //2060 0x3C,0x97,0x35, //2061 0x0C,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 0x0A,0x95,0x53, //2072 0x0B,0x4A,0x47, //2073 0x6B,0x55,0x3B, //2074 0x0A,0xd5,0x4f, //2075 0x05,0x5A,0x45, //2076 0x4A,0x5d,0x38, //2077 0x0A,0x5B,0x4C, //20780x3A,0x93,0xB6, //20800x06,0x93,0x49, //20810x77,0x29,0xBd, //20820x06,0xAA,0x51, //20830x0A,0xd5,0x46, //20840x54,0xdA,0xBA, //20850x04,0xB6,0x4e, //20860x0A,0x57,0x43, //20870x45,0x27,0x38, //20880x0d,0x26,0x4A, //20890x8e,0x93,0x3e, //20900x0d,0x52,0x52, //20910x0d,0xAA,0x47, //20920x66,0xB5,0x3B, //20930x05,0x6d,0x4f, //20940x04,0xAe,0x45, //20950x4A,0x4e,0xB9, //20960x0A,0x4d,0x4C, //20970x0d,0x15,0x41, //20980x2d,0x92,0xB5, //2099};///月份数据表code uchar day_code1[9]={0x0,0x1f,0x3b,0x5a,0x78,0x97,0xb5,0xd4,0xf3}; codeuint day_code2[3]={0x111,0x130,0x14e};bitget_moon_day(ucharmonth_p,uinttable_addr){uchar temp;switch (month_p){case 1:{temp=year_code[table_addr]&0x08;if (temp==0)return(0);else return(1);}case 2:{temp=year_code[table_addr]&0x04;if (temp==0)return(0);else return(1);}case 3:{temp=year_code[table_addr]&0x02;if (temp==0)return(0);else return(1);}case 4:{temp=year_code[table_addr]&0x01;if (temp==0)return(0);else return(1);}case 5:{temp=year_code[table_addr+1]&0x80;if (temp==0) return(0);else return(1);}case 6:{temp=year_code[table_addr+1]&0x40;if (temp==0)return(0);else return(1);}case 7:{temp=year_code[table_addr+1]&0x20;if (temp==0)return(0);else return(1);}case 8:{temp=year_code[table_addr+1]&0x10;if (temp==0)return(0);else return(1);}case 9:{temp=year_code[table_addr+1]&0x08;if (temp==0)return(0);else return(1);}case 10:{temp=year_code[table_addr+1]&0x04;if (temp==0)return(0);else return(1);}case 11:{temp=year_code[table_addr+1]&0x02;if (temp==0)return(0);else return(1);}case 12:{temp=year_code[table_addr+1]&0x01;if (temp==0)return(0);else return(1);}case 13:{temp=year_code[table_addr+2]&0x80;if (temp==0)return(0);else return(1);}}}void Conversion(bit c,ucharyear,ucharmonth,uchar day){ //c=0 为21世纪,c=1 为20世纪输入输出数据均为BCD数据uchar temp1,temp2,temp3,month_p;uint temp4,table_addr;bit flag2,flag_y;temp1=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==0){table_addr=(year+0x64-1)*0x3;}else {table_addr=(year-1)*0x3;}//定位数据表地址完成//取当年春节所在的公历月份temp1=year_code[table_addr+2]&0x60;temp1=_cror_(temp1,5);//取当年春节所在的公历月份完成//取当年春节所在的公历日temp2=year_code[table_addr+2]&0x1f;//取当年春节所在的公历日完成// 计算当年春年离当年元旦的天数,春节只会在公历1月或2月if(temp1==0x1){temp3=temp2-1;}else{temp3=temp2+0x1f-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月为闰月,天数加1temp4+=1;}//计算公历日离当年元旦的天数完成//判断公历日在春节前还是春节后if (temp4>=temp3){ //公历日在春节后或就是春节当日使用下面代码进行运算temp4-=temp3;month=0x1;month_p=0x1; //month_p为月份指向,公历日在春节前或就是春节当日month_p指向首月flag2=get_moon_day(month_p,table_addr); //检查该农历月为大小还是小月,大月返回1,小月返回0flag_y=0;if(flag2==0)temp1=0x1d; //小月29天else temp1=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==0)month+=1;}else month+=1;flag2=get_moon_day(month_p,table_addr);if(flag2==0)temp1=0x1d;else temp1=0x1e;}day=temp4+1;}else{ //公历日在春节前使用下面代码进行运算temp3-=temp4;if (year==0x0){year=0x63;c=1;}else year-=1;table_addr-=0x3;month=0xc;temp2=year_code[table_addr]&0xf0;temp2=_cror_(temp2,4);if (temp2==0)month_p=0xc;elsemonth_p=0xd; //flag_y=0;flag2=get_moon_day(month_p,table_addr);if(flag2==0)temp1=0x1d;else temp1=0x1e;while(temp3>temp1){temp3-=temp1;month_p-=1;if(flag_y==0)month-=1;if(month==temp2)flag_y=~flag_y;flag2=get_moon_day(month_p,table_addr);if(flag2==0)temp1=0x1d;else temp1=0x1e;}day=temp1-temp3+1;}c_moon=c; //HEX->BCD ,运算结束后,把数据转换为BCD数据temp1=year/10;temp1=_crol_(temp1,4);temp2=year%10;year_moon=temp1|temp2;temp1=month/10;temp1=_crol_(temp1,4);temp2=month%10;month_moon=temp1|temp2;temp1=day/10;temp1=_crol_(temp1,4);temp2=day%10;day_moon=temp1|temp2;}/*///////////农历转换分界线*/void festival()//显示节日函数{if ( yue == 1 &&ri == 1 ){ print(0x80," New Year's Day ");print(0x40,"Happy NewYear!!"); }//1月else if (month_moon== 0x01 &&day_moon == 0x01 ){print(0x80,"Happy New Year!!");print(0x40,"Spring Festival!"); }else if (month_moon== 0x01 &&day_moon == 0x15 ){print(0x80," yuanxiaojie: ");print(0x40,"Lantern Festival"); }//元宵节else if ( yue == 2 &&ri == 2 ){ print(0x80," World Wetlands ");print(0x40," Day "); }//2月else if ( yue == 2 &&ri == 14 ){ print(0x80," Today is: ");print(0x40,"Valentine's Day!"); }else if ( yue == 3 &&ri == 8 ){ print(0x80," International ");print(0x40," Women' Day "); }else if ( yue == 3 &&ri == 12 ){ print(0x80," Today is: ");print(0x40,"China Arbor Day "); }//else if ( yue == 3 &&ri == 14 ){ print(0x80," Today is: ");print(0x40," White Day "); }else if ( yue == 3 &&ri == 15 ){ print(0x80," World Consumer ");print(0x40," Right Day "); }else if ( yue == 3 &&ri == 17 ){ print(0x80," International ");print(0x40," sailing day "); }else if ( yue == 3 &&ri == 21 ){ print(0x80," Today is: ");print(0x40,"World Forest Day"); }else if ( yue == 3 &&ri == 22 ){ print(0x80," Today is: ");print(0x40,"World Water Day "); }//if ( yue == 3 &&ri == 23 ){ print(0x80,"World Meteorolo-");print(0x40," gical Day "); }//if ( yue == 3 &&ri == 24 ){ print(0x80,"World Tubercul-");print(0x40," osis Day "); }else if ( yue == 4 &&ri == 1 ){ print(0x80," Today is: ");print(0x40,"April Fools' Day"); }//4else if ( yue == 4 &&ri == 5 ){ print(0x80," Ching Ming ");print(0x40," Festival "); }else if ( yue == 4 &&ri == 7 ){ print(0x80," Today is: ");print(0x40,"World Health Day"); }else if ( yue == 4 &&ri == 8 ){ print(0x80," Today is: ");print(0x40," Easter Day "); }else if (month_moon== 0x05 &&day_moon == 0x05 ){print(0x80,"the Dragon-Boat ");print(0x40," Festival "); }else if ( yue == 5 &&ri == 1 ){ print(0x80," International ");print(0x40," Labour Day "); }//5else if ( yue == 5 &&ri == 4 ){ print(0x80," Chinese Youth ");print(0x40," Day"); }else if ( yue == 5 &&ri == 8 ){ print(0x80,"World Red-Cross ");print(0x40," Day "); }else if ( yue == 5 &&ri == 12 ){ print(0x80," International ");print(0x40," Nurse Day "); }else if ( yue == 5 &&ri == 5 ){ print(0x80," Mother's Day ");print(0x40," is coming! "); }else if ( yue == 5 &&ri == 15 ){ print(0x80," International ");print(0x40," Family Day "); }else if ( yue == 5 &&ri == 31 ){ print(0x80,"World No-Smoking");print(0x40," Day "); }else if ( yue == 6 &&ri == 1 ){ print(0x80," International ");print(0x40," Children's Day "); }//6else if ( yue == 6 &&ri == 5 ){ print(0x80," International ");print(0x40,"Environment Day "); }else if ( yue == 6 &&ri == 26 ){ print(0x80," International ");print(0x40,"Against Drug Day"); }//else if ( yue == 6 &&ri == 6 ){ print(0x80," National Eyes "); print(0x40," Caring Day "); }else if ( yue == 6 &&ri == 13 ){ print(0x80," Father's Day ");print(0x40," is coming! "); }else if (month_moon== 0x07 &&day_moon == 0x07 ){ print(0x80," Double-Seventh ");print(0x40," Day! "); }else if ( yue == 7 &&ri == 1 ){ print(0x80," The return of ");print(0x40," Hong Kong Day "); }//7else if ( yue == 7 &&ri == 7 ){ print(0x80," Anti-Japanese ");print(0x40,"War memorial day"); }else if ( yue == 7 &&ri == 11 ){ print(0x80,"World Population");print(0x40," Day "); }else if (month_moon== 0x08 &&day_moon == 0x15 ){ print(0x80," the Mid-Autumn ");print(0x40," Festival "); }else if ( yue == 8 &&ri == 1 ){ print(0x80," Today is: ");print(0x40," the Army Day "); }//8else if ( yue == 8 &&ri == 8 ){ print(0x80," Chinese man ");print(0x40," Festival "); }else if ( yue == 8 &&ri == 15 ){ print(0x80," The victory of ");print(0x40," war anniversary"); }else if (month_moon== 0x09 &&day_moon == 0x09 ){ print(0x80,"the Double Ninth");print(0x40," Festival "); }else if ( yue == 9 &&ri == 10 ){ print(0x80," Today is: ");print(0x40," Teacher's Day "); }//9//else if ( yue == 9 &&ri == 20 ){ print(0x80," International ");print(0x40,"Teeth-loving Day"); }else if ( yue == 9 &&ri == 27 ){ print(0x80," World Tourism ");print(0x40," Day "); }else if ( yue == 10 &&ri == 1 ){ print(0x40," Today is: ");print(0x40," National Day "); }//10else if ( yue == 10 &&ri == 4 ){ print(0x80," Today is: ");print(0x40,"World Animal Day"); }else if ( yue == 10 &&ri == 24 ){ print(0x80," United Nations ");print(0x40," Day "); }else if ( yue == 11 &&ri == 10 ){ print(0x80," Today is: ");print(0x40,"World Youth Day "); }//11else if ( yue == 11 &&ri == 11 ){ print(0x80,"Today is 1,1,1..");print(0x40," One's Day "); }//光棍节else if ( yue == 11 &&ri == 17 ){ print(0x80," The student ");print(0x40," section "); }else if (month_moon== 0x12 &&day_moon == 0x08 ){ print(0x80,"the laba Rice P-");print(0x40,"orridge Festival"); }else if (month_moon== 0x12 &&day_moon == 0x15 ){ print(0x80," guoxiaonian ");print(0x40," a lunar year "); }//if (month_moon== 0x12 &&day_moon == 0x29 ){ print(" 腊月二十九"); }else if (month_moon== 0x12 &&day_moon == 0x30 ){ print(0x80," Today is: ");print(0x40," New Year's Eve "); }else if ( yue == 12 &&ri == 1 ){ print(0x80," Today is: ");print(0x40," World AIDS Day "); }//12//if ( yue == 12 &&ri == 23 ){ print(" 明晚平安夜"); }else if ( yue == 12 &&ri == 24 ){print(0x80,"Tonight is "); print(0x40,"The Silent Night"); }else if ( yue == 12 &&ri == 25 ){print(0x80,"Merry Christmas!"); print(0x40," Christmas Day "); }else if ( yue == 12 &&ri == 31 ){ print(0x80," The last day ");print(0x40," of the year "); }else{print(0x40," ...(*^_^*)... ");//显示笑脸。
