应rdrd888的要求，上一个数字钟的电路

rdrd888

每小时慢20秒?那程序应该没问题哦.是不是你的晶振不良啊,换个优质的晶振试试

rdrd888

帮人要帮到底,谢谢你!
这句话挺压韵的.

nnn2688

这个我就无能为力了，我也只能简单的改改字形表什么的，别的地方我也看不懂。我只能把汇编的源程序贴出来，你自己研究吧。
我倒是觉得应该在
MOV TH0,#(65536-2000) / 256
MOV TL0,#(65536-2000) MOD 256
这两个语句上改才对。

1. ;89C51时钟程序
   
2. ;显示方式为13-34-56
   
3. ;P0口输出段数据,P2口输出位数据
   
4. ;P1.0校时,P1.1校分,P1.2校秒
   
5. ;晶振12MHz,共阳数码管
   
6. 
   
7.       SECOND EQU 30H
   
8.       MINITE EQU 31H
   
9.       HOUR EQU 32H
   
10.       HOURK BIT P1.0
    
11.       MINITEK BIT P1.1
    
12.       SECONDK BIT P1.2
    
13.       DISPBUF EQU 40H
    
14.       DISPBIT EQU 48H
    
15.       T2SCNTA EQU 49H
    
16.       T2SCNTB EQU 4AH
    
17.       TEMP EQU 4BH
    
18. 
    
19.       ORG 00H
    
20.       LJMP START
    
21.       ORG 0BH
    
22.       LJMP INT_T0
    
23.       START: MOV SECOND,#00H
    
24.       MOV MINITE,#00H
    
25.       MOV HOUR,#12
    
26.       MOV DISPBIT,#00H
    
27.       MOV T2SCNTA,#00H
    
28.       MOV T2SCNTB,#00H
    
29.       MOV TEMP,#0FEH
    
30.       LCALL DISP
    
31.       MOV TMOD,#01H
    
32.       MOV TH0,#(65536-2000) / 256               ;是不是应该在这个地方改呢？
    
33.       MOV TL0,#(65536-2000) MOD 256        ;;是不是应该在这个地方改呢？
    
34.       SETB TR0
    
35.       SETB ET0
    
36.       SETB EA
    
37.       WT: JB SECONDK,NK1
    
38.       LCALL DELY10MS
    
39.       JB SECONDK,NK1
    
40.       INC SECOND
    
41.       MOV A,SECOND
    
42.       CJNE A,#60,NS60
    
43.       MOV SECOND,#00H
    
44.       NS60: LCALL DISP
    
45.       JNB SECONDK,$
    
46.       NK1: JB MINITEK,NK2
    
47.       LCALL DELY10MS
    
48.       JB MINITEK,NK2
    
49.       INC MINITE
    
50.       MOV A,MINITE
    
51.       CJNE A,#60,NM60
    
52.       MOV MINITE,#00H
    
53.       NM60: LCALL DISP
    
54.       JNB MINITEK,$
    
55.       NK2: JB HOURK,NK3
    
56.       LCALL DELY10MS
    
57.       JB HOURK,NK3
    
58.       INC HOUR
    
59.       MOV A,HOUR
    
60.       CJNE A,#24,NH24
    
61.       MOV HOUR,#00H
    
62.       NH24: LCALL DISP
    
63.       JNB HOURK,$
    
64.       NK3: LJMP WT
    
65.       DELY10MS:
    
66.       MOV R6,#10
    
67.       D1: MOV R7,#248
    
68.       DJNZ R7,$
    
69.       DJNZ R6,D1
    
70.       RET
    
71.       DISP:
    
72.       MOV A,#DISPBUF
    
73.       ADD A,#8
    
74.       DEC A
    
75.       MOV R1,A
    
76.       MOV A,HOUR
    
77.       MOV B,#10
    
78.       DIV AB
    
79.       MOV @R1,A
    
80.       DEC R1
    
81.       MOV A,B
    
82.       MOV @R1,A
    
83.       DEC R1
    
84.       MOV A,#10
    
85.       MOV@R1,A
    
86.       DEC R1
    
87.       MOV A,MINITE
    
