|
EDA365欢迎您登录!
您需要 登录 才可以下载或查看,没有帐号?注册
x
灯闪烁秩序执行 包含原理图与程序
' P( Y2 q v; `: ^9 o2 B$ l7 s. v4 q S7 ^9 S
; w3 S, w, e1 |. `: V
送给新手,包含原理图与程序
2 V1 w; D! R) [![]()
4 d" t' O9 s: K( J% E$ t
% o9 o7 z+ E. @ e2 _' J7 u/ V& ?8 _3 o" {# @( e: |
#include<reg51.h>+ n- i, _% y9 N$ U& X
#include<intrins.h>! {4 _6 N4 f/ Y+ ^% @. `* i: O# Z
#define uchar unsigned char% \$ v7 _+ k8 j
sbit key=P1^0;; m* y2 ~0 p3 t* ~: q1 p3 y" m
void delay()
% p# m( O% S! s6 `, I {
' r0 }7 u V3 _) q* B uchar i,j;
' w% Y+ U3 j* i/ x! T/ { for (i=0;i<200;i++)
2 |5 J+ U- V4 B1 `5 b! I p& A V for (j=0;j<120;j++);+ B& t5 Z% h, M S
}
. ~, C B) f3 w void left()! c. S& U3 S+ l6 p4 x4 s
{
5 Z, x6 A9 {' `8 n& n uchar count;
7 n T1 @# u4 ^8 a7 W& V3 @ P0=0Xfe;
; `1 m' p. H: p# r- h for(count=0;count<8;count++): ~! ?" _2 T1 o" h% J% I8 x4 O" `
{
7 l- @( i5 n5 [ A7 f$ [9 W) ^ P0=_crol_(P0,1);$ M* z7 L- s4 |8 q! u: Q
delay();5 C3 g4 i8 W- B# O
}. j4 N3 V }' ?% W4 Q* f; l% U
}
5 ~% G; U. o# U7 n& E7 R; I void shan(), M* D* R: G' G
{
Z5 Y0 x0 `- D3 p0 x! g. h P0=0X00;delay();
9 c) c& {* L7 i6 V P0=0xff;delay();
9 Q# Y! E- j1 c }
% H' _( K! m8 e# x- l, V) d# A void main()
S6 t d7 |8 G# B$ y A# x {# k, B7 w* |7 r/ B( b: U
while(1)
r. b) Z7 S- h4 S+ |" _5 V( a+ ] {
4 k# p% w/ Z* b3 y4 K' x if(key==0) left(); {" d! c* v/ V
else shan();
* s6 F& h* {+ N) O6 g# C. {- ] }9 J" I* y" h. }" X# `6 k
}/ D& i$ ]) L* M6 j$ F: N
( @" }' q) _: {
下载:' f$ Y" ?! k) Y& d( u. m
6 O. u" c3 x9 c% U1 ~5 K) [- E" C# O" L. v! H
|
|