Question

在p0口接上8个led灯，每次亮两个灯的流水灯，如何实现led灯各闪烁5次再实现移位功能（汇编）

ORG 0000H
LJMP MAIN
ORG 0100H
MAIN: MOV A,#0FCH
LOOP: MOV P0,a
LCALL DEL
RL A
RL A
LJMP LOOP
DEL: MOV R0,#20
DL3: MOV R2,#100
DL2: MOV R3,#250
DEL1: DJNZ R3,DEL1
DJNZ R2,DL2
DJNZ R0,DL3
RET
END

Answer 1

闪烁5次再移位，可以用循环来实现。程序如下：
ORG 0000H
LJMP MAIN
ORG 0030H
MAIN:
MOV A,#0FCH ;LED灯初值，两个灯点亮
LOOP:
MOV R2,#5 ;5次闪烁循环次数
LOOP1:
MOV P0,A ;P0口送控制值
LCALL DELAY ;延时
MOV P0,#0FFH ;关闭显示，实现闪烁效果
LCALL DELAY
DJNZ R2,LOOP1 ;该循环执行5次闪烁
RL A ;闪烁之后移位
SJMP LOOP
DELAY:
MOV R3,#200 ;延时大概100毫秒
DLY:
MOV R4,#250
DJNZ R4,$
DJNZ R3,DLY
RET
END

Answer 2

;------------------------
ORG 0000H
LJMP MAIN
ORG 0100H
MAIN:
MOV A, #0FCH
;------------------------
LOOP:
MOV P0, A ;亮两位
LCALL DEL
MOV P0, #255 ;全灭
LCALL DEL

MOV P0, A ;亮两位
LCALL DEL
MOV P0, #255 ;全灭
LCALL DEL

MOV P0, A ;亮两位
LCALL DEL
MOV P0, #255 ;全灭
LCALL DEL

MOV P0, A ;亮两位
LCALL DEL
MOV P0, #255 ;全灭
LCALL DEL

MOV P0, A ;亮两位
LCALL DEL
MOV P0, #255 ;全灭
LCALL DEL

RL A
RL A
LJMP LOOP
;------------------------
DEL:
MOV R0,#20
DL3:
MOV R2,#100
DL2:
MOV R3,#250
DEL1:
DJNZ R3,DEL1
DJNZ R2,DL2
DJNZ R0,DL3
RET
;------------------------
END

追问

我想要的效果是两个灯分别闪烁，也就是说一个灯闪的时候另外一个灯是保持亮的状态，不知道这样能否实现？

追答

;------------------------
ORG 0000H
LJMP MAIN
ORG 0100H
MAIN:
MOV A, #1
;------------------------
LOOP:
CPL A
MOV P0, A ;亮一位
CPL A

RL A

XRL P0, A ;又亮一位
LCALL DEL
XRL P0, A ;灭一位
LCALL DEL

XRL P0, A ;又亮一位
LCALL DEL
XRL P0, A ;灭一位
LCALL DEL

XRL P0, A ;又亮一位
LCALL DEL
XRL P0, A ;灭一位
LCALL DEL

LJMP LOOP
;------------------------
DEL:
MOV R0,#20
DL3:
MOV R2,#100
DL2:
MOV R3,#250
DEL1:
DJNZ R3,DEL1
DJNZ R2,DL2
DJNZ R0,DL3
RET
;------------------------
END

追问

能不能把两个程序结合啊，我就是结合这两个程序出现来了问题，谢谢啊，

追答

两个功能是不一样的。

结合干什么？

你到底要实现什么啊？

追问

在p0口接上8个led灯，每次亮两个灯的流水灯，每次移位两个灯，但是移位之前两个灯分别闪烁，就是说一个灯闪的时候另外一个灯是保持亮的状态
5次，等两个灯闪烁结束后再实现移位功能，我可能表达上有点问题- -

追答

每次亮相邻两个灯，分别闪烁五次后，移动一位。
;------------------------

ORG 0000H
LJMP MAIN
ORG 0100H
MAIN:
MOV R2, #0FCH
MOV A, #1
;------------------------
LOOP:
MOV P0, R2 ;亮两位
CALL FLASH ;闪一位
RL A
CALL FLASH ;闪下一位
XCH A, R2
RL A
XCH A, R2
LJMP LOOP
;------------------------
FLASH:
MOV R3, #5
LP: XRL P0, A ;亮一位
LCALL DEL
XRL P0, A ;灭一位
LCALL DEL
DJNZ R3, LP
RET
;------------------------
DEL:NOP
DJNZ R7,DEL
DJNZ R6,DEL
RET
;------------------------
END