最近做得LED时钟和计数器

琪隆

0 W' S2 j5 _* c! m: o  x+ q/ U% K img0440a.jpg
  |0 O! B4 L3 C' X

( i7 s" P' i, i5 h. N8 m. Y
: t+ F* ]; y0 w/ g$ @
       

/ ^8 u0 k; R  n       
: Z) |+ K  `6 E2 \$ ]0 c2 T
       
* L7 z) C: Q$ @  n  j( [" ]/ _; ] 在下刚学单片机，客户需要做得单片机计数器。不用的时候还可以当表用。如感兴趣可以分享源程序。
% x/ C4 E$ m" Z1 }) J  A# `# @2 A       

       

0 @% [# r7 w3 i  v& {* w7 {. v/ g' `       

$ U0 a2 n& d6 I       

4 h+ e! T: T3 K8 L: A) p1 _       
$ E. ^& a4 K( f0 Q. y5 _* [
+ T: n( C  z& R" T3 a       

* s5 T; {3 v" }* q       
6 R, ]5 ^1 B0 P6 A6 t/ u0 ~ 谢谢大家

琪隆

img0442a.jpg

. E( h. w0 f9 ]  r

+ o0 e+ a) E* d$ h

7 L+ {5 ~- E1 g" @& Q3 S
! ^+ B2 m6 X) t; C: b
img0441a.jpg

( I4 R7 m7 b, K$ O4 C

琪隆

a_bit equ 20h ;个位寄存器
% A/ f. x0 }6 A: V4 b8 G b_bit equ 21h ;10位寄存器
& m: _1 j; S% O7 ?7 W c_bit equ 22h ;百位寄存器
5 ]- \" D/ C% L4 M d_bit equ 23h
e_bit equ 24h
: z. A$ `  O2 R6 B( Z f_bit equ 25h
org 0000h
4 M! D: B1 n" I/ Y/ B( H ajmp star
org 0020h
7 n. o+ n, j3 a) Y) c; K7 y9 l star: ;初始化把所有的位全部清零
! L: i6 ^) C- g8 h mov a,#00h
mov a_bit,a
mov b_bit,a
9 |; U% q: d+ ^6 O mov c_bit,a
& l0 Q$ u: V& x8 v1 d mov d_bit,a
mov e_bit,a
6 [8 g$ ]+ Q' h mov f_bit,a
stlop: acall display ;调用显示
0 r0 S% ~, F. n  [3 b jb p3.2,stlop ;监测键盘,如果p3.2按下那么执行显示
we: acall display ;显示保持!
- Q& ?9 y  {$ `, K& ^* o/ ? acall d1ms ;延时1ms避免键盘误动作
# V" Q7 I8 ?) h3 c3 c' W) p jnb p3.2,we ;如果p3.2还没有放开继续延时
count: ;计算数据部分
- j( f0 d7 g8 Z inc a_bit ;个位加1
mov a,a_bit
7 @# h# f. `2 m9 `- i3 l4 _ cjne a,#10,stlop ;如果在10以内显示
mov a_bit,#00h ;如果到了10则清除
inc b_bit ;10位加1
/ [! c: _( Y; U6 q0 S mov a,b_bit
cjne a,#10,stlop ;如果在10以内显示
" y' J4 n" F; ^- A6 c6 M" O* x mov b_bit,#00h ;如果到了10则清除
inc c_bit ;百位加1
8 S6 m% P0 ]" I0 g mov a,c_bit
4 g+ ~4 T% r: F( u/ g; V$ Q cjne a,#10,stlop
mov c_bit,#00h
4 z5 e$ C. j* e/ p' s1 T, c& V$ e inc d_bit
mov a,d_bit
cjne a,#10,stlop
mov d_bit,#00h
inc e_bit
mov a,e_bit
/ c' p* A3 I8 P1 k9 n  L4 r1 l cjne a,#10,stlop
mov e_bit,#00h
( {9 I/ m4 x; Y6 @+ A* Z  Y inc f_bit
mov a,f_bit
7 v1 X6 T# _% h) B cjne a,#10,stlop
mov f_bit,#00h
ajmp stlop
+ g: y/ a8 e( s, cdisplay: ;显示
1 d9 v) [2 ?/ m" d8 T, _0 g mov dptr,#numtab ;送数据表??
( R$ J( [1 I  u; F' f& K4 r( qmov a,a_bit ;送个位数据
MOVC A,@A+DPTR ;查表
mov p0,a ;送p0口显示
& G- [: V7 R+ l6 g clr p2.6 ;选中第一个数码管
) o$ w5 \  n8 j+ Q8 U acall d1ms ;显示1ms
+ A4 I( G6 F2 t: ~0 h1 E setb p2.6 ;关闭显示
mov a,b_bit ;送10位数据
9 b/ q: B7 n3 l# c) X( t MOVC A,@A+DPTR ; 查表
mov p0,a ;送p0口显示
clr p2.5 ;选中第二个数码管
4 o0 r, t$ o- R8 Z" [: q( {' y acall d1ms ;显示1ms
setb p2.5 ;关闭显示
mov a,c_bit
MOVC A,@A+DPTR
: c# P* i1 R4 p* d- ?# R0 K mov p0,a
clr p2.4
acall d1ms
setb p2.4
mov a,d_bit
0 l" W' V' a/ ` MOVC A,@A+DPTR
+ y: B% ^- ^: h mov p0,a
clr p2.3
0 z5 @  l; _/ u acall d1ms
7 d; v/ `3 X$ w% p9 |% n% H9 `. c setb p2.3
mov a,e_bit
MOVC A,@A+DPTR
6 l3 _& n  @7 V. P  T3 N/ m1 A mov p0,a
% r4 G; c+ o; \ clr p2.2
acall d1ms
setb p2.2
; m2 L% o1 ~: gmov a,f_bit
/ O% y  d" q$ I0 V, f7 w MOVC A,@A+DPTR
" [: H  ?' N$ O: R+ d* Z mov p0,a
, i4 p3 t  n1 R) `+ c3 u; z  F clr p2.1
acall d1ms
setb p2.1
/ L* w/ e! E) B* ~/ {3 n ret
3 i1 N! Z7 v* U! E4 P7 c7 }D1MS: ;数码管延时
MOV R7,#2
0 V* o2 L2 d, P# g' c DJNZ R7,$
RET
;数码管代码表
: I3 T8 }1 n$ k4 |  r& cnumtab: db 28h,7eh,0a2h,62h,74h,61h,21h,7ah,20h,60h
4 ]2 s$ g( L5 s4 d2 g- z& z5 J5 G ;0 1 2 3 4 5 6 7 8 9
5 n, z- N* V1 _3 ]: H, {8 U, Q end