使用DS1302的时钟单片机程序 Lcd1602液晶显示

helendcany

使用DS1302的时钟单片机程序 Lcd1602液晶显示
* n4 f2 [9 A6 {# z

附件和图发：
; M& j7 d3 R1 C. Y( Z! x: ~
4 E% W- ?$ W  T8 U* H
51单片机源程序：
1 {$ }$ L, f% E- ^- h( _5 s#include<reg52.h>


struct sTime{  //日期时间结构体申明
        unsigned int year;
        unsigned char mon;
        unsigned char day;
. q3 K) X; p2 g* v# _1 M        unsigned char hour;
9 G+ j/ n# ~: p        unsigned char min;
4 N; D( N- O3 n) f' _3 m. z- D, N+ `        unsigned char sec;
( R; E6 Y" p$ v& w0 }        unsigned char week;
' t: a: T8 P+ R/ t};


" d6 K; U! |, C/ S7 ?* j; Ybit flag200ms = 1;         //200ms 定时标志
% z( a$ ]4 x# ~. [2 ~# Astruct sTime bufTime; //日期时间缓冲区
# E# n$ y2 T2 Z" V! ^) Hunsigned char setIndex = 0;        //时间设置索引 0 0 就表示正常运行，
unsigned char T0RH, T0RL;
3 M! B) P9 _) D* t

void RefreshTimeShow();
void ConfigTimer0(unsigned int ms);
7 |. ^* V8 B2 s2 _6 l. Eextern void KeyScan();
extern void KeyDriver();
; F1 G4 M6 y) K9 E( hextern void InitLcd1602();
1 S9 n2 u7 h5 J$ ^7 u5 Sextern void LcdOpenCursor();
extern void LcdCloseCursor();
, F! P8 r* ~# U  N0 B& _- B! ^( dextern void LcdSetCursor(unsigned char x, unsigned char y);
extern void LcdShowStr(unsigned char x, unsigned char y, unsigned char *str);
extern void InitDS1302();
- u" l. ?1 }# d8 cextern void SetRealTime(struct sTime *time);
extern void GetRealTime(struct sTime *time);


% t7 r0 A& o5 s5 _/ gvoid main()
# O- G0 G: v: m# R+ B+ f{
        unsigned char psec = 0xaa;        //秒备份，初值 AA 确保首次读取时间后刷新显示
* j! F. k, Z) \- d/ {$ ^$ l) I+ h) k

        EA = 1;
8 F; H8 W( y/ e' q) ^' G( p" B        ConfigTimer0(1);
) f2 ^) [; L8 k( x& O        InitLcd1602();
5 @; Z. [6 L- i# F8 K! }        InitDS1302();
  X, Y3 T2 W" {( b' U* d7 s$ x/ c        LcdShowStr(0, 0, "20  -  -   Week "); //初始化屏幕上固定不变的内容
2 h6 q: U1 |6 A8 O0 n* }        LcdShowStr(4, 1, "  :  :  ");

9 Z" c+ ]: B# D  \# Y
        while(1)
        {
                KeyDriver();         //调用按键驱动
                if(flag200ms && (setIndex == 0))
7 M7 O5 \. b1 Z" U) q5 }                {                                                                 
                        flag200ms = 0;                                 //每隔200ms且未处于设置状态时，
                        GetRealTime(&bufTime);             //获取当前时间
                        if(psec != bufTime.sec)                 //检测到时间有变化时刷新显示
                        {
6 I4 M  C/ ^" Y1 J                                RefreshTimeShow();
                                psec = bufTime.sec;                //用当前值更新上次秒数
                        }        
                }
        }
}
/* 将一个BCD码字节显示到屏幕上，(x,y)-屏幕起始坐标，bcd-待显示BCD码 */
$ w3 J" |) x/ O" t' H5 \$ Nvoid ShowBCDByte(unsigned char x, unsigned char y, unsigned char bcd)
  J% ^2 V) l. f; ?4 o) p2 s{
2 O2 g: C8 J- e. _        unsigned char str[4];
$ a5 |) l0 y% R7 @$ {, d

7 y& F, ?, U) F+ ^( u- `        str[0] = (bcd >> 4) + '0';
        str[1] = (bcd & 0x0f) + '0';
        str[2] = '\0';
/ x& E  \4 H$ L1 \) F0 `! Z% g        LcdShowStr(x, y, str);
# X4 ?1 J4 o* I2 S}
+ O' n& `0 n; \8 x6 i! S  q

void ShowBCDWeek(unsigned char x, unsigned char y, unsigned char bcd)
{
        unsigned char str[3];
/ s# K7 Y* O/ @# H: O/ J! O

: ]3 i+ ~4 X9 a  {  ]        str[0] = (bcd & 0x0f) + '0';
        str[1] = '\0';
. }# G) W. F+ B9 k1 @        LcdShowStr(x, y, str);
# K  z2 P/ h7 r4 N# B2 K1 B8 P}
/* 刷新日期时间的显示         */
void RefreshTimeShow()
4 o+ r5 ?5 y+ C/ ]& Q' S{
; G- T3 [- H5 I3 x3 u. y        ShowBCDByte(2, 0, bufTime.year);
        ShowBCDByte(5, 0, bufTime.mon);
1 a0 }9 e6 n7 }: p        ShowBCDByte(8, 0, bufTime.day);
. d3 U6 D1 a2 p7 e8 `2 e/ i        ShowBCDByte(4, 1, bufTime.hour);
# O' D3 k$ t$ T7 @        ShowBCDByte(7, 1, bufTime.min);
        ShowBCDByte(10, 1, bufTime.sec);
3 O7 j2 H6 ]) z4 r        ShowBCDWeek(15, 0, bufTime.week);               
0 J" R7 |8 R# V/ o, X}
/* 刷新当前设置位的光标指示    */
void RefreshSetCursorShow()
" ?3 f1 O9 e, z- k{
        switch(setIndex)
: N$ f9 S" q. e! @        {
                case 1: LcdSetCursor(2, 0); break;
6 ]: e. @9 f0 N2 ^1 S                case 2: LcdSetCursor(3, 0); break;
* |5 I. A" K8 r# [1 q  T1 l                case 3: LcdSetCursor(5, 0); break;
. T( b4 c( w$ z' x                case 4: LcdSetCursor(6, 0); break;
4 R( b2 a$ w2 U; C/ h' R3 A' g                case 5: LcdSetCursor(8, 0); break;
" I+ V8 M5 V5 r' t                case 6: LcdSetCursor(9, 0); break;
+ B, [4 l: }4 E8 w5 v/ y  Q                case 7: LcdSetCursor(4, 1); break;
                case 8: LcdSetCursor(5, 1); break;
                case 9: LcdSetCursor(7, 1); break;
                case 10: LcdSetCursor(8, 1); break;
. N. G2 D/ p: o( }4 R& M7 R                case 11: LcdSetCursor(15, 0); break;
7 n8 p1 G8 _2 c" M- e                default: break;
2 k* k) ]7 E2 `. y# L; x        }
& X, B# z. d4 I1 K4 x1 Z% T" u4 m}        

) o- R1 a8 [5 t; @
. a, O. z5 u! a  ^  a# Junsigned char DecrBCDHight(unsigned char bcd)
$ R/ n0 p- P' A- e+ m{
4 `7 z* V1 u/ ~1 C& L( X0 U- J



/ ?6 a) d$ X7 ^) b7 T* f        if((bcd & 0xf0) > 0x00)
- Z8 h7 s: H6 G- s1 u# k4 T        {
- u! _1 k) |' T$ L8 {* u# o- R                bcd -= 0x10;
, g% L! j: v( d/ }, E  r        }
* \" ?, r0 R* M        else
1 v" c3 x7 U1 X+ R6 R        {
                if(setIndex == 1)
                        bcd        |= 0x90;
                else if(setIndex == 3)
5 Z( K' f- v; X+ M  C6 m9 N- V; o                        bcd |= 0x10;
                else if(setIndex == 5)
/ ?% {  \0 ?) b8 l! |! F0 k3 f4 H. G                        bcd |= 0x30;
                else if(setIndex == 7)
: J9 X2 i) M; ]9 g& X0 _                        bcd |= 0x20;
                else if((setIndex == 9))
* W8 s  q& g" W$ B  H  ^* G* K  F" w; E) o                        bcd |= 0x60;
" f7 z1 @1 Q1 M2 V        }
        
        return bcd;
, J5 ]. X) P! N; \- X) \}

2 q4 D! t* x5 y: i$ r: i1 Y
unsigned char DecrBCDLow(unsigned char bcd)
2 V2 i# S$ b' e2 ~; `{
; R2 {8 w* Y7 b- v

" f) o. F' N; ^5 _8 [% L
8 _! @0 R3 e3 _
, a8 }9 e5 l, J" e        if((bcd & 0x0f) > 0x00)
( U( r4 t7 j* \& e9 t        {
7 [5 W. Y% K* l- ]                bcd -= 0x01;
& T" O- c4 y  |        }
        else if(setIndex == 11)
( _+ [. |, g& _  o/ _* ?        {
                bcd |= 0x07;
9 z$ p- Z, m6 w' N        }
$ ^# p) W) t2 s2 m. U& P8 |  j        else
3 m  ~- B( _/ u7 j5 U2 P, l        {
                bcd        |= 0x09;
7 k" W$ F! _/ ^) M7 r! o: U: p- o        }
        
        return bcd;
' F1 N# e$ J( b: ]}


; }# w% Q; s8 H* K7 ]unsigned char IncrBCDHight(unsigned char bcd)
" O5 ~! Z8 S1 ]% m' Q" b# a; @{
0 z, Y0 _& t, T( A( x, i        if((setIndex == 1)&&((bcd & 0xf0)< 0x90))
; y6 s6 }3 z  |1 E. Y, [5 g        {
                        bcd += 0x10;
        }
        else if((setIndex == 3)&&(bcd < 0x10))
        {
                        bcd +=0x10;
+ |3 v# v- G# f# {  ]2 V# D        }
% \7 c7 S; ]! D$ }6 }, w* e        else if((setIndex == 5)&&(bcd < 0x30))
        {
                        bcd += 0x10;
* M( l4 R7 c2 {4 `        }
        else if((setIndex == 7)&&(bcd < 0x20))
        {
                        bcd += 0x10;
# q5 M: l5 h% `2 q        }
        else if(setIndex == 9)
% j1 L4 ?# n" V9 ?; @# G* p( v/ ^        {
. Y0 C% o2 w) s7 j                        bcd += 0x10;
" H/ I9 w! o% K* V. I        }                                   
        else if(setIndex == 11)
        {
                if(bcd < 0x07)
- s3 I) @2 }) w$ U1 f                {
                        bcd++;
% t- A% S- m  r$ O, W& g                }
                else
+ t" R/ _3 H6 D( W                {
; C  i9 z3 O- n) S, o- v4 p8 L+ B                        bcd = 0x01;
                }
# I8 R4 s2 @$ T6 U        }
- h$ Y* Y6 a  {- r        else
, c" B/ [5 j, w        {
: Y( h' h2 {- k, Y  l                bcd        &= 0x0f;
        }
        
        return bcd;
* I- {- D) G% C0 T1 ^5 b6 j6 T}

; W0 k, @. D& t/ y8 I" n
8 ?* a4 r" p# @. h3 ]7 U* bunsigned char IncrBCDLow(unsigned char bcd)
* k5 U$ H5 m( o2 F0 l# t4 g6 p8 Q{
    if(setIndex != 11)
        {
0 w+ p: x1 a9 s) L4 O; P. `; z                if ((bcd&0x0F) < 0x09)
                bcd += 0x01;
            else
2 C8 v4 e+ d- W0 r                bcd &= 0xF0;
        }
5 s  E% Y# ?9 S! ~5 P; n1 ^2 n        else
        {
$ e+ }. P$ |- s$ C6 V) p                if ((bcd&0x0F) < 0x07)
                bcd += 0x01;
& g0 O% j# Z1 E3 k9 ~            else
, k* b4 j7 ]3 _8 W- k                bcd &= 0x01;
        }
0 p3 n3 R- [7 \2 ]+ A7 P. m) s   
, U% |( q; s! k! }! P' R+ \  }    return bcd;
" z$ L6 r2 z; Z4 [- p}
  ]' K7 \" L' }" a1 h, J/* 递增当前设置位的值          */
void IncrSetTime()
) U/ Q& H8 F6 h2 O{
$ P) m: D/ F; x. E% J( R        switch(setIndex)
& l! D. K0 J+ R# t  I% |        {
                case 1: bufTime.year = IncrBCDHight(bufTime.year); break;
                case 2: bufTime.year = IncrBCDLow(bufTime.year); break;
                case 3:        bufTime.mon = IncrBCDHight(bufTime.mon); break;
3 U5 n( x/ _) K8 f                case 4:        bufTime.mon = IncrBCDLow(bufTime.mon); break;
                case 5: bufTime.day = IncrBCDHight(bufTime.day); break;
) A: K% X5 H% d- @! u                case 6:        bufTime.day = IncrBCDLow(bufTime.day); break;
; z6 b* u- [# {2 P) H  t                case 7: bufTime.hour = IncrBCDHight(bufTime.hour); break;
* W/ [" V2 U( ]( q) R1 }4 K, F                case 8:        bufTime.hour = IncrBCDLow(bufTime.hour); break;
- j. K. D( [2 d                case 9: bufTime.min = IncrBCDHight(bufTime.min); break;
+ p$ a3 y- H% v  r! j( `                case 10: bufTime.min = IncrBCDLow(bufTime.min); break;
( e* U; C1 t; p) h3 F                case 11: bufTime.week = IncrBCDLow(bufTime.week); break;
, R1 [8 w; ]' a; S- m: |( ^; D2 u                default: break;
9 w, {5 _. L7 p& c        }
7 P/ `1 d7 d* J! O; c4 K        RefreshTimeShow();
6 A- P3 `7 I2 k! B* {/ }        RefreshSetCursorShow();
2 x3 ~$ }% P, f$ K$ F}
/ ^, f  }8 p+ A. i/* 递减当前设置位的值           */
& e  `9 E2 d1 r2 n( X/ w9 _6 N' dvoid DecrSetTime()
{
% Q! V0 C9 v6 j8 l6 }        switch(setIndex)
& I; p+ u- r) l6 t' m        {
3 L, \4 {2 p/ R2 D# j9 r                case 1: bufTime.year = DecrBCDHight(bufTime.year); break;
                case 2: bufTime.year = DecrBCDLow(bufTime.year); break;
                case 3:        bufTime.mon = DecrBCDHight(bufTime.mon); break;
, v# e( q2 }: P( q  U- U2 N& k                case 4:        bufTime.mon = DecrBCDLow(bufTime.mon); break;
                case 5: bufTime.day = DecrBCDHight(bufTime.day); break;
                case 6:        bufTime.day = DecrBCDLow(bufTime.day); break;
" C7 g. z! J; e# o! i' v, g                case 7: bufTime.hour = DecrBCDHight(bufTime.hour); break;
7 L6 h7 I7 A; t- Q. T5 l                case 8:        bufTime.hour = DecrBCDLow(bufTime.hour); break;
1 a% }3 z1 k# i3 ~8 \. R                case 9: bufTime.min = DecrBCDHight(bufTime.min); break;
2 R# |  O" H$ G                case 10: bufTime.min = DecrBCDLow(bufTime.min); break;
) t. Y1 Y" ~5 V2 w                case 11: bufTime.week = DecrBCDLow(bufTime.week); break;
: Q7 H5 U: Y; b                default: break;
/ X: ~: p  w9 U% P7 h9 Q        }
+ i$ B! |! s5 g0 P        RefreshTimeShow();
        RefreshSetCursorShow();
% o- X8 @* V( n  Z2 ^}
/* 左移设置位         */
2 P2 K" H) ^; n: w9 ^void LeftShiftTimeSet()
{
        if(setIndex != 0)
& r. z- e, @# s! E6 v& r- J        {
                if(setIndex > 1)
                        setIndex--;
                else
# {" }5 U6 ~& z& O                        setIndex = 11;
. a  G( O2 |/ ^- I$ E& u* [! t  c                RefreshSetCursorShow();
        }
}
/* 右移设置位           */
' T; a# l! q+ t' E# m* R8 w2 M6 Nvoid RightShifTimeSet()
{
6 V7 b) V' B& z8 C        if(setIndex != 0)
9 O! r, g$ u( L        {
                if(setIndex < 11)
                        setIndex++;
  O* I  {5 ~+ \) A& O; Y                else
                        setIndex = 1;
; s1 @% q6 F# A; e$ ~                RefreshSetCursorShow();        
8 g9 \1 Z9 P- ^* H. F/ E3 `- f        }
}
8 t% T$ ]% ~. \- ^$ l/* 进入设置状态         */
: B( y: z3 Z1 G- kvoid EnterTimeSet()
' @; b% }# j. D* E, J. ?{
        setIndex = 2;          //把设置索引设置为2，即可进入设置状态
7 T: g8 t; k/ h3 W        LeftShiftTimeSet(); //再利用现成的左移操作移到位置1并完成显示刷新
        LcdOpenCursor();   //打开光标闪烁效果
}
3 h! [0 ^6 Q) G/* 退出设置状态，save-是否保存当前设置的时间值         */
, j9 e2 d# ]/ x* l0 x" S: Kvoid ExitTimeSet(bit save) //save = 1 保存，save = 0 不保存
{
) C( {- F- F( H6 s; |$ D; A8 K. ~        setIndex = 0;           //把设置索引设置为0，即可退出设置状态
4 W  p; j2 q4 n2 N2 `. |8 K        if(save)                   //需保存时即把当前设置时间写入DS1302
! ?6 K8 H' }% B4 t5 F/ x0 R0 ^                SetRealTime(&bufTime);
1 ?9 @  s6 b/ y) ]: f        LcdCloseCursor();        //关闭光标显示
}
) M- }$ K4 V% w' c" b/* 按键动作函数，根据键码执行相应的操作，keycode-按键键码 */
; V4 g' B2 h. d  |2 X3 j! Svoid KeyAction(unsigned char keycode)
{
        if((keycode >= '0')&&(keycode <= '9'))//不响应字符键
        {}
        else if((keycode == 0x26)) //向上键，递增当前设置位的值
3 y; d- s0 Z' _        {
0 ~7 U  n- U* U8 T/ c: f3 K                IncrSetTime();
        }
        else if(keycode == 0x28)          //向下键，递减当前设置位的值
        {
: `1 r( p# @& c; |4 K' G" L                DecrSetTime();
        }
        else if(keycode == 0x25)        //向左键，向左切换设置位
        {
5 s" `+ T2 G% _$ o9 ^0 A" H) J                LeftShiftTimeSet();
        }
        else if(keycode == 0x27)   //向右键，向右切换设置位
        {
, j1 Q: A8 r% y& n$ x                RightShifTimeSet();
; X+ z8 g6 y- ^8 R2 F; f* _9 N; u        }
        else if(keycode == 0x0d)  //回车键，进入设置模式/启用当前设置值
+ K' O9 z% u) K1 [$ _2 y: h% R        {
- L4 b8 ]. B  F7 r& T) _5 M. X                if(setIndex == 0)         //不处于设置状态时，进入设置状态
                {
9 w  _# Q' C7 ^2 E6 B! d. a: ]                        EnterTimeSet();
" Q. s. k. U7 ^: y% O6 I) o                }
                else                        //已处于设置状态时，保存时间并退出设置状态
                {
                        ExitTimeSet(1);
- F: c4 c0 _2 u3 K( U                }
) @1 z- E* h1 Y3 E( Q; e  p- h        }
7 c5 J  @7 i. l3 @. K5 J! M7 m+ c* w4 o& Q        else if(keycode == 0x1b) //Esc键，取消当前设置
9 f" J% Z; ?2 h1 Q( T& p7 N1 {        {
/ o9 G! f( A( |4 k* `8 n  e$ w                ExitTimeSet(0);
1 b' m  C5 L; R) z. E, i        }
  ?4 ]+ m5 @0 t2 g}                           


void ConfigTimer0(unsigned int ms)
{
, H! l( \( J0 K- T1 f1 ]; P& s        unsigned long tmp;
. @# h) c; q5 M* N1 C

        tmp = 11059200 / 12;
9 \; v' m' v0 j' ~0 s9 ?- g        tmp = tmp * ms / 1000;
; ^1 n% U/ A% j+ ^- o        tmp = 65536 - tmp;
        tmp = tmp + 28;
        T0RH = (unsigned char)(tmp >> 8);
8 Y2 N$ ]; s+ `% w        T0RL = (unsigned char)tmp;
        TMOD = (TMOD & 0xf0)|0x01;
; M9 y! @% ^) [) ?% d( @7 E        TH0 = T0RH;
2 j& h& X( L7 K3 m        TL0 = T0RL;
        ET0 = 1;
        TR0 = 1;
2 O2 U6 [. u7 ^9 N}

, a: D$ U0 O% [- K. L6 D( ]
void IntTimer0() interrupt 1
' i( i! K2 r. h5 F! [+ x{
        static unsigned char tmr200ms = 0;


5 v  a: v( P' E, I8 e, Z2 _' H        TH0 = T0RH;
        TL0 = T0RL;
* b% d$ ^" i; w" K- m+ W
: R, \/ r( ^5 C; S: Y7 i2 U
        KeyScan();
3 Z, G* B7 L7 J% c, K& g        tmr200ms++;
0 M3 d$ }" _0 S3 [" l6 w$ R' r3 E: E        if(tmr200ms >= 200)
        {
                tmr200ms = 0;
                flag200ms = 1;
% o! `1 M8 `! c) q7 Y! M        }
}

  {7 v- F7 p  x( w+ [9 M. P
* Z4 l: ~+ J) R# _下载：
2 m. j5 {+ a( |1 r  |9 Z* E

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

8 _( a3 s! F5 B3 m/ |

sunygd

不错，看看楼主是怎么弄的

小窗子

66666666666666