标题: 12864-ds1302-ds18b20-单片机万年历程序 [打印本页]
作者: 51hei人人    时间: 2016-3-12 21:21
标题: 12864-ds1302-ds18b20-单片机万年历程序




  1. #include<reg52.h>
  2. #include<intrins.h>
  3. #define SoundSpace 3/4   
  4. unsigned char sec,min,hour,day,month,year,year1,cen,week;  //秒，分，小时，公历日期，月份，年份，世纪，星期
  5. unsigned char LunarMonth,LunarDay,LunarYear;         //阴历日期，月份，年份
  6. bit c_moon;                                          //大小月标志位                                          
  7. bit cenbit=0;                                          //世纪标志，为1,则表示20世纪，为0,则表示21世纪
  8. bit w;                                               //调时状态标志位
  9. unsigned char next;
  10. /**********定义LCD12864的数据线和相关函数*************/
  11. sbit LCD_RS=P2^6;        //模式位，低电平输入指令，高电平输入数据
  12. sbit LCD_RW=P2^5;        //读写位，低电平读，高电平写
  13. sbit LCD_E=P2^7;         //LCD12864使能位，低电平无效，高电平使能
  14. sbit PSB=P3^2;
  15. #define Busy 0x80
  16. #define LCD_Data P0     //LCD12864的8位数据总线，单片机的P0端口
  17. void WriteDataLCD(unsigned char WDLCD);          //给LCD12864写数据
  18. void WriteCommandLCD(unsigned char WCLCD);       //给LCD12864写指令
  19. void LCDInit(void);                              //LCD12864初始化
  20. void LCDClear(void);                             //LCD12864清屏
  21. void CheckBusy(void);                            //忙检测
  22. void LCDSendWord(unsigned char *p);              //向LCD发送一个字符串
  23. void LCDTestWord(bit i,unsigned char word);
  24. void DisplaySec(void);                           //在LCD上显示秒钟
  25. void DisplayMin(void);                           //在LCD上显示分钟
  26. void DisplayHour(void);                          //在LCD上显示小时
  27. void DisplayDay(void);                           //在LCD上显示日期
  28. void DisplayYear(void);                          //在LCD上显示年份
  29. void DisplayMonth(void);                         //在LCD上显示月份
  30. void DisplayWeek(void);                          //在LCD上显示星期
  31. void Holidays(void);                             //在LCD上显示节日
  32. /*********定义时间芯片DS1302的数据线及相关函数***********/
  33. sbit DS1302_CLK=P3^6;         //DS1302的时钟信号线   
  34. sbit DS1302_IO=P3^0;          //DS1302的数据端口线
  35. sbit DS1302_RST=P3^5;         //DS1302的片选信号线
  36. void WriteDs1302byte(unsigned char temp);                    //给DS1302写一个字节
  37. void WriteDs1302(unsigned char address,unsigned char dat);  //给DS1302写入时间，先确定地址，再确定要写入的数据
  38. unsigned char ReadDs1302(unsigned char address);           //读取DS1302的数据
  39. void InitDS1302();
  40. /**********定义温度传感器DS18B20的数据线和相关函数*************/
  41. sbit DS18B20=P3^7;                        //DS18B20的数据线
  42. int temp;
  43. void DS18B20Init(void);                   //DS18B20初始化函数
  44. int GetTemp(void);
  45. void TempWriteByte(unsigned char dat);
  46. unsigned char TempRead(void);
  47. bit TempReadBit(void);   
  48. void delayb(unsigned int count);
  49. void TempChange(void);
  50. void Conversion(bit cen_m,unsigned char year,unsigned char month,unsigned char day);
  51. bit GetMoonDay(unsigned char month_p,unsigned int TableAddr);
  52. void DisplayShengXiao(void);
  53. void DelayMs(unsigned int a);
  54. void Delay(unsigned char num);
  55. /**********定义开关按键,及蜂鸣器的数据线************/
  56. sbit SetKey=P1^0;       //按键功能：设置
  57. sbit SureKey=P1^1;      //按键功能：确认
  58. sbit PlusKey=P1^2;      //按键功能：加
  59. sbit ReduceKey=P1^3;    //按键功能：减
  60. void Key(void);

  62. #define Fosc 12000000      //定义晶振频率12000000HZ
  63. #define jiepai 3/4         //定义普通音符演奏的长度分率,//每4分音符间隔
  64. sbit Speaker=P1^5;         //定义输出管脚
  65. unsigned int code FreTab[12]={262,277,294,311,330,349,369,392,415,440,466,494};  //C调歌曲12个半音的频率
  66. unsigned char code PositTab[7]={0,2,4,5,7,9,11};                                   //1~7在频率表中的位置
  67. unsigned char code LengthTab[7]={1,2,4,8,16,32,64};                       
  68. unsigned char SoundTempTH0,SoundTempTL0;    //音符定时器初值暂存
  69. unsigned char SoundTempTH1,SoundTempTL1;    //音长定时器初值暂存
  70. void SpeakerDiDi(void);
  71. void SpeakerDiDi(void)
  72. {
  73. unsigned char i;
  74. for(i=0;i<3;i++)
  75. {
  76.   Speaker=0;
  77.   DelayMs(100);
  78.   Speaker=1;
  79.   DelayMs(100);
  80. }
  81. DelayMs(500);
  82. for(i=0;i<3;i++)
  83. {
  84.   Speaker=0;
  85.   DelayMs(100);
  86.   Speaker=1;
  87.   DelayMs(100);
  88. }
  89. DelayMs(500);
  90. for(i=0;i<2;i++)
  91. {
  92.   Speaker=0;
  93.   DelayMs(500);
  94.   Speaker=1;
  95.   DelayMs(100);
  96. }
  97. }
  98. void InitialSound(void)
  99. {
  100.     Speaker=1;
  101.     SoundTempTH1=(65535-(1/1200)*Fosc)/256;    //计算TL1应装入的初值     (10ms的初装值)
  102.     SoundTempTL1=(65535-(1/1200)*Fosc)%256;    //计算TH1应装入的初值
  103.     TH1=SoundTempTH1;                          //装入初值
  104.     TL1=SoundTempTL1;
  105.     TMOD|=0x11;                                //定时器1、2都工作在定时器模式，工作方式1
  106.     ET0=1;                                     //定时器0开中断
  107.     ET1=0;                                     //定时器1关中断
  108.     TR0=0;                                     //不启动定时器
  109.     TR1=0;                                     //不启动定时器
  110.     EA=1;                                      //开启CPU中断
  111. }

  113. void Speakertimer(void) interrupt 1            //音符发生中断
  114. {
  115.     Speaker=!Speaker;                          //取反  
  116.     TH0=SoundTempTH0;                          //定时器0重新装初值
  117.     TL0=SoundTempTL0;
  118. }
  119. void PlayMusic(unsigned char *SoundName,unsigned char diaohao,unsigned shengjiang,unsigned int Speed)
  120.                                    //SoundName为演奏歌曲歌名 diaohao是指乐曲升多少个半音演奏
  121.            //shengjiang 1:降八度, 2:不升不降, 3:升八度; Speed歌曲演奏速度
  122. {
  123.     unsigned int NewFreTab[12];         //新的频率表
  124.     unsigned char i,j;
  125.     unsigned int Point,yinfuchang,yipai,LDiv1,LDiv2,sifenyifu,CurrentFre,TempCounter,SoundLength;
  126.              //Point 指针索引值  LDiv  音符演奏的长度(多少个10ms)   yipai 1分音符的长度(几个10ms)即一个节拍   
  127.              //sifenyifu 4分音符的长度   CurrentFre 查出对应音符的频率   SoundLength歌曲长度   TempCounter计算计数器初值
  128.     unsigned char yindiao,length,yinfu,shengban,gaodi,SLen,leixing,fudian;
  129.              //yindiao音调  length音长  yinfu音符  gaodi高低音  shengban是否升半   leixing音符类型(0普通1连音2顿音)
  130.     for(i=0;i<12;i++)                   // 根据调号及升降八度来生成新的频率表
  131.     {
  132.         j=i+diaohao;
  133.         if(j>11)
  134.         {
  135.             j=j-12;
  136.             NewFreTab[i]=FreTab[j]*2;            //频率翻倍速
  137.         }
  138.         else
  139.             NewFreTab[i]=FreTab[j];
  140.         if(shengjiang==1) NewFreTab[i]>>=2;      //如果是降调  则频率除以2
  141.         else if(shengjiang==3) NewFreTab[i]<<=2; //如果是升调 则频率翻倍速
  142.     }                                   
  143.     SoundLength=0;
  144.     while(SoundName[SoundLength]!=0x00)          //计算歌曲长度 以0X00结尾
  145.     {
  146.         SoundLength+=2;
  147.     }
  148.     Point=0;
  149.     yindiao=SoundName[Point];                    //第一个字节为音符音调
  150.     length=SoundName[Point+1];                   //第二个字节为音符时值
  151.     yipai=12000/Speed;                           //算出一个节拍的长度(单位是10ms)   
  152.     sifenyifu=yipai/4;                           //算出4分音符的长度
  153.     sifenyifu=sifenyifu-sifenyifu*jiepai;        //普通音最长间隔标准
  154.     TR0=0;
  155.     TR1=1;                                       //启动定时器1
  156.     while(Point<SoundLength)
  157.     {
  158.         yinfu=yindiao%10;                        //个位，1--7七个音符                                 
  159.         gaodi=yindiao/10%10;                     //十位，高低音
  160.         shengban=yindiao/100;                    //百位，是否升半
  161.         CurrentFre=NewFreTab[PositTab[yinfu-1]+shengban];     //查出对应音符的频率   
  162.         if(yinfu!=0)
  163.         {
  164.             if (gaodi==1) CurrentFre>>=2;         //低音，频率除以2
  165.             if (gaodi==3) CurrentFre<<=2;         //高音, 频率翻倍速
  166.             TempCounter=65536-(50000/CurrentFre)*10/(12000000/Fosc);//计算计数器初值
  167.             SoundTempTH0=TempCounter/256;
  168.             SoundTempTL0=TempCounter%256;
  169.             TH0=SoundTempTH0;
  170.             TL0=SoundTempTL0+12;                 //加12是对中断延时的补偿
  171.         }
  172.         SLen=LengthTab[length%10];               //算出是几分音符
  173.         leixing=length/10%10;                    //算出音符类型(0普通1连音2顿音)
  174.         fudian=length/100;
  175.         yinfuchang=yipai/SLen;                   //算出连音音符演奏的长度(多少个10ms)
  176.         if (fudian==1)
  177.             yinfuchang=yinfuchang+yinfuchang/2;
  178.         if(leixing!=1)   
  179.             if(leixing==0)                       //算出普通音符的演奏长度
  180.                 if (SLen<=4)   
  181.                     LDiv1=yinfuchang-sifenyifu;
  182.                 else
  183.                     LDiv1=yinfuchang*jiepai;
  184.             else
  185.                 LDiv1=yinfuchang/2;              //算出顿音的演奏长度
  186.         else
  187.             LDiv1=yinfuchang;
  188.         if(yinfu==0) LDiv1=0;
  189.             LDiv2=yinfuchang-LDiv1;              //算出不发音的长度
  190.          if (yinfu!=0)
  191.         {
  192.             TR0=1;
  193.             for(i=LDiv1;i>0;i--)                 //发规定长度的音
  194.             {
  195.                 while(TF1==0);
  196.                 TH1=SoundTempTH1;
  197.                 TL1=SoundTempTL1;
  198.                 TF1=0;
  199.             }
  200.         }
  201.         if(LDiv2!=0)
  202.         {
  203.             TR0=0; Speaker=0;
  204.             for(i=LDiv2;i>0;i--)                //音符间的间隔
  205.             {
  206.                 while(TF1==0);
  207.                 TH1=SoundTempTH1;
  208.                 TL1=SoundTempTL1;
  209.                 TF1=0;
  210.             }
  211.         }
  212.         Point+=2;
  213.         yindiao=SoundName[Point];
  214.         length=SoundName[Point+1];
  215.     }
  216.     Speaker=1;
  217. }
  218. //**************************************************************************
  219. unsigned char code HappyBirthday[]=
  220. {//生日歌
  221.     0x19,0x03, 0x19,0x03, 0x1A,0x02, 0x19,0x02, 0x1F,0x02,
  222.     0x1B,0x01, 0x19,0x03, 0x19,0x03, 0x1A,0x02, 0x19,0x02,
  223.     0x20,0x02, 0x1F,0x01, 0x19,0x03, 0x19,0x03, 0x23,0x02,
  224.     0x21,0x02, 0x1F,0x02, 0x1B,0x0C, 0x1A,0x15, 0x22,0x03,
  225.     0x22,0x03, 0x21,0x02, 0x1F,0x02, 0x20,0x02, 0x1F,0x15,
  226.     0x00,0x00
  227. };
  228. unsigned char code Butterfly[]=
  229. {
  230. 0x17,0x03, 0x16,0x03, 0x17,0x01, 0x16,0x03, 0x17,0x03,                                
  231. 0x16,0x03, 0x15,0x01, 0x10,0x03, 0x15,0x03, 0x16,0x02,
  232.   0x16,0x0D, 0x17,0x03, 0x16,0x03, 0x15,0x03, 0x10,0x03,  
  233.    0x10,0x0E, 0x15,0x04, 0x0F,0x01, 0x17,0x03, 0x16,0x03,
  234.     0x17,0x01, 0x16,0x03, 0x17,0x03, 0x16,0x03, 0x15,0x01,
  235.     0x10,0x03, 0x15,0x03, 0x16,0x02, 0x16,0x0D, 0x17,0x03,
  236.     0x16,0x03, 0x15,0x03, 0x10,0x03, 0x15,0x03, 0x16,0x01,  
  237.     0x17,0x03, 0x16,0x03, 0x17,0x01, 0x16,0x03, 0x17,0x03,
  238.     0x16,0x03, 0x15,0x01, 0x10,0x03, 0x15,0x03, 0x16,0x02,
  239.     0x16,0x0D, 0x17,0x03, 0x16,0x03, 0x15,0x03, 0x10,0x03,  
  240.     0x10,0x0E, 0x15,0x04, 0x0F,0x01, 0x17,0x03, 0x19,0x03,  
  241.     0x19,0x01, 0x19,0x03, 0x1A,0x03, 0x19,0x03, 0x17,0x01,  
  242.     0x16,0x03, 0x16,0x03, 0x16,0x02, 0x16,0x0D, 0x17,0x03,
  243.     0x16,0x03, 0x15,0x03, 0x10,0x03, 0x10,0x0D, 0x15,0x00,
  244.     0x19,0x03, 0x19,0x03, 0x1A,0x03, 0x1F,0x03, 0x1B,0x03,  
  245.     0x1B,0x03, 0x1A,0x03, 0x17,0x0D, 0x16,0x03, 0x16,0x03,  
  246.     0x16,0x0D, 0x17,0x01, 0x17,0x03, 0x17,0x03, 0x19,0x03,  
  247.     0x1A,0x02, 0x1A,0x02, 0x10,0x03, 0x17,0x0D, 0x16,0x03,
  248.     0x16,0x01, 0x17,0x03, 0x19,0x03, 0x19,0x03, 0x17,0x03,
  249.     0x19,0x02, 0x1F,0x02, 0x1B,0x03, 0x1A,0x03, 0x1A,0x0E,
  250.     0x1B,0x04, 0x17,0x02, 0x1A,0x03, 0x1A,0x03, 0x1A,0x0E,   
  251.     0x1B,0x04, 0x1A,0x03, 0x19,0x03, 0x17,0x03, 0x16,0x03,
  252.     0x17,0x0D, 0x16,0x03, 0x17,0x03, 0x19,0x01, 0x19,0x03,
  253.     0x19,0x03, 0x1A,0x03, 0x1F,0x03, 0x1B,0x03, 0x1B,0x03,
  254.     0x1A,0x03, 0x17,0x0D, 0x16,0x03, 0x16,0x03, 0x16,0x03,
  255.     0x17,0x01, 0x17,0x03, 0x17,0x03, 0x19,0x03, 0x1A,0x02,
  256.     0x1A,0x02, 0x10,0x03, 0x17,0x0D, 0x16,0x03, 0x16,0x01,
  257.     0x17,0x03, 0x19,0x03, 0x19,0x03, 0x17,0x03, 0x19,0x03,
  258.     0x1F,0x02, 0x1B,0x03, 0x1A,0x03, 0x1A,0x0E, 0x1B,0x04,
  259.     0x17,0x02, 0x1A,0x03, 0x1A,0x03, 0x1A,0x0E, 0x1B,0x04,
  260.     0x17,0x16, 0x1A,0x03, 0x1A,0x03, 0x1A,0x0E, 0x1B,0x04,
  261.     0x1A,0x03, 0x19,0x03, 0x17,0x03, 0x16,0x03, 0x0F,0x02,
  262.     0x10,0x03, 0x15,0x00, 0x00,0x00
  263. };
  264. /*音乐歌谱每个音符由两个字节表示，第一个字节表示音高，第二个字节表示音长
  265. 音高由三位数字组成：个位是表示 1~7 这七个音符
  266. 十位是表示音符所在的音区:1-低音，2-中音，3-高音;百位表示这个音符是否要升半音: 0-不升，1-升半音。
  267. 音长最多由三位数字组成：
  268. 个位表示音符的时值，其对应关系是：
  269. 数值(n): |0 |1 |2 |3 | 4 | 5 | 6 |
  270. 几分音符: |1 |2 |4 |8 |16 |32 |64   
  271. 十位表示音符的演奏效果 (0-2): 0-普通，1-连音，2-顿音 百位是符点位: 0-无符点，1-有符点


  274. 阳历对应的阴历数据，每年三字节，
  275. 格式第一字节BIT7-4位表示闰月月份，为0,则无闰月，BIT3-0对应阴历第1-4月的大小，
  276. 第二字节BIT7-0对应阴历第5-12月大小，第三字节BIT7表示阴历第13月大小
  277. 月分对应的位为1,表示农历月大（30天）为0表示小（29天）
  278. 第三字节BIT6-5表示春节的公历月份，BIT4-0表示春节公历日期
  279. */
  280. code unsigned char YearCode[597]=
  281. {
  282.     0x04,0xAe,0x53,    //1901 0
  283. 0x0A,0x57,0x48,    //1902 3
  284.     0x55,0x26,0xBd,    //1903 6
  285.     0x0d,0x26,0x50,    //1904 9
  286.     0x0d,0x95,0x44,    //1905 12
  287.     0x46,0xAA,0xB9,    //1906 15
  288.     0x05,0x6A,0x4d,    //1907 18
  289.     0x09,0xAd,0x42,    //1908 21
  290.     0x24,0xAe,0xB6,    //1909
  291.     0x04,0xAe,0x4A,    //1910
  292.     0x6A,0x4d,0xBe,    //1911
  293.     0x0A,0x4d,0x52,    //1912
  294.     0x0d,0x25,0x46,    //1913
  295.     0x5d,0x52,0xBA,    //1914
  296.     0x0B,0x54,0x4e,    //1915
  297.     0x0d,0x6A,0x43,    //1916
  298.     0x29,0x6d,0x37,    //1917
  299.     0x09,0x5B,0x4B,    //1918
  300. 0x74,0x9B,0xC1,    //1919
  301. 0x04,0x97,0x54,    //1920
  302.     0x0A,0x4B,0x48,    //1921
  303.     0x5B,0x25,0xBC,    //1922
  304.     0x06,0xA5,0x50,    //1923
  305.     0x06,0xd4,0x45,    //1924
  306.     0x4A,0xdA,0xB8,    //1925
  307.     0x02,0xB6,0x4d,    //1926
  308.     0x09,0x57,0x42,    //1927
  309.     0x24,0x97,0xB7,    //1928
  310.     0x04,0x97,0x4A,    //1929
  311.     0x66,0x4B,0x3e,    //1930
  312.     0x0d,0x4A,0x51,    //1931
  313.     0x0e,0xA5,0x46,    //1932
  314.     0x56,0xd4,0xBA,    //1933
  315.     0x05,0xAd,0x4e,    //1934
  316.     0x02,0xB6,0x44,    //1935
  317.     0x39,0x37,0x38,    //1936
  318.     0x09,0x2e,0x4B,    //1937
  319.     0x7C,0x96,0xBf,    //1938
  320.     0x0C,0x95,0x53,    //1939
  321.     0x0d,0x4A,0x48,    //1940
  322.     0x6d,0xA5,0x3B,    //1941
  323.     0x0B,0x55,0x4f,    //1942
  324.     0x05,0x6A,0x45,    //1943
  325.     0x4A,0xAd,0xB9,    //1944
  326.     0x02,0x5d,0x4d,    //1945
  327.     0x09,0x2d,0x42,    //1946
  328. 0x2C,0x95,0xB6,    //1947
  329.     0x0A,0x95,0x4A,    //1948
  330.     0x7B,0x4A,0xBd,    //1949
  331. 0x06,0xCA,0x51,    //1950
  332.     0x0B,0x55,0x46,    //1951
  333.     0x55,0x5A,0xBB,    //1952
  334.     0x04,0xdA,0x4e,    //1953
  335.     0x0A,0x5B,0x43,    //1954
  336.     0x35,0x2B,0xB8,    //1955
  337.     0x05,0x2B,0x4C,    //1956
  338.     0x8A,0x95,0x3f,    //1957
  339.     0x0e,0x95,0x52,    //1958
  340.     0x06,0xAA,0x48,    //1959
  341. 0x7A,0xd5,0x3C,    //1960
  342.     0x0A,0xB5,0x4f,    //1961
  343. 0x04,0xB6,0x45,    //1962
  344.   0x4A,0x57,0x39,    //1963
  345.     0x0A,0x57,0x4d,    //1964
  346.     0x05,0x26,0x42,    //1965
  347.     0x3e,0x93,0x35,    //1966
  348.     0x0d,0x95,0x49,    //1967
  349.     0x75,0xAA,0xBe,    //1968
  350.     0x05,0x6A,0x51,    //1969
  351.     0x09,0x6d,0x46,    //1970
  352.     0x54,0xAe,0xBB,    //1971
  353.     0x04,0xAd,0x4f,    //1972
  354.     0x0A,0x4d,0x43,    //1973
  355.     0x4d,0x26,0xB7,    //1974
  356.     0x0d,0x25,0x4B,    //1975
  357.     0x8d,0x52,0xBf,    //1976
  358.     0x0B,0x54,0x52,    //1977
  359.     0x0B,0x6A,0x47,    //1978
  360.     0x69,0x6d,0x3C,    //1979
  361.     0x09,0x5B,0x50,    //1980
  362.     0x04,0x9B,0x45,    //1981
  363.     0x4A,0x4B,0xB9,    //1982
  364.     0x0A,0x4B,0x4d,    //1983
  365.     0xAB,0x25,0xC2,    //1984
  366.     0x06,0xA5,0x54,    //1985
  367.     0x06,0xd4,0x49,    //1986
  368.     0x6A,0xdA,0x3d,    //1987
  369.     0x0A,0xB6,0x51,    //1988
  370.     0x09,0x37,0x46,    //1989
  371.     0x54,0x97,0xBB,    //1990
  372.     0x04,0x97,0x4f,    //1991
  373.     0x06,0x4B,0x44,    //1992
  374.     0x36,0xA5,0x37,    //1993
  375.     0x0e,0xA5,0x4A,    //1994
  376.     0x86,0xB2,0xBf,    //1995
  377.     0x05,0xAC,0x53,    //1996
  378.     0x0A,0xB6,0x47,    //1997
  379.     0x59,0x36,0xBC,    //1998
  380.     0x09,0x2e,0x50,    //1999 294
  381.     0x0C,0x96,0x45,    //2000 297
  382.     0x4d,0x4A,0xB8,    //2001 300
  383.     0x0d,0x4A,0x4C,    //2002 303
  384.     0x0d,0xA5,0x41,    //2003 306
  385.     0x25,0xAA,0xB6,    //2004 309
  386.     0x05,0x6A,0x49,    //2005 312
  387.     0x7A,0xAd,0xBd,    //2006 315
  388.     0x02,0x5d,0x52,    //2007 318
  389.     0x09,0x2d,0x47,    //2008 321
  390.     0x5C,0x95,0xBA,    //2009 324
  391.     0x0A,0x95,0x4e,    //2010 327
  392.     0x0B,0x4A,0x43,    //2011
  393.     0x4B,0x55,0x37,    //2012
  394.     0x0A,0xd5,0x4A,    //2013
  395.     0x95,0x5A,0xBf,    //2014
  396.     0x04,0xBA,0x53,    //2015
  397.     0x0A,0x5B,0x48,    //2016
  398.     0x65,0x2B,0xBC,    //2017
  399.     0x05,0x2B,0x50,    //2018
  400.     0x0A,0x93,0x45,    //2019
  401.     0x47,0x4A,0xB9,    //2020
  402.     0x06,0xAA,0x4C,    //2021
  403.     0x0A,0xd5,0x41,    //2022
  404.     0x24,0xdA,0xB6,    //2023
  405.     0x04,0xB6,0x4A,    //2024
  406.     0x69,0x57,0x3d,    //2025
  407.     0x0A,0x4e,0x51,    //2026
  408.     0x0d,0x26,0x46,    //2027
  409.     0x5e,0x93,0x3A,    //2028
  410.     0x0d,0x53,0x4d,    //2029
  411.     0x05,0xAA,0x43,    //2030
  412.     0x36,0xB5,0x37,    //2031
  413.     0x09,0x6d,0x4B,    //2032
  414.     0xB4,0xAe,0xBf,    //2033
  415.     0x04,0xAd,0x53,    //2034
  416.     0x0A,0x4d,0x48,    //2035
  417.     0x6d,0x25,0xBC,    //2036
  418.     0x0d,0x25,0x4f,    //2037
  419.     0x0d,0x52,0x44,    //2038
  420.     0x5d,0xAA,0x38,    //2039
  421.     0x0B,0x5A,0x4C,    //2040
  422.     0x05,0x6d,0x41,    //2041
  423.     0x24,0xAd,0xB6,    //2042
  424.     0x04,0x9B,0x4A,    //2043
  425.     0x7A,0x4B,0xBe,    //2044
  426.     0x0A,0x4B,0x51,    //2045
  427.     0x0A,0xA5,0x46,    //2046
  428.     0x5B,0x52,0xBA,    //2047
  429.     0x06,0xd2,0x4e,    //2048
  430.     0x0A,0xdA,0x42,    //2049
  431.     0x35,0x5B,0x37,    //2050
  432.     0x09,0x37,0x4B,    //2051
  433.     0x84,0x97,0xC1,    //2052
  434.     0x04,0x97,0x53,    //2053
  435.     0x06,0x4B,0x48,    //2054
  436.     0x66,0xA5,0x3C,    //2055
  437.     0x0e,0xA5,0x4f,    //2056
  438.     0x06,0xB2,0x44,    //2057
  439.     0x4A,0xB6,0x38,    //2058
  440. 0x0A,0xAe,0x4C,    //2059
  441.     0x09,0x2e,0x42,    //2060
  442.     0x3C,0x97,0x35,    //2061
  443.     0x0C,0x96,0x49,    //2062
  444.     0x7d,0x4A,0xBd,    //2063
  445.     0x0d,0x4A,0x51,    //2064
  446. 0x0d,0xA5,0x45,    //2065
  447.     0x55,0xAA,0xBA,    //2066
  448.     0x05,0x6A,0x4e,    //2067
  449.     0x0A,0x6d,0x43,    //2068
  450.     0x45,0x2e,0xB7,    //2069
  451. 0x05,0x2d,0x4B,    //2070
  452.     0x8A,0x95,0xBf,    //2071
  453.     0x0A,0x95,0x53,    //2072
  454.     0x0B,0x4A,0x47,    //2073
  455.     0x6B,0x55,0x3B,    //2074
  456.     0x0A,0xd5,0x4f,    //2075
  457.     0x05,0x5A,0x45,    //2076
  458.     0x4A,0x5d,0x38,    //2077
  459.     0x0A,0x5B,0x4C,    //2078
  460.     0x05,0x2B,0x42,    //2079
  461.     0x3A,0x93,0xB6,    //2080
  462.     0x06,0x93,0x49,    //2081
  463.     0x77,0x29,0xBd,    //2082
  464.     0x06,0xAA,0x51,    //2083
  465.     0x0A,0xd5,0x46,    //2084
  466.     0x54,0xdA,0xBA,    //2085
  467.     0x04,0xB6,0x4e,    //2086
  468.     0x0A,0x57,0x43,    //2087
  469.     0x45,0x27,0x38,    //2088
  470.     0x0d,0x26,0x4A,    //2089
  471.     0x8e,0x93,0x3e,    //2090
  472.     0x0d,0x52,0x52,    //2091
  473.     0x0d,0xAA,0x47,    //2092
  474.     0x66,0xB5,0x3B,    //2093
  475.     0x05,0x6d,0x4f,    //2094
  476.     0x04,0xAe,0x45,    //2095
  477.     0x4A,0x4e,0xB9,    //2096
  478.     0x0A,0x4d,0x4C,    //2097
  479.     0x0d,0x15,0x41,    //2098
  480.     0x2d,0x92,0xB5,    //2099
  481. };

  483. /******************忙检测函数***************/
  484. void CheckBusy(void)
  485. {
  486. LCD_RS=0;
  487. LCD_RW=1;
  488. LCD_E=1;
  489. LCD_Data=0xff;
  490. while((LCD_Data&0x80)==0x80);
  491. LCD_E=0;
  492. }

  494. /**********************给LCD写入数据*****************/
  495. void WriteDataLCD(unsigned char WDLCD)
  496. {
  497.   CheckBusy();               //检测忙
  498.   LCD_RS = 1;                //RS为高电平，DB7----DB0为数据      
  499.   LCD_RW = 0;                //RW为低电平，E从高电平到低电平,则是把DB7----DB0的数据写到DR或者IR
  500.   LCD_E = 1;
  501.   LCD_Data = WDLCD;          //传送数据WDLCD
  502.   Delay(5);
  503.   LCD_E = 0;                 //E从 高电平 到 低电平
  504.   Delay(5);
  505. }

  507. /******************给LCD写入指令**********************/
  508. void WriteCommandLCD(unsigned char WCLCD) //BuysC为0时忽略忙检测
  509. {
  510.   CheckBusy();                //检测忙
  511.   LCD_RS = 0;                 //RS为低，DB7----DB0为指令
  512.   LCD_RW = 0;                 //RW为低,E从高电平到低电平,则是把DB7----DB0的数据写到DR或者IR
  513.   LCD_E = 1;
  514.   LCD_Data = WCLCD;           //传送数据
  515.   Delay(5);
  516.   LCD_E = 0;                  //E从 高电平到低电平
  517.      Delay(5);
  518. }

  520. /***************LCD初始化******************/

  522. void LCDInit(void)
  523. {
  524.   WriteCommandLCD(0x30);     //显示模式设置,开始要求每次检测忙信号
  525.   WriteCommandLCD(0x01);     //显示清屏
  526.   WriteCommandLCD(0x06);     // 显示光标移动设置
  527.   WriteCommandLCD(0x0C);     // 显示开,无游标,不反白
  528. }

  530. /********************清屏***************************/
  531. void LCDClear(void)
  532. {
  533.   WriteCommandLCD(0x01);     //显示清屏
  534.   WriteCommandLCD(0x34);     // 显示光标移动设置
  535.   WriteCommandLCD(0x30);     // 显示开及光标设置
  536. }

  538. /*****************************************/
  539. void LCDSendWord(unsigned char *p)         //向LCD发送一个字符串，
  540. {
  541. while(*p>0)                            //比如void LCDSendWord('你好');就是让LCD显示"你好"
  542. {
  543.   WriteDataLCD(*p);
  544.   p++;
  545. }
  546. }
  547.   
  548. /************写数据或者指令***************/
  549. void LCDTestWord(bit i,unsigned char word)
  550. {
  551. if(i==0)
  552. {
  553.   WriteCommandLCD(word);             //i=0;则写入指令
  554. }
  555. else
  556. {
  557.   WriteDataLCD(word);                //i=1;则写入数据  
  558. }
  559. }

  561. void DisplayYear(void)                 //往LCD上填写 年 数据
  562. {
  563. year=ReadDs1302(0x8d);            //从1302的0X8D处读出年数据
  564. LCDTestWord(0,0x81);               //写指令 0X81  在第一行第二个字符位置显示 年 数据
  565. LCDTestWord(1,(year/16)+0x30);     //写数据
  566. LCDTestWord(1,year%16+0x30);      //写数据
  567. LCDTestWord(0,0x82);                //写指令  第一行第三个字符位置
  568. LCDSendWord("年");                  //显示 年  LCD DDRAM第一行地址为80-87,第二行为90-97,第三行为88-8F,第四行为98-9F
  569. DisplayShengXiao();
  570. }

  572. void DisplayMonth(void)                //往LCD上填写  月 数据
  573. {
  574. month=ReadDs1302(0x89);           //从1302中读取月份数据
  575. LCDTestWord(0,0x83);               //写命令
  576. if(month/16!=0)
  577. {
  578.   LCDTestWord(1,(month/16)+0x30);//写数据
  579. }
  580. else
  581. {
  582.   LCDTestWord(1,0x20);            //写数据
  583. }
  584. LCDTestWord(1,month%16+0x30);       //写数据  
  585. LCDTestWord(0,0x84);                //写指令
  586. LCDSendWord("月");                  //显示 月
  587. DisplayShengXiao();
  588. }
  589.                            
  590. void DisplayWeek(void)                  //往LCD上填写  星期  数据
  591. {
  592. week=(ReadDs1302(0x8b))%16;             //从1302中读取星期数据  
  593. LCDTestWord(0,0x90);
  594. LCDSendWord("星期");
  595. LCDTestWord(0,0x92);
  596. if(week==7)    {LCDSendWord("日");}
  597. if(week==6)    {LCDSendWord("六");}
  598. if(week==5)    {LCDSendWord("五");}
  599. if(week==4)    {LCDSendWord("四");}
  600. if(week==3)    {LCDSendWord("叁");}
  601. if(week==2)    {LCDSendWord("二");}
  602. if(week==1)    {LCDSendWord("一");} //显示星期一到星期日
  603. }   

  605. void DisplayDay(void)                   //往LCD上填写   日期  数据     
  606. {
  607. day=ReadDs1302(0x87);              //从1302中读取日期数据
  608. LCDTestWord(0,0x85);
  609. if(day/16!=0)   
  610.   { LCDTestWord(1,(day/16)+0x30); }         
  611. else
  612.      { LCDTestWord(1,0x20);}
  613. LCDTestWord(1,day%16+0x30);
  614. LCDTestWord(0,0x86);
  615. LCDSendWord("日");
  616. DisplayShengXiao();
  617. }

  619. void DisplayHour(void)                 //往LCD上填写  小时数据
  620. {
  621. hour=ReadDs1302(0x85);
  622. LCDTestWord(0,0x88);
  623. LCDTestWord(1,(hour/16)+0x30);
  624. LCDTestWord(1,hour%16+0x30);
  625. }

  627. void DisplayMin(void)                  //往LCD上填写分钟 数据   
  628. {
  629. min=ReadDs1302(0x83);
  630. LCDTestWord(0,0x89);
  631. LCDTestWord(1,0x3a);
  632. LCDTestWord(1,(min/16)+0x30);
  633. LCDTestWord(1,min%16+0x30);
  634. LCDTestWord(1,0x3a);
  635. }

  637. void DisplaySec(void)                 //住LCD上填写  秒钟   和温度  数据
  638. {
  639. unsigned char i=0;
  640. unsigned int a=0,b=0,c=0;
  641. sec=ReadDs1302(0x81);
  642. LCDTestWord(0,0x8b);
  643. LCDTestWord(1,(sec/16)+0x30);
  644. LCDTestWord(1,sec%16+0x30);
  645. }
  646. void DisplayTemp(void)
  647. {
  648. unsigned int i;
  649. unsigned char a,b,c;
  650. WriteCommandLCD(0x8c);
  651. LCDTestWord(0,0x8d);
  652. TempChange();
  653. i=GetTemp();
  654. a=i/100;
  655. LCDTestWord(1,a+0x30);
  656. b=i/10-a*10;
  657. LCDTestWord(1,b+0x30);
  658. LCDTestWord(1,0x2e);
  659. c=i-a*100-b*10;
  660. LCDTestWord(1,c+0x30);
  661. LCDSendWord("℃");
  662. }

  664. /***************************写入操作*********************/
  665. void WriteDs1302Byte(unsigned  char temp)        
  666. {
  667.     unsigned char i;
  668.     for (i=0;i<8;i++)               //循环8次 写入数据
  669.     {
  670.         DS1302_CLK=0;
  671.         DS1302_IO=temp&0x01;      //每次传输低字节
  672.         temp>>=1;                //右移一位
  673.         DS1302_CLK=1;
  674.    }
  675. }  

  677. /***********************************写入数据*****************************/
  678. void WriteDs1302( unsigned char address,unsigned char dat )     //先写地址，再写数据
  679. {
  680.   DS1302_RST=0;
  681. _nop_();
  682.   DS1302_CLK=0;
  683. _nop_();
  684.   DS1302_RST=1;
  685.     _nop_();                    //启动
  686.   WriteDs1302Byte(address); //发送地址
  687.   WriteDs1302Byte(dat);  //发送数据
  688.   DS1302_RST=0;            //恢复
  689. }

  691. /****************************************************************************/
  692. unsigned char ReadDs1302(unsigned char address)        //先送地址，再读数据
  693. {
  694.   unsigned char i,temp=0x00;
  695.   DS1302_RST=0;
  696. _nop_();
  697.   DS1302_CLK=0;
  698. _nop_();
  699.   DS1302_RST=1;
  700. _nop_();
  701.   WriteDs1302Byte(address);         //送地址函数
  702.   for (i=0;i<8;i++)               //循环8次 读取数据
  703.   {
  704.   DS1302_CLK=1;
  705.   _nop_();
  706.    if(DS1302_IO)
  707.    temp|=0x80;               //每次传输低字节
  708.   DS1302_CLK=0;
  709.   temp>>=1;               //右移一位
  710. }
  711.   DS1302_RST=0;
  712. _nop_();  
  713. DS1302_CLK=1;
  714. DS1302_IO=0;
  715. return (temp);              //返回
  716. }
  717. /*****************DS1302初始化********************/
  718. void InitDS1302()                        //DS1302中秒，分，时，日期，月份，星期，年的地址分别是0x80,0x82,0x84,0x86,0x88,0x8a,0x8c
  719. {                                        //初始化写入的时间是2010年4月1日15点整，星期六
  720. WriteDs1302(0x8e,0x00);             //控制命令，WP位为0，允许写操作  控制位地址是0x8e
  721. DelayMs(5);
  722. WriteDs1302(0x8c,0x10);             //写入年份10年
  723. DelayMs(5);
  724. WriteDs1302(0x8a,0x04);             //写入星期6
  725.     DelayMs(5);
  726. WriteDs1302(0x88,0x05);             //定入月分 5月
  727. DelayMs(5);
  728. WriteDs1302(0x86,0x01);             //写入日期 1日
  729. DelayMs(5);
  730. WriteDs1302(0x84,0x09);             //写入小时 9点
  731. DelayMs(5);
  732. WriteDs1302(0x82,0x59);             //写入分钟 59分
  733. DelayMs(5);
  734. WriteDs1302(0x80,0x30);              //写入秒  30秒
  735. DelayMs(5);
  736. WriteDs1302(0x8e,0x80);              //控制命令，WP为1,禁止写操作
  737. }

  739. /*************************************************************************/

  741. void delayb(unsigned int count)   //delay
  742. {
  743.     unsigned char i;
  744.     while(count)
  745.     {
  746.        i=200;
  747.        while(i>0)
  748.        i--;
  749.        count--;
  750.     }
  751. }

  753. void DS18B20Init(void)          //DS18B20初始化
  754. {
  755. unsigned int i;               
  756. DS18B20=0;
  757. i=103;
  758. while(i>0)i--;
  759. DS18B20=1;
  760. i=4;
  761. while(i>0)i--;
  762. }

  764. bit TempReadBit(void)          // 读一位
  765. {
  766. unsigned int i;
  767.     bit dat;
  768.     DS18B20=0;i++;             //小延时一下
  769.     DS18B20=1;i++;i++;
  770.     dat=DS18B20;
  771.     i=8;while(i>0)i--;
  772.     return (dat);
  773. }

  775. unsigned char TempRead(void)   //读一个字节
  776. {
  777. unsigned char i,j,dat;
  778.     dat=0;
  779.     for(i=1;i<=8;i++)
  780.     {
  781.      j=TempReadBit();
  782.      dat=(j<<7)|(dat>>1); //读出的数据最低位在最前面，这样刚好一个字节在DAT里
  783.     }
  784.     return(dat);             //将一个字节数据返回
  785. }

  787. void TempWriteByte(unsigned char dat)  
  788. {                           //写一个字节到DS18B20里
  789. unsigned int i;
  790.     unsigned char j;
  791.     bit testb;
  792.     for(j=1;j<=8;j++)
  793.     {
  794.      testb=dat&0x01;
  795.      dat=dat>>1;
  796.      if(testb)          // 写1部分
  797.      {
  798.          DS18B20=0;
  799.          i++;i++;
  800.          DS18B20=1;
  801.          i=8;while(i>0)i--;
  802.         }
  803.      else
  804.      {
  805.          DS18B20=0;       //写0部分
  806.          i=8;while(i>0)i--;
  807.          DS18B20=1;
  808.          i++;i++;
  809.         }
  810.     }
  811. }

  813. void TempChange(void)  //发送温度转换命令
  814. {
  815. DS18B20Init();             //初始化DS18B20
  816.     delayb(1);             //延时
  817.     TempWriteByte(0xcc);  // 跳过序列号命令
  818.     TempWriteByte(0x44);  //发送温度转换命令
  819. }

  821. int GetTemp()               //获得温度
  822. {
  823. float tt;
  824.     unsigned char a,b;
  825.     DS18B20Init();
  826.     delayb(1);
  827.     TempWriteByte(0xcc);  
  828.     TempWriteByte(0xbe);    //发送读取数据命令
  829.     a=TempRead();           //连续读两个字节数据
  830.     b=TempRead();
  831.     temp=b;
  832.     temp<<=8;            
  833.     temp=temp|a;            //两字节合成一个整型变量。
  834.     tt=temp*0.0625;         //得到真实十进制温度值，因为DS18B20 可以精确到0.0625度，所以读回数据的最低位代表的是0.0625度。                     
  835.     temp=tt*10+0.5;         //放大十倍，这样做的目的将小数点后第一位 也转换为可显示数字，同时进行一个四舍五入操作。                          
  836.     return temp;            //返回温度值
  837. }

  839. code unsigned char DayCode1[9]={0x00,0x1f,0x3b,0x5a,0x78,0x97,0xb5,0xd4,0xf3};
  840. code unsigned int DayCode2[3]={0x111,0x130,0x14e};                           
  841. //计算公历日离当年元旦的天数,为了减少运算,用了两个表   DayCode1[9],DayCode2[3]
  842. //如果公历月在九月或前,天数会少于0xff,用表DayCode1[9],在九月后,天数大于0xff,用表DayCode2[3]
  843. //如输入公历日为8月10日,则公历日离元旦天数为DayCode1[8-1]+10-1,如输入公历日为11月10日,则公历日离元旦天数为DayCode2[11-10]+10-1
  844. /*读取数据表中农历月的大月或小月,如果该月为大返回1,为小返回0*/
  845. bit GetMoonDay(unsigned char LunarMonth,unsigned int TableAddr)
  846. {
  847. unsigned char temp;
  848.     switch (LunarMonth)                       //LunarMonth指向农历月份
  849. {
  850.         case 1:
  851.   {
  852.    temp=YearCode[TableAddr]&0x08;    //1月，对应年份表里第一字节的BIT3位，如果是1,则月大，如果是0,则月小
  853.             if (temp==0) return(0);        //为0,月小  
  854.    else  return(1);                //为1,月大
  855.   }
  856.         case 2:
  857.   {
  858.    temp=YearCode[TableAddr]&0x04;    //2月，对应年份表里第一字节的BIT2位，如果是1,则月大，如果是0,则月小
  859.             if (temp==0) return(0);        //为0,月小
  860.    else  return(1);                //为1,月大
  861.   }
  862.         case 3:
  863.   {
  864.    temp=YearCode[TableAddr]&0x02;    //3月，对应第一字节的BIT1位，如果是1,则月大，如果是0,则月小
  865.             if (temp==0) return(0);        //为0,月小
  866.    else  return(1);                //为1,月大
  867.   }
  868.         case 4:
  869.   {
  870.    temp=YearCode[TableAddr]&0x01;    //1月，对应第一字节的BIT0位，如果是1,则月大，如果是0,则月小
  871.             if (temp==0) return(0);
  872.    else return(1);
  873.   }
  874.         case 5:
  875.   {
  876.    temp=YearCode[TableAddr+1]&0x80;  //5月，对应第二字节的BIT7位，如果是1,则月大，如果是0,则月小
  877.             if (temp==0)  return(0);
  878.    else  return(1);
  879.   }
  880.         case 6:
  881.   {
  882.    temp=YearCode[TableAddr+1]&0x40;  //6月，对应第二字节的BIT6位，如果是1,则月大，如果是0,则月小
  883.             if (temp==0) return(0);
  884.    else  return(1);
  885.   }
  886.         case 7:
  887.   {
  888.    temp=YearCode[TableAddr+1]&0x20;  //7月，对应第二字节的BIT5位，如果是1,则月大，如果是0,则月小
  889.             if (temp==0) return(0);
  890.    else  return(1);
  891.   }
  892.         case 8:
  893.   {
  894.    temp=YearCode[TableAddr+1]&0x10;  //8月，对应第二字节的BIT4位，如果是1,则月大，如果是0,则月小
  895.             if (temp==0) return(0);
  896.    else  return(1);
  897.   }
  898.         case 9:
  899.   {
  900.    temp=YearCode[TableAddr+1]&0x08;  //9月，对应第二字节的BIT3位，如果是1,则月大，如果是0,则月小
  901.             if (temp==0) return(0);
  902.    else  return(1);
  903.   }
  904.         case 10:
  905.   {
  906.    temp=YearCode[TableAddr+1]&0x04;  //10月，对应第二字节的BIT2位，如果是1,则月大，如果是0,则月小
  907.             if (temp==0) return(0);
  908.    else  return(1);
  909.   }
  910.         case 11:
  911.   {
  912.    temp=YearCode[TableAddr+1]&0x02;  //11月，对应第二字节的BIT1位，如果是1,则月大，如果是0,则月小
  913.             if (temp==0) return(0);
  914.    else  return(1);
  915.   }
  916.         case 12:
  917.   {
  918.    temp=YearCode[TableAddr+1]&0x01;  //12月，对应第二字节的BIT0位，如果是1,则月大，如果是0,则月小
  919.             if (temp==0) return(0);
  920.    else  return(1);
  921.   }
  922.         case 13:
  923.   {
  924.    temp=YearCode[TableAddr+2]&0x80;  //13月，对应第三字节的BIT7位，如果是1,则月大，如果是0,则月小
  925.             if (temp==0) return(0);
  926.    else  return(1);
  927.   }
  928.     }
  929. }

  931. void Conversion(bit cenbit,unsigned char year,unsigned char month,unsigned char day)
  932.                              //cenbit=0为21世纪,cenbit=1为20世纪,输入输出数据均为BCD数据
  933. {                        
  934.     unsigned char temp1,temp2,temp3,MonthP;//temp3,temp4分别表示春节距元旦的天数，公历日离元旦的天数
  935.     unsigned int temp4,TableAddr;
  936.     bit flag2,flag_y;
  937.     temp1=year/16;           //BCD->hex 先把数据转换为十六进制  高位
  938.     temp2=year%16;           //低位
  939.     year=temp1*10+temp2;     //把 年 数据 转换成16进制
  940.     temp1=month/16;          //月份 高位
  941.     temp2=month%16;          //月份 低位
  942.     month=temp1*10+temp2;    //把 月 数据 转换成16进制
  943.     temp1=day/16;            //日期 高位
  944.     temp2=day%16;            //日期 低位
  945.     day=temp1*10+temp2;      //把 日 数据 转换成16进制
  946.     if(cenbit==0)                           //如果是21世纪
  947. {                  
  948.         TableAddr=(year+0x64-1)*0x03;       //定位数据表地址  year对应的年份表中的地址是(year+99)*3 如2010年 其地址是327
  949.   LCDTestWord(0,0x80);
  950.   LCDSendWord("20");
  951.     }
  952.     else                                    //如果是20世纪
  953. {
  954.         TableAddr=(year-1)*0x03;            //定位数据表地址  year对应的年份表中的地址是(year-1)*3  如1901年 其地址是3
  955.   LCDTestWord(0,0x80);
  956.   LCDSendWord("19");
  957.     }
  958.     temp1=YearCode[TableAddr+2]&0x60;       //取当年春节所在的公历月份   年份表中第三字节BIT6-5表示春节的公历月份
  959.     temp1=_cror_(temp1,5);                  //循环右移5位，得到 春节所在的公历月份
  960.     temp2=YearCode[TableAddr+2]&0x1f;       //取当年春节所在的公历日    年份表中第三字节BIT4-0表示当年春节所在的公历日
  961.     if(temp1==0x01)                         // 计算当年春年离当年元旦的天数,春节只会在公历1月或2月   
  962.         temp3=temp2-1;                      //假如春节在公历1月，则元旦离春节的天数为  temp2-1 天
  963.     else
  964.         temp3=temp2+0x1f-1;                 //假如春节在公历2月，则无理离春节的天数为  temp2+0x1f-1 天
  965.     if (month<10)
  966.         temp4=DayCode1[month-1]+day-1;      //0到8月某日距元旦的天数
  967.     else
  968.         temp4=DayCode2[month-10]+day-1;     //9月开始的某一天距元旦的天数
  969.     if ((month>0x02)&&(year%0x04==0))       //如果公历月大于2月并且该年的2月为闰月,天数加1
  970.         temp4+=1;
  971.                                          //计算机出公历日距元旦的天数和春节距元旦的天数，则是为了比较公历日是在春节前还是春节后
  972.                                          //如果temp3>temp4  则 公历日在春节之前
  973.     if (temp4>=temp3)                       //公历日在春节后或就是春节当日使用下面代码进行运算
  974. {   
  975.         temp4-=temp3;                       //公历日离春节的天数  因为公历日在春节后  所以为temp4-temp3
  976.         month=0x01;
  977.         MonthP=0x01;                        //LunarMonth为月份指向,公历日在春节前或就是春节当日LunarMonth指向首月
  978.         flag2=GetMoonDay(MonthP,TableAddr); //检查该农历月为大小还是小月,大月返回1,小月返回0
  979.         flag_y=0;
  980.         if(flag2==0)                            //GetMoonDay()函数返回的是0
  981.    {temp1=0x1d;}                       //小月29天
  982.         else                                    //GetMoonDay()函数返回的是1
  983.    {temp1=0x1e;}                       //大月30天
  984.         temp2=YearCode[TableAddr]&0xf0;         //年份数据表中第1字节BIT7-4为闰月，为0则这年无闰月，如为1,表示有闰月
  985.         temp2=_cror_(temp2,4);                  //从数据表中取该年的闰月月份,如为0，则该年无闰月  BIT3-0表示阴历1到4月的大小 1为大 0 为小
  986.         while(temp4>=temp1)
  987.   {
  988.             temp4-=temp1;
  989.             MonthP+=1;
  990.             if(month==temp2)
  991.    {
  992.              flag_y=~flag_y;
  993.              if(flag_y==0)  {month+=1;}
  994.             }
  995.             else
  996.       {
  997.     month+=1;
  998.    }
  999.             flag2=GetMoonDay(MonthP,TableAddr);
  1000.             if(flag2==0)
  1001.    {
  1002.     temp1=0x1d;
  1003.    }
  1004.             else
  1005.    {
  1006.     temp1=0x1e;
  1007.    }
  1008.         }
  1009.         day=temp4+1;
  1010.     }
  1011.     else
  1012. {  //公历日在春节前使用下面代码进行运算
  1013.         temp3-=temp4;                          //公历日离春节的天数  因为公历日在春节前  所以为temp3-temp4
  1014.         if (year==0x00){year=0x63;cenbit=1;}
  1015.         else year-=1;
  1016.         TableAddr-=0x03;
  1017.         month=0x0c;
  1018.         temp2=YearCode[TableAddr]&0xf0;    //格式第一字节BIT7-4位表示闰月月份，为0,则无闰月，BIT3-0对应阴历第1-4月的大小，
  1019.         temp2=_cror_(temp2,4);
  1020.         if (temp2==0)MonthP=0x0c;
  1021.         else MonthP=0x0d; //
  1022.         /* MonthP为月份指向,如果当年有闰月,一年有十三个月,月指向13,无闰月指向12*/
  1023.         flag_y=0;
  1024.         flag2=GetMoonDay(MonthP,TableAddr);
  1025.         if(flag2==0)temp1=0x1d;
  1026.         else temp1=0x1e;
  1027.         while(temp3>temp1)
  1028.   {
  1029.             temp3-=temp1;
  1030.             MonthP-=1;
  1031.             if(flag_y==0)month-=1;
  1032.             if(month==temp2)flag_y=~flag_y;
  1033.             flag2=GetMoonDay(MonthP,TableAddr);
  1034.             if(flag2==0)temp1=0x1d;
  1035.             else temp1=0x1e;
  1036.          }
  1037.         day=temp1-temp3+1;
  1038.     }
  1039.     c_moon=cenbit;               
  1040.     temp1=year/10;
  1041.     temp1=_crol_(temp1,4);
  1042.     temp2=year%10;
  1043.     LunarYear=temp1|temp2;

  1045.     temp1=month/10;
  1046.     temp1=_crol_(temp1,4);
  1047.     temp2=month%10;
  1048.     LunarMonth=temp1|temp2;

  1050.     temp1=day/10;
  1051.     temp1=_crol_(temp1,4);
  1052.     temp2=day%10;
  1053.     LunarDay=temp1|temp2;
  1054. }

  1056. void DisplayShengXiao(void)
  1057. {
  1058. unsigned char LunarYearD,ReYear;        //农历年份的十进制数  和取模后的余数
  1059. if(cen==0x19)  {cenbit=1;}
  1060. if(cen==0x20)  {cenbit=0;}
  1061.   Conversion(cenbit,year,month,day);       //将公历日期转换成农历
  1062. LCDTestWord(0,0x94);                     //显示在LCD的0X94位置上
  1063. LCDTestWord(1,LunarYear/16+0x30);        //农历年十位
  1064.   LCDTestWord(1,LunarYear%16+0x30);        //农历年个位
  1065.   LCDTestWord(1,'-');                      //用-隔开
  1066.   LCDTestWord(1,LunarMonth/16+0x30);       //农历月十位
  1067.   LCDTestWord(1,LunarMonth%16+0x30);       //农历月个位  
  1068.   LCDTestWord(1,'-');
  1069.   LCDTestWord(1,LunarDay/16+0x30);         //农历日十位
  1070.   LCDTestWord(1,LunarDay%16+0x30);         //农历日个位
  1071.   LunarYearD=(LunarYear/16)*10+LunarYear%16;        //农历年转换成10进制数
  1072.   ReYear=LunarYearD%12;                             //农历年模12,取余运算
  1073.   switch(ReYear)
  1074.   {
  1075.   case 0: LCDTestWord(0,0x93);LCDSendWord("龙");break;   //余0即整除 农历 龙年
  1076.   case 1: LCDTestWord(0,0x93);LCDSendWord("蛇");break;   //蛇年
  1077.      case 2: LCDTestWord(0,0x93);LCDSendWord("马");break;
  1078.   case 3: LCDTestWord(0,0x93);LCDSendWord("羊");break;
  1079.   case 4: LCDTestWord(0,0x93);LCDSendWord("猴");break;
  1080.   case 5: LCDTestWord(0,0x93);LCDSendWord("鸡");break;
  1081.   case 6: LCDTestWord(0,0x93);LCDSendWord("狗");break;
  1082.   case 7: LCDTestWord(0,0x93);LCDSendWord("猪");break;
  1083.   case 8: LCDTestWord(0,0x93);LCDSendWord("鼠");break;
  1084.      case 9: LCDTestWord(0,0x93);LCDSendWord("牛");break;
  1085.   case 10:LCDTestWord(0,0x93);LCDSendWord("虎");break;
  1086.   case 11:LCDTestWord(0,0x93);LCDSendWord("兔");break;
  1087. }
  1088. }
  1089. /***************节假日提示********************/

  1091. void Holidays(void)
  1092. {
  1093. LCDTestWord(0,0x98);

  1095. if(LunarMonth==0x01 && LunarDay==0x01)       {LCDSendWord("春节快乐        ");}
  1096. if(LunarMonth==0x01 && LunarDay==0x05)       {LCDSendWord("姐姐的生日      ");}
  1097. if(LunarMonth==0x01 && LunarDay==0x15)       {LCDSendWord("元宵节快乐      ");}
  1098. if(LunarMonth==0x05 && LunarDay==0x05)       {LCDSendWord("端午节快乐      ");}
  1099. if(LunarMonth==0x06 && LunarDay==0x26)       {LCDSendWord("佳燕的生日      ");}
  1100. if(LunarMonth==0x07 && LunarDay==0x07)       {LCDSendWord("中国情人节      ");}
  1101. if(LunarMonth==0x08 && LunarDay==0x15)       {LCDSendWord("中秋节快乐      ");}
  1102. if(LunarMonth==0x09 && LunarDay==0x01)       {LCDSendWord("嘿嘿，又长大了  ");}
  1103. if(LunarMonth==0x09 && LunarDay==0x03)       {LCDSendWord("侄子的生日      ");}
  1104. if(LunarMonth==0x09 && LunarDay==0x09)       {LCDSendWord("重阳节          ");}
  1105. if(LunarMonth==0x09 && LunarDay==0x30)       {LCDSendWord("妈妈的生日      ");}
  1106. if(LunarMonth==0x12 && LunarDay==0x08)       {LCDSendWord("腊八节          ");}
  1107. if(LunarMonth==0x12 && LunarDay==0x15)       {LCDSendWord("过小年啦        ");}
  1108. if(LunarMonth==0x12 && LunarDay==0x27)       {LCDSendWord("爸爸的生日      ");}
  1109. if(LunarMonth==0x12 && LunarDay==0x29)       {LCDSendWord("腊月二十九      ");}
  1110. if(LunarMonth==0x12 && LunarDay==0x30)       {LCDSendWord("除夕夜到了      ");}     //以上是农历节日，以下是公历节日
  1111. if(month==0x01 && day==0x01)     {LCDSendWord("元旦节快乐      ");}   
  1112. if(month==0x02 && day==0x02)  {LCDSendWord("世界湿地日      ");}
  1113. if(month==0x02 && day==0x10)  {LCDSendWord("世界气象日      ");}
  1114. if(month==0x03 && day==0x08)  {LCDSendWord("国际妇女节      ");}
  1115. if(month==0x03 && day==0x12)  {LCDSendWord("中国植树节      ");}
  1116. if(month==0x03 && day==0x15)  {LCDSendWord("消费者权益日    ");}
  1117. if(month==0x03 && day==0x22)  {LCDSendWord("世界水日        ");}     
  1118. if(month==0x04 && day==0x01)  {LCDSendWord("愚人节快乐      ");}
  1119. if(month==0x04 && day==0x05)  {LCDSendWord("中国清明节      ");}
  1120. if(month==0x04 && day==0x22)  {LCDSendWord("世界地球日      ");}
  1121. if(month==0x05 && day==0x01)  {LCDSendWord("国际劳动节      ");}
  1122. if(month==0x05 && day==0x04)  {LCDSendWord("中国青年节      ");}
  1123. if(month==0x05 && day==0x12)  {LCDSendWord("世界护士节      ");}
  1124. if(month==0x06 && day==0x01)  {LCDSendWord("国际儿童节      ");}
  1125. if(month==0x06 && day==0x05)  {LCDSendWord("世界环境日      ");}
  1126. if(month==0x06 && day==0x06)  {LCDSendWord("国际爱眼日      ");}
  1127. if(month==0x06 && day==0x25)  {LCDSendWord("世界土地日      ");}
  1128. if(month==0x06 && day==0x26)  {LCDSendWord("国际禁毒日      ");}   
  1129. if(month==0x07 && day==0x01)  {LCDSendWord("香港回归日      ");}   
  1130. if(month==0x08 && day==0x01)  {LCDSendWord("中国建军节      ");}
  1131. if(month==0x09 && day==0x10)  {LCDSendWord("中国老师节      ");}
  1132. if(month==0x09 && day==0x18)  {LCDSendWord("九一八事件纪念日");}
  1133. if(month==0x10 && day==0x01)  {LCDSendWord("中国国庆节      ");}
  1134. if(month==0x10 && day==0x04)  {LCDSendWord("世界动物日      ");}
  1135. if(month==0x10 && day==0x09)  {LCDSendWord("世界邮政日      ");}
  1136. if(month==0x10 && day==0x10)  {LCDSendWord("辛亥革命纪念日  ");}  
  1137. if(month==0x12 && day==0x20)  {LCDSendWord("澳门回归纪念日  ");}
  1138. if(month==0x12 && day==0x24)  {LCDSendWord("平安夜          ");}
  1139. if(month==0x12 && day==0x25)  {LCDSendWord("圣诞节          ");}
  1140.     else    LCDSendWord("入云龙小白");
  1141. }
  1142. void UpDate(void)
  1143. {
  1144. DisplayYear();     //显示年
  1145. DisplayMonth();    //显示月
  1146. DisplayDay();    //显示日
  1147. DisplayWeek();    //显示星期
  1148. DisplayHour();    //显示时
  1149. DisplayMin();    //显示分
  1150. DisplaySec();    //显示秒
  1151. DisplayShengXiao();
  1152. }
  1153. void SetTime(unsigned char count)
  1154. {
  1155. unsigned char address,item;
  1156. unsigned char max,mini;
  1157. LCDTestWord(0,0x98);
  1158. LCDSendWord("调整");
  1159. if(count==6)  {LCDSendWord("秒钟      ");address=0x81; max=59;mini=0;}
  1160. if(count==5)  {LCDSendWord("分钟      ");address=0x83; max=59;mini=0;}
  1161. if(count==4)  {LCDSendWord("小时      ");address=0x85; max=23;mini=0;}
  1162. if(count==3)  {LCDSendWord("星期      ");address=0x8b; max=7;mini=1;}
  1163. if(count==2)  {LCDSendWord("日期      ");address=0x87; max=31; mini=1;}
  1164. if(count==1)  {LCDSendWord("月份      ");address=0x89; max=12;mini=1;}
  1165. if(count==0)  {LCDSendWord("年份      ");address=0x8d; max=99;mini=0;}
  1166. item=ReadDs1302(address);//读取DS1302某地址上的数值赋给item  
  1167. item=(item/16)*10+item%16;
  1168. if(PlusKey==0)       //PlusKey-加
  1169.   item++;          //数加 1
  1170. if(ReduceKey==0)     //ReduceKey-减
  1171.   item--;          //数减 1
  1172. if(item>max)
  1173.   item=mini;       //查看数值有效范围  
  1174. if(item<mini)
  1175.   item=max;
  1176. WriteDs1302(0x8e,0x00);
  1177. item=(item/10)*16+item%10;
  1178. WriteDs1302(address-1,item); //将调整好的item值写入DS1302
  1179.     UpDate();
  1180. }

  1182. void Key(void)
  1183. {

  1185. if (SetKey==0)           // 设置时间
  1186. {
  1187.     DelayMs(10);         //按键消抖   
  1188.   if(SetKey==0&&w==0)  //当是正常状态时就进入调时状态
  1189.   {
  1190.    w=1;          //进入调时   
  1191.    SetTime(next);   //调整   
  1192.   }
  1193.   if(SetKey==0&&w==1)  //当是调时状态 本键用于调整下一项
  1194.   {
  1195.    next++;
  1196.    if(next>=7)   {next= 0;}
  1197.    SetTime(next);   //调整   
  1198.   }
  1199.      while(SetKey==0);    //等待键松开
  1200. }
  1201. if(SureKey==0)           // 当在调时状态时就退出调时
  1202.     {
  1203.   DelayMs(10);         //按键消抖
  1204.   if(SureKey==0&&w==1)
  1205.   {
  1206.    w=0;next=0;
  1207.    Holidays();
  1208.   }
  1209.   while(SureKey==0);   //等待键松开
  1210. }
  1211. if (PlusKey==0)          //加调整
  1212. {
  1213.      DelayMs(10);         //按键消抖
  1214.      if(PlusKey==0&&w==1)
  1215.   {   
  1216.    SetTime(next);   //调整
  1217.   }
  1218.   while(PlusKey==0);       //等待键松开
  1219. }

  1221. if (ReduceKey==0)        //减调整
  1222. {        
  1223.      DelayMs(10);         //按键消抖
  1224.      if(ReduceKey==0&&w==1)
  1225.   {   
  1226.    SetTime(next);   //调整
  1227.   }  
  1228.   while(ReduceKey==0);     //等待键松开
  1229. }  
  1230. }

  1232. void DelayMs(unsigned int a)        //延时 1MS/次
  1233. {
  1234. unsigned char i;
  1235. while(--a!=0)
  1236. {
  1237.   for(i=0;i<125;i++)
  1238.   ;
  1239. }
  1240. }

  1242. void Delay(unsigned char num)               
  1243. {
  1244. while(num--)
  1245. ;
  1246. }

  1248. void main()
  1249. {
  1250. SetKey=1;
  1251. SureKey=1;
  1252. PlusKey=1;
  1253. ReduceKey=1;
  1254. PSB=1;
  1255. next=0;
  1256. LCDInit();
  1257. LCDClear();
  1258. //InitDS1302();
  1259. InitialSound();
  1260. while(1)                        
  1261. {
  1262. if(w==0)
  1263. {
  1264.   DisplayYear();     //显示年
  1265.   DisplayMonth();    //显示月
  1266.   DisplayDay();    //显示日
  1267.   DisplayWeek();    //显示星期
  1268.   DisplayHour();    //显示时
  1269.   DisplayMin();    //显示分
  1270.   DisplaySec();    //显示秒
  1271.   Holidays();        //显示节日
  1272.   DisplayTemp();     //显示温度
  1273.   }
  1274.   Key();
  1275.   if(min==0&&sec==0)
  1276.   {
  1277.    
  1278.    if(LunarMonth==9&&LunarDay==1)
  1279.    {
  1280.     PlayMusic(HappyBirthday,0,3,300);
  1281.    }
  1282.    else
  1283.    {
  1284.     SpeakerDiDi();
  1285.    }
  1286.   }
  1287. }
  1288. }
复制代码




作者: 1433633039    时间: 2016-3-19 17:42
可有仿真图？
作者: whengfu    时间: 2016-3-31 14:38
谢谢楼主开源，这么完整的万年历代码，我等学习了
作者: D_anJF00    时间: 2016-12-22 20:23
可有仿真图



欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1