8个LED依次循环发光.doc

8个LED依次循环发光，3种显示效果，要求通过按钮切换 2010-06-29 09:51 /%D7%F6%B6%F8%C2%DB%B5%C0/blog/item/57507f55fb9ea9123b29353b.html 用单片机控制8个发光二极管依次发光，产生跑马灯的效果。3种效果循环，要求通过按钮切换效果。这是一个网友在：/question/133803194.html 提出的问题。原程序比较长，且有些错误，就不列出了。原来的电路图，可见：/%D7%F6%B6%F8%C2%DB%B5%C0/album/item/2f609f80c69180e6bd3e1edf.html做而论道对程序做了修改，用PROTEUS进行仿真，3种效果都出来了。原程序的效果切换，必须重新启动，现在，增加了三行指令，就可以在不断电的情况下进行切换。用PROTEUS进行仿真的截图如下： 图片链接：/%D7%F6%B6%F8%C2%DB%B5%C0/album/item/2f609f80c69180e6bd3e1edf.html#IMG=f2005aed4f89fa1963d09fdf做而论道修改后的程序如下：????? ORG 0000HSTART:????? MOV P1, #255????? CLR P1.6 ????? MOV P2, #0????? SETB P2.1????? SETB P2.3 ????? JNB P1.0, LOOPB????? JNB P1.1, LOOPC;----------------------------------;显示花样1：左移7次、右移7次????? MOV A, #01H ;单个LEDLOOPA:MOV R0, #7LOOPAL:????? MOV P0, A????? RL?? A????? CALL DELAY????? DJNZ R0, LOOPAL ;--------------------????? MOV R0, #7LOOPAR:????? MOV P0, A????? RR?? A????? CALL DELAY????? DJNZ R0, LOOPAR;----------------------------------LJMP START????????????????? ;本行可删除. ????? LJMP LOOPA;----------------------------------;显示花样2：左移到头、右移到头????? MOV A, #01HLOOPB:MOV A, #03H ;两个LEDLOOPBL:????? MOV P0, A????? RL?? A????? CALL DELAY????? JNB ACC.7, LOOPBL;--------------------LOOPBR:????? MOV P0, A????? RR?? A????? CALL DELAY????? JNB ACC.0,LOOPBR;----------------------------------LJMP START????????????????? ;本行可删除. ????? LJMP LOOPB;----------------------------------;显示花样3：比较乱LOOPC:MOV R0, #3????? MOV A, #01HLOOPCL:????? MOV P0, A????? RL?? A ????? RL?? A????? CALL DELAY????? DJNZ R0,LOOPCL;--------------------????? MOV R0, #3????? RL?? ALOOPCR:????? MOV P0, A????? RR?? A ????? RR?? A ????? CALL DELAY????? DJNZ R0, LOOPCR;----------------------------------LJMP START????????????????? ;本行可删除. ????? LJMP LOOPC;----------------------------------DELAY:???????????????? ;延时子程序????? MOV R4, #2L1:?? MOV R2, #250L2:?? MOV R3, #250L3:?? DJNZ R3, L3????? DJNZ R2, L2????? DJNZ R4, L1????? RET;-------------