DS1302程序(带校准)，LCD1602显示

kinidrily

DS1302程序(带校准)，LCD1602显示
5 B# r6 V# y' c: ^0 e. z# X

DS1302(带校准)，LCD1602显示


#include<reg52.h>
#define uint unsigned int
#define uchar unsigned char
: K, y  {3 c; Iuchar a,miao,shi,fen,ri,yue,nian,week,flag,temp,key1n;
% R/ J' `. `0 G& J#define yh 0x80  //第一行的初始位置
( b1 u& L! W+ ]- u2 h) h! @1 B5 F#define er 0x80+0x40 //第二行初始位置
sbit dula=P2^6;
sbit wela=P2^7;
sbit wr=P1^1;
sbit rs=P1^0;
sbit en=P2^5;
sbit SCLK=P0^1;  // 6  P1.1
" F0 t9 W8 M# H! Ssbit IO=P0^2;    // 7  P1.0
+ G% _8 w! t. R: V" W) p; q! Zsbit RST=P0^3;   //时钟 5  P1.2
2 |6 }& f2 V5 D0 xsbit ACC0=ACC^0;
sbit ACC7=ACC^7;
- U) c9 d* y% d# z
sbit key1=P3^5;
1 U1 W# x4 I4 G. K) e$ U0 ^* vsbit key2=P3^6;
- O+ g+ f: j8 O! {$ fsbit key3=P3^7;
% Z$ Z9 z6 ~2 O7 I# A0 wuchar code tab1[]={"2009-  -   THU"};
( q4 d0 ]  x  k( ?. k. i0 Euchar code tab2[]={"  :  :  "};
# o4 f) W% {0 M0 _void delay(uint xms)//延时函数
{
        uint x,y;
2 |1 X: V9 A: Y        for(x=xms;x>0;x--)
9 j- [7 n9 `5 b4 r0 P! |, ?6 N         for(y=110;y>0;y--);
}
) V. }" Y; D( K+ a% D/******************液晶写入************************/
2 |, r" m  x! s6 hwrite_1602com(uchar com)//液晶写入指令函数
{
        rs=0;//置为写入命令
. v7 M7 j. j2 U* D6 r2 }- c7 t- I+ g        P0=com;//送入数据
& v  Z! U) }* o5 E/ z        delay(1);
        en=1;//拉高使能端
        delay(1);
        en=0;//完成高脉冲
. Y  n5 [/ {  e7 W8 ^}
write_1602dat(uchar dat)
{
9 D1 }& ?( N) d  I  ^        rs=1;//置为写入数据
& f: v8 y/ b1 V! }; K* v3 v; }- j        P0=dat;//送入数据
        delay(1);
        en=1;
        delay(1);
        en=0;
}
/*********************over***********************/
- k2 R/ E) I7 T1 T2 r7 h/********************ds1302****************************/
void write_byte(uchar dat)
{
9 B5 i4 F; x: E3 G; l6 i* O        ACC=dat;
        RST=1;
& j% C1 d+ m" G$ g) n1 _1 L9 I        for(a=8;a>0;a--)
, v8 j% E9 z8 ?; h3 @5 J- z  {        {
: f$ }$ X$ P6 d) i. z' ?2 M  R                IO=ACC0;
                SCLK=0;
) ^* `& s- }1 K% @4 I. V% y                SCLK=1;
                ACC=ACC>>1;
0 Z+ Y$ n6 N* D! v        }
1 `: F! {5 t2 \6 a5 q/ U+ }4 p( {}
uchar read_byte()
{
        RST=1;
        for(a=8;a>0;a--)
. k% f% @- b* C9 [        {
                ACC7=IO;
                SCLK=1;
                SCLK=0;
* [$ Q7 {6 K2 z1 M$ M3 o' p# b                ACC=ACC>>1;
  G2 N/ J/ P. r7 g( ]* C        }
        return (ACC);
}
. [8 I' d- @7 Z& H" i/ h2 M% Svoid write_1302(uchar add,uchar dat)
% o$ W& [: `. M; j% [" q{
* I$ B, N" K' |        RST=0;
! a9 _. q& H7 t& s+ U& {        SCLK=0;
7 `! m' v" Q7 h  g) F        RST=1;
* X. ], @, |4 F2 n& D+ g        write_byte(add);
        write_byte(dat);
& `# x& ?& h' U8 w6 ^        SCLK=1;
        RST=0;
3 X, ?# r/ v/ K9 s0 ^5 H$ `}
$ i# Z2 x9 w% k' Ouchar read_1302(uchar add)
* a- n+ r8 m  }4 O2 J+ `& u{
        uchar temp;
4 R( ]3 Q7 h" U1 U5 T/ r& ~        RST=0;
        SCLK=0;
        RST=1;
- a8 d& ]  x; G$ _' g        write_byte(add);
        temp=read_byte();
  e) m4 u. w5 p9 e, G2 K        SCLK=1;
/ w5 \; q; x$ x; z( p3 X        RST=0;
# @$ }8 d* x/ G: J: j) [  `5 w        return(temp);
4 _0 C% c: U0 M$ k! }" S1 j6 d; j( M}
uchar BCD_Decimal(uchar bcd)
{
uchar Decimal;
8 R) p! a( p+ k* Q  R Decimal=bcd>>4;
+ o  c1 w& `0 I- \ return(Decimal=Decimal*10+(bcd&=0x0F));
}
4 A9 U: U+ T3 J  I3 X' xvoid ds1302_init()
{
RST=0;
2 K! b- s; y$ d$ n" I/ x- aSCLK=0;
write_1302(0x80,miao|0x00);//允许写
$ n& c7 N& \' F5 a* a1 a}

, Y* `6 |  S7 D! @4 k$ M        
! e: |. K8 k- l5 u* T& Q. {7 M) \void write_sfm(uchar add,uchar dat)//写时分秒
{
        uchar gw,sw;
  H% H7 t6 b' \' A' B  K% Y        gw=dat%10;
        sw=dat/10;
        write_1602com(er+add);
        write_1602dat(0x30+sw);
        write_1602dat(0x30+gw);
                                
4 j6 ~8 X) L/ H0 L}
void write_nyr(uchar add,uchar dat)
4 Y/ N9 k; I/ V" y6 F9 R8 S{
( A: v. i# }8 h        uchar gw,sw;
        gw=dat%10;
9 S# }  |4 Y: I# P3 ?        sw=dat/10;
- c/ [4 h0 b2 E* h) d, o! d1 g2 ^# R        write_1602com(yh+add);
        write_1602dat(0x30+sw);
        write_1602dat(0x30+gw);
        
0 s' m! f' |) W6 Y, N, p, i9 Q( Z8 }4 W}
( B4 e4 L' g) [) x" kvoid write_week(uchar week)//写星期函数
{
        write_1602com(yh+0x0d);
4 D1 Y8 ?6 ^8 E* @  _) y" J        switch(week)
        {
                case 1:write_1602dat('M');
                           write_1602dat('O');
                           write_1602dat('N');
                           break;
% ~3 H: F9 O/ W3 u" z+ u% }           
$ @/ s. q: H) N* N5 M                case 2:write_1602dat('T');
                           write_1602dat('U');
5 C0 ]* Y% `* P2 e+ d4 F) V                           write_1602dat('E');
                           break;
               
                case 3:write_1602dat('W');
! Z( |5 i) F  u1 ^; h' j                           write_1602dat('E');
                           write_1602dat('D');
                           break;
' I8 {) R& {4 Q3 M               
8 ~% z' W3 z! I) E* ?                case 4:write_1602dat('T');
                           write_1602dat('H');
                           write_1602dat('U');
                           break;
8 j  V( g3 G/ X0 {               
4 f3 j+ p: ^( V: g; `5 a" h                case 5:write_1602dat('F');
                           write_1602dat('R');
0 e3 I& Z  d1 }                           write_1602dat('I');
+ R4 I) Z5 h6 v; @" I                           break;
: ], `* J% |1 d0 M( u               
                case 6:write_1602dat('S');
% H1 }& Z! H* M: v& J" W6 v                           write_1602dat('T');
                           write_1602dat('A');
                           break;
* s; `) k8 q8 R: Z, N               
  v7 ]. Y5 v1 Y# O$ P! N# p                case 7:write_1602dat('S');
