单片机跑马灯编程

A. 有谁知道用for语句编写简单单片机的跑马灯程序

#define uchar unsigned char
#define uint unsigned int

void delaynus(uchar n) 延时函数 延时 n 微秒
{
uchar k;
for(k=0;k<n;k++)
_nop_();
}

void delaynms(uchar n) 延时 n 毫秒
{
uchar k;
for(k=0;k<n;k++)
delaynus(1000);
}
void main(void)
{
unsigned char led=0x45; 初始跑马灯 显示
unsigned char a,b;
char i;
while(1)
{
for(i=0;i<8;i++) //跑马灯 一共 8 个
{
a=led<i; //实现跑马灯左移
b=led>(8-i);
led=a|b;
P1=led;
delay_nms(1000); 延时 1000毫秒
}
}
}

B. 51单片机跑马灯程序

不好意思，延时用了楼上的。keil下编译OK。假设P1接灯。

ORG00H

SJMPSTART

ORG30H

START:

MOVA,#00

SETBC

MOVR0,#9

;从左到右

LOOP1:

RLCA

MOVP1,A

ACALLDELAY

DJNZR0,LOOP1

;从右到左

MOVR0,#9

LOOP2:

RRCA

MOVP1,A

ACALLDELAY

DJNZR0,LOOP2

SJMPSTART

DELAY:

MOVR6,#20

DELAY_0:MOVR5,#255

DJNZR5,$

DJNZR6,DELAY_0

RET

这个程序比较简单了。再精简，只能精简一句，将MOVP1，A放在DELAY函数里。这样减少一行。

简单介绍一下：

首先就是你要轮流点亮，就是将1循环一圈，因为你要全灭一次，所以用到CY。

RG00H

SJMPSTART

ORG30H

START:

MOVA,#00;//清空A寄存器

SETBC;//将CY置1，然后带进位左移就会进入将A的b0

MAINLOOP:;//大循环起始

MOVR0,#9;设置移位次数,要灭一次，所以设置为9

;从左到右

LOOP1:

RLCA;带进位左移一次;第一次移位结果为01

MOVP1,A;将A中值放入P1点亮对应LED;该句可放在DELAY里，然后从右到左也去掉该句

ACALLDELAY;延时，保持灯亮一段时间，自己根据实际情况调整一下。

DJNZR0,LOOP1;循环，点亮下一个灯，最后一次，A为0，将全灭一次，CY为1

;从右到左

MOVR0,#9;设置循环次数

LOOP2:;循环起始表示

RRCA;带进位右移，第一次结果为80H

MOVP1,A;更新P1点亮对应LED

ACALLDELAY;延时，保持灯亮一段时间

DJNZR0,LOOP2;循环，点亮下一个灯

SJMPMAINLOOP;循环，重新开始下一轮

如果你是管脚输出低LED才亮，只需将MOVA,#00和SETBC改为MOVA,#0FFH和CLRC即可。

方案2：位寻址区00做标志，为0从左到右，该标志为1从右到左

ORG00H

SJMPSTART

ORG30H

START:

MOVA,#00

SETBC

MOVR0,#9

CLR00H

LOOP1:

RLLED:

JB00H,RRLED

RLCA

AJMPDISP

RRLED:

RRCA

DISP:

MOVP1,A

ACALLDELAY

DJNZR0,LOOP1

CPL00H

AJMPSTART

DELAY:

MOVR6,#20

DELAY_0:MOVR5,#255

DJNZR5,$

DJNZR6,DELAY_0

RET

下面是方案1的流程图，这种流程图不知怎么写好，而且写出来基本是对每行的代码的解释。

C. 跑马灯单片机程序！！！急求！！！

用 C还是 汇编？ 用汇编，稍等片刻！

C（1）
ORG 0000H
MAIN:MOV A,#0FEH
MOV R3,#8

LP: MOV P1,A
RL A
LCALL DELAY
DJNZ R3,LP
MOV R3,#8
SJMP MAIN

DELAY: ;软件延时
MOV R7,#0DH
DL1:
MOV R6,#0F7H
DL0:
MOV R5,#8EH
DJNZ R5,$
DJNZ R6,DL0
DJNZ R7,DL1
NOP
RET

END

(2)ORG 0000H
MAIN:MOV A,#0FEH
MOV R3,#8

LP: MOV P1,A
RL A
LCALL DELAY
DJNZ R3,LP
MOV P1,#0FFH
LCALL DELAY
MOV R3,#8
MOV A,#07FH
LP2: MOV P1,A
RR A
LCALL DELAY
DJNZ R3,LP2
MOV P1,#0FFH
LCALL T1DELAY
SJMP MAIN

T1DELAY:MOV R5,#20 ; 延时1ms ;硬件延时
MOV TMOD,#10H
MOV TH1,#3CH
MOV TL1,#0B0H
SETB TR1
LP3: JBC TF1,LP4
SJMP LP3
LP4: MOV TH1,#3CH
MOV TL1,#0B0H
DJNZ R5,LP3
RET

D. 单片机 跑马灯 代码详解

