最近做得LED时钟和计数器

琪隆

) X5 D$ g, W: ? img0440a.jpg



% Z( {0 {4 Z' F0 i
( g) `2 F1 A$ V- u; T  y       

' r; l, `# M& |% ]. u       

       
" U. L4 V4 C! L& [ 在下刚学单片机，客户需要做得单片机计数器。不用的时候还可以当表用。如感兴趣可以分享源程序。
       
2 O) ~1 @- J/ y' e: e
# F; V3 D1 `. p" R       

" `; k7 b" J/ m  z       

       

3 Z* ^- \  @5 \8 _' }       
  c3 D: k! K& T. O+ O
       

: a2 T! y6 Z4 n7 @, s: Q8 ?+ I       
* v: F6 P' h' c! v1 ^) D; ~2 g 谢谢大家

琪隆

4 Y$ m& r$ ?2 {) c img0442a.jpg

; s5 {: w/ V" H, B. z
7 F& t7 F! X9 b* G, R6 v

7 l  x+ M: |; g" t: o! ?. X
7 ~0 L" S. O  f

img0441a.jpg

+ r2 }" I- Q3 e

琪隆

a_bit equ 20h ;个位寄存器
b_bit equ 21h ;10位寄存器
( y( n8 J, x6 I7 H c_bit equ 22h ;百位寄存器
: ~* F% G$ ?0 n. L d_bit equ 23h
& D: o* }; ]- W: ~2 J  n" U5 M e_bit equ 24h
f_bit equ 25h
  w' Y1 s" N1 l7 D# G  P5 w7 yorg 0000h
ajmp star
4 t8 }# x' L: B0 _! i org 0020h
& S# M1 X6 e' w, S' o star: ;初始化把所有的位全部清零
% ]; H. @" `- F mov a,#00h
6 |. A! x2 n3 @- C! C! H: @& E mov a_bit,a
* r. f5 Y6 s# Z2 ] mov b_bit,a
mov c_bit,a
mov d_bit,a
mov e_bit,a
mov f_bit,a
& r* y) l6 b" ystlop: acall display ;调用显示
' P+ \; A5 g; Z+ L5 J jb p3.2,stlop ;监测键盘,如果p3.2按下那么执行显示
we: acall display ;显示保持!
/ D, v2 F5 X- x2 Q! e) @  ]: O acall d1ms ;延时1ms避免键盘误动作
jnb p3.2,we ;如果p3.2还没有放开继续延时
count: ;计算数据部分
inc a_bit ;个位加1
mov a,a_bit
cjne a,#10,stlop ;如果在10以内显示
. H8 Z2 Y. C, `5 c mov a_bit,#00h ;如果到了10则清除
7 E7 S$ p7 J, |5 y6 k inc b_bit ;10位加1
0 I0 S) z* f  W6 C mov a,b_bit
5 ~7 s3 J. p% u5 p cjne a,#10,stlop ;如果在10以内显示
mov b_bit,#00h ;如果到了10则清除
inc c_bit ;百位加1
/ ~5 T' X) I5 t! m mov a,c_bit
cjne a,#10,stlop
' S2 B; b% t1 |$ O+ I% j# @' `* v mov c_bit,#00h
: q, u7 ?8 i$ z& k$ E inc d_bit
) h! g" c/ m/ n' u( X3 G% u5 @ mov a,d_bit
  z% x% f- h; a8 n7 A$ h cjne a,#10,stlop
mov d_bit,#00h
8 e7 E- }% b+ v0 G# h: `9 v! ^ inc e_bit
mov a,e_bit
cjne a,#10,stlop
mov e_bit,#00h
; J; V( `3 G+ B inc f_bit
mov a,f_bit
cjne a,#10,stlop
mov f_bit,#00h
ajmp stlop
display: ;显示
" c% i9 z" b. N% v- ?! k mov dptr,#numtab ;送数据表??
mov a,a_bit ;送个位数据
& Z& k0 i% w- }4 ~: D! P7 `' ^- E, l8 u MOVC A,@A+DPTR ;查表
mov p0,a ;送p0口显示
' y$ M8 q2 g$ S' R( t; W clr p2.6 ;选中第一个数码管
acall d1ms ;显示1ms
setb p2.6 ;关闭显示
0 j, f2 z2 M! g' }mov a,b_bit ;送10位数据
. s! `% b- |* a+ @ MOVC A,@A+DPTR ; 查表
mov p0,a ;送p0口显示
clr p2.5 ;选中第二个数码管
acall d1ms ;显示1ms
setb p2.5 ;关闭显示
mov a,c_bit
" D  T" Y  ]3 V. x4 b MOVC A,@A+DPTR
) _2 m2 l; p* j5 b( m* Q mov p0,a
clr p2.4
acall d1ms
setb p2.4
% T( p. [% d+ c# jmov a,d_bit
5 W6 t* W0 G8 k MOVC A,@A+DPTR
mov p0,a
clr p2.3
0 T: \& w- ?. I( x6 _6 d& z acall d1ms
setb p2.3
mov a,e_bit
3 L) ^9 {1 H! ~; j: y! w2 j& z MOVC A,@A+DPTR
mov p0,a
, R- G1 P! l0 V7 y( c! V clr p2.2
acall d1ms
setb p2.2
mov a,f_bit
7 s% f8 Y8 H* V MOVC A,@A+DPTR
mov p0,a
4 S  T0 E) T( A! r. ~& T/ `9 p% m' [ clr p2.1
( [2 e) H( K' ] acall d1ms
& I& M: J# l) E( |  C$ j setb p2.1
% f0 D( V  ]- m9 E ret
) g, k# v4 L3 XD1MS: ;数码管延时
& r9 T9 P( {$ r MOV R7,#2
/ d1 ^, \( t; e. K6 e  o- l$ F' { DJNZ R7,$
# @4 n  q) z, _3 r  z% V RET
;数码管代码表
numtab: db 28h,7eh,0a2h,62h,74h,61h,21h,7ah,20h,60h
;0 1 2 3 4 5 6 7 8 9
$ l+ O+ S% ^# F: k  N6 K0 D end