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

kinidrily · 发表于 2019-1-14 13:48

EDA365欢迎您登录！

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

x

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

做的流水灯，分享一下
#include <reg52.h>
#define uchar unsigned char
#define uint unsigned int
char tab1[]={0xFF,0xE7,0xDB,0xBD,0x7E};//自中间至两边
char tab2[]={0x7E,0xBD,0xDB,0xE7,0xFF};//自两边至中间
uchar i;
sbit S1 = P1^0;
sbit S2 = P1^1;
void DelayMS(uint x)
{
      uchar i;
      while(x--)
      {
               for(i=120;i>0;i--);
      }
}
void main()
{
      uchar a;
      while(1)
      {
            if(S1==0&&S2==0)
            {
                     P0=0xfe;a=P0;DelayMS(400);
                     for(i=8;i>0;i--){a=a<<1;a|=0x01

0=a;DelayMS(400);}
            }
            else if(S1==1&&S2==1)
            {
                     P0=0x7f;a=P0;DelayMS(400);
                     for(i=8;i>0;i--){a=a>>1;a|=0x80

0=a;DelayMS(400);}
            }
            else if(S1==0&&S2==1)
            {
                     for(i=0;i<5;i++){P0=tab1;DelayMS(400);}# X: ~% `' A7 |* s
            }       ' k5 K  E" R& D. U' f2 _; w
            else if(S1==1&&S2==0)
1 q; p. w! r% {1 Z; G6 i7 Z' F3 N             {       0 L' H" l& v  ^, d4 H) q
                     for(i=0;i<5;i++){P0=tab2;DelayMS(400);}
4 d: a6 l2 J; R4 d; w' s             }       3 p) w2 f3 q+ c3 r* i. K# y
      }
3 q: V5 K" j" s7 e7 C/ Y  n}
& C0 h. y/ k0 w8 y+ `$ a% t) p" J$ ]- }/ D  S2 I4 _& A4 T
下载：; R; y6 L$ T6 W, n. G# }2 s- C

游客，如果您要查看本帖隐藏内容请回复

! K$ h9 A% p6 W9 t1 f- L& R0 n/ ?7 {* Q- [6 \0 t5 r

cat12620 · 发表于 2019-1-14 15:14

看看

帐号		自动登录	找回密码
密码			注册

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

EDA365欢迎您登录！

浏览过的版块

推荐内容 /1

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

EDA365欢迎您登录！

浏览过的版块

推荐内容 /1

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