88.       MOV B,#10
    
89.       DIV AB
    
90.       MOV @R1,A
    
91.       DEC R1
    
92.       MOV A,B
    
93.       MOV @R1,A
    
94.       DEC R1
    
95.       MOV A,#10
    
96.       MOV@R1,A
    
97.       DEC R1
    
98.       MOV A,SECOND
    
99.       MOV B,#10
    
100.       DIV AB
     
101.       MOV @R1,A
     
102.       DEC R1
     
103.       MOV A,B
     
104.       MOV @R1,A
     
105.       DEC R1
     
106.       RET
     
107.       INT_T0:
     
108.       MOV TH0,#(65536-2000) / 256               ;是不是应该在这个地方改呢？
     
109.       MOV TL0,#(65536-2000) MOD 256        ;是不是应该在这个地方改呢？
     
110.       MOV A,#DISPBUF
     
111.       ADD A,DISPBIT
     
112.       MOV R0,A
     
113.       MOV A,@R0
     
114.       MOV DPTR,#TABLE
     
115.       MOVC A,@A+DPTR
     
116.       MOV P0,A
     
117.       MOV A,DISPBIT
     
118.       MOV DPTR,#TAB
     
119.       MOVC A,@A+DPTR
     
120.       MOV P2,A
     
121.       INC DISPBIT
     
122.       MOV A,DISPBIT
     
123.       CJNE A,#08H,KNA
     
124.       MOV DISPBIT,#00H
     
125.       KNA: INC T2SCNTA
     
126.       MOV A,T2SCNTA
     
127.       CJNE A,#100,DONE
     
128.       MOV T2SCNTA,#00H
     
129.       INC T2SCNTB
     
130.       MOV A,T2SCNTB
     
131.       CJNE A,#05H,DONE
     
132.       MOV T2SCNTB,#00H
     
133.       INC SECOND
     
134.       MOV A,SECOND
     
135.       CJNE A,#60,NEXT
     
136.       MOV SECOND,#00H
     
137.       INC MINITE
     
138.       MOV A,MINITE
     
139.       CJNE A,#60,NEXT
     
140.       MOV MINITE,#00H
     
141.       INC HOUR
     
142.       MOV A,HOUR
     
143.       CJNE A,#24,NEXT
     
144.       MOV HOUR,#00H
     
145.       NEXT: LCALL DISP
     
146.       DONE: RETI
     
147.       TABLE:
     
148.         DB        0C0H;0
     
149.         DB        0F9H;1
     
150.         DB        0A4H;2
     
151.         DB        0B0H;3
     
152.         DB        099H;4
     
153.         DB        092H;5
     
154.         DB        082H;6
     
155.         DB        0F8H;7
     
156.         DB        080H;8
     
157.         DB        090H;9
     
158.         DB        0BFH;-
     
159.         TAB: DB 7FH,0BFH,0DFH,0EFH,0F7H,0FBH,0FDH,0FEH
     
160.       END
     
161. 

复制代码

110919645

数字源钟程序+电路图http://www.y007.com/danpianji/ShowArticle.asp?ArticleID=3451    不过我的晶震是新的换了4个12MHZ的都不行还是慢，最后换了一个军机拆的美国的超低温稳频晶体震荡器，可还是每小时慢16秒这样24小时会慢384秒=6.4分钟，应该是程序的错误！！希望大家帮忙改一下！！！

仙猫

俺没玩过51，也不懂51汇编。不过看了哈楼上恩恩恩2688给出的程序清单，觉得除去要确认定时器常数外，中断服务程序里是不应重置定时器，而应利用硬件的自动重装功能的，因为软件重装会造成积累误差！
不知现在用的T0有没有自动重装功能，不行的话要换个定时器。

110919645

