最近做得LED时钟和计数器

琪隆

" t/ U+ t5 y7 N2 B4 c0 ^4 A img0440a.jpg
2 X; h; K% z5 F+ L4 K% L4 v

# i9 x" U9 E4 @, N. f; Z

       

" D; Q$ K: g6 g: I       

7 M. S! h, A6 F8 I, S7 Q, F7 C2 X2 ~       
在下刚学单片机，客户需要做得单片机计数器。不用的时候还可以当表用。如感兴趣可以分享源程序。
' r6 X2 H2 a" e8 E* _( e  w1 n       

       

       

       
5 s& K9 ?' i/ B8 p2 a3 E
       

       

       
谢谢大家

琪隆

img0442a.jpg



/ e5 c' B% n$ s. q0 ^% S5 Z
4 q/ \& G) n; [
. B: F, y; z0 ?

img0441a.jpg

琪隆

a_bit equ 20h ;个位寄存器
b_bit equ 21h ;10位寄存器
c_bit equ 22h ;百位寄存器
d_bit equ 23h
- }. B; i/ L7 \ e_bit equ 24h
f_bit equ 25h
org 0000h
% k9 Q7 c: O+ @/ F/ _. v' | ajmp star
org 0020h
star: ;初始化把所有的位全部清零
mov a,#00h
mov a_bit,a
4 m' T1 y! G% B mov b_bit,a
mov c_bit,a
mov d_bit,a
/ m1 a6 }3 P5 E# } mov e_bit,a
8 V6 }& h6 q8 O; {& r mov f_bit,a
' s5 i. N' B9 B* p- jstlop: acall display ;调用显示
# ~$ }9 b/ j. e0 a jb p3.2,stlop ;监测键盘,如果p3.2按下那么执行显示
we: acall display ;显示保持!
acall d1ms ;延时1ms避免键盘误动作
/ I, ^( k! x" C" n/ k jnb p3.2,we ;如果p3.2还没有放开继续延时
8 i; u! T! S5 Acount: ;计算数据部分
0 P/ \" u) P7 L! q' \; y7 c inc a_bit ;个位加1
8 [% S7 ]( [# X: s6 O mov a,a_bit
cjne a,#10,stlop ;如果在10以内显示
mov a_bit,#00h ;如果到了10则清除
; [- F: L" K8 p" s$ _9 [ inc b_bit ;10位加1
4 q6 z/ o" w% q0 h4 d mov a,b_bit
. J8 q0 E6 L1 c9 ]& u cjne a,#10,stlop ;如果在10以内显示
mov b_bit,#00h ;如果到了10则清除
inc c_bit ;百位加1
mov a,c_bit
cjne a,#10,stlop
mov c_bit,#00h
inc d_bit
( c0 p' f% L7 |: x1 {2 j mov a,d_bit
cjne a,#10,stlop
2 F0 J8 O# `6 a2 f. M. W mov d_bit,#00h
inc e_bit
mov a,e_bit
- q4 {/ D- k5 v# f- L cjne a,#10,stlop
3 v; _9 [6 K# b. x mov e_bit,#00h
) h  u& {3 l% H; q& p inc f_bit
mov a,f_bit
cjne a,#10,stlop
- L! H! V: b4 T% y2 M- h' [: U mov f_bit,#00h
ajmp stlop
display: ;显示
mov dptr,#numtab ;送数据表??
' R! E, Z/ L* E' lmov a,a_bit ;送个位数据
MOVC A,@A+DPTR ;查表
mov p0,a ;送p0口显示
. N6 I: S0 d# [/ o clr p2.6 ;选中第一个数码管
: y7 I- U0 Q& C+ v1 o( C acall d1ms ;显示1ms
) s) e0 x& {) q8 o* `- }! g setb p2.6 ;关闭显示
mov a,b_bit ;送10位数据
MOVC A,@A+DPTR ; 查表
mov p0,a ;送p0口显示
clr p2.5 ;选中第二个数码管
# Y, {0 M  r1 ?% H. o acall d1ms ;显示1ms
8 J- B; b% L  G& f! T% K2 R setb p2.5 ;关闭显示
mov a,c_bit
& W. x' a9 j( V, \ MOVC A,@A+DPTR
mov p0,a
clr p2.4
acall d1ms
setb p2.4
( r: M& Z: X3 \) B9 L& omov a,d_bit
8 A) o. ?. u' l- b) ~. t MOVC A,@A+DPTR
: |2 F) v7 _4 A1 ]1 I mov p0,a
* Y4 j. w7 G. c& T1 q( \$ c4 e clr p2.3
3 e- k, O9 q/ @: |1 I/ H acall d1ms
" |! S/ t! G7 Z setb p2.3
mov a,e_bit
MOVC A,@A+DPTR
mov p0,a
clr p2.2
8 a3 b2 K' t. M+ ]  c0 ^ acall d1ms
setb p2.2
& u3 B7 B- n* F+ rmov a,f_bit
MOVC A,@A+DPTR
mov p0,a
clr p2.1
6 ~  e6 H/ }8 Y4 w acall d1ms
setb p2.1
, D, p" E" E5 e& K, n5 b; O ret
D1MS: ;数码管延时
MOV R7,#2
DJNZ R7,$
RET
) G, g, D3 G" ]% n  ~ ;数码管代码表
numtab: db 28h,7eh,0a2h,62h,74h,61h,21h,7ah,20h,60h
; B7 U. p. F# ~: b# t- g ;0 1 2 3 4 5 6 7 8 9
end