|
|
EDA365欢迎您登录！
您需要 登录 才可以下载或查看，没有帐号？注册
x
51单片机16位流水灯程序源码与proteus仿真 分享一个简单的单片机流水灯仿真实验。7 T% D# M. `1 V/ q( Q+ T* L: j
16位流水灯仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）
( v, Y1 \) Q6 d1 n![]() # M6 a. \1 p! A+ K- P" l$ L( b) a
; a& y1 R1 u$ p1 Z1 F单片机源程序如下: |
+ u7 M9 p* Y. H- p* m7 P$ w
#include"reg51.h"
0 v. g9 @; P9 ?+ W, c: lvoid delay(void);
" q: J- \" `- U0 Fvoid main(void)# Q$ e, p! z4 o, F8 [: l. U
{. N `9 p4 X& `
unsigned int i;! p: A* s% f' W8 e: E" Y) B
unsigned char led;6 |* l v; Z" E* c! I1 G, T" v; j6 m
while(1) v: c4 q& M1 h6 d6 t
{
1 E& L" D( V3 h5 E j- ~ led=0xfe;
: I& r% v: y5 V* ]0 h7 I, x @- ] for(i=0;i<8;i++){( E' g3 X" @9 H3 B9 c: j: S
P1=led;
+ |+ T- r9 }+ a+ p delay();
/ A- L" [! L- x7 B" k$ X' R! m# p P1=0xff;
- t' Q6 C! d, I% j# N d' d delay();
6 }* {5 r+ y6 t, p led=(led<<1)|0x01;
- b% ^: t: `& }4 G0 ~+ g2 {9 h
1 u6 b" c- P8 B6 P1 T }
* |6 S) M. k) x2 R2 s led=0xfe;( u/ X+ C; f, V) _' z: l) |
for(i=0;i<8;i++){) |+ K9 o0 h8 B8 k
P0=led; _ u9 @9 B- m/ p+ U4 \& x: x+ ~; u
delay();3 o/ ~. o9 O, v% V! l8 Q
P0=0xff;* T% k: n2 Y" p0 s. x
delay();
& W5 D7 Y1 i% T7 e" Q led=(led<<1)|0x01;
9 p- ?4 H8 y; ]; U) c% W+ y2 o# g, S! [% |- S
}* I3 t5 R: d1 i! r. c
}
3 ?4 x- q0 v, N5 \, K) s}. Y5 e9 V/ x' ]/ H( U7 Z3 c( r
void delay(void){
5 m2 c! x9 r8 A int i,j;
* l! u0 e+ `+ r3 d: h for(i=200;i>0;i--)$ L. l9 o6 |6 `- B
for(j=200;j>0;j--);
" k: Q2 @) d- o4 |4 L/ Z }
5 w! V" `! K& S8 A! x
, t+ A4 D1 n# V# }
3 q% H$ S, c) |# M
/ Q" }, Y$ X- h0 z2 b# e7 Y |
|
/1 
发表于 2018-11-5 09:41
收藏
淘帖
支持！
反对！