|
|
EDA365欢迎您登录！
您需要 登录 才可以下载或查看，没有帐号？注册
x
51单片机16位流水灯程序源码与proteus仿真 分享一个简单的单片机流水灯仿真实验。
! ?) D6 N& v+ Y+ a p% m% R5 _16位流水灯仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）
- T( U, ?% \- ~. n. @) o![]() , ^6 J2 D+ p0 z( f! ~
2 @7 d9 L ^& a2 P" |" }' d6 M
单片机源程序如下: |
! y6 l6 F% Y/ b- \: O
#include"reg51.h"7 J! K, L$ l8 f. n W- s
void delay(void);
" k- {. p0 W' m* lvoid main(void)
) c) p& h+ H9 `: V- n{8 U+ j, W6 W+ [4 w5 a6 U4 N
unsigned int i;4 p: V! w X) j, C, u5 r f# E
unsigned char led;: j0 e8 {+ x3 U. T
while(1), {( W+ U: J/ x+ e
{) z+ B" ~* x) A' H# E4 y$ y
led=0xfe;- H, x# [; |# q
for(i=0;i<8;i++){4 K4 s2 k! o; w. l9 M; S8 F
P1=led;
( r" T! Z. t: ]/ c7 w delay();/ ^) [" J# q7 B! J0 x3 O0 |" A
P1=0xff;
$ z! a& Y2 y: D( S* _& ], a' ^ delay();8 i e" w/ o9 Q/ x0 p7 I! ]
led=(led<<1)|0x01;( M/ p5 O6 q! }6 w
% A. l" d3 f6 i$ [* l }
) J7 U" a8 P/ Q6 ]8 R. w led=0xfe;& m9 ^ Q3 G4 I! R# Z0 t9 |2 ]9 `1 n
for(i=0;i<8;i++){
. W8 d; w( P, M* ]% @ P0=led;; F* @2 A( M' [" g' m V0 `
delay();3 M: _% Y0 g& _5 f& I1 v7 v J
P0=0xff;
' f4 p4 ^! p( C$ a* T4 O delay(); W- c# A/ A4 @4 h1 q# k
led=(led<<1)|0x01;3 s0 x# s4 |# | V9 ]
% K2 \6 u0 d8 o. X' P2 u
} I& n, c) J" i4 [9 ?' h! ~
}% y# o: D7 |, Q# K% w
}
4 T, G8 z( q9 v% T. I, G void delay(void){
% F: }5 ]3 l2 u( n% [9 M$ G$ a* K int i,j; j2 ?8 K' _" `6 Z$ T% f
for(i=200;i>0;i--)
2 c* R9 J$ v1 b9 v# d for(j=200;j>0;j--);# l5 W# N4 n/ N9 _& z' c
}
* u) H" F. a! E t. A O) c, q( ~2 U) a7 n" m0 w. s" |
- B$ v% L- D$ V/ R3 A5 m8 n
) d& p9 ?# ^; U. d9 M$ K |
|
/1 
发表于 2018-11-5 09:41
收藏
淘帖
支持！
反对！