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

灯闪烁秩序执行 包含原理图与程序

[复制链接]

该用户从未签到

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

EDA365欢迎您登录!

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

x
灯闪烁秩序执行 包含原理图与程序
! M+ q) _; U1 `1 W9 I; b' e+ p9 Q7 z0 t* |" k, f  e2 p
& u3 C+ y1 ^# Z, _
送给新手,包含原理图与程序  v6 [$ n) ?, U5 ?6 f: O% R8 `

0 T' z! Q5 S9 u. P
& B7 b  w7 P9 ]' |$ H8 l* S& K
. E, ?  \" ]/ g3 n, e) K7 Z% F
#include<reg51.h>
7 d. S3 q* E! T# d( [ #include<intrins.h>
0 i3 d" D6 x) f* v& J #define uchar unsigned char; W: ]0 k* ?9 g. G2 b  ]
sbit key=P1^0;
& _( d: R5 F: [ void delay()
) g2 Z- B2 Y" s+ D {
, s8 d4 C4 S, S; ~0 R! o8 i2 s! a uchar i,j;
/ ?# S" p4 ~3 c0 q  @3 P0 l for (i=0;i<200;i++)7 s# ?3 @; b! e( n
for (j=0;j<120;j++);
' j/ J8 d, V+ [$ a, C# S6 {2 g$ d }
7 t/ Y; g' Q  v void left(), b( S# j6 S+ j' k
{
7 l4 c& |. {4 O uchar count;7 H; m, N  n: m6 F$ t- `7 L# [4 V6 s
P0=0Xfe;
5 J& v  T) D0 c$ J7 T for(count=0;count<8;count++)
$ h" ~# w) z  \! @ {3 x) B# M! c: R1 K, h4 |3 w, n
P0=_crol_(P0,1);
4 p! X* z6 x9 y, N3 p& i delay();
+ h6 U* i4 f/ p( ]! C2 p. ^) |6 W1 @ }
+ U; W, Z0 Q, C }: l1 o  n& H6 ^, s/ Q
void shan()0 ?7 o8 j4 X  u0 C/ L
{+ p9 H$ p2 d  D+ r
         P0=0X00;delay();
0 p5 h/ ?$ o9 C2 i, |        P0=0xff;delay();
- S9 m8 O. [3 F8 y2 r+ o) h }" d) `0 U( H/ r3 V0 b1 Y% y
void main()
! E  q: g4 n8 D {0 |# q$ D8 e; @
  while(1)
) q( r# k: ~3 G: C5 o1 {- w7 Q6 `+ N  {
+ D$ h6 d4 n) Y) \. D) j if(key==0) left();
3 U+ w: V; d9 ?$ F! z! O. @1 a, Y else shan();
3 f( S3 _: R5 S' S# h* n }
8 ]* b. }( u) l% b* `3 {6 K/ g+ c}
$ K$ q$ y% j0 a2 f: R$ R
  W' z9 H( y' p  i# ~! R( }下载:) f- t& ^+ s% @) g- j% u! s
游客,如果您要查看本帖隐藏内容请回复

8 N' n( @4 r" y1 h9 K) L% V! p. i( O/ q. T( Q; l
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

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

EDA365公众号

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

GMT+8, 2025-6-19 09:36 , Processed in 0.078125 second(s), 26 queries , Gzip On.

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

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

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