% _4 r( n& V5 s2 A8 C- Z, R                           write_1602dat('U');
& l3 X- l# Y3 _1 K% h9 X8 p3 \! b                           write_1602dat('N');
, c6 j- \$ E9 \4 y9 o( [                           break;

) n" y8 F' M( Z' O$ A9 U}
) q6 _) p1 ^3 P1 i3 o

}
lcd_init()//液晶初始化函数
$ f8 ]7 E. n) Q- v: a  T8 B; E{       wr=0;
, @& g* W" X4 f        write_1602com(0x38);//设置液晶工作模式
        write_1602com(0x0c);//开显示不显示光标
, Z2 ^4 y, a* T4 ]- ^/ ?/ S        write_1602com(0x06);//整屏不移动，指针加一
9 q- X% Y% I. N: S& d$ P        write_1602com(0x01);
        write_1602com(yh+2);//字符写入的位置
$ M: w: ?+ b* O8 V: C. M        for(a=0;a<14;a++)
        {
" R- A: P. p9 M        write_1602dat(tab1[a]);
        //delay(3);
        }
* k, Z/ d; f4 [9 Y/ S, O8 U1 t! Y        write_1602com(er+4);
        for(a=0;a<8;a++)
        {
        write_1602dat(tab2[a]);
  k* H4 K$ Z! i+ Y; ~4 g        //delay(3);
' A, D( ~. A) r) H( n  C        }
}
void keyscan()
6 o8 d5 D1 J+ _% @{
        if(key1==0)//key1为功能键
& T# X+ {4 i/ z) D+ y+ }6 m        {
        delay(5);
        if(key1==0)
/ r* h" W  _* q6 ~2 m0 T7 q        {
, c- V- H) r/ J5 w        while(!key1);
" X$ @8 L: t. v) B- x8 l        key1n++;
        if(key1n==9)
                key1n=1;
" I/ _2 K- x% k4 h6 b6 ]0 v! {% z        switch(key1n)
        {
        
6 \; o4 r& w5 g* v" J3 i        case 1: TR0=0;//关闭定时器
                        //TR1=0;
' e% g( T' B% R  J* |                        write_1602com(er+0x0b);//写入光标位置
  g0 G, T! `" j8 ]+ R# M" W, z4 {, Y4 E                           write_1602com(0x0f);//设置光标为闪烁
                           temp=(miao)/10*16+(miao)%10;
                           write_1302(0x8e,0x00);
                           write_1302(0x80,0x80|temp);//miao
" |# }( ^% I- N# h4 d, H                           write_1302(0x8e,0x80);
                           break;
4 t5 m" D: C+ }, t' n' w        case 2:  write_1602com(er+8);//fen
  g1 J8 y1 Q# D& r8 F- j- l9 y                        
                     //write_1602com(0x0f);
. z" N* S& ], k* Y2 b8 {! C& N                        break;
        case 3: write_1602com(er+5);//shi
                     //write_1602com(0x0f);
7 `2 m+ P' H/ A7 P$ ^                        break;
7 e! j0 m) Z" L7 @# ]4 s        case 4: write_1602com(yh+0x0f);//week
                     //write_1602com(0x0f);
1 f+ P" s$ Z# P+ d3 O/ l8 C                        break;
. `' y  H; T3 w+ Y9 c2 j( R5 X2 j        case 5: write_1602com(yh+0x0b);//ri
5 s1 ]- X2 t/ a7 h: s: F) B                     //write_1602com(0x0f);
                        break;
        case 6: write_1602com(yh+0x08);//yue
                     //write_1602com(0x0f);
5 D5 F( ~( k) v; ?+ c                        break;
        case 7: write_1602com(yh+0x05);//nian
. f4 W8 Z: `" ]: R                     //write_1602com(0x0f);
                        break;
( L! Z  {8 L* ^+ H  V        case 8:
( J2 l" l; D' Q$ u4 v: _+ f1 P                        write_1602com(0x0c);//设置光标不闪烁
& c! ]% L  H  ?5 g3 q3 L1 ]2 p6 h/ |                        TR0=1;//打开定时器
                        temp=(miao)/10*16+(miao)%10;
/ U/ [6 I) ?5 {' T                           write_1302(0x8e,0x00);
                           write_1302(0x80,0x00|temp);//miao
2 e& X* j8 \( O7 K1 ?6 b                           write_1302(0x8e,0x80);
            break;
                                
+ F  J5 @2 n! U7 I                                                                                                        
                        
        }
. U* i0 ]2 j+ F% }! f        
        
) o7 P4 Q$ f$ v+ \8 D        }
; B- S3 l0 v7 y$ J9 s( U        }
        if(key1n!=0)//当key1按下以下。再按以下键才有效
