Ⅰ 單片機89C51用匯編製作跑馬燈P1控制8個LED（D1~D8）燈實現流水燈的效果，高手速度來
很酷的流水燈
#include <reg51.h>
typedef unsigned char uchar;
#define Ton 40
#define LED P0
sbit leds=P1^4;
sbit LED0 = P0^0;
sbit LED1 = P0^1;
sbit LED2 = P0^2;
sbit LED3 = P0^3;
sbit LED4 = P0^4;
sbit LED5 = P0^5;
sbit LED6 = P0^6;
sbit LED7 = P0^7;
unsigned char Maikuan=0;
static unsigned char ledon[8] = {0x7f,0xbf,0xdf,0xef,0xf7,0xfb,0xfd,0xfe};
uchar Occupy_led; //占空比越大，燈越亮
bit light;
uchar m;
void Inittime()
{
TMOD = 0x02; //定時器0，工作方式2，自動重裝
TH0 = 256-Ton;
TL0 = 256-Ton;
ET0 = 1;
EA = 1;
TR0 = 1;
}
//定時器0中斷
void time0() interrupt 1 using 0
{
Maikuan++;
}
void main()
{
unsigned char i = 0,j = 0; //初始化i，j
leds=0;
Inittime();
while (1)
{
//第1，3，5，7個燈半亮，其餘的全亮。
for(i=254; i>0; i--)
{
while ( Maikuan!=20)
{
LED = 0x00;
}
while ( Maikuan!=200)
{
LED = 0x55;
}
Maikuan = 0;
}
//最難的：8個燈從第一個開始依次漸亮，直到最後一個。再從最後一個起漸暗，直到第一個。如此循環往復。
for(j = 0;j<=7;j++)
{
i = 0;
while(i!=255) // 由暗變亮
{
if( Maikuan == 0) // 點亮
{
LED = ledon[j];
}
if(Maikuan == i) // 熄滅
{
LED = 0xff;
}
if( Maikuan== 255)
{
i++;
}
}
}
for(j=7;j>=0;j--)
{
i = 0;
while(i!=255) // 由亮變暗
{
if(Maikuan == 0) // 熄滅
{
LED = 0xff;
}
if( Maikuan == i) // 點亮
{
LED = ledon[j];
}
if( Maikuan == 255)
{
i++;
}
}
}
//所有的燈逐漸從暗到全亮，再由全亮到暗。
for (m=254; m>0; m--)
{
while (Maikuan!=Occupy_led)
{
LED = 0x00;
}
while (Maikuan!=127)
{
LED = 0xff;
}
Maikuan = 0;
if (light)
{
Occupy_led++;
}
else
{
Occupy_led--;
}
if (Occupy_led==128)
{
Occupy_led = 127;
light = !light;
}
if (Occupy_led>128)
{
Occupy_led = 0;
light = !light;
}
}
}
}
Ⅱ 單片機C語言編程：讓8個LED流水燈以0.2s時間間隔從左到右依次點亮然後重復實現
#include<reg52.h>
#include<intrins.h>
void delay(unsigned int z );
void main()
{
unsigned int a;
unsigned char b=0xfe;
for(a=0;a<8;a++)
{
P1=b;//P1口接8個LED燈
delay(200);
b=_crol_ (b,1);
}
}
void delay(unsigned int z)
{
unsigned int i;
for(;z>0;z--) //延遲時間自己算吧
for(i=110;i>0;i--);
}
用匯編寫這個容易點
main: mov a,#0feh
mov r0,#8
loop: mov p1,a
acall delay
rl a
djnz r0,loop
delay：mov r6,#0ffh
loop1: mov r7,#01h
djnz r7,$
djnz r6,loop1
ret
end
好像是這樣,延遲時間可能不太准，也是P1口接8個LED燈
Ⅲ 單片機Keil問題
先回答你第一個問題：
DATALOOP: MOV @R0,A
DJNZ R0,IDATALOOP
第一條是將A中的內容放入R0所指的地址中，如果R0的數值比較大的話，用單步運行就需要很長時間。有個方法可以解決，即在KEIL調試時，修改R0里的數值，將它變成1或者01H，就可以出循環了。
第二個問題：
你的程序是實現P1循環→P3循環→P2循環→P0循環，然後又返回P1循環，連續往復。
你的程序，我用軟體調試了，邏輯上沒問題，能實現。
不過建議你用移位指令來完成。這樣更簡單。
回答完畢，謝謝。