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

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

[复制链接]

该用户从未签到

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

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 _' J
7 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
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

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

EDA365公众号

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

GMT+8, 2025-8-19 12:43 , Processed in 0.109375 second(s), 26 queries , Gzip On.

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

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

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