写的心形灯程序

kinidrily · 发表于 2019-1-17 10:26

EDA365欢迎您登录！

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

x

写的心形灯程序

这个心形灯，希望对你们有用

#include<reg52.h>
#include<intrins.h>
#define       uint       unsigned int
#define       uchar       unsigned char
uchar code table0[]={0xfe,0xfd,0xfb,0xf7,0xef,0xdf,0xbf,0x7f};//LED从低位往高位移
uchar code table1[]={0x7f,0xbf,0xdf,0xef,0xf7,0xfb,0xfd,0xfe};//LED从高位往低位移
uchar code table2[]={0xfe,0xfc,0xf8,0xf0,0xe0,0xc0,0x80,0x00};//LED从1个亮到8个都点亮(从低位往高位)
uchar code table3[]={0x7f,0x3f,0x1f,0x0f,0x07,0x03,0x01,0x00};//LED从1个亮到8个都点亮(从高位往低位)
uchar code table4[]={0x00,0x01,0x03,0x07,0x0f,0x1f,0x3f,0x7f,0xff};//LED从8个全亮到一个都不亮(从低位往高位)
uchar code table5[]={0x00,0x80,0xc0,0xe0,0xf0,0xf8,0xfc,0xfe,0xff};//LED从8个全亮到一个都不亮(从高位往低位)
uchar code table6[]={0xfe,0xfc,0xfa,0xf6,0xee,0xde,0xbe,0x7e};//LED从低位往高位移(最低位始终为0)
uchar code table7[]={0x7f,0x3f,0x5f,0x6f,0x77,0x7b,0x7d,0x7e};//LED从高位往低位移(最高位始终为0)
void delayms(int z);
void main(void)
{
      int n,i;
      P0=0XFF;
      P1=0XFF;
      P2=0XFF;
      P3=0XFF;
/*******************       单个灯循环亮，间隔0.4s**********************/
      for(i=0;i<8;i++)
      {
      P0=table1;. f- k5 l+ h7 P/ s
      delayms(100);
7 P2 c+ o7 ]7 c" l8 N       }; Y, c$ p& E( L& _* v
      P0=0XFF;
2 L+ F5 \, S" B! W5 \       for(i=0;i<8;i++)+ S5 ^$ M0 [7 N8 a  c
      {
/ R/ S: v1 B  J& ]       P1=table0;+ K3 Y5 `8 o, H3 O3 w& D
      delayms(100);
- I5 U  z3 n+ Z6 |       }
9 _/ y0 o/ Y- T7 R4 d+ ^8 I' }" Y2 W P1=0XFF;. n% \: }1 ^6 t/ q" Y
      for(i=0;i<8;i++)
. }& T+ k5 D2 R- e: G       {
3 W, ]6 c" C  n       P3=table0;( w! W: C2 C7 b; T7 m+ r! t
      delayms(100);( y1 _0 [; ~- c% C4 W( d9 i
      }) Y9 ]/ ~$ T# p
      P3=0XFF;, m+ B; A6 e  E. l) W
      for(i=0;i<8;i++)( {# h. J3 h. m4 p* |
      {
" }0 M0 {. z0 k( U       P2=table0;
4 D+ W) Q! N( a) u5 t3 @       delayms(100);
6 Y7 I3 l5 O! s! q4 W* a       }
* d7 r5 L! I7 K       P2=0XFF;1 a% [2 P- h3 W/ |# Y
/*****************四个分开转圈亮*************************/6 L7 M: s5 V! L- i+ h# A! O2 \
for(n=3;n>0;n--)3 Q0 z1 a; U+ B8 g
{( R* o. d8 P: d3 p' K0 w5 G
      for(i=0;i<8;i++)4 c- M# g3 k- K+ F) J
      {4 I+ a* ?3 s- k' |+ W/ o! z, L/ k
      P0=table0;- ^: ?! K5 z% p& t) G# l8 y
      P1=table1;
+ T) h( w: M0 K$ r* T       P2=table1;8 ~: p) f" w+ h, Z( y5 K
      P3=table1;
' N/ v8 O0 b/ D: q6 X( r  b: P       delayms(200);
" P6 b) [1 E' S" }6 x# a1 W       }0 y( p0 g2 X6 o* ?/ z
}7 T( l, s: k+ Q8 ]' L$ Z* k& ]: O
      P0=0xff1=0xff2=0xff3=0xff;
; Y) L% D; @. D1 ^4 o/*四个循环转圈////////////////////////////////////////////////////////四个循环转圈//////////////////////////////////////*/. v9 `; U7 Q# a9 R+ Y: D/ o
      for(i=0;i<3;i++)2 u$ ?$ W$ o5 J6 R" a2 {- U
      {
$ D4 x8 ?) M5 w. J( l- d8 Z( V             P0=0X0F; delayms(50);0 s( ~. p9 ~" z
            P0=0X87; delayms(50);
; U0 S, K* z' r             P0=0XC3; delayms(50);8 u! z2 T, I" A) E9 _' _' T
            P0=0XE1; delayms(50);
4 s0 E8 w3 L# V5 O: {             P0=0XF0; delayms(50);
  P4 @, S0 E3 y" G+ o  v% B             P0=0xf8;P1=0xfe;delayms(50);% X: B4 |6 T" A
            P0=0xfc;P1=0xfc;delayms(50);4 Q! N% q; d# J# p0 y) Q: J
            P0=0xfe;P1=0xf8;delayms(50);/ }5 _% B* j0 `8 C6 S: x, e
            P0=0xff;P1=0xf0;
1 @$ i- I5 C9 ^9 C6 @             for(n=0;n<4;n++)
! E" Q1 E5 B" z& B+ B             {
: Z" ?5 I4 n9 z8 `' x             delayms(50);" t2 c) _% x- L& k" l5 E/ e' p
            P1=_crol_(P1,1);
2 d: X' o5 F8 T4 D/ M* O( [1 b             }: ^$ z* z3 r9 M8 `& {
            delayms(50);
& n: Z! s2 [+ @0 }7 i$ n' H0 W             P1=0x1f;P3=0xfe;delayms(50);
; ?/ X) n. }1 g, ?& B6 x: M! x             P1=0x3f;P3=0xfc;delayms(50);0 A% l& t! F0 \
            P1=0x7f;P3=0xf8;delayms(50);0 W1 M0 v. ?" _* |# S; s& f9 H) ?
            P1=0xff;P3=0xf0;delayms(50);
- X3 D- r" ]0 K             for(n=0;n<4;n++)6 h2 e2 U; @$ Z6 h
            {) X0 {# W' ~  @/ u  G/ @+ Z
            delayms(50);# Q! @. a# E* x! K: A; d* Y
            P3=_crol_(P3,1);2 ^9 u/ l: L+ U0 ]% d' O
            }
