3.顺序流水灯
来源:互联网 发布:win7系统安装ubuntu 编辑:程序博客网 时间:2024/04/29 11:52
八个发光二极管L1-L8分别接在单片机的P1.0-P1.7接口上,输出“0”时,发光二极管亮,开始时P1.0→P1.1→P1.2→P1.3→┅→P1.7→P1.6→┅→P1.0亮,重复循环。(向下向上循环)
汇编:
ORG 0
START: MOV R2,#8
MOV A,#0FEH
SETB C
LOOP: MOV P1,A
LCALL DELAY
RLC A
DJNZ R2,LOOP
MOV R2,#8
LOOP1: MOV P1,A
LCALL DELAY
RRC A
DJNZ R2,LOOP1
LJMP START
DELAY: MOV R5,#20 ;
D1: MOV R6,#20
D2: MOV R7,#248
DJNZ R7,$
DJNZ R6,D2
DJNZ R5,D1
RET
END
C语言:
#include <AT89X51.H>
unsigned char i;
unsigned char temp;
unsigned char a,b;
void delay(void)
{
unsigned char m,n,s;
for(m=20;m>0;m--)
for(n=20;n>0;n--)
for(s=248;s>0;s--);
}
void main(void)
{
while(1)
{
temp=0xfe;
P1=temp;
delay();
for(i=1;i<8;i++)
{
a=temp<<i;
b=temp>>(8-i);
P1=a|b;
delay();
}
for(i=1;i<8;i++)
{
a=temp>>i;
b=temp<<(8-i);
P1=a|b;
delay();
}
}
}
Lesson2_3流水灯 #include<reg52.h> #include<intrins.h> unsigned int a,b,c; unsigned char d; void delay(unsigned char); void main() { while(1) { d=0xfe;//11111110从下往下亮 for(c=8;c>0;c--) { P1=d; delay(100); d=_crol_(d,1);//左移一位,循环左移L } d=0x7f;//01111111从下往上亮 for(c=8;c>0;c--) { P1=d; delay(100); d=_cror_(d,1); //右移一位,循环右移R } } } void delay(unsigned char x5ms) { for(b=x5ms;b>0;b--) for(a=300;a>0;a--); } 流水灯且蜂鸣器发出声响 #include<reg52.h> #include<intrins.h> sbit beep=P2^3; unsigned int a,b,c; unsigned char d; void delay(unsigned char); void main() //主函数 { while(1) { d=0xfe; for(c=8;c>0;c--) { P1=d; beep=0; delay(100); beep=1;//蜂鸣器下降沿发声 delay(100); d=_crol_(d,1); } d=0x7f; for(c=8;c>0;c--) { P1=d; beep=0; delay(100); beep=1; delay(100); d=_cror_(d,1); } } } void delay(unsigned char x5ms) { for(b=x5ms;b>0;b--) for(a=300;a>0;a--); }
- 3.顺序流水灯
- 流水灯
- 流水灯
- 流水灯
- 流水灯
- 流水灯
- 流水灯
- 流水灯
- 流水灯
- 流水灯
- 流水灯
- 流水灯51单片机最小系统,顺序、反向点亮,从左到右再从右到左点亮
- 二、SCM 流水灯&FPGA流水灯
- 流水灯实验代码
- 数组流水灯
- 单片机--->流水灯
- 单片机-->流水灯2
- 流水灯 附加
- jQuery Ajax 全解析
- 击败苹果的方法--让手机免费
- c#中什么情况下用(int)什么情况下用Convert.ToInt32
- 2011-3-17序言
- ViewState持久化保持在服务器端
- 3.顺序流水灯
- 在vs2008中检查MFC内存泄露
- flash学习笔记:桌面快捷方式
- delphi 中判断对象是否具备某一属性
- 多线程编程
- 如何在Mac上使用卡拉OK
- 关于QT与Flash互操作
- C语言中几种输出调试信息的方法
- 18位身份证和组织机构代码校验ORACLE函数