最近做得LED时钟和计数器

琪隆

& m* v! m. e+ y& a7 S! u# ~- {7 l6 U img0440a.jpg
) Y2 e7 U9 \9 C0 n1 S2 N9 |

1 v) Z7 u1 F9 R6 Q6 g
9 o8 D6 x# s; x) e+ K
2 W/ z6 a- {+ i" S% `3 T9 K       

) y7 V: p5 _* r+ V* C7 a       
- z3 B+ j9 X4 y1 l2 A2 K6 V' [! }
       
在下刚学单片机，客户需要做得单片机计数器。不用的时候还可以当表用。如感兴趣可以分享源程序。
( I, N  _2 u' p       

       
' Z4 a/ R4 o3 j1 Z* e& y
, m" C* ~: _4 H" v' n/ G       

       
9 [* |  X( }' a6 ~9 V
0 u5 V" e6 q0 D# ?       
3 N1 b4 z8 q+ U  N4 W) t4 s
       
0 V: a0 p& T. s4 d* \; l+ U( W
) h' @( T' S( E: k* U1 W       
$ D; l5 x! a7 ^1 K% z7 ~6 g) X 谢谢大家

琪隆

img0442a.jpg
- Q' m6 x! _" o$ q

6 H% A( U+ y5 R: d: M! w
% J& |& V: z/ Z4 }8 g( `

3 {- \* e0 n: f

img0441a.jpg

琪隆

a_bit equ 20h ;个位寄存器
b_bit equ 21h ;10位寄存器
c_bit equ 22h ;百位寄存器
d_bit equ 23h
e_bit equ 24h
; K: u% f) F: j- B9 ]% N f_bit equ 25h
org 0000h
ajmp star
5 n  g+ A* N; }7 r* [, C$ y. t8 Y org 0020h
star: ;初始化把所有的位全部清零
$ W( W' @/ r6 D* }5 L mov a,#00h
8 h2 G1 J& N( a' G mov a_bit,a
$ B: l9 A3 r) J! a! a mov b_bit,a
mov c_bit,a
5 y( \& }1 t: f6 A0 a' T mov d_bit,a
mov e_bit,a
mov f_bit,a
5 _' m# W$ {& Z) Y: ystlop: acall display ;调用显示
8 N/ m8 c% ]$ c8 [- n jb p3.2,stlop ;监测键盘,如果p3.2按下那么执行显示
we: acall display ;显示保持!
acall d1ms ;延时1ms避免键盘误动作
5 g4 x1 b) I! v5 ?. _ jnb p3.2,we ;如果p3.2还没有放开继续延时
count: ;计算数据部分
1 ^/ C, u& ~; _. [1 j. {" B inc a_bit ;个位加1
mov a,a_bit
cjne a,#10,stlop ;如果在10以内显示
mov a_bit,#00h ;如果到了10则清除
7 k: D$ ?3 t2 i& @! ^# d" b inc b_bit ;10位加1
$ [8 ^3 {- L; B6 R% p; n mov a,b_bit
cjne a,#10,stlop ;如果在10以内显示
mov b_bit,#00h ;如果到了10则清除
+ |) W7 J" H6 J# c8 w inc c_bit ;百位加1
  ?. v# t- v; c: }) o7 r# c5 c' c mov a,c_bit
$ J0 D' X: a* K  g' d cjne a,#10,stlop
mov c_bit,#00h
inc d_bit
mov a,d_bit
cjne a,#10,stlop
* p  y0 c( K* {' l mov d_bit,#00h
  R! A2 }  \. }1 y inc e_bit
mov a,e_bit
: q9 J0 b/ S/ m" t6 n  @ cjne a,#10,stlop
mov e_bit,#00h
inc f_bit
& e  ?% `7 I/ \, K1 K  @9 M$ a% \3 z mov a,f_bit
4 T' |& V0 N3 ~! Q# r cjne a,#10,stlop
mov f_bit,#00h
ajmp stlop
display: ;显示
mov dptr,#numtab ;送数据表??
mov a,a_bit ;送个位数据
: P: d) S8 h, t+ q7 z$ E MOVC A,@A+DPTR ;查表
  T1 W( ]* U* Q+ L8 g0 _ mov p0,a ;送p0口显示
clr p2.6 ;选中第一个数码管
& {6 K+ i. c4 a) ?: e6 ?6 I7 Y1 }8 k acall d1ms ;显示1ms
setb p2.6 ;关闭显示
, G8 \0 ]) i/ U2 ?$ Mmov a,b_bit ;送10位数据
MOVC A,@A+DPTR ; 查表
mov p0,a ;送p0口显示
clr p2.5 ;选中第二个数码管
acall d1ms ;显示1ms
) D4 [# w+ A5 [. b7 [) Z$ q, |; B setb p2.5 ;关闭显示
3 O+ ]; z( a4 o' Hmov a,c_bit
MOVC A,@A+DPTR
. `5 o; Q! b2 u7 m8 A mov p0,a
; m6 @& T0 j* a+ i7 W" j5 h clr p2.4
% M4 x; k! V1 x- @ acall d1ms
: _" c8 y* R- Z4 N- C0 ?, j5 a setb p2.4
* z$ L1 o: x+ a+ U9 }' Omov a,d_bit
MOVC A,@A+DPTR
1 n* Z* T, n: F mov p0,a
/ v5 S$ B& K, h: D* g clr p2.3
1 W; Z' j" z& _3 p1 F: i+ d acall d1ms
1 b# R  O" S! X, h4 c* P; u setb p2.3
1 H" ~1 m  \! }, j$ e, ~9 N' l3 ^7 Wmov a,e_bit
4 K/ J0 X' e  ^6 m6 p6 w MOVC A,@A+DPTR
1 n7 T* A  e/ s& w mov p0,a
clr p2.2
acall d1ms
; S3 y& t; @0 E" j3 e1 d+ w" h setb p2.2
* i. s' s8 t/ X3 E# _% G3 I8 F3 @3 imov a,f_bit
MOVC A,@A+DPTR
mov p0,a
clr p2.1
acall d1ms
  P' z% ^4 V: Q& \; c setb p2.1
ret
D1MS: ;数码管延时
& E: |: i* Q; K" j: R2 e+ e, V% J; ^ MOV R7,#2
DJNZ R7,$
RET
;数码管代码表
numtab: db 28h,7eh,0a2h,62h,74h,61h,21h,7ah,20h,60h
; u" T. p; I: i5 p$ ] ;0 1 2 3 4 5 6 7 8 9
end