DS1302实时时钟.doc_第1页
DS1302实时时钟.doc_第2页
DS1302实时时钟.doc_第3页
DS1302实时时钟.doc_第4页
DS1302实时时钟.doc_第5页
已阅读5页,还剩7页未读 继续免费阅读

下载本文档

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

文档简介

DS1302 实时时钟/* LED_D(数码管段选) LED_W(数码管位选)*/#include#include#define uchar unsigned char#define uint unsigned int #define LED_W P2#define LED_D P0sbit LED=P32;sbit SCK=P34;sbit IO=P35;sbit RST=P36;sbit set=P10;sbit s1=P11;sbit s2=P12;uchar code table=0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f;/0-9uchar write_add=0x8c,0x8a,0x88,0x86,0x84,0x82,0x80;/年、星期、月份、日期、时、分、秒uchar read_add=0x8d,0x8b,0x89,0x87,0x85,0x83,0x81;/年、星期、月份、日期、时、分、秒uchar time_date7;/年、星期、月份、日期、时、分、秒uchar disp4;uchar num,setn,minite,hour;void delay(uint z)uint x,y;for(x=0;xz;x+);for(y=0;y110;y+);void Write_DS1302_Byte(uchar dat)uchar i;for(i=0;i1;SCK=1;void Write_DS1302(uchar add,uchar dat)RST=0;_nop_();SCK=0;_nop_();RST=1;_nop_();Write_DS1302_Byte(add);Write_DS1302_Byte(dat);RST=0;_nop_();IO=1;SCK=1;uchar Read_DS1302(uchar add)uchar i,value;RST=0;_nop_();SCK=0;_nop_();RST=1;_nop_();Write_DS1302_Byte(add);for(i=0;i1;SCK=0;if(IO)value=value|0x80;SCK=1;RST=0;_nop_();SCK=0;_nop_();SCK=1;IO=1;return value;uchar Chang_H_D(uchar dat)uchar t;t=dat/16*10+dat%16;return t;uchar Chang_D_H(uchar dat)uchar t;t=dat/10*16+dat%10;return t;void Read()uchar i;for(i=0;i7;i+)time_datei=Read_DS1302(read_addi);void timepro()disp0=time_date5%16;disp1=time_date5/16;disp2=time_date4%16;disp3=time_date4/16;void keyscan()if(set=0)delay(5);if(set=0)while(!set);setn+;LED=0;TR0=0;num=0;TH0=(65536-50000)/256;TL0=(65536-50000)%256;Write_DS1302(0x8e,0x00);delay(1);Write_DS1302(0x80,Chang_D_H(128);delay(1);Write_DS1302(0x8e,0x80);if(setn=3)setn=0;TR0=1;Write_DS1302(0x8e,0x00);delay(1);Write_DS1302(0x80,Chang_D_H(0);delay(1);Write_DS1302(0x8e,0x80);if(setn!=0)if(s1=0)delay(5);if(s1=0)while(!s1);Write_DS1302(0x8e,0x00);if(setn=1)minite=Chang_H_D(time_date5);minite+;if(minite=60)minite=0;Write_DS1302(0x82,Chang_D_H(minite);if(setn=2)hour=Chang_H_D(time_date4);hour+;if(hour=24)hour=0;Write_DS1302(0x84,Chang_D_H(hour);Write_DS1302(0x8e,0x80);void display()if(setn!=2)LED_W=1;LED_D=tabledisp0;delay(3);LED_D=0;LED_W=2;LED_D=tabledisp1;delay(3);LED_D=0;if(setn!=1)LED_W=4;LED_D=tabledisp2;delay(3);LED_D=0;LED_W=8;LED_D=tabledisp3;delay(3);LED_D=0;void init()TMOD=0x01; TH0=(65536-50000)/256;TL0=(65536-50000)%256;ET0=1; EA=1; TR0=1; num=0;setn=0;LED_W=0;LED_D=0;LED=1;void Shan()LED=LED;void main()init();while(1)Read();timepro();k

温馨提示

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

评论

0/150

提交评论