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

1、51单片机：LED灯亮灯灭程序设计1。功能说明：控制单片机P1端口输出，使P1.0位所接的LED点亮,其他7只灯熄灭。程序：01:MOVA,#11111110B;存入欲显示灯的位置数据02:MOVP1,A;点亮第一只灯03:JMP$；保持当前的输出状态04:END;程序结束2。功能说明：单片机P1端口接8只LED,点亮第1、3、4、6、7、8只灯。程序：01:START:MOVA,#00010010B;存入欲显示灯的位置数据02:MOVP1,A;点亮灯03:JMPSTART;重新设定显示值04:END;程序结束3。功能说明：单片机P1端口接8只LED,每次点亮一只，向左移动点亮，重复循环。程序

2、:01:START:MOVR0,#8;设左移8次02:MOVA,#11111110B;存入开始点亮灯位置03:LOOP:MOVP1,A传送到P1并输出04:RLA;左移一位05:DJNZR0,LOOP;判断移动次数06:JMPSTART;重新设定显示值07:END;程序结束4。功能说明：单片机P1端口接8只LED,每次点亮一只，向右移动点亮，重复循环。程序:01:START:MOV R0 ,#8;设右移8次02:MOV A, #01111111B;存入开始点亮灯位置03:LOOP:MOVP1,;传送到P1并输出04:ACALL DELAY调延时子程序05:RR A；右移一位06:DJNZR0,

3、LOOP;判断移动次数07:JMPSTART;重新设定显示值08:DELAY:MOVR5,#50;09:DLY1:MOVR6,#100;10:DLY2:MOVR7,#100;11:DJNZR7,$;12:DJNZR6,DLY2;13:DJNZR5,DLY1;14:RET;子程序返回15:END;程序结束5。功能说明：单片机P1端口接8只LED,每次点亮一只，先把右边的第一只点亮，0.5秒后点亮右数的第二只灯，第一只熄灭，再过0.5秒点亮右数的第三只灯，第二只熄灭，亮灯按此顺序由右向左移动。当亮灯移到左侧后，开始与上述反方向移动，即亮灯由左向右移动，重复循环。程序：01:START:MOVR0,

4、#8;设左移8次02:MOVA,#0FEH;存入开始亮灯位置03:LOOP:MOVP1,A;传送到P1并输出04:ACALLDELAY;调延时子程序05:RLA;左移一位06:DJNZR0,LOOP;判断移动次数07:MOVR1,#8;设右移8次08;LOOP1:RRA;右移一位09:MOVP1,A;传送到P1并输出10:ACALLDELAY;调延时子程序11:DJNZR1,LOOP1;判断移动次数 12:JMP START;重新设定显示值13:DELAY:MOVR5,#25;延时0。5秒子程序14:DLY1:MOVR6,#100;15:DLY2:MOVR7,1100;16:DJNZR7,$;

5、17:DJNZR6,DLY2;18:DJNY1;19:RET;子程序返回20:END;6。功能说明:单片机P1端口接8只LED,每次点亮两只，先从右边向左边移动点亮；再从左边向右边移动点亮，然后闪烁两次，重复循环。程序：01:START:MOVR0,#7;设左移7次02:MOVA,#0FCH;存入开始亮灯位置03:LOOP:MOVP1,A;传送到P1并输出04:ACALLDELAY;调延时子程序05:RLA;左移一位06:DJNZR0,LOOP;判断移动次数07:MOVR1,#7;设右移7次08:LOOP1:RRA;右移一位09:MOVP1A;传送到P1并输出10：ACALLDELAY;调延时

6、子程序11:DJNZR1,LOOP1;判断移动次数12:MOVR2,#3;设置闪烁次数13:MOVA,#00H;设初始值14:LOOP2:MOVP1,A;P1端口灯亮15:ACALLDELAY;调用延时子程序16:CPLA;A取反值17:DJNZR2,LOOP2；判断闪烁次数18:JMPSTART；重新设定显示值19:DELAY:MOVR5,#2520:DLY1:MOVR6,#10021:DLY2:MOVR7,#10022:DJNZR7,$23:DJNZR6,DLY224:DJNZR5,DLY125:RET；子程序返回26:END;程序结束7。功能说明单片机端口接八只LED,编程时利用取表的方

7、法，使端口P1做单一灯的变化：先向左移2次，然后向右移2次，再闪烁4次，不断循环程序:01:START:MOVDPTR,#TABLE;存表02:LOOP:CLRA;A清零03:MOVCA,A+DPTR;取表代码04:CJNEA,#01H,LOOP1;不是01H,循环05:JMPSTART;重新设定06:LOOP1:MOVP1,A;送P1输出07:ACALLDELAY;调延时程序08:INCDPTR;数据指针加109:JMPLOOP;转移到LOOP处10:DELAY:MOVR5,#25;延时0.5秒11:DLY1:MOVR6,#100;12:DLY2:MOVR7,#100;13:DJNZR7,$;14:DJNZR6,DLY2;15:DJNZR5,DLY1;16:RET;17:TABLE:DB0FEH,0FDH,0FBH,0F7H;18:DB0EFH,0DFH,0BFH,7FH;左移19:DB0FEH,0FDH,0FBH,0F7H;20:移21:DB 7FH , 0BFH,0DFH , 0EFH ; 22 :DB0EFH,0DFH,0BFH,7FH;左DB0F7H , 0FBH , 0FDH , 0FEH7FH,0BFH,0DFH , 0EFH