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

单灯闪烁 单片机程序源码

[复制链接]

该用户从未签到

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

EDA365欢迎您登录!

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

x
单灯闪烁 单片机程序源码
. E$ e% Z) o# Y' A9 ?
#include<reg52.h> + _6 |' {9 y: x. c1 B, }( z
" h4 s* |. U" `6 f
sbit ADDRO=P1^0;, T, B7 u: Y; e  x* t& ^
sbit ADDRl=P1^1;
4 C( R0 h; }  u( n$ V! r# _" e# V% R$ Asbit ADDR3=P1^3;
1 P: y. R6 J9 a+ z) X$ ysbit ENLED=P1^4;
2 A4 h, Q6 ?' f+ S& _
1 v- @" J' J( U0 ~3 kunsigned char code LedChar[] = {& n1 n" B" W3 Y5 P
                0xC0,0xF9,0xA4,0xB0,0x99,0x92,0x82,0xF8,
, s* x1 c# Q3 H2 L8 j                0x80,0x90,0x88,0x83,0xC6,0xA1,0x86,0x8E1 A1 M+ t1 E  f- W( t. m2 w
};          R) U$ O# X* o. m4 a; L
unsigned char LedBuff[6] =. `2 @8 ?8 m, j! E' r# l$ p! R" b
                0xFF,0xFF,0xFF,0xFF,0xFF,0xFF
3 q$ A: `' u0 b8 s8 V};$ V! l8 D. P7 W8 Y. A
2 t" x. c8 p# D
void main()
4 `1 \' n: a2 z8 o, M
/ l1 ]* o/ ~/ N) D$ u        unsigned char i = 0;! V& e3 Q1 W& B; v/ E" q
        unsigned int cnt = 0;6 ~! u& L1 R" _3 R  x
        unsigned long sec =0;+ |' N, ]$ g: l9 M; o2 V

4 l  k5 q7 j5 h  W7 p% ^, L; x
; q* _2 n3 C* U- t; f        ENLED = 0;; F+ z# Z9 _6 ~
        ADDR3 = 1;
, |9 _7 k, U! L* t1 M4 r" \" h) h        TMOD = 0x01;& m  ?$ i8 Q/ I, U8 h
        THO  = 0xFC;' n, E% ]6 W4 D4 C- x  S4 r6 G2 V
        TL0 = 0x67;! v) Q0 k7 Q; B" `1 x. }9 @+ V
        TR0   = 1;
% q# f& ~: e+ T. E3 ~" D$ b& X
- {) y4 Z4 A/ f9 o" [5 r        while(1)5 b  Y" e* ^. J1 U6 R' V' ^
                {7 c7 L# ~) i5 G) V$ s$ J
                        if(TF0 == 1)
3 u; u: Z4 p7 z+ @/ K9 D6 [                        {
0 ^7 E, s, q( T+ Y% v- |                                TF0 = 0;
  Q! [. \6 O7 `2 @& n+ @* E                                TH0 = 0xFC;) \3 g7 k# D. e
                                TL0 = 0x67;
9 n$ D( u# ~/ q* ~                                cnt++;
( A( i" I0 o5 j8 S                                if(cnt>= 1000); w: ^& f: N0 Y* q9 R
                                {
; {; A2 Q4 X+ @                                        cnt = 0;
- m# T6 k- a8 X% D2 P2 s2 d                                        sec++;7 ]  z- T# M! }5 `" b
                                        LedBuff[0] = LedChar[ sec % 10];
" r7 K3 H& j, ~& k4 K                                        LedBuff[1] = LedChar[ sec/10 % 10];9 q& v/ K) Q2 m1 `8 R
                                        LedBuff[2] = LedChar[ sec/100 % 10];
0 ^1 v0 n9 \/ p5 s, g+ |                                        LedBuff[3] = LedChar[ sec/1000 % 10];/ ?: N2 L: b& q, U
                                        LedBuff[4] = LedChar[ sec/10000 % 10];
. x: q! U+ L* \; {' f+ j) |                                        LedBuff[5] = LedChar[ sec/100000 % 10];" v+ m: u2 K7 `. ~1 D7 H. @8 n
                                }
" }( ?7 ?$ e' p- c4 ~                                switch(i)/ X0 p1 m/ v' b
                                {. k. _( b0 }7 c
                                        case 0: ADDR2 = 0; ADDR1 = 0; ADDR0 = 0; i++; P0=LedBuff[0]; break;6 `& u0 J8 o; w& X  n  ^
                                        case 1: ADDR2 = 0; ADDR1 = 0; ADDR0 = 0; i++; P0=LedBuff[1]; break;3 k( s/ v# S; c+ K
                                        case 2: ADDR2 = 0; ADDR1 = 0; ADDR0 = 0; i++; P0=LedBuff[2]; break;& @# W/ z0 \/ l9 r6 T0 ^! V
                                        case 3: ADDR2 = 0; ADDR1 = 0; ADDR0 = 0; i++; P0=LedBuff[3]; break;0 a2 U! q3 |& t5 v
                                        case 4: ADDR2 = 0; ADDR1 = 0; ADDR0 = 0; i++; P0=LedBuff[4]; break;3 E5 o" ~" e* z5 x6 {+ \$ f
                                        case 5: ADDR2 = 0; ADDR1 = 0; ADDR0 = 0; i++; P0=LedBuff[5]; break;) g: z1 u, S7 Y) `2 c8 D
                                        default: break;
+ P8 d) ]' p% T+ ~                                }; v/ ?" o% ~' g+ b" X, p
                        }
/ N5 \0 A+ F7 X. T  @1 q                }+ Y- s/ ~0 M+ q7 y. r
        }
4 k. U5 _. j# }3 `; o3 g# a
游客,如果您要查看本帖隐藏内容请回复
  H% ]9 ^. q  F1 \
3 s7 f# n  D5 y( L0 ]
9 p  S- n: J6 W* z) x: L6 L

该用户从未签到

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

本版积分规则

关闭

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

EDA365公众号

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

GMT+8, 2025-11-6 18:08 , Processed in 0.140625 second(s), 26 queries , Gzip On.

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

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

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