ORG
0000H
;开机上电主程序入口
AJMP
START
;系统一进来就转到主程序
ORG
0030H
;主程序地址
START:
MOV
A,
#0FFH
;主程序开始，A中初始化成全1
CLR
C
;c清零
MOV
R2,
#08H
;R2左转循环计数器
LOOP:
RLC
A
<<C+A+C<<带进位循环左移，A中的内容在8此循环中从0位到7位依次变0
MOV
P2,
A
;送到P2，使P2从0位到7位依次点亮LED
CALL
DELAY
;单片机运行很快，为了能看到灯的变化，必须延迟，把速度降下来
DJNZ
R2,
LOOP
;R2每次减1后判断是否=0,8次后=0程序才会下行，否则会跳回LOOP
MOV
R2,#07H
;R2右转循环计数器
LOOP1:
RRC
A
>>C+A+C>>带进位循环右移，A中的内容在8此循环中从7位到0位依次变0
MOV
P2,
A
;送到P2，使P2从7位到0位依次点亮LED
CALL
DELAY
;和上个循环一样，延时
DJNZ
R2,
LOOP1
;R2每次减1后判断是否=0,7次后=0程序才会下行，否则会跳回LOOP1
JMP
START
;跳回程序起始位置重复下一个循环
DELAY:
MOV
R3,
#20;延时子程序，这个应该不用解释了吧
D1:
MOV
R4,
#200
D2:
MOV
R5,
#248
DJNZ
R5,
$
DJNZ
R4,
D2
RET
END

E. 单片机跑马灯如何编程！

如果是一个字节型的数据控制LED灯的话，且是1控制LED灯灭，0控制灯亮。
从灭到亮，先是0xFF，然后开始左移，最终移到0x00，就是全亮了。
从亮到灭，先是0x00，然后左移并且加1，重复此工作就是0xFF了
按照上面的思想，你自己应该可以搞定的。

F. 单片机跑马灯反向跑

点了S2按键。按下按键S1，跑马灯正向运行；按下按键S2，跑马灯反向运行，所以跑马灯反方向跑，可能是按了S2按键。常规的跑马灯，是指将多个发光二极管分别连接到单片机的某一并行端口处，通过编程控制这几个发光二极管依次点亮。

G. 51单片机设计跑马灯的程序用（c语言）编写

|P1口接8个发光二极管共阳

#include <AT89X51.H>

unsigned char i;

unsigned char temp;

unsigned char a,b;

void delay(void)

{

unsigned char m,n,s;

for(m=20;m>0;m--)

for(n=20;n>0;n--)

for(s=248;s>0;s--);

}

void main(void)

{

while(1)

{

temp=0xfe;

P1=temp;

delay();

for(i=1;i<8;i++)

{

a=temp<<i;

b=temp>>(8-i);

P1=a|b;

delay();

}

for(i=1;i<8;i++)

{

a=temp>>i;

b=temp<<(8-i);

P1=a|b;

delay();

}

}

}

(7)单片机跑马灯编程扩展阅读：

Proteus 自从有了单片机也就有了开发系统，随着单片机的发展开发系统也在不断发展。 keil是一种先进的单片机集成开发系统。它代表着汇编语言单片机开发系统的最新发展，首创多项便利技术，将开发的编程/仿真/调试/写入/加密等所有过程一气呵成，中间不须任何编译或汇编。

H. 单片机跑马灯汇编程序详细解释

ORG
0000H
SJMP
START
ORG
0030H
START:
MOV
A,
#0FEH
;
先让第一个发光二极管点亮
LOOP:
MOV
P1,
A
;
从P1口输出到发光二极管
MOV
R1,
#100
;
延时0.5秒
DEL1:
MOV
R2,
#200
DEL2:
MOV
R3,
#7
DEL3:
DJNZ
R3,
DEL3
DJNZ
R2,
DEL2
DJNZ
R1,
DEL1
RL
A
;
左移一位，点亮下一个发光二极管
LJMP
LOOP
END
这个是我写的跑马灯程序，没有左右振荡，自己参考参考加上去吧

I. 用51单片机（汇编语言写）写一个跑马灯程序知道的帮个忙写写。

急用！请教！！！
用汇编语言程序，程序功能：实现方向可控的跑马灯
编程要求：用八个LED发光二极管实现跑马灯（即：8个灯依次轮流发光，每次只亮一个灯），系统启动后，跑马灯右向流转，按下K1键，则反向流转，再按则再反向……。接线方法：流水灯接P0口，按键K1可自选P1~P3任一引脚。

J. 51单片机汇编语言编写一个跑马灯的程序，初学者做实验用，具体要求如下，好了可以加分

程序1:
ORG 0000H
LJMP MAIN
ORG 0030H
MAIN:
MOV SP,#5FH
LOOP:
MOV A,P2
MOV B,A
MOV P0,A
MOV P1,#0FFH
LOOP1:
LCALL DELAY
MOV C,P1.7
MOV A,P0
RLC A
MOV P0,A
MOV A,P1
RLC A
MOV P1,A
MOV A,P2
CJNE A,B,LOOP
SJMP LOOP1
DELAY:
MOV R2,#60
DELAY1:
MOV R3,#250
DJNZ R3,$
DJNZ R2,DELAY1
RET
END
程序2：
ORG 0000H
LJMP MAIN
ORG 0030H
MAIN:
MOV SP,#5FH
JNB P2.0,LOOP1 ;
JNB P2.1,LOOP2 ;
SJMP MAIN
LOOP1:
MOV P0,#0FEH
MOV P1,#0FFH
LOOP11:
MOV C,P1.7
MOV A,P0
RLC A
MOV P0,A
MOV A,P1
RLC A
MOV P1,A
JNB P2.1,LOOP2
SJMP LOOP11
LOOP2:
MOV P0,#0FCH
MOV P1,#0FFH
LOOP21:
MOV C,P1.7
MOV A,P0
RLC A
MOV P0,A
MOV A,P1
RLC A
MOV P1,A
JNB P2.0,LOOP1
SJMP LOOP21
DELAY:
MOV R2,#60
DELAY1:
MOV R3,#250
DJNZ R3,$
DJNZ R2,DELAY1
RET
END