找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 4411|回复: 2
打印 上一主题 下一主题
收起左侧

八个数码管能显示:小时十位小时个位—分十位分个位—秒十位秒个位,其中独立按键P...

[复制链接]
跳转到指定楼层
楼主
ID:85192 发表于 2015-7-10 02:22 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 lianlian 于 2015-7-10 02:23 编辑

八个数码管能显示:小时十位小时个位—分十位分个位—秒十位秒个位,其中独立按键P3.2可以调节小时,每按一次加一,P3.3调节分,每按一次加一,P3.4调节分,每按一次减一。

最佳答案
这个电子钟程序已经基本符合你的要求。希望能对你有用。程序说明:显示的时间格式为:12-00-00,既,时-分-秒按键说明:P3.2为时调节。P3.3为分调节。P3.4为秒调节。这三个按键均是每按一次加一。晶振说明:12MHZ数码管说明:共阳数码管。共8个数码管。共用了两个4连共阳数码管。其中,P0口为数码管的段选,P2口为数码管的位选。本程序已通过实践验证!!!


汇编源程序如下:
SECOND  EQU 30H
MINITE  EQU 31H
HOUR    EQU 32H
HOURK   bit P3.2
MINITEK bit P3.3
SECONDK bit P3.4
dispBUF EQU 40H
dispbit EQU 48H
T2SCNTA EQU 49H
T2SCNTB EQU 4AH
TEMP    EQU 4BH
ORG 00H
LJMP START
ORG 0BH
LJMP INT_T0
START:MOV SECOND,#00H
      MOV MINITE,#00H
      MOV HOUR,#12
      MOV dispbit,#00H
      MOV T2SCNTA,#00H
      MOV T2SCNTB,#00H
      MOV TEMP,#0FEH
      LCALL disp
      MOV TMOD,#01H
      MOV TH0,#(65536-2000) / 256
      MOV TL0,#(65536-2000) MOD 256
      SETB TR0
      SETB ET0
      SETB EA
WT:JB SECONDK,NK1
   LCALL DELY10MS
   JB SECONDK,NK1
   INC SECOND
   MOV A,SECOND
   cjne A,#60,NS60
   MOV SECOND,#00H
NS60:LCALL disp
     JNB SECONDK,$
NK1:JB MINITEK,NK2
    LCALL DELY10MS
    JB MINITEK,NK2
    INC MINITE
    MOV A,MINITE
    cjne A,#60,NM60
    MOV MINITE,#00H
NM60:LCALL disp
     JNB MINITEK,$
NK2:JB HOURK,NK3
    LCALL DELY10MS
    JB HOURK,NK3
    INC HOUR
    MOV A,HOUR
    cjne A,#24,NH24
    MOV HOUR,#00H
NH24:LCALL disp
     JNB HOURK,$
NK3:LJMP WT  
DELY10MS:MOV R6,#10
      D1:MOV R7,#248
         djnz R7,$
         djnz R6,D1
         RET   
disp:MOV A,#dispBUF
     add A,#8
     dec A
     MOV R1,A
     MOV A,HOUR
     MOV B,#10
     div AB
     MOV @R1,A
     dec R1
     MOV A,B
     MOV @R1,A
     dec R1
     MOV A,#10
     MOV @R1,A
     dec R1
     MOV A,MINITE
     MOV B,#10
     div AB
     MOV @R1,A
     dec R1
     MOV A,B
     MOV @R1,A
     dec R1
     MOV A,#10
     MOV@R1,A
     dec R1
     MOV A,SECOND
     MOV B,#10
     div AB
     MOV @R1,A
     dec R1
     MOV A,B
     MOV @R1,A
     dec R1
     RET  
INT_T0:MOV TH0,#(65536-2000) / 256
       MOV TL0,#(65536-2000) MOD 256
       MOV A,#dispBUF
       add A,dispbit
       MOV R0,A
       MOV A,@R0
       MOV dptr,#TABLE
       MOVC A,@A+dptr
       MOV P0,A
       MOV A,dispbit
       MOV dptr,#TAB
       MOVC A,@A+dptr
       MOV P2,A
       INC dispbit
       MOV A,dispbit
       cjne A,#08H,KNA
       MOV dispbit,#00H
KNA:INC T2SCNTA
    MOV A,T2SCNTA
    cjne A,#100,done
    MOV T2SCNTA,#00H
    INC T2SCNTB
    MOV A,T2SCNTB
    cjne A,#05H,done
    MOV T2SCNTB,#00H
    INC SECOND
    MOV A,SECOND
    cjne A,#60,NEXT
    MOV SECOND,#00H
    INC MINITE
    MOV A,MINITE
    cjne A,#60,NEXT
    MOV MINITE,#00H
    INC HOUR
    MOV A,HOUR
    CJNE A,#24,NEXT
    MOV HOUR,#00H
NEXT:LCALL DISP
done:RETI
TABLE:db 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0BFH
TAB:db 0FEH,0FDH,0FBH,0F7H,0EFH,0DFH,0BFH,07FH
    END

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 顶 踩
回复

使用道具 举报

沙发
ID:85338 发表于 2015-7-11 13:56 | 只看该作者
还是用LCD显示更好一点
回复

使用道具 举报

板凳
ID:61140 发表于 2015-10-13 06:42 | 只看该作者
走时精度很难保证,一看电路布线分布电容,二看晶振精度了
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表