本文目录一览：
实现跑马灯的代码是唯一的吗
不是。根据查询资料显示实现跑马灯的代码是不是唯一的，实现跑马灯的方法很多，其中最简单的是采用一句Html代码来实现。
单片机 跑马灯 代码详解
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
用vb制作走马灯 窗体代码全过程
1、使用label(标签）来模拟灯，只要修改label背景就可以实现跑马灯效果。
2、工具vb6
3、示例：
Private WithEvents NewTimer As Timer
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 10
Set NewLabel = Controls.Add("vb.label", "label" i, Me)
NewLabel.Move i * 200, 100, 100, 100
NewLabel.BackColor = vbWhite
NewLabel.Visible = True
Next
Set NewTimer = Controls.Add("vb.timer", "Timer1", Me)
NewTimer.Interval = 200
NewTimer.Enabled = True
End Sub
Private Sub NewTimer_Timer()
Static i As Integer
i = i + 1
Me("label" i).BackColor = vbRed
If i = 1 Then
If i = 1 Then i = 11
Me("label" i - 1).BackColor = vbWhite
If i = 11 Then i = 1
End If
If i = 10 Then i = 0
End Sub
4、注意：复制以上代码到代码窗体，不要加任何控件，直接运行即可。
网页图片跑马灯效果代码
跑马灯大全
海波吧
!--
Begin
var
Mes=new
Array();
Mes[0]="海波吧欢迎你";
Mes[1]="感谢你关注海波吧";
Mes[2]="网页制作技巧之跑马灯大全
";
var
place=1;
var
i=0;
function
scroll()
{
window.status=Mes[i].substring(0,
place);
if
(place
=
Mes[i].length)
{
if(i2)
{
i++;
place=1;
window.setTimeout("scroll()",50);
}
else
{
i=0;
place=1;
window.setTimeout("scroll()",50);
}
}
else
{
place++;
window.setTimeout("scroll()",50);
}
}
//
End
-－
滚动的文字
表示双向移动
表示运动方向向左
弹来弹去跑马灯!
表示运动方向向左
target=_blank带有超链接的跑马灯!点点看
target=_blank还有一条!点点看
参数
用法介绍
behavior=scroll,
slide,
alternate
跑马方式：循环绕行，只跑一次就停住，来回往复运动
direction=left,right
跑马方向：从左向右，从右向左
loop=100
跑马次数：循环100次，如不写默认为一直循环
width=100%,height=200
跑马范围：宽为100%，高为200像素
scrollamount=20
跑马速度：数越大越快
scrolldelay=500
跑马延时：毫秒数，利用它可实现跃进式滚动
hspace=20，vspace=20
跑马区域与其它区域间的空白大小
bgcolor=#00FFCC
跑马区域的背景颜色
8个灯的led跑马灯要控制灯同时从中间向两边跑的代码是什么？
跑马灯说白了就是让灯按照一定顺序亮起来，你可以采用最笨的方法，从中间往两边跑，假设0代表低点平，1代表高电平，那么就得出以下几个状态，\x0d\x0a0b11111111\x0d\x0a0b11100111\x0d\x0a0b11011011\x0d\x0a0b10111101\x0d\x0a0b01111110\x0d\x0a看0是不是从中间往两边跑\x0d\x0a当然你也可以用算法实现，你可以将这个八位的数据看做两个4位的，然后将高四位左移，低四位右移\x0d\x0a写个大概程序为：\x0d\x0aunsigned char a ,b,c,,i;\x0d\x0afor(i=0;ii))0x0f;//将1右移i位后取反与a相与，得出结果为低四位\x0d\x0ac=a-跑马灯代码
回答于 2022-11-18