, Z1 n! |0 }, Q  p$ U2 ?" H             delayms(50);8 y, S+ ]! C( k2 x  v( a+ Y
            P3=0x1f;P2=0xfe;delayms(50);
; g8 ?) I* k% S7 a! M' F  o/ ^, m             P3=0x3f;P2=0xfc;delayms(50);  c/ ?5 g: W  R$ z' b
            P3=0x7f;P2=0xf8;delayms(50);
8 Z" _  k$ {; `- ?             P3=0xff;P2=0xf0;delayms(50);
% m  V+ y* b5 p" U! W: T9 a             for(n=0;n<4;n++)9 k0 s, c3 s5 n
            {4 q$ i. A; Y9 }6 m- Z0 X3 g8 C
            delayms(50);
- C: D, p# t6 M5 C4 O             P2=_crol_(P2,1);9 k4 y& r- L8 a6 e
            }
# a0 x4 `" C) _  o' h             delayms(50);) _: f6 y4 _. x* @$ |4 s1 c
            P2=0X1F;delayms(50);
, C* h' n8 _& c6 T$ i+ d" d             P2=0X3F;delayms(50);9 {8 R4 E# e- }& C% X3 c
            P2=0X7F;delayms(50);
! B  n$ u# e& V4 K& o% B             P2=0XFF;delayms(50);9 ]" G- R4 P! _8 o- k4 C, B
      }
