欢迎来到天天文库
浏览记录
ID:50937364
大小:38.00 KB
页数:15页
时间:2020-03-16
《基于51单片机心形流水灯C语言源程序.doc》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、#includeunsignedintx,y;voiddelayms(unsignedintz)//延时{unsignedinti,j;for(i=z;i>0;i--)for(j=150;j>0;j--);}voidOn_all()//开启所有灯{P0=0x00;P1=0x00;P2=0x00;P3=0x00;}voidOff_all()//关闭所有灯{P0=0xff;P1=0xff;P2=0xff;P3=0xff;}voidls()//正向流水灯{P0=0x00;delayms(400);P2=0x00;delayms(400);
2、P3=0x00;delayms(400);P1=0x00;delayms(400);P0=0x01;delayms(50);P0=0x02;delayms(50);P0=0x04;delayms(50);P0=0x08;delayms(50);P0=0x10;delayms(50);P0=0x20;delayms(50);P0=0x40;delayms(50);P0=0x80;delayms(50);P0=0x00;P2=0x01;delayms(50);P2=0x02;delayms(50);P2=0x04;delayms(50);P2=0x08;
3、delayms(50);P2=0x10;delayms(50);P2=0x20;delayms(50);P2=0x40;delayms(50);P2=0x80;delayms(50);P2=0x00;P3=0x80;delayms(50);P3=0x40;delayms(50);P3=0x20;delayms(50);P3=0x10;delayms(50);P3=0x08;delayms(50);P3=0x04;delayms(50);P3=0x02;delayms(50);P3=0x01;delayms(50);P3=0x00;P1=0x80;de
4、layms(50);P1=0x40;delayms(50);P1=0x20;delayms(50);P1=0x10;delayms(50);P1=0x08;delayms(50);P1=0x04;delayms(50);P1=0x02;delayms(50);P1=0x01;delayms(50);P1=0x00;Off_all();P0=0xfe;delayms(50);P0=0xfd;delayms(50);P0=0xfb;delayms(50);P0=0xf7;delayms(50);P0=0xef;delayms(50);P0=0xdf;de
5、layms(50);P0=0xbf;delayms(50);P0=0x7f;delayms(50);P0=0xff;P2=0xfe;delayms(50);P2=0xfd;delayms(50);P2=0xfb;delayms(50);P2=0xf7;delayms(50);P2=0xef;delayms(50);P2=0xdf;delayms(50);P2=0xbf;delayms(50);P2=0x7f;delayms(50);P2=0xff;P3=0x7f;delayms(50);P3=0xbf;delayms(50);P3=0xdf;dela
6、yms(50);P3=0xef;delayms(50);P3=0xf7;delayms(50);P3=0xfb;delayms(50);P3=0xfd;delayms(50);P3=0xfe;delayms(50);P3=0xff;P1=0x7f;delayms(50);P1=0xbf;delayms(50);P1=0xdf;delayms(50);P1=0xef;delayms(50);P1=0xf7;delayms(50);P1=0xfb;delayms(50);P1=0xfd;delayms(50);P1=0xfe;delayms(50);P1
7、=0xff;P0=0xfe;delayms(50);P0=0xfc;delayms(50);P0=0xf8;delayms(50);P0=0xf0;delayms(50);P0=0xe0;delayms(50);P0=0xc0;delayms(50);P0=0x80;delayms(50);P0=0x00;delayms(50);P2=0xfe;delayms(50);P2=0xfc;delayms(50);P2=0xf8;delayms(50);P2=0xf0;delayms(50);P2=0xe0;delayms(50);P2=0xc0;dela
8、yms(50);P2=0x80;delayms(50);P2=0x00;delayms(50);P3=0x7
此文档下载收益归作者所有