最近做得LED时钟和计数器

琪隆

  k4 \' }" g3 g img0440a.jpg
  K* f' s$ U) j2 `/ W* c. h; y4 j* D" w
0 Q' z# V2 N: [( H" t
; e' a9 P; j3 i2 V6 q- l5 r
( F; U* x- t% F% A+ z
       

+ A/ O8 {) N1 \- A4 K5 B! m' I       
) O: p8 H3 ^/ U5 q5 }$ e! p( s
       
8 m- G, i+ k# x! s 在下刚学单片机，客户需要做得单片机计数器。不用的时候还可以当表用。如感兴趣可以分享源程序。
( ]& _7 r: d+ Q, J6 s$ x' g       

7 v& B2 S5 [4 ^. X! `       
6 y9 H, {2 o- [& [. y7 N* V# g9 K
       

" {3 d; G3 |/ Q5 i       
4 j& A2 B5 Z. ]8 q
5 `0 h* y' O0 s* v! b8 {8 h       

! l4 {! e* R! g- F' {$ n       

       
5 t3 K0 h0 ?$ Q- X# ]+ a1 C 谢谢大家

琪隆

  p9 k, [8 n8 k/ `8 X" y img0442a.jpg
& D8 Y. O4 C; o6 t3 q; b
- I7 b3 t! _" t6 o5 I

) m$ N7 x3 t+ B  m- N/ J



img0441a.jpg

琪隆

a_bit equ 20h ;个位寄存器
" f# @* w/ ^* D7 C" |) l$ [ b_bit equ 21h ;10位寄存器
0 u& A9 {7 m9 c" D8 `& P c_bit equ 22h ;百位寄存器
d_bit equ 23h
5 g0 C) K# _9 H e_bit equ 24h
f_bit equ 25h
6 X9 E" |) Z' w7 O9 B, }org 0000h
ajmp star
org 0020h
star: ;初始化把所有的位全部清零
mov a,#00h
6 ?' {+ H$ M: A4 | mov a_bit,a
: p5 V1 A) l( A mov b_bit,a
mov c_bit,a
. p! n# U+ j! b* I: ` mov d_bit,a
; Q2 _% m" ]( D+ \- Q9 a+ H mov e_bit,a
& c  \# W6 [" M7 @! C/ J. v" e mov f_bit,a
stlop: acall display ;调用显示
. s# p, O' U: t8 \+ ?4 d jb p3.2,stlop ;监测键盘,如果p3.2按下那么执行显示
2 h8 A* r- \& `7 q, lwe: acall display ;显示保持!
7 J; p) ~6 N; }- g; O, t! v8 ~6 { acall d1ms ;延时1ms避免键盘误动作
jnb p3.2,we ;如果p3.2还没有放开继续延时
count: ;计算数据部分
+ u  }9 Y# {, L- ~ inc a_bit ;个位加1
mov a,a_bit
cjne a,#10,stlop ;如果在10以内显示
mov a_bit,#00h ;如果到了10则清除
inc b_bit ;10位加1
% \0 m% a9 R+ @9 w mov a,b_bit
cjne a,#10,stlop ;如果在10以内显示
5 X$ c; m5 L* w7 c+ h6 \7 D mov b_bit,#00h ;如果到了10则清除
inc c_bit ;百位加1
$ M1 h0 L( Y' M mov a,c_bit
cjne a,#10,stlop
mov c_bit,#00h
$ A, O8 c8 R/ g" U+ v+ o; I inc d_bit
' l0 W6 ^- ]. t  T( o: w5 M+ r0 H) h mov a,d_bit
cjne a,#10,stlop
mov d_bit,#00h
% a( O" x# [) `) G" V, @# x/ m6 b* Z, J inc e_bit
/ q& D8 x- A+ Z% { mov a,e_bit
cjne a,#10,stlop
mov e_bit,#00h
inc f_bit
mov a,f_bit
cjne a,#10,stlop
mov f_bit,#00h
ajmp stlop
( O5 T, A: G. A  A! z- qdisplay: ;显示
mov dptr,#numtab ;送数据表??
" B2 D- N; ?0 o2 f) mmov a,a_bit ;送个位数据
1 m- B) ^4 k8 L  {2 l8 G MOVC A,@A+DPTR ;查表
mov p0,a ;送p0口显示
  X5 s3 C1 d) e+ \5 p) M clr p2.6 ;选中第一个数码管
! e( J* g7 b7 [- `2 {; U! h9 b3 q acall d1ms ;显示1ms
setb p2.6 ;关闭显示
mov a,b_bit ;送10位数据
MOVC A,@A+DPTR ; 查表
mov p0,a ;送p0口显示
1 l4 L( D  x! H1 ]! B clr p2.5 ;选中第二个数码管
) X- D( e' o& a! J" x1 b acall d1ms ;显示1ms
6 X2 }2 V& F1 |& ~0 F$ Z5 T# l setb p2.5 ;关闭显示
* t2 h$ d; q* J# ^' c' n& [mov a,c_bit
MOVC A,@A+DPTR
mov p0,a
clr p2.4
  c! [$ R9 \+ K3 K+ S  ] acall d1ms
& t# s% T9 ]3 ?9 R" r- B setb p2.4
mov a,d_bit
, s/ Q2 g6 ?, I4 g/ K3 ~' F3 T; x MOVC A,@A+DPTR
mov p0,a
clr p2.3
6 Y# N& g; W) |/ B! h1 x$ Z acall d1ms
: y+ y9 u& |, [/ b8 k+ Y' X" O setb p2.3
- v% z7 _, q# O7 ]( Zmov a,e_bit
MOVC A,@A+DPTR
mov p0,a
. D( r8 d+ s$ m2 N/ _1 X clr p2.2
acall d1ms
setb p2.2
mov a,f_bit
MOVC A,@A+DPTR
mov p0,a
clr p2.1
acall d1ms
5 j; k" u0 e: @: ? setb p2.1
: |' H8 r/ T$ i2 \2 g% n, j& @ ret
9 P8 @- ^+ B; l5 a3 S% ?+ XD1MS: ;数码管延时
MOV R7,#2
DJNZ R7,$
RET
: ]. |3 X/ r9 \  c7 B ;数码管代码表
! W& [: @, o1 e) T7 A/ _; U. Fnumtab: db 28h,7eh,0a2h,62h,74h,61h,21h,7ah,20h,60h
;0 1 2 3 4 5 6 7 8 9
end