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

单片机0-9999四位数秒器 电路环境proteus8.0仿真

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2019-1-5 07:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您登录!

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

x
单片机0-9999四位数秒器 电路环境proteus8.0仿真3 z: i9 _4 f" o* k, r2 `% \  c

, [' L/ G) X5 v- N
$ l$ @, l* z0 Z0 M- m
四位数秒器,电路环境proteus8.07 v3 |  D* m& h' M$ ?# U
单片机源程序:
9 {9 q; C& J2 n8 S" [
#include <reg51.h>
! u4 P1 _. t% M+ Junsigned char code table[]=
2 \" t" B0 N7 |- S{0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90};
) ^1 \7 p( R! ^  [* y; _+ |% _unsigned int m=0;
$ z8 K( _7 l4 [7 {: q9 xsbit P20=P2^0;                //m的个位控制8 [1 \" U5 I+ Q- J( E
sbit P21=P2^1;                //m的十位控制
6 t4 r/ m! {/ Q' c# W+ k: J. a# {sbit P22=P2^2;                //m的百位控制6 e( |$ g0 P4 [0 H7 f' W
sbit P23=P2^3;                //m的千位控制5 ?) U4 }; `6 y5 t* f( `

+ n/ H, o/ G8 fvoid delay1ms();2 G6 H  }3 N6 G
void display();
& q; P/ J. m5 k- k7 S+ i8 `7 U0 |; t# v& Q& j9 P8 p7 g- l
main(); Q- r, F( X. a% v
{* ^6 F8 y5 H0 j+ h3 {( B( ?
        unsigned char i;
; s7 N( k! x6 `        while(1)8 g4 U- |8 Q$ l; g" ?
        {! r: O" U7 h% G# t$ ]9 r' s' Y
                for(i=250;i>0;i--)display();6 E  _9 Y$ @5 d1 t) B6 n% G7 v
                m++;; A4 B4 U; ?5 L# a' A, u8 G) e
                if(m>=10000)m=0;2 X6 ]3 W( Z7 w" G& B
        }
: u8 }% F! N+ y3 a+ w, U" L7 Z}# L- @. N( U+ Z

9 Y& p; h* h3 b# X9 _$ [void delay1ms()8 c9 b1 c/ W8 J1 M
{
4 b+ @. m- W- u        unsigned char i;
, S# V5 N% {) G" y/ G, w/ x        for(i=248;i>0;i--);# D$ {2 v! \/ X. }3 S  V5 n3 W
        for(i=248;i>0;i--);
, D, b' f+ q3 \# U" W8 o) |}
. S$ f. U5 Z6 I- x
% S( M' k' }! rvoid display()
% u+ n. G) W/ m; d8 L{
* [! z3 G0 Q4 T# M( K1 h* E( ~, E        P2=0xff;
! l8 J% o9 B2 R  @3 ?8 V' W        P0=table[m%10];% w* n) F5 i: L* W5 I
        P20=0;
: k' M0 B9 z! z3 N& U0 ~- ]        delay1ms();6 W) E- c& T: u( [" E# S

' q: B# c5 K2 u; Q8 v        P2=0xff;' Z5 ^0 c4 B9 T: s
        P0=table[m/10%10];# V% F1 X+ U; X
        P21=0;# ]& W/ C# ?; e+ ~+ P
        delay1ms();
0 Q/ Q- Q# H7 C, I. c& U, e" Y% C6 Y& B+ @2 W
        P2=0xff;3 o- o, v- x: R: u' g# u
        P0=table[m/100%10];
0 L3 Y* G/ }" f' R  |- s/ e        P22=0;" ?) C4 t% Q9 }7 x) r9 J; A6 J
        delay1ms();
. P6 k+ S9 k! _( w% |: _4 x# w8 M7 N/ O$ B
        …………限于本文篇幅 余下代码请从论坛下载附件…………+ H& z6 v9 O* V
游客,如果您要查看本帖隐藏内容请回复

( n6 |. a6 o" b% ?7 O  `+ W7 z

' I! e( U& P0 r2 J5 x2 w

该用户从未签到

3#
发表于 2019-11-22 22:33 | 只看该作者
感谢大佬的分享
* K: n  A* B- a, z3 J* l3 g3 r- y
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

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

EDA365公众号

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

GMT+8, 2025-10-7 05:48 , Processed in 0.125000 second(s), 26 queries , Gzip On.

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

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

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