单片机设计的电子日历_第1页
单片机设计的电子日历_第2页
单片机设计的电子日历_第3页
单片机设计的电子日历_第4页
免费预览已结束,剩余4页可下载查看

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、电子日历程序#include<reg51.h>#define uchar unsigned char#define uint unsigned int#define shuju P0sbit rs=P20;sbit rw=P21;sbit en=P22;sbit stop=P30;/暂停sbit jia=P31;/ 加计数sbit jian=P32;/减计数继续uchar ci,num,shi,fen,miao,num20,nian=13,yue=12,ri=2,week,t;uchar code table1="2013-12-02Mon"uchar code

2、 table2="00:00:00"uchar code xingqi="MonTusWedThuFriSatSun"void delay(uint z);void xieins(uchar ins);void xieda(uchar da);void chushi();void display(uchar add,uchar dat);void keyscan();void xieweek();void main()chushi();while(1)keyscan();void delay(uint z)/延时 1msuint x,y;for(x=z;

3、x>0;x-)for(y=115;y>0;y-);void xieins(uchar ins)/ 写指令rs=0;rw=0;shuju=ins;en=0;delay(5);en=1;delay(5);en=0;void xieda(uchar da)/ 写数据rs=1;rw=0;shuju=da;en=0;delay(5);en=1;delay(5);en=0;void chushi()xieins(0x38);/功能设置8 位数据接口双行显示xieins(0x0c);/显示设置开启显示屏关闭光标光标不闪烁xieins(0x06);/输入模式设置光标右移一格且地址数加1xieins

4、(0x01);/清屏TMOD=0x01;TH0=(65536-50000)/256;TL0=(65536-50000)%256;EA=1;ET0=1;TR0=1;/开定时器0xieins(0x80);for(num=0;num<16;num+)xieda(table1num);/ 显示第一行delay(5);xieins(0xc4);for(num=0;num<8;num+)xieda(table2num);/显示第二行delay(5);void display(uchar add,uchar dat)/ 地址数据uchar shi,ge;shi=dat/10;ge=dat%10;

5、xieins(add);delay(5);xieda(shi+0x30);delay(5);xieda(ge+0x30);delay(5);void timer0() interrupt 1num20+;TH0=(65536-50000)/256;TL0=(65536-50000)%256;if(num20=20)num20=0;miao+;if(miao=60)miao=0;fen+;if(fen=60)fen=0;shi+;if(shi=24)shi=0;ri+;xieweek();/week+;if(ri=31)/ 可定意义变量ri=1;yue+;if(yue=13)yue=1;nian

6、+;display(0x82,nian);display(0x85,yue);display(0x88,ri);display(0xc4,shi);display(0xc7,fen);display(0xca,miao);void keyscan()if(stop=0)delay(10);if(stop=0)while(!stop);TR0=0;ci+;xieins(0x0f);/ 显示光标光标闪烁if(ci=1)xieins(0xcb);if(ci=2)xieins(0xc8);if(ci=3)xieins(0xc5);if(ci=4)xieins(0x8d);if(ci=5)xieins(

7、0x89);if(ci=6)xieins(0x86);if(ci=7)xieins(0x83);if(ci=8)ci=0;xieins(0x0c);TR0=1;if(jia=0)delay(10);if(jia=0)while(!jia);if(ci=1)miao+;if(miao=60)miao=0;display(0xca,miao);xieins(0xcb);if(ci=2)fen+;if(fen=60)fen=0;display(0xc7,fen);xieins(0xc8);if(ci=3)shi+;if(shi=24)shi=0;display(0xc4,shi);xieins(0x

8、c5);if(ci=4)week+;if(week=7)week=0;xieweek();/display(0x8d,week);xieins(0x8f);if(ci=5)ri+;if(ri=31)ri=1;display(0x88,ri);xieins(0x89);if(ci=6)yue+;if(yue=13)yue=1;display(0x85,yue);xieins(0x86);if(ci=7)nian+;display(0x82,nian);xieins(0x83);if(jian=0)delay(10);if(jian=0)while(!jian);if(ci=1)if(miao=0

9、)miao=60;miao-;display(0xca,miao);xieins(0xcb);if(ci=2)if(fen=0)fen=60;fen-;display(0xc7,fen);xieins(0xc8);if(ci=3)if(shi=0)shi=24;shi-;display(0xc4,shi);xieins(0xc5);if(ci=4)if(week=0)week=7;week-;xieweek();/display(0x8d,week);xieins(0x8f);if(ci=5)if(ri=1)ri=31;ri-;display(0x88,ri);xieins(0x89);if(ci=6)if(yue=1)yue=13;yue-;display(0x85,yue);xieins(0x86);if(ci=7)

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论