51单片机DS1302的时钟源代码(掉电也能准确走时)

Allevi

51单片机DS1302的时钟源代码(掉电也能准确走时)

游客，如果您要查看本帖隐藏内容请回复

# @% k; `" _' H0 Z6 C+ i8 T
" z  s2 d$ L0 O+ |# \' x

装上纽扣电池，即使掉电也能准确走时 DS1302  51mcu  LCD1602显示时钟 年  月  日  星期 & J+ A; `6 [& K: ~5 }: A. F时  分  秒 6 N3 j/ |  [5 N" d  ] ; |) D5 @" c$ ~9 ?# A! R8 V硬件部分：（参见郭天祥51实验板） LCD1602 D0至D7接51MCU的P0口； + u' v( V% b6 _. T 2 H& b7 m2 @6 [' I5 QDS1302 RST接P1.1 " n: ~4 W4 O- s$ ZSCLK接P1.2 4 R' K; R9 S- V; }6 VSDA接P1.3 4 N9 ]6 ?$ X- x! k & F: Y3 t' C' G# m7 D% s按键（按键一端连接上拉电阻，另一端接地） 5 H; `. c' B4 Q  Z  P3 |/ gS1接 P3.0 S2接 P3.1 S3接 P3.2 ( C2 H8 P2 ~3 {2 z软件部分： 1.对DS1302内部的寄存器地址进行宏定义，定义变量以便存储 年月日 时分秒 星期 2.编写LCD1602写命令和写数据的子程序，编写显示年月日子程序，时分秒子程序以及显示星期的子程序。注意：从DS1302中读取的数据是两位BCD码，要注意转换。 3.编写DS1302读一个字节的子程序以及写一个字节的子程序，编写DS1302从对应的地址读和写数据的子程序。 4.按键分为三个功能键，增大键以及减小键。 " r: m' ?: T* D9 Z, W5 w3 y0 |9 X4 N) f部分程序： : T6 x: R9 C2 S5 O1 ~/ q/************************************************ . x" {8 l( p! r9 G* w) P*名称S1302WriteByte *说明:无 7 r1 e; ]( ^7 u; e( d; W- |*功能:写入8bit数据 *调用:delayus() 7 J/ \; n. r7 R8 q2 b7 }; H*输入:dat:要写入的数据 # C2 @8 C& d' T% Q/ L7 r' J4 v*输出:无 *************************************************/   L" u  S9 u" b8 q* W' Hvoid DS1302WriteByte(uchar dat) {     uchar i; 5 P: K6 |) c7 f: `8 {    SCLK=0;//初始时钟线置为0 * [2 j; e. L8 c+ b4 B( |    delayus(); . t' G0 K$ }; @# |( L& ~    for(i=0;i<8;i++)//开始传输8个字节的数据       { 6 d* b. c  E6 f( K  G& M. m         SDA=dat&0x01;//取最低位，注意DS1302的数据和地址都是从最低位开始传输的 ; M' K" N; A0 z/ W" s- R         delayus(); ! c- X0 I- ~( W/ d2 I9 V3 X8 e         SCLK=1;//时钟线拉高，制造上升沿，SDA的数据被传输          delayus(); , k  S3 d/ c# k% ~$ l, T$ n" ]6 j/ _, m$ K         SCLK=0;//时钟线拉低，为下一个上升沿做准备          dat>>=1;//数据右移一位，准备传输下一位数据       } 9 g' W$ A. p7 R2 y* r( T) c: }} 0 v' Y" n, I7 w! D2 K /************************************************ *名称S1302ReadByte() 4 R6 F; d" U* M" V' k: Q0 C7 |! F*说明:无 *功能:读取8bit的数据 9 k3 i! o1 N/ p  o# w1 g0 m*调用:delayus() ( i+ o4 {9 V6 y0 m) R1 ?*输入:无 *输出:dat:读取的数据 ) O/ z9 g; E; c2 v+ w$ N8 \*************************************************/ $ ~3 B4 Y$ V- J$ [3 ruchar DS1302ReadByte() 7 `" g% V' M. ]4 x! Q! m{ ) ~' e" f9 ]6 J# c$ o   uchar i,dat; & W+ C6 F: @- g. d* N+ `6 s9 A2 I. t5 W   delayus(); * A; Y; ~. t' E6 Q# e% G   for(i=0;i<8;i++)     { + ~" B* O: \3 O0 K( u       dat>>=1;//要返回的数据右移一位        if(SDA==1)//当数据线为高时，证明该位数据为1 ! J/ p7 l/ N6 d. a$ d9 [$ F         dat|=0x80;//要传输数据的当前值置为1,若不是,则为0 $ v% `, a' C4 f, A4 U1 g5 |       SCLK=1;//拉高时钟线        delayus();        SCLK=0;//制造下降沿        delayus();      }        return dat;//返回读取出的数据 8 @2 W" k) M, O& j2 | } / y8 ^  ~! W8 K+ v0 |3 ?2 _   }$ J0 i$ x; h" c/************************************************ 1 t3 D! q  d/ e0 y*名称:ucharDS1302Read() *说明:先写地址，后读数据 *功能:从cmd相应地址中读取一个字节的数据 *调用S1302WriteByte(),DS1302ReadByte() *输入:cmd:要写入的控制字节 *输出:dat:读取的数据 *************************************************/ uchar DS1302Read(uchar cmd) 6 D6 ?" S$ l$ e! f+ I2 R{ 6 j2 h. b9 l* s2 l+ R    uchar dat;    RST=0;//初始CE线置为0    SCLK=0;//初始时钟线置为0    RST=1;//初始CE置为1，传输开始 3 y8 {+ r3 k! G   DS1302WriteByte(cmd);//传输命令字，要读取的时间/日历地址       dat=DS1302ReadByte();//读取要得到的时间/日期 / G+ P1 G( U! F( Y4 I8 o+ j   SCLK=1;//时钟线拉高   v0 e( f8 q; C9 N' B* o& B   RST=0;//读取结束，CE置为0，结束数据的传输    return dat;//返回得到的时间/日期 } 7 t% Y4 _+ Q2 S. a% o % d2 `' b) n# X/************************************************ *名称:DS1302Write *说明:先写地址，后写数据 2 g2 M) m. |; A+ H. B! E( N*功能:向cmd相应地址中写一个字节的数据 *调用:DS1302WriteByte() 5 l: X" ^5 r) g1 b*输入:cmd:要写入的控制字,dat:要写入的数据 9 D+ ^3 b; O5 V" @( l- [0 r*输出:无 1 K& w& i5 d% W1 X* Q *************************************************/ void DS1302Write(uchar cmd,uchar dat) {    RST=0;//初始CE线置为0    SCLK=0;//初始时钟线置为0    RST=1;//初始CE置为1，传输开始 0 i8 W. x1 v& E- Q  S+ ?4 t( o5 C   DS1302WriteByte(cmd);//传输命令字，要写入的时间/日历地址 2 g6 |- s# M! O   DS1302WriteByte(dat);//写入要修改的时间/日期 ( p0 X2 e+ J$ Z' ?9 P, [6 U, W   SCLK=1;//时钟线拉高 ( s& a1 U2 i% [% ^4 J   RST=0;//读取结束，CE置为0，结束数据的传输 7 X) u/ c2 G' w; j4 Z, E8 p9 d+ G} # F" ?+ H" `. D " \1 i# p) S: b5 B4 ^+ d* | - I  P* D) _4 n9 w6 p0 q& u

, r" ?+ w3 n$ f  T

姗姗的shanshan

谢谢分享

lwjjz122

谢谢分享

fanichicl

写的不错 感谢分享

xuzwg

不错，谢谢分享