8 N9 F4 O: P8 G1 c/ c$ M. R/****************左右两边的灯轮流亮//////////////////////////////////左右两边的灯轮流亮/////////////*************/- L$ @/ ^3 U9 f" `5 R4 l% T  B
      for(i=0;i<2;i++)9 S. a% d: u' D9 K* h: ^
      {
! R* P: w; G$ x" X             P0=0x00;P1=0x00;delayms(500);
3 ~$ {9 C8 y# ]5 R$ E0 z             P0=0xff;P1=0xff;delayms(500);
/ S- @' f4 k3 C" I! M             P3=0X00;P2=0X00;delayms(500);
2 w/ N$ a# b6 N3 v" x1 G% [/ i             P3=0XFF;P2=0XFF;delayms(500);# K* B% N9 m6 W% `* a' h
      }
# O& W% j: R& x1 t  l( z1 i) r: ?/******************************间隔亮，相邻的灯轮流亮/////////////////////////////////       间隔亮，相邻的灯轮流亮/////*************/" j, D& J/ q" o* n( |
for(i=0;i<3;i++)
, H' J# [( U' A) `  z  e {2 }' p5 x1 M4 V- x& e
         P0=0X55;
4 R$ z  ~( j7 G: q. a             P1=0XAA;
! c! N; f, }3 Q. o- R             P2=0XAA;* h$ h% j5 e8 w9 ~% E; I
            P3=0XAA;delayms(500);; U+ V: E3 ~+ i% W) B' \# p8 T2 K  U& s
            P0=0XAA;- E" c) X. y0 \6 _1 i. b
            P1=0X55;3 [( X7 o- C0 X& H& W% l: H
         P2=0X55;4 k1 E" d0 X+ L" q. R
         P3=0X55;delayms(500);: A& t& G" N: e0 L! Q: _
      }
3 f* d* Z- i4 H/ O7 v       P0=0XFF;P3=0XFF;P2=0XFF;P1=0XFF;delayms(50); 4 h, k/ `7 B$ D* f
/***************************上下闪，左上右下闪，全闪***************************************/8 @1 J4 W4 n3 r
      P0=0X00;P3=0X00;delayms(500);
! s6 u6 S; g% ?* s       P0=0XFF;P3=0XFF;* x' z* Y% I$ q# W2 ~
      P1=0X00;P2=0X00;delayms(500);
