LCD12864单片机电子万年历程序

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *#include#include#define LCD_Data P0#define uchar unsigned charUnsigned charSec、min、hour、day、month、year、cen、week、Next、aa、bb、cc、DD、mm、temp0、lurlmonth、Lurl day，lurl yearInt tempuchar TT=1；位c _ moon位元cen位元=1；位w；sbit LCD _ RS=p2 0；Sbit液晶屏_ rw=p2 1；Sbit液晶屏_ e=p2 2；sbit PSB=p2 3；sbit ds 1302 _ clk=P3 7；sbit ds 1302 _ io=P3 6；sbit ds 1302 _ rst=P3 5；sbit ds18b 20=p2 5；sbit speak=P2 7；sbit SetKey=P1 4；/使用密钥能量：设置sbit sure key=P1 5；/使用密钥示例：确认sbit plus key=P1 6；/使用密钥是的：加sbit reduce key=P1 7 7 7；/使用密钥能量：减去sbit SCL=P1 1；sbit sda=P1 0；void DisplayShengXiao(void)；Void delay(unsigned int a)/1毫秒/次要延迟unsigned char I；While(- a)for(I=0)；I125I)；Void delayb(unsigned int count)while(count-)；Void delays()；Void start()sda=1；SCL=1；delays()；sda=0；delays()；Void stop()sda=0；SCL=1；delays()；sda=1；delays()；Void响应()uchar I；while(sda=1)i255)I；/响应信号sda=0；错误(while (sda=0)| i255)I；)程序进入while死循环SCL=1；delays()；SCL=0；/如果此步骤不正确如果没有Sda，则保持零状态，并且始终处于响应状态。程序已停止。delays()；Void write24c02(uchar date)Uchar temp，I；Temp=datefor(I=0)；i8；I)SCL=0；Sda=temp0x80delays()；SCL=1；delays()；Temp=temp1SCL=0；delays()；sda=1；delays()；Uchar read24c02()Uchar k、I；SCL=0；delays()；sda=1；/只是解开数据线不，不for(I=0)；i8；I)SCL=1；delays()；K=k1If(sda)k；SCL=0；delays()；return k；Void write_24c02add(ucharAddress，uchar date)start()；write 24 c 02(0x A0)；response()；write 24 c 02(address)；response()；write 24 c 02(date)；response()；stop()；u charread _ 24c 02 add(ucharaddress)uchar a；start()；write 24 c 02(0x A0)；response()；write 24 c 02(address)；response()；start()；write 24 c 02(0x a1)；response()；a=read 24 c 02()；stop()；return a；Unsigned char DS18B20Init() unsigned char x；ds 18 b20=1；delayb(2)；ds 18 b20=0；delayb(80)；ds 18 b20=1；delayb(5)；X=DS18B20delayb(20)；return x；Unsigned char TempRead(void)Unsigned char i，datds 18 b20=1；delayb(1)；for(I=0)；i8；I)ds 18 b20=0；Dat=dat1ds 18 b20=1；If(DS18B20)Dat=dat |0x80delayb(4)；Return datVoid TempWriteByte(unsigned charDat)unsigned int I；ds 18 b20=1；delayb(2)；for(I=0)；i8；I)ds 18 b20=0；ds 18 b20=dat0x 01；delayb(8)；ds 18 b20=1；Dat=dat1delayb(2)；Int GetTemp() float TTUnsigned char a，b；ds 18 b20 init()；TempWriteByte(0x cc)；TempWriteByte(0x44)；delayb(100)；ds 18 b20 init()；TempWriteByte(0x cc)；TempWriteByte(0x be)；delayb(200)；a=TempRead()；b=TempRead()；temp=b；temp=8；temp=temp | a；Tt=temp * 0.0625Temp=tt * 10 0.5Return tempVoid WriteDs1302Byte(unsignedChar temp)unsigned char I；for(I=8)；i0；I-)DS1302 _ IO=temp0x01ds 1302 _ CLK=0；ds 1302 _ CLK=1；temp=1；Void WriteDs1302(unsigned charAddress，unsigned char dat)ds 1302 _ RST=0；ds 1302 _ CLK=0；ds 1302 _ RST=1；delay(1)；writeds 1302 byte(address)；writeds 1302 byte(dat)；ds 1302 _ RST=0；unsigned charread _ byte() unsigned chari；for(I=8)；i0；I-)If(DS1302_IO)Temp0=temp0 |0x80ds 1302 _ CLK=1；ds 1302 _ CLK=0；Temp0=temp01Return temp0Unsigned char reads 1302 (unsignedChar地址)Unsigned char tempds 1302 _ RST=0；ds 1302 _ CLK=0；ds 1302 _ RST=1；writeds 1302 byte(address)；temp=read _ byte()；ds 1302 _ RST=0；ds 1302 _ CLK=1；Return tempVoid InitDS1302()/unsigned charsecond=reads 1302(0x 80)；/if(Second0x80)WriteDs1302(0x8e，0x 00)；delay(5)；WriteDs1302(0x8c，0x 10)；/记录年份10年delay(5)；WriteDs1302(0x8a，0x 06)；/写入注释6delay(5)；WriteDs1302(0x88，0x 11)；/设定为月11日delay(5)；WriteDs1302(0x86，0x 6)；/记录日期6天delay(5)；WriteDs1302(0x84，0x 17)；/写入时间17点delay(5)；WriteDs1302(0x82，0x 43)；delay(5)；WriteDs1302(0x80，0x 00)；/写入秒30秒delay(5)；WriteDs1302(0x8e，0x80)；/控制命令，WP为1，禁止写入/*相当于阳历的阴历数据，每年3字节，格式第一个单词位7-4位表示闰月月。0表示没有闰月，位3-0对应于阴历1-4月的大小、第二个单词位7-0对应于阴历5-1 2月的大小小，3字节位7表示阴历13月的大小月分匹配位为1，表示是阴历月(3 0)天)为零时小于(29天)第三个字位6-5表示春节的公历月，位4-0表示春节阳历日期*/Code unsigned char YearCode597=0x04，0xAe，0x53，/1901 00x0A、0x57，0x48、/1902 30x55，0x26，0xBd，/1903 60x0d，0x26，0x50，/1904 90x0d，0x95，0x44，/1905 120x46，0xAA，0xB9，/1906 150x05，0x6A，0x4d，/1907 180x09，0xAd，0x42，/1908 210x24，0xAe，0xB6，/19090x04，0xAe，0x4A，/19100x6A、0x4d、0xBe、/19110x0A，0x4d，0x52，/19120x0d，0x25，0x46，/19130xx5d，0x52，0xba，/19140x0b、0x54、0x4e、/19150x0d、0x6a、0x43、/19160x29，0x6d，0x37，/19170x09、0xx5b、0x4b、/19180x74，0x9B，0xC1，/19190x04，0x97，0x54，/19200x0A、0x4B、0x48、/19210xx5b、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、0xfe、0x4b、/19370x7C、0x96，0xBf、/19380x0C，0x95，0x53，/19390x0d、0x4A、0x48、/19400x6d、0xa5、0xx3b、/19410x0B，0x55，0x4f，/19420x05，0x6A，0x45，/19430x4A、0xAd、0xB9、/19440x02，0x5d，0x4d，/19450x09，0xx2d，0x42，/19460xcd，0x95，0xb6，/19470x0A、0x95，0x4A、/19480x7B、0x4A、0xBd、/19490x06，0xCA，0x51，/19500x0B，0x55，0x46，/19510x55、0xx5a、0xbb、/19520x04，0xdA，0x4e，/19530x0a、0xx5b、0x43、/19540x35、0xb、0xb 8、/19550x05、0xb、0x4c、/19560x8a、0x95、0xx3f