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

51单片机输出彩灯,随机变化

[复制链接]

该用户从未签到

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

EDA365欢迎您登录!

您需要 登录 才可以下载或查看,没有帐号?注册

x

6 m% d1 v- N: g" ^& w) e#include<reg51.h>
+ Q2 @- w6 Z8 Q5 P8 O/ o+ ?9 @- [#define uchar unsigned char
! P$ d% p. e3 Z" S0 E, Xuchar code play_rom[6]={0x55,0xaa,0x0f,0xf0,0x99,0x66};
1 N3 K% H: q6 @9 \+ ^6 V: t
0 F& h( H% I) Rvoid delay(void)
/ q" X4 X9 J7 q* x( H' ^: ~# ~{6 P% @3 M1 t1 [+ U% `
        uchar i,j,k;: c) j: K' }3 K+ J
        for(i=10; i>0; i--) //外循环5次每次约0.1s,共延时1s2 A. n$ `# ~  {  L
        {
  w# @4 z, \  }4 p) p+ k                for(j=200; j>0; j--) //循环200次,每次约0.5ms共延时0.1
( _, X% C9 c8 Z0 E6 \" R1 y5 l0 t                {
+ Y5 Y" b# c/ j! }                        for(k=250; k>0; k--) //内部循环250次,延时约250*2us=0.5ms
" v7 p; C' ~& O# W- G3 a  F1 B                        {
# j  |# R6 f' t/ {0 x                                {;}6 i# ], ^- R! [5 S6 }* s" R( m
                        }$ Q9 n& p3 h. d1 X' ^# S7 B$ _
                }( Z% R5 \' `( G! u! R
        }
( L4 q& D* \/ ?+ J, Q}
- q) O% j6 T8 h9 w) K$ h. _% |1 M/ ?  d% Y2 |6 m, I+ n: \) t
void main(void)! ^) ^2 f" h" A+ f0 m# t/ z
{4 J# T. z: D% |& g+ Q# M
        uchar i=0;
/ M- R0 }7 I/ h/ s- F) f        while(1)
( m: E. H; y' B+ X! _        {8 l- z* R0 H, Y( ?$ o+ |
                for(i=0; i<6; i++)! v7 y+ P6 Q5 F: _5 `
                {. q4 Z; f; O) }. n+ p
                        P1=play_rom; //P1输出数组第i号元素
, l: r$ c) u7 S! J2 x5 g                           delay();* a/ [' e/ z  ]7 ?  i  r; _1 j
                }. G' `7 m, O7 T: J9 Q
        }* \9 ]% y6 r% a
}
) l$ k! B0 Q5 [

该用户从未签到

2#
发表于 2022-9-1 10:06 | 只看该作者
好东西,谢谢分享!

该用户从未签到

3#
发表于 2022-9-1 11:19 | 只看该作者
感谢分享,正在学习中。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

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

EDA365公众号

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

GMT+8, 2025-10-8 14:19 , Processed in 0.156250 second(s), 26 queries , Gzip On.

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

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

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