51单片机控制LED灯程序设计

20: DLY1: MOV R6, #100

21: DLY2: MOV R7, #100

22: DJNZ R7, $

23: DJNZ R6, DLY2

24: DJNZ R5, DLY1

25: RET ；子程序返回

26: END ；程序结束 7.功能说明

单片机端口接八只LED，编程时利用取表的方法，使端口P1做单一灯的变化：先向左移2次，然后向右移2次，再闪烁4次,不断循环。 程序:

01: START: MOV DPTR, #TABLE ；存表

02: LOOP: CLR A ；A清零

03: MOVC A, @A+DPTR ；取表代码

04: CJNE A, #01H, LOOP1；不是01H，循环

05: JMP START ；重新设定

06: LOOP1: MOV P1, A ；送P1输出

07: ACALL DELAY ；调延时程序

08: INC DPTR ；数据指针加1

09: JMP LOOP ；转移到LOOP处

10: DELAY: MOV R5,#25 ；延时0.5秒

11: DLY1: MOV R6,#100 ；

12: DLY2: MOV R7,#100 ；

13: DJNZ R7,$ ；

14: DJNZ R6,DLY2 ；

15: DJNZ R5,DLY1 ；

16: RET ；

17: TABLE: DB 0FEH,0FDH,0FBH,0F7H ；

18: DB 0EFH,0DFH,0BFH,7FH ； 左移

19: DB 0FEH,0FDH,0FBH,0F7H ；

20: DB 0EFH,0DFH,0BFH,7FH ； 左移

21: DB 7FH,0BFH,0DFH,0EFH ；

22: DB 0F7H,0FBH,0FDH,0FEH ； 右移

23: DB 7FH,0BFH,0DFH,0EFH ；

24: DB 0F7H,0FBH,0FDH,0FEH ； 右移

25: DB 00H,0FFH,00H,0FFH ；

26: DB 00H,0FFH,00H,0FFH ； 闪烁

27: DB 01H ；

28: END

结束码 ；