# G4 j9 B: l6 d3 j2 v        {
$ \, |/ F' Y, B, W        
& @( x# m0 b; {0 s        if(key2==0)  //上调键
        {
+ z0 S# H* c1 F- `' B- }        delay(5);
0 U. p! G3 V2 Q        if(key2==0)
        {
        while(!key2);
$ N3 C4 o5 w0 V. o- t! ^3 r        switch(key1n)
* z/ `1 }1 g  q* Q        {
) Y" u) `& s9 z* F0 k8 v$ r2 Q        case 1:miao++;
$ q0 J3 c5 o# g$ C4 N; s6 v# N! }5 }                        if(miao==60)
                                miao=0;
) N" P/ o6 N1 J( D0 W0 w, ?  \                        write_sfm(0x0a,miao);//写入新的秒数
; `- _# J# D5 ^8 s  Z                        temp=(miao)/10*16+(miao)%10;
                           write_1302(0x8e,0x00);
                           write_1302(0x80,0x80|temp);
                           write_1302(0x8e,0x80);
1 t- m2 x7 z3 E+ `1 s' \                        write_1602com(er+0x0b);//因为设置液晶的模式是写入数据后，指针自动加一，在这里是写回原来的位置
8 _( `8 E/ {  r) ^6 K4 {                        //write_1602com(0x0b);
# v! ^0 L- ]1 a* E+ x                        break;
1 ?! j8 p5 q$ _4 W" t# q        case 2:fen++;
                        if(fen==60)
                                fen=0;
                        write_sfm(0x07,fen);
                        temp=(fen)/10*16+(fen)%10;
$ L' h8 j& n3 H2 X                           write_1302(0x8e,0x00);
                           write_1302(0x82,temp);
0 S3 y- @$ |5 y% C& {                           write_1302(0x8e,0x80);
, O) n1 B8 @: y1 \* Q8 D                        write_1602com(er+8);
, _0 \. y: ]0 q' q6 q7 _                        break;
        case 3:shi++;
7 |: r( c/ e* a                        if(shi==24)
                                shi=0;
7 _7 |1 \8 G' i5 A; O. v$ o' v                        write_sfm(4,shi);
                        temp=(shi)/10*16+(shi)%10;
                           write_1302(0x8e,0x00);
                           write_1302(0x84,temp);
                           write_1302(0x8e,0x80);
6 ~/ N# D7 T) d                        write_1602com(er+5);
& X3 x9 j) q/ {% \( r4 Q, {$ S( i- |                        break;
8 ~2 d% e8 t& N# G: S* {        case 4:week++;
  J8 A5 a% `9 T% L                        if(week==8)
                                week=0;
                                write_week(week);
                        temp=(week)/10*16+(week)%10;
- P7 ]6 u$ o8 E% @# S' |                           write_1302(0x8e,0x00);
                           write_1302(0x8a,temp);
4 ~& x. y8 S8 a                           write_1302(0x8e,0x80);
                        
                        write_1602com(yh+0x0f);
( e' v; i, t, S/ L6 a2 z/ @( |                        break;
- D1 t+ s% W3 _. p2 F) g, \5 R        case 5:ri++;
                        if(ri==31)
+ Y- _& G3 U& p" }$ }* D                                ri=0;
                        write_nyr(10,ri);
                        temp=(ri)/10*16+(ri)%10;
+ Y% y9 E9 O, m! j' Y2 T' p                           write_1302(0x8e,0x00);
                           write_1302(0x86,temp);
# `2 \" T9 Q' F( ?: }4 W% o* F( {                           write_1302(0x8e,0x80);
1 o& f: \, g. z& c) \, f5 I                        write_1602com(yh+11);
                        break;
        case 6:yue++;
                        if(yue==13)
  e1 Q1 P% K9 N6 W2 \! ?( E                                yue=0;
8 m" A/ A' E' o% _                        write_nyr(7,yue);
                        temp=(yue)/10*16+(yue)%10;
                           write_1302(0x8e,0x00);
' l( [- a8 `+ {' o! ?* z/ }* \6 h                           write_1302(0x88,temp);
                           write_1302(0x8e,0x80);
9 ?" N  K6 r% s5 j; [) g. t                        write_1602com(yh+8);
                        break;
        case 7:nian++;
                 if(nian==100)
                        nian=0;
# y( w/ P. _5 H1 b' D$ k6 W                        write_nyr(4,nian);
' z$ `& Z" T, W. }! M1 r# C% _7 t0 o( S  h                        temp=(nian)/10*16+(nian)%10;
                           write_1302(0x8e,0x00);
4 ^2 L' ?6 Z  R" W) L                           write_1302(0x8c,temp);
                           write_1302(0x8e,0x80);
                        write_1602com(yh+5);
4 Z( q5 y' H& w. r* [2 U* ]                        break;
0 H6 V# o8 f4 e  M* G' P! e                        
% J# _7 `8 A$ v        }
$ O/ d5 }9 o& n6 }        }
$ X0 B# [" p, U9 }4 p! X9 n% ~( y        }
        if(key3==0)