;89C51时钟程序
     ;显示方式为13-34-56
    0口输出段数据,P2口输出位数据
    1.0校时,P1.1校分,P1.2校秒
    ;晶振12MHz,共阳数码管

      SECOND EQU 30H
      MINITE EQU 31H
      HOUR EQU 32H
      HOURK BIT P1.0
      MINITEK BIT P1.1
      SECONDK BIT P1.2
      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;0
        DB        0F9H;1
        DB        0A4H;2
        DB        0B0H;3
        DB        099H;4
        DB        092H;5
        DB        082H;6
        DB        0F8H;7
        DB        080H;8
        DB        090H;9
        DB        040H;- DB 05H,0DDH,46H,54H,9CH,34H,24H,5DH,04H,14H,0FEH
      TAB: DB 7FH,0BFH,0DFH,0EFH,0F7H,0FBH,0FDH,0FEH
      END

[ 本帖最后由 110919645 于 2007-12-2 08:29 编辑 ]

110919645

我的晶震是新的换了4个12MHZ的都不行还是慢，最后换了一个军机拆的美国的超低温稳频晶体震荡器，可还是每小时慢16秒这样24小时会慢384秒=6.4分钟，应该是程序的错误！！希望大家帮忙改一下！！！

仙猫

再次读了一哈程序，看出它走表不是靠硬件，而是靠软件楞凑的clock数，这样肯定做不了很准。
不是俺上面猜测的定时器重装问题，定时器只被用来做扫描，其实扫描倒是准不准无所谓的。

[ 本帖最后由 仙猫 于 2007-12-3 00:58 编辑 ]

110919645

希望大家帮忙改一下！！！

110919645

可不可以帮我改一下，难道论坛里没有高手吗？我在电脑前等了3天了，一点回音都没有，难道就没一个人来解决一下？，我看这个帖子如果没人解决，就绝对不可以加入精华，因为没有用的帖子是算不上是精华，因为不够资格。
  尤其是我这样的出学者，看完了帖子，会被误捣的！！！！！

rdrd888

呵呵.面对现实吧,小弟

110919645

    不是要面对现实，要有人提出解决意见和方法，就个人看法，如果这样没人解决的帖子，就不要存活在这里，以免影响环境，般主也要负有一定的责任，这里只有版主是高手，如果向这样推卸责任的话，那大家的论坛就不是论坛了，变成了辩论，推卸，废坛了！难道就没一个人站出来解决问题，只是在推卸责任{是谁谁说的！你找他去吧！}这样的话，让全论坛的人来评评，是不是这个礼，人要有高尚的品德和敢于解决问题承认错误的勇气，难道大家连这点道理也不知道？？让全论坛的人来评评是不是这个礼！！！

nnn2688

原意是想发这个贴子活跃一下气氛，没想到惹出娄子来了。
不过汇编也不是很难学，只是我没有时间更深入的学习，所以对于程序真的是无能为力，我也希望有更多的高手站出来解决问题，但论坛终归是论坛，大家也不都是专门搞这个专业的，多数都是业余的爱好罢了，况且大家都很忙，除了上班，真正能够余下来的时间也不是很多，还有，就是写程序是个既费时间又费精力的事，所以，很少能有人抽出这么长的时间和精力来研究这个程序，与其这样，倒不如我们自己每天抽出一段时间，学学汇编，学学C，到那时，就不用麻烦别人帮忙改程序了。

仙猫

首先必须明确的是，这里谁也不欠谁的，毕竟上论坛不是本职工作（包括版主），谁也没义务非要解决什么难题不可。如果有人出手你该感谢，一时没人吱声你也无权抱怨。
其次，俺看这里的人其实都很热心，如果只是举手之劳的话，恐怕早就解决不止八遍了，几天无进展必有其原因。
第3，问题并不深奥，但即便对高手来说也要费点事——写程序是需要调试的，手里没相同的目标机怎么验证？这是最大的障碍，不知你想过没。
俺劝你不妨再耐心等等，高手一般是不会长久作壁上观的。如果时间充裕而高手又忙不过来的话，俺们低手或许也会瞅空试试……不过俺这低手比较惨，得现学51汇编。
先睡会儿觉再说，已经欠睡个把月了。

翌阳

初步研究了一下这个程序，它的走时是采用的是软件延时制作的，这种延时很不精确，它还会受到中断的影响，所以不可能指望它实现一个实用的电子钟。
这个用来做个演示的程序还可以，离实用很远。