急需走马灯的程序。

#include

<reg52.h>

void

delay(int

a)

//延迟程序

{

while(a--)

}

main(){

P1=0x01

/纳梁宏/P1口初始0000

0001

while(1){

while(P1!=0x80){

//当p1口不是

1000

0000时

P1口左移一位，本来起初是0000

0001,500毫

秒后变成

0000

0010，然后0000

0100，直到变成1000

0000

P1=P1<<1

delay(5000)

}

while(P1!=0x01){

//同理

1000

0000

右移渣带

变成0100

0000，因为P1口接led，高电位时洞册点亮

P1=P1>>1

delay(5000)

}

}

}

3个控件 一个PICTUREBOX 一个TIMER 一个改毁岁PictureClip（部件自己添加microsoft pictureclip control 6.0）

自己定义好PictureClip的“行”，“列”的值 三行六列 18张小图

Dim a As Integer '在模块说明核睁中定义a变量

Private Sub Form_Load()

'指定picture1的图形为PictureClip控件中的第二个图形区域

picture1.picture=PictureClip1.GraphicCell(1)

'定义变量a的初始值和定时控件的时间间隔属性

a=1

Timer1.Interval=100

End Sub

Private Sub Timer1_Timer()

'每发生一次Timer事件时改变变量a的值

a=a＋1:If a=18 Then a=0

'利用变量值的改变给picture1控件指定不余兄同的图形

picture1.picture=PictureClip1.GraphicCell(a)

End Sub

楼主的程序，是 24 个灯，只隐袜有一个亮，循环移动。

对吧？

现在，想要改成《相邻两个LED同时亮》灶凳激，只要改动一行粗尘：

mov bx,1 低16位初始值设为1（一个灯亮）

改为：

mov bx,3 把1改成3

即可。

---