已阅读5页,还剩1页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
#include#include#include#define uchar unsigned char#define uint unsigned int uchar value,shi=23,fen=59,miao=50,SI;uchar code table16= 时 分 秒;uchar code table116=0123456789;void time_display(uchar add,uchar dat);sbit rs=P24;sbit rw=P25;sbit e=P26;/sbit rst=P23;sbit s1=P10;sbit s2=P11;sbit s3=P12;void delayu(uint t)while(-t);void delaym(uint t)while(-t)delayu(245);delayu(245);void write_com(uchar com)rs=0;rw=0;e=1;delayu(1);P0=com;delayu(10);e=0;void write_data(uchar date)rs=1;rw=0;e=1;delayu(1);P0=date;delayu(10);e=0;delayu(2);void scy()if(s1=0)delaym(10);if(s1=0)SI+;while(!s1);ET0=0; if(SI=1)write_com(0x84); write_com(0x0f);while(s1&s2&s3);if(SI=2)write_com(0x82);while(s1&s2&s3);if(SI=3)write_com(0x80);delayu(20);while(s1&s2&s3);if(SI=4)SI=0;write_com(0x0c);ET0=1;if(!SI=0)if(s3=0)delaym(10);if(s3=0)delaym(100);if(SI=1)miao-;if(miao=0) miao=60;time_display(4,miao);write_com(0x84);if(SI=2)fen-;if(fen=0) fen=60;time_display(2,fen);write_com(0x82);if(SI=3)shi-;if(shi=0) shi=24;time_display(0,shi);/将时间立即改变write_com(0x80);if(s2=0)delaym(10);if(s2=0)delaym(100);if(SI=1)miao+;if(miao=60)miao=0;time_display(4,miao);write_com(0x84);if(SI=2)fen+;if(fen=60)fen=0;time_display(2,miao);write_com(0x82);if(SI=3)shi+;if(shi=24)shi=0;time_display(0,miao);write_com(0x80);void init()write_com(0x30);delayu(10);write_com(0x30);delayu(10);write_com(0x0e);delayu(10);write_com(0x01);delayu(1);write_com(0x06);delayu(10);/write_com(0x1a);TMOD=0X01;TH0=(65536-50000)/256;TL0=(65536-50000)%256;TR0=1;EA=1;ET0=1; void time_display(uchar add,uchar dat)uchar ge,sh;ge=dat%10;sh=dat/10;write_com(0x80+add);write_data(0x30+sh);write_data(0x30+ge);write_com(0x80+add);void time_deal()if(value=20)value=0;miao+;if(miao=60) miao=0;fen+;if(fen=60)fen=0;shi+;if(shi=24)shi=0; if(s1=1)time_display(4,miao);time_display(2,fen);time_display(0,shi);void main()uchar i;init(); write_com(0x80);delayu(100);for(i=0;i12;i+)write_data(tablei); w
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 《GB-T 39443-2020公共信用信息交换方式及接口规范》专题研究报告
- 后疫情时代住院医师远程考核标准化整合策略
- 合并糖尿病的COPD社区康复策略调整
- 运营职场私域流量运营实战手册2026年
- 2025年国际海运保险合同
- 可穿戴心电设备在马拉松选手心律失常筛查中的专项方案
- 叙事医学与PBL教学模式的推广应用策略
- 变异株的中西医结合诊疗方案
- 变异株传播的消毒技术效果长期监测方案实施效果进展报告解读
- 2025浙江余姚市舜源供应链服务有限公司招聘12人考前自测高频考点模拟试题附答案
- 防止高处坠落培训
- 子痫患者的麻醉管理
- 2025年高考化学试卷(安徽卷)(空白卷)
- 2025年希望杯IHC真题-二年级(含答案)
- T/CSBME 065-2023医用敷料材料聚氨酯泡沫卷材
- 医疗废物管理工作督查记录表
- 幕墙安装工程专项施工方案
- 化工总控工职业技能鉴定考试题库大全-下(简答题)
- 销售区域承包合同条款3篇
- 气胸的教学查房
- 幼儿园小班音乐歌唱《碰一碰》课件
评论
0/150
提交评论