单片机LCD1602显示年月日时钟带星期和闹钟

1、长春工业大学测控技术与仪器专业单片机LCD1602显示年代日时钟带礼拜和闹钟，可鉴识闰年下载文档即可完满复制#include#defineucharunsignedchar#defineuintunsignedintword.sbitlcdrs=P07;/液晶引脚定义sbitled_cs=P06;sbitlcden=P05;sbitboom=P36;sbitkey1=P35;sbitkey2=P34;sbitkey3=P33;sbitkeyE=P32;ucharnum,key1num,key2num,count,hour,min,sec,day,mon,year,shi,fen,miao,we

2、ek;charye1,ye2;ucharcodecg_1602=0 x08,0 x0f,0 x12,0 x0f,0 x0a,0 x1f,0 x02,0 x02,0 x0f,0 x09,0 x0f,0 x09,0 x0f,0 x09,0 x11,0 x00,0 x0f,0 x09,0 x09,0 x0f,0 x09,0 x09,0 x0f,0 x00,0 x08,0 x0f,0 x12,0 x0f,0 x0a,0 x1f,0 x02,0 x02,;/年代日/*延时函数*/voiddelay(uintxms)uinti,j;for(i=xms;i0;i-)word.for(j=114;j0;j-)

3、;/*1602液晶*/voidwrite_com(ucharcom)/写命令lcdrs=0;lcden=0;P2=com;delay(5);lcden=1;delay(5);lcden=0;voidwrite_data(uchardate)/写数据lcdrs=1;lcden=0;P2=date;delay(5);lcden=1;delay(5);lcden=0;word.voidwrite_by_xy(ucharx,uchary)/坐标定位ucharaddress;if(y=0)address=0 x80+x;/y=0,写第一行elseaddress=0 xc0+x;/y=1,写第二行writ

4、e_com(address);/*voidwrite_char(ucharx,uchary,uchardate)/坐标定位显示write_by_xy(x,y);/先定位write_data(date);/后写数*/voidwrite_string(ucharx,uchary,uchar*s)/写字符串write_by_xy(x,y);/设定显示地点while(*s)/writecharacterP2=*s;write_data(*s);word.s+;voidwrite_sfm(ucharadd,uchardate)/写时分秒函数ucharhour,ge;hour=date/10;/分解一个2

5、位数的十位和个位ge=date%10;write_com(0 x80+add);/设置显示地点write_data(0 x30+hour);/送去液晶显示十位write_data(0 x30+ge);/送去液晶显示个位voidwrite_cg()/写入固定汉字和符号write_com(0 x40);/设定CGRAM地点for(num=0;num31)/若大于31后将置一day=1;write_sfm(0 x48,day);/每调理一次送液晶显示一下write_com(0 x80+0 x48);/显示地点从头回到调理处if(key1num=5)/若功能键第五次按下mon+;/则调整月加1if(m

6、on12)/若大于12后将置一mon=1;write_sfm(0 x45,mon);/每调理一次送液晶显示一下write_com(0 x80+0 x45);/显示地点从头回到调理处if(key1num=6)/若功能键第六次按下ye2+;/则调全年加1if(ye2=0 x0a)/若满99后将清零ye2=0;year=ye1*100+ye2;word.write_sfm(0 x42,ye2);/每调理一次送液晶显示一下write_com(0 x80+0 x42);/显示地点从头回到调理处if(key1num=7)/若功能键第七次按下ye1+;/则调全年加100if(ye1=0 x0a)/若满99后

7、将清零ye1=0;year=ye1*100+ye2;write_sfm(0 x40,ye1);/每调理一次送液晶显示一下write_com(0 x80+0 x40);/显示地点从头回到调理处if(key1num=8)/若功能键第八次按下week+;/则调整周加一if(week7)/若大于7后置一week=1;write_sfm(0 x4f,week);/每调理一次送液晶显示一下write_com(0 x80+0 x4f);/显示地点从头回到调理处word.if(key3=0)delay(5);if(key3=0)/确认减小键被按下while(!key3);/按键开释if(key1num=1)/

8、若功能键第一次按下sec-;/则调整秒减1if(sec=-1)/若减到负数则将其从头设置为59sec=59;write_sfm(6,sec);/每调理一次送液晶显示一下write_com(0 x80+7);/显示地点从头回到调理处if(key1num=2)/若功能键第二次按下min-;/则调整分钟减1if(min=-1)/若减到负数则将其从头设置为59min=59;write_sfm(3,min);/每调理一次送液晶显示一下write_com(0 x80+4);/显示地点从头回到调理处word.if(key1num=3)/若功能键第三次按下hour-;/则调整小时减1if(hour=-1)/若

9、减到负数则将其从头设置为23hour=23;write_sfm(0,hour);/每调理一次送液晶显示一下write_com(0 x80+1);/显示地点从头回到调理处if(key1num=4)/若功能键第四次按下day-;/则调整天减1if(day=0)/若日为零时将置一day=31;write_sfm(0 x48,day);/每调理一次送液晶显示一下write_com(0 x80+0 x49);/显示地点从头回到调理处if(key1num=5)/若功能键第五次按下mon-;/则调整月减1if(mon=0)/若月为零将置一mon=12;word.write_sfm(0 x45,mon);/每

10、调理一次送液晶显示一下write_com(0 x80+0 x45);/显示地点从头回到调理处if(key1num=6)/若功能键第六次按下ye2-;/则调全年减1if(ye20)/若小于零后将设置为99ye2=99;year=ye1*100+ye2;write_sfm(0 x42,ye2);/每调理一次送液晶显示一下write_com(0 x80+0 x42);/显示地点从头回到调理处if(key1num=7)/若功能键第七次按下ye1-;/则调全年减100if(ye17)week=1;if(mon=1)if(day31)word.day=1;mon+;if(mon=2)if(year%4=0

11、&year%100!=0)|year%4=0)if(day29)day=1;mon+;elseif(day28)day=1;mon+;if(mon=3)word.if(day31)day=1;mon+;if(mon=4)if(day30)day=1;mon+;if(mon=5)if(day31)day=1;mon+;word.if(mon=6)if(day30)day=1;mon+;if(mon=7)if(day31)day=1;mon+;if(mon=8)if(day31)day=1;word.mon+;if(mon=9)if(day30)day=1;mon+;if(mon=10)if(day31)day=1;mon+;if(mon=11)if(day30)word.day=1;mon+;if(mon=12)if(day31)day=1;mon=1;ye2+;write_sfm(0 x4e,week);write_sfm(0 x48,day);write_sfm(0 x45,mon);write_sfm(0 x40,ye1);write_s