# ], w) L  b) R" G7 ^       P1=0XFF;P2=0XFF;delayms(500);" t% W  R4 g2 X$ ]
      P0=0X00;P2=0X00;delayms(500);. W; g! k. @( W/ i- D
      P0=0XFF;P2=0XFF;) h3 D- k7 p- d% A- m. ]6 n) n" O/ s3 K  H
      P1=0X00;P3=0X00;delayms(500);
  d) H6 A- G7 b  v7 L. [% X0 k       P1=0XFF;P3=0XFF;delayms(500);
$ x& `+ u& v* X+ s  L3 T1 e       P0=0X00;P1=0X00;P2=0X00;P3=0X00; delayms(5000);8 a6 N  u0 T; }0 \" F; `( z" ?
/****************************上下相碰撞，返回***************************************************/
$ a6 @+ y2 |( Y5 [" y# O       for(i=0;i<8;i++)  B5 J' @9 u' E4 k
      {5 ^5 u6 {+ J+ Q0 S% ?
      P0=table1;
/ T3 F9 ?. o/ t3 ]! {$ g       P1=table1;$ a* W" B  w: m3 N4 b$ k
      P3=table0;  Z" p' k( i' U" `) O0 r. J
      P2=table1;" w1 J3 }1 i* {; f) ]8 G. O0 W0 _; ?
      delayms(100);
4 x* C0 s: c2 U4 K% N       }  l8 l( g+ q" ?
      for(i=0;i<8;i++)
' L/ g2 j9 C) D/ E5 h3 U       {
6 R. C& S3 H$ n/ f! a/ K       P0=table0;
' P; x: I% P# G6 P  k       P1=table0;
6 v! q6 i& y  b/ t' U       P3=table1;& ]- C/ F: J! [1 T4 p/ L
      P2=table0;
/ i; v; i5 u* V6 L5 ~( X       delayms(100);$ u* ?/ }/ N2 r8 a  z. S6 L
      }5 G* D$ B: r) o; c% P
/**************************逐渐全亮，逐渐全灭**********************************/% o5 a- w8 [: q7 ?
      for(i=0;i<8;i++)' W! X% F- c" \  Y3 @3 {/ {( z# _
      {
5 z$ ]' _! F) B       P0=table3;P2=table3;delayms(100);
& l- W' c" ]# d       }* i6 Z0 a/ C( G6 |4 T% N
      for(i=0;i<8;i++)) ^, ]7 H4 w1 `" p. U4 s
      {
; T. z4 J+ p3 i4 E8 q       P1=table2;P3=table3;delayms(100);
& p* ~+ K4 C" k       }
& G- V# n5 j" ~       for(i=0;i<8;i++)1 O: g7 r+ s% O
      {
9 g8 @; l2 ^+ Y       P0=table5;P2=table5;delayms(100);
( R* z" o' z$ _9 M0 R       }
: _- v% @2 L( t9 \+ ^. R       for(i=0;i<8;i++)% u9 C- S% A+ m  q2 e8 w, K- W+ I
      {/ `5 O0 {8 c2 i0 R8 w3 D
      P1=table4;P3=table5;delayms(100);9 B4 U8 X/ e- k& B9 e4 Z$ ^1 ~( a" ?
      }
; s5 Y0 s7 p" q& k/*从两边开始逐渐全亮到逐渐全灭************************************************************************/# n( N, J, H. B( a* z
      for(i=0;i<8;i++)
: C% J' g9 M% M  P5 c       {% }) P( y" W) R  Z
      P0=table3;P2=table3;delayms(100);
8 Z/ {; M" x7 z/ p" W$ d       }! f4 q. k1 q, {6 J( X) ]- b) l2 p0 n7 k, c
      for(i=0;i<8;i++)# @7 g' s1 x- l- ^  y
      {
( m4 H  L; R" B; Y- e% v8 k; Z# V       P1=table2;P3=table3;delayms(100);
+ n1 @* M4 g8 M7 c( F5 r, R, Q5 m       }
+ B- [6 ~* t* ?4 F, s0 T$ V: V1 M; N       for(i=0;i<8;i++)
/ Y- s  H& Q& P1 L/ L       {9 d9 I2 [0 S% w% e* B
      P0=table5;P2=table5;delayms(100);
% Y' t& _5 b* {2 z! d       }. _& w. L; O$ z0 k- e  b' H, C
      for(i=0;i<8;i++)' E/ }2 \) X/ _6 H0 ^3 Y* p9 h
      {
8 t/ g. g0 I/ n: l3 Z       P1=table4;P3=table5;delayms(100);
" _4 C. J2 f- O. Q. X       }% [( Q0 B5 }5 E3 D0 ?, i2 k6 d( `$ S
& @. l# Q' C+ o! q
}
! y3 C, \9 u4 o- |  |- `4 G/******************************延时函数/////////////////////////////延时函数//////////////////////////////*/* G! N0 n. p9 f9 K( x9 O
void delayms(int z)
3 @) a$ I' _+ v7 {% N{
4 S5 `& b  o$ U/ R% ~$ L) R; Wint m,q;) v# Y) p) |; y( S
for(q=0;q<z;q++); h  P* ^( }5 c4 y6 i5 U7 ]# ?; N; i
for(m=110;m>0;m--);+ i' i/ z) l9 F0 Z( P; s
}9 f) E, ^5 Q/ W+ h" R- Y
9 e6 C9 g. u: o$ h6 U0 q' u* B
下载：1 [$ W! ]) b6 e, ^

游客，如果您要查看本帖隐藏内容请回复

sunygd · 发表于 2019-1-17 18:05

看看楼主的代码

帐号		自动登录	找回密码
密码			注册

写的心形灯程序

EDA365欢迎您登录！

浏览过的版块

推荐内容 /1