數(shù)字顯示加流水燈自動閃爍

流水燈P0口，數(shù)碼管位選P1口；段選P2口，數(shù)字每秒鐘自動跳動，并且流水燈出現(xiàn)不同的閃爍效果我是在自己制作的單片機板子上完成這個實驗的有興趣的也可以做一塊這里是制作資料:http://www.torrancerestoration.com/mcu/1019.html

#include"reg51.h"
#include"intrins.h"
#define uchar unsigned char
uchar m,k;
sbit WX1=P1^0;
sbit WX2=P1^1;
sbit WX3=P1^2;
sbit WX4=P1^3;

void delay(uchar a)
{
uchar i,j;
for(i=a;i>0;i--)
for(j=110;j>0;j--);
}

void main()
{
m=0x7e;
while(1)
{
for(k=20;k>0;k--)
{
WX1=1;
P2=0xc0;
delay(100);
WX1=0;WX2=0;WX3=0;WX4=0;
P0=m;
delay(1000);
m=_crol_(m,1);
}
for(k=20;k>0;k--)
{
WX1=1;
P2=0xf9;
delay(100);
WX1=0;WX2=0;WX3=0;WX4=0;
P0=m;
delay(1000);
m=_cror_(m,1);
}
for(k=20;k>0;k--)
{
WX1=1;
P2=0xa4;
delay(100);
WX1=0;WX2=0;WX3=0;WX4=0;
P0=m;
delay(1000);
m=_crol_(m,2);
}
for(k=20;k>0;k--)
{
WX1=1;
P2=0xb0;
delay(100);
WX1=0;WX2=0;WX3=0;WX4=0;
P0=m;
delay(1000);
m=_cror_(m,3);
}
}
}