|
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
|
|