(完整版)51單片機(jī)流水燈程序

1、1.第一個發(fā)光管以間隔200ms閃爍。2.8個發(fā)光管由上至下間隔1s流動，其中每個管亮500ms,滅500ms。3.8個發(fā)光管來回流動，第個管亮100ms。4.用8個發(fā)光管演示出8位二進(jìn)制數(shù)累加過程。5.8個發(fā)光管間隔200ms由上至下，再由下至上，再重復(fù)一次，然后全部熄滅再以300ms間隔全部閃爍5次。重復(fù)此過程。6.間隔300ms第一次一個管亮流動一次，第二次兩個管亮流動，依次到8個管亮，然后重復(fù)整個過程。7.間隔300ms先奇數(shù)亮再偶數(shù)亮，循環(huán)三次；一個燈上下循環(huán)三次；兩個分別從兩邊往中間流動三次；再從中間往兩邊流動三次；8個全部閃爍3次；關(guān)閉發(fā)光管，程序停止。1#include#def

2、ineuintunsignedintsbitled1=P1A0;voiddelay();voidmain()(while(1)(led1=0;delay();led1=1;delay();voiddelay()(uintx,y;for(x=200;x0;x-)for(y=100;y0;y-);#include#include#defineuintunsignedint#defineucharunsignedcharsbitp1=P1A0;uchara;voiddelay();voidmain()(a=0 xfe;P1=a;while(1)(a=_crol_(a,1);delay();P1=a;

3、delay();voiddelay()(uintb;for(b=55000;b0;b-);3#include#include#defineuintunsignedint#defineucharunsignedcharvoiddelay()(uintx,y;for(x=100;x0;x-)for(y=110;y0;y-);voidmain()(uchara,i;while(1)a=0 xfe;for(i=0;i8;i+)(P1=a;delay(100);a=_crol_(a,1);a=0 x7f;for(i=0;i8;i+)(P1=a;delay(100);a=_cror_(a,1);4#inc

4、lude#include#defineuintunsignedint#defineucharunsignedcharvoiddelay(uinta)(uintx,y;for(x=a;x0;x-)for(y=110;y0;y-);voidmain()(ucharb;while(1)(b+;P1=b;delay(200);5#include#include#defineuintunsignedint#defineucharunsignedcharvoidmain()(uchara,i,j;while(1)(for(j=0;j2;j+)(a=0 xfe;for(i=0;i8;i+)(P1=a;del

5、ay(200);a=_crol_(a,1);a=0 x7f;for(i=0;i8;i+)(P1=a;delay(200);a=_cror_(a,1);P1=0 xff;for(j=0;j0;x-)for(y=110;y0;y-);for(x=z;x0;x-)6#include#include#defineuintunsignedint#defineucharunsignedcharvoiddelay()uintx,y;for(x=300;x0;x-)for(y=110;y0;y-);voidmain()uchara,i,j;while(1)a=0 xfe;for(j=0;j8;j+)for(i

6、=0;i8-j;i+)P1=a;delay(200);a=_crol_(a,1);a=_crol_(a,j);P1=0 xff;a=a1;7#include#include#defineuintunsignedint#defineucharunsignedcharvoiddelay(uintz)uintx,y;for(y=110;y0;y-);voidmain()(P1=0 x7e;uchara,i,j;for(j=0;j3;j+)(P1=0 x55;delay(300);P1=0 xaa;delay(300);for(j=0;j3;j+)(a=0 xfe;for(i=0;i8;i+)(P1=a;delay(300);a=_crol_(a,1);P1=0 xff;for(j=0;j3;j+)(P1=0 x7e;delay(300);P1=0 xbd;delay(300);P1=0 xdb;delay(300);P1=0 xe7;delay(300);P1=0 xff;for(j=0;j3;j+)(P1=0 xe7;delay(300);P1=0 x