最近做得LED时钟和计数器

琪隆

$ V# @1 d4 U2 k* H! w img0440a.jpg

! }0 o" ~. v* z" W9 M
. g- j! w5 l2 L+ k% m# P
5 t+ d: m0 Y$ ?
) x' Z0 H, z/ C$ x- R: s       

       
) R, {6 A( F$ }( [% b5 |
( E! U1 N5 Z8 H5 V( u: x       
& L' ]6 H; J) T9 D 在下刚学单片机，客户需要做得单片机计数器。不用的时候还可以当表用。如感兴趣可以分享源程序。
       

       

( D- ?0 w, R) b  d1 Z6 _  {       
; d$ d" U& S0 a* _
       

       

       

       
谢谢大家

琪隆

img0442a.jpg
- J& n4 h6 B% U- c2 ^# k/ d/ R' k
8 l$ T% ~# Y+ H4 e* D4 o" D& g1 X
# X) I5 F# A. k( X. F. {, b& b




3 L( b. J: l1 M/ p4 p+ e5 C% ^ img0441a.jpg

( g( X  Z; F5 Z- v5 B% ^& x. ~

琪隆

a_bit equ 20h ;个位寄存器
1 F- O0 T; F* {7 \, k b_bit equ 21h ;10位寄存器
c_bit equ 22h ;百位寄存器
& `. K  i& Z4 y- h d_bit equ 23h
e_bit equ 24h
f_bit equ 25h
: C( K8 X" L4 t" porg 0000h
- N* B4 D& B% p3 o( B3 } ajmp star
org 0020h
! `1 W1 g! l8 D- U star: ;初始化把所有的位全部清零
mov a,#00h
mov a_bit,a
mov b_bit,a
" }/ ?6 {  v: s5 Q! Q8 V mov c_bit,a
. E/ P0 G! }) ^/ j" f, ~. j3 H mov d_bit,a
! G, ~9 ?* z8 b1 _* y# c mov e_bit,a
, u3 \: }' ~- c* D mov f_bit,a
stlop: acall display ;调用显示
jb p3.2,stlop ;监测键盘,如果p3.2按下那么执行显示
, Y. |. s2 A0 T, wwe: acall display ;显示保持!
acall d1ms ;延时1ms避免键盘误动作
jnb p3.2,we ;如果p3.2还没有放开继续延时
  ]6 n& m$ y& F3 B" z1 C8 mcount: ;计算数据部分
inc a_bit ;个位加1
mov a,a_bit
cjne a,#10,stlop ;如果在10以内显示
mov a_bit,#00h ;如果到了10则清除
inc b_bit ;10位加1
& C0 K" q; S- v  r9 Y4 K  P mov a,b_bit
3 B& ?3 z& Q/ N8 j. {- C7 j& m- Q/ L: l cjne a,#10,stlop ;如果在10以内显示
mov b_bit,#00h ;如果到了10则清除
inc c_bit ;百位加1
2 r) }' s6 Z9 u3 I* B3 U* g mov a,c_bit
cjne a,#10,stlop
mov c_bit,#00h
inc d_bit
2 e6 c  X( x, t0 W; ~ mov a,d_bit
cjne a,#10,stlop
mov d_bit,#00h
& c' j' r7 r. z inc e_bit
" Y, ]( S/ e' f4 n) M4 _( L/ N mov a,e_bit
cjne a,#10,stlop
2 K7 h% q' \9 c$ c2 d; v mov e_bit,#00h
inc f_bit
mov a,f_bit
cjne a,#10,stlop
! S3 Q* O2 I5 V* C$ M0 X mov f_bit,#00h
9 S2 m3 p: h8 p ajmp stlop
display: ;显示
- w. U0 t3 [. m mov dptr,#numtab ;送数据表??
mov a,a_bit ;送个位数据
) x3 {  ~; u2 j0 R" `/ g% I MOVC A,@A+DPTR ;查表
mov p0,a ;送p0口显示
) K) X' t- Q/ U. [* z clr p2.6 ;选中第一个数码管
: Z7 i1 E0 a4 R6 n  w" I acall d1ms ;显示1ms
setb p2.6 ;关闭显示
mov a,b_bit ;送10位数据
MOVC A,@A+DPTR ; 查表
mov p0,a ;送p0口显示
clr p2.5 ;选中第二个数码管
1 w8 N* Z) o7 l$ Q acall d1ms ;显示1ms
( s, F' t! W, f- @& z9 ~$ c setb p2.5 ;关闭显示
mov a,c_bit
# D  b! c; ?$ u! {2 R" c$ s MOVC A,@A+DPTR
; d6 T& j0 `" u9 }, G* C( R2 s mov p0,a
$ M' ?4 P  ?. B0 X0 I clr p2.4
- r# O. Q! K' q9 p, N( A acall d1ms
setb p2.4
mov a,d_bit
MOVC A,@A+DPTR
mov p0,a
1 m' {: G5 N0 O& F" d( w4 z clr p2.3
acall d1ms
# e7 e8 E. k! n  l setb p2.3
8 z5 u6 c" Y5 cmov a,e_bit
$ F( [) j, C( M# M9 q MOVC A,@A+DPTR
mov p0,a
7 j* n5 f1 w; I- H8 D* t clr p2.2
acall d1ms
* T, m& J% c' g- p setb p2.2
mov a,f_bit
9 _: M* y% V  Q9 _. w5 R MOVC A,@A+DPTR
mov p0,a
clr p2.1
acall d1ms
setb p2.1
% S3 k1 F6 _5 z$ H ret
D1MS: ;数码管延时
; \4 b% s0 _. q! P" Y4 a' f MOV R7,#2
  J/ r6 e3 A9 o1 G* J DJNZ R7,$
RET
% z3 n9 i* q, i ;数码管代码表
1 h, Q# h: N" l* cnumtab: db 28h,7eh,0a2h,62h,74h,61h,21h,7ah,20h,60h
;0 1 2 3 4 5 6 7 8 9
, B  D4 u, W( q" C+ U0 g" q6 {; Q3 h end