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

单灯闪烁 单片机程序源码

[复制链接]

该用户从未签到

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

EDA365欢迎您登录!

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

x
单灯闪烁 单片机程序源码

+ N! M) J& m2 F9 ^/ A- l
#include<reg52.h> $ i6 W3 {" M5 j% M) f( w. o4 f* W

7 p  N9 o) p/ a# [' q! Bsbit ADDRO=P1^0;
3 J" W. j, L. h( f: }' ?2 ~sbit ADDRl=P1^1;( n2 F6 U6 x8 \8 j4 y0 b
sbit ADDR3=P1^3;
7 J# n9 K$ N+ E) Z5 s! }- Psbit ENLED=P1^4;
$ f% {8 Y5 E3 Y) A7 b0 _1 m2 H4 @5 D: J3 L2 P) q9 B! y; ?  ^3 `
unsigned char code LedChar[] = {
/ `2 O/ v) X% T                0xC0,0xF9,0xA4,0xB0,0x99,0x92,0x82,0xF8,8 h8 a0 I4 @+ Q' W- S  y4 c: x
                0x80,0x90,0x88,0x83,0xC6,0xA1,0x86,0x8E
' j7 @  m2 G, U};        5 u2 O6 e7 g, v3 X
unsigned char LedBuff[6] =& C5 y" Y6 R5 @
                0xFF,0xFF,0xFF,0xFF,0xFF,0xFF
* q& P( \" D6 X};
' P! G! N) `! p) c9 B9 t! S% @2 {
7 a9 E9 @  f/ h. D; E( C* h4 Ovoid main()8 Y2 G) g7 e. U  \" I6 o
% V% ^6 `2 w$ k/ h) V2 w
        unsigned char i = 0;8 n$ X) p5 o+ `% F# E
        unsigned int cnt = 0;
8 U9 M) G3 K8 C6 K' q        unsigned long sec =0;
  s9 p2 P% q& z' U" G  |8 A, S) J: w# Y, `! E

' ?# @# `& e* t$ F& `        ENLED = 0;
! r/ r+ S5 I8 T        ADDR3 = 1;
1 e8 F- _/ j+ e, A8 y# h        TMOD = 0x01;
  y1 m9 Y8 M! r/ D" i+ B$ S' I        THO  = 0xFC;
+ g% `. N( C& Y( z0 `1 b        TL0 = 0x67;
* P- t; b# c3 d8 G2 R        TR0   = 1;. O  f) f* `! T+ ?
5 V2 C; b2 E3 I0 |/ V* i0 E
        while(1)
4 o) F' h' I7 b1 ~& O                {
1 B, x9 b/ v) E" ~3 \                        if(TF0 == 1)8 ?! x+ n+ W" A; K. L8 F
                        {, U, I2 X4 f; y, e3 F9 v+ W
                                TF0 = 0;4 u% S) c& C. `! `0 a: G
                                TH0 = 0xFC;
) i) k3 h" @: N0 x                                TL0 = 0x67;
6 j0 U0 N& H6 t( e% s                                cnt++;( ]) g$ ]( s  ~: H
                                if(cnt>= 1000)
' o; B9 N1 o, i# [+ m                                {
$ G1 ^8 @- F3 x: h# P7 \" [                                        cnt = 0;8 \# z3 s2 K' L" j# @
                                        sec++;
4 M: |1 F" d; V! w& X                                        LedBuff[0] = LedChar[ sec % 10];7 n) \* }) P/ d; J" t% O9 X
                                        LedBuff[1] = LedChar[ sec/10 % 10];6 K. I. O- A7 T
                                        LedBuff[2] = LedChar[ sec/100 % 10];0 o- c8 d) e! ]" u" M/ V; F) \" L% B
                                        LedBuff[3] = LedChar[ sec/1000 % 10];
' P" i/ Y  U3 p: p" A; ?                                        LedBuff[4] = LedChar[ sec/10000 % 10];
  G* a4 X, C' P" j0 X  b                                        LedBuff[5] = LedChar[ sec/100000 % 10];# g5 X2 H# p1 A/ x; H3 r2 R
                                }! q7 `5 W2 Z9 O3 s- d
                                switch(i)7 g/ d1 T) \5 [3 B
                                {
$ u4 r* A' P4 @% P+ H/ ?" p4 j$ _                                        case 0: ADDR2 = 0; ADDR1 = 0; ADDR0 = 0; i++; P0=LedBuff[0]; break;- g* Y+ t5 i9 \" |2 X1 i( x. X8 t
                                        case 1: ADDR2 = 0; ADDR1 = 0; ADDR0 = 0; i++; P0=LedBuff[1]; break;# A. X7 ~7 Q, w2 w6 C
                                        case 2: ADDR2 = 0; ADDR1 = 0; ADDR0 = 0; i++; P0=LedBuff[2]; break;9 B2 r8 J- f, h  x/ G4 w& L
                                        case 3: ADDR2 = 0; ADDR1 = 0; ADDR0 = 0; i++; P0=LedBuff[3]; break;* L. d* Y+ K) P
                                        case 4: ADDR2 = 0; ADDR1 = 0; ADDR0 = 0; i++; P0=LedBuff[4]; break;
3 D' D* ]8 l3 I' E' H* C                                        case 5: ADDR2 = 0; ADDR1 = 0; ADDR0 = 0; i++; P0=LedBuff[5]; break;
7 r: ^/ B$ r* n( E! P                                        default: break;
7 a5 F2 V' ~( |8 E5 e* }% Y                                }# J2 O( f5 y1 d7 b
                        }
& S4 w6 p/ z) R+ B6 a% d3 Z1 T# U                }
+ C5 O- t) m# z/ \        }
5 b- E1 C' a4 H5 ]; t
游客,如果您要查看本帖隐藏内容请回复

' D/ N7 P8 D) U; ^) k6 `- K( T

( S1 o) {1 r6 S8 L: O# ~6 f% s! ^5 Q9 R( l

该用户从未签到

2#
发表于 2018-11-27 10:22 | 只看该作者
学习楼主的分享
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

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

EDA365公众号

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

GMT+8, 2025-7-22 07:13 , Processed in 0.125000 second(s), 26 queries , Gzip On.

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

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

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