找回密码
 注册
关于网站域名变更的通知
查看: 626|回复: 1
打印 上一主题 下一主题

51单片机的流水灯 自中间至两边 自两边至中间

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2019-1-14 13:48 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您登录!

您需要 登录 才可以下载或查看,没有帐号?注册

x
51单片机的流水灯 自中间至两边 自两边至中间
" f& h2 N3 ?( f' H" p, j! }5 y/ s% K' D8 l1 Y

1 ^5 ^+ r% E' x3 D' u/ h9 V! L做的流水灯,分享一下
0 f3 ^, ~! J6 `" |' V#include <reg52.h>
; T3 d; m# m5 u# {0 m* z# s#define uchar unsigned char
; o: w) x$ G4 c#define uint unsigned int
- Y+ e1 a. l5 u; h! B6 t" ?char tab1[]={0xFF,0xE7,0xDB,0xBD,0x7E};//自中间至两边
& K6 S2 [$ E& g6 X2 P. V& Y6 e, Ochar tab2[]={0x7E,0xBD,0xDB,0xE7,0xFF};//自两边至中间( l, y0 J/ _8 v6 H2 @2 m, w
uchar i;" x; j8 b) o( _+ q
sbit S1 = P1^0;. h% T4 o$ Z$ I  V+ `# O
sbit S2 = P1^1;( o6 [9 D- u% @
void DelayMS(uint x)- G+ p) A( a, E$ _
{
* j! S: i( D) H/ Q         uchar i;
* H4 C' ?* B$ t' e& j( {        while(x--)
* C! t* i, k8 x        {
% n3 c' W+ h- Q' L6 P. a9 V+ m                 for(i=120;i>0;i--);6 _: n) f$ u: ?' u
        }. a) a: V) k. F
}
- j( L' Q2 }1 {void main()
# j5 g# Z! m" S( ^' {$ L: r& f7 C1 D{. o( \6 H$ m0 j3 M9 c- b# M& B
        uchar a;7 u2 C) T0 ^( T; X6 H
        while(1)
. K; w* Z' ?" @/ H        {. p: R3 r  P) f% p% |; F
                if(S1==0&&S2==0)
5 P0 N$ `" F" ~6 z                {
' C1 C  D, N; T% k. i                        P0=0xfe;a=P0;DelayMS(400);
& @" H% Q8 q  ~" d% N% X2 w7 h                        for(i=8;i>0;i--){a=a<<1;a|=0x010=a;DelayMS(400);}0 W  J( P' _( b, F9 L; l  h. Z
                }
8 C+ p8 \1 m* b9 s. c' o0 O                else if(S1==1&&S2==1)5 f* j- J& p$ a8 B/ e
                {
6 x& P1 _: b  `+ o/ r% a" Y( K                        P0=0x7f;a=P0;DelayMS(400);
/ K! n* l0 I1 P4 O% T6 g                        for(i=8;i>0;i--){a=a>>1;a|=0x800=a;DelayMS(400);}
: j' {; B; p0 ]: G& A1 M; z                }
/ m6 f) V( v8 j2 h. @) d                else if(S1==0&&S2==1)# c+ f4 T% u% i' m
                {        
% }# Z5 T! \# n! \) _. D' I                        for(i=0;i<5;i++){P0=tab1;DelayMS(400);}
* E7 u' f: m4 n/ [* l( T                }        3 Y# b# [* H2 f  N+ Y6 b% C
                else if(S1==1&&S2==0). J* j( r: H" H
                {        : o/ V# L) `8 A
                        for(i=0;i<5;i++){P0=tab2;DelayMS(400);}
) d' G7 s+ v$ A. [8 t! B1 D1 Q                }        ( W5 R' |, X/ H
        }9 |% z3 v7 B) V$ m
}% B, Q' s" T" O

3 c  b1 _6 ^0 P; a2 [- g# U( [下载:
4 K. @$ Z- L, e, F2 @- j9 n
游客,如果您要查看本帖隐藏内容请回复
8 r) e: w" V+ i3 l  f) s9 x% x- z

3 U2 q* D: b( F% \1 C. P4 P( F
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

推荐内容上一条 /1 下一条

EDA365公众号

关于我们|手机版|EDA365电子论坛网 ( 粤ICP备18020198号-1 )

GMT+8, 2025-8-3 01:48 , Processed in 0.109375 second(s), 26 queries , Gzip On.

深圳市墨知创新科技有限公司

地址:深圳市南山区科技生态园2栋A座805 电话:19926409050

快速回复 返回顶部 返回列表