$ P/ |+ ?1 V4 c        {
* o. |1 ]% f# B: Z) M        delay(5);
2 }; G: d$ z# o        if(key3==0)
/ t5 H7 t3 O, X6 \# p$ J        {
' y" c- m; J) n& ~* j        while(!key3);
        switch(key1n)
4 f* w+ C$ z+ X& b( @& \( e        {
7 c$ L! F6 t" y& @                case 1:miao--;
                                if(miao==-1)
                                        miao=59;
4 A& k+ T$ R& W5 h( [4 P  G/ i( @                        write_sfm(0x0a,miao);//写入新的秒数
8 o% c: q% H. P5 c5 h% g6 k1 e: l) @                        write_1602com(er+0x0b);//因为设置液晶的模式是写入数据后，指针自动加一，在这里是写回原来的位置
' L# ]. J* p$ R0 s2 c, ]  s                        //write_1602com(0x0b);
                        break;
  v, m4 _, V# C: ]) N+ j% B                case 2:fen--;
                                if(fen==-1)
                                        fen=59;
                        write_sfm(7,fen);
                        temp=(fen)/10*16+(fen)%10;
                           
, X; ]) `$ x& x9 p  ?- K. C# A…………余下代码请下载附件…………

, L( w8 i$ X4 I
下载：
' Z5 U* X6 T4 d0 s5 J1 x8 I6 A0 Y

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

# c- M7 [+ B2 Q

) D! i5 U& V) w$ q# h/ o1 |

sunygd

楼主的代码很不错

zdmjjp

想学一下DS1302单片机校准，谢谢楼主帮助！

MyAnswer

代码不错，学习学习

不想不念

66666666666666666

6230343

[tr][td]想学一下DS1302单片机校准谢谢

( W; b5 T: {6 ^

阿飞7812

学习中，正好下载来看看

cH13145918943

学习中，下载了
/ `7 t, e( B5 j) }1 E- j

carlson-chuo

學習板大的精華，謝謝分享

lwjjz122

学习中,谢谢

dyx8899

感谢分享！好好学习，天天向上