单片机编程怎样让小灯泡逐一闪烁后全部保持亮起？

2025-04-05 14:25:02

推荐回答（2个）

回答1：

让P1=0或者逐个写LED1=0 LED2=0⋯⋯LED6=0
P1口只要你不重新给它赋值,它的状态不会自行改变的，使仍然可以继续操作其它灯。程序最后加while(1);使程序停止

回答2：

这个程序相当于跑马灯的变种，程序如下：
ORG 0000H
LJMP MAIN
ORG 0030H
MAIN:
MOV A,#0FEH
MOV R2,#8
LOOP: ;该循环完成逐一闪烁
MOV P1,A
LCALL DELAY
MOV P1,#0FFH
LCALL DELAY
RL A
DJNZ R2,LOOP
MOV P1,#00H ;最后全亮
SJMP $
DELAY:
MOV R3,#200
DLY:
MOV R4,#250
DJNZ R4,$
DJNZ R3,DLY
RET
END