EDA365欢迎您登录！
您需要 登录 才可以下载或查看，没有帐号？注册
x
初级单片机流水灯程序
3 L2 G, o1 q+ d: L5 I X0 u* p; _1 `# f# I; I$ ]
7 c/ `0 z8 t1 }. K! h& N
![]() ----- 主程序开始 -----$ o) u5 Q* O5 j# ^
START: CLR P1.0  1.0输出低电平,使LED1点亮
% @; l- M& u$ Y; ~4 f ACALL DELAY ;调用延时子程序) y$ z9 `0 m& z' ?. |5 w, u
SETB P1.0 1.0输出高电平,使LED1熄灭
$ O; G, f" B) ?7 \2 p CLR P1.1 1.1输出低电平,使LED2点亮! v j8 i1 [& D8 @
ACALL DELAY ;调用延时子程序" W' i- Y! K; M
SETB P1.1 ;P1.1输出高电平,使LED2熄灭' h, I7 ^$ D& F% L& x
CLR P1.2 ;P1.2输出低电平,使LED3点亮
, K6 Y! I, i0 x" ^; w ACALL DELAY ;调用延时子程序
+ M: A5 W' K8 J. c: R# x SETB P1.2 ;P1.2输出高电平,使LED3熄灭 f. e( i$ [4 |8 G0 L
CLR P1.3 ;P1.3输出低电平,使LED4点亮4 `- Y/ R" W7 U9 u/ h+ p
ACALL DELAY ;调用延时子程序
# v9 W; _7 _7 K$ C0 z" ` SETB P1.3 ;P1.3输出高电平,使LED4熄灭
# H$ g) D7 I5 l7 [7 Q CLR P1.4 ;P1.4输出低电平,使LED5点亮" b7 V" o" x* I" s+ ]6 q$ x
ACALL DELAY ;调用延时子程序
) q' S: Q6 v: j; a$ j SETB P1.4 ;P1.4输出高电平,使LED5熄灭
; n6 j* o7 t P2 I7 n; c CLR P1.5 ;P1.5输出低电平,使LED6点亮- w1 h) @; J h6 C- r2 U5 s3 I4 |
ACALL DELAY ;调用延时子程序
" s$ y: ]+ r6 x8 x7 ^5 f4 y% @7 M SETB P1.5 ;P1.5输出高电平,使LED6熄灭
3 B8 i- b& f; ], ?0 y: K) Q F CLR P1.6 ;P1.6输出低电平,使LED7点亮
" Q# [5 [, T" f7 I ACALL DELAY ;调用延时子程序) M/ _ D8 t5 M, Z/ G
SETB P1.6 ;P1.6输出高电平,使LED7熄灭
6 u8 J& t8 g4 n) G CLR P1.7 ;P1.7输出低电平,使LED8点亮
; t, s$ l8 a9 c3 n ACALL DELAY ;调用延时子程序6 }9 y( \7 e; H; w" m* j& h
SETB P1.7 ;P1.7输出高电平,使LED8熄灭! W/ a) i6 `8 y# q" J9 f7 X
ACALL DELAY ;调用延时子程序. }9 l2 [- w8 f' ]0 E
AJMP START ;8个LED流了一遍后返回到标号START处再循环 ;----- 延时子程序 -----
' A w) g4 R( QDELAY: MOV R0,#255 ;延时一段时间+ m: ` z) X- \" o# w
D1: MOV R1,#255
9 L! J$ k+ y0 w; ^5 W% f DJNZ R1,$
0 r5 Y* h5 Y, t4 D DJNZ R0,D1; `2 w, o) O* q: M) z$ i' [ R
RET ;子程序返回 END ;程序结束 $ _9 L8 D' ?; Q7 F9 s5 q, A8 ~1 T
, _4 L: ]+ ]3 u' Y |
/1 
发表于 2019-3-4 06:00
收藏
淘帖
支持！
反对！