数码管前三位显示一个跑表，从000到999之间以1%秒速度运行

yxlk · 发表于 2018-11-30 14:05

EDA365欢迎您登录！

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

x

数码管前三位显示一个跑表，从000到999之间以1%秒速度运行
( I; w' J5 P5 y

单片机源程序：
/**************************************************
                              数码管前三位显示一个跑表，从000到
                              999之间以1%秒速度运行，当按下一个
                              独立键盘时跑表停止，松开手后跑表
                              继续运行。(用定时器设计表).

**************************************************/
#include <reg52.h>

#define uchar unsigned char
#define uint unsigned int

uint bai,shi,ge,xx;
uchar a;
sbit du=P2^6;
sbit we=P2^7;
sbit k1=P3^4;
sbit k2=P3^5;
sbit k3=P3^6;
sbit k4=P3^7;
uchar code table[]={
0x3f,0x06,0x5b,0x4f,
0x66,0x6d,0x7d,0x07,
0x7f,0x6f,0x77,0x7c,
0x39,0x5e,0x79,0x71,
0x76,0x79,0x38,0x3f};

/*****************************

                                    T0定时器10ms

******************************/
void ding()
{
      TMOD=0x01;
      TH0=(65536-9216)/256;
      TL0=(65536-9216)%256;
      EA=1;
      ET0=1;
      TR0=1;
}
/*****************************

                                    初始化函数

******************************/
void chushihua()
{
      xx=0;
      du=1;
      P0=0xff;
      du=0;
      we=1;
      P0=0xf8;
      we=0;
}

/*********************************

                     延时函数

*********************************/
void delayms(uint x)
{
uint i,j;
for(i=x;i>0;i--)
for(j=110;j>0;j--);
}

/**********************************************

                                                      显示函数

**********************************************/
void xianshi(uchar b,uchar s,uchar g)
{
      bai=xx/100;//百位运算
      shi=xx%100/10;//十位运算
      ge=xx%10;//个位运算

      we=1;
      P0=0xfe;
      we=0;
      du=1;
      P0=table;
* h0 y( n) S6 B& C' [       du=0;
  E& j" [/ q1 V# Q  T- @       P0=0xff;//防止位未选数码管隐约亮5 G7 Z/ s, s+ w  H
      delayms(5);
2 T; M: [6 B1 F  d' s+ h/ T  l5 `9 ^% w" E9 M! O
      we=1;
- f3 y0 _  P9 }       P0=0xfd;' i! V" a! F8 x6 c4 j3 o( T0 |& ?% @
      we=0;
$ [  k( |2 I0 \       du=1;
3 M5 V5 X# j1 S/ X% f       P0=table;
: C2 p- U0 ^6 `% ^. ~4 O       du=0;
, A  u! R4 @9 G3 X6 y       P0=0xff;
% u( }6 X% x5 @( V# ~. P7 ?       delayms(5);0 `8 S! J* ?& p4 z3 \: A5 T. E

% Z8 S. d7 F( y) s       we=1;+ v( _# L. z/ f
      P0=0xfb;+ ]$ Q9 ^0 ]" M5 z8 P9 ~
      we=0;- G/ r$ |$ Q, O6 a- a
      du=1;
! g/ ]( R' s' y6 c  P) |. k5 _       P0=table[g];  o* ?4 [6 i% ]0 m) a2 O, a1 _+ C
      du=0;
9 S5 P" k+ N1 _& L: H/ s       P0=0xff;
  r; s( B7 n( X4 K* g# y+ W       delayms(5);  o6 W) o! p# ?3 S$ q( ^
}; B) J& E. u, o7 z; A1 @
1 g% m* g- M0 N* q
/*******************************. W; D. D% ]3 [
! E! }' _6 y1 H+ A+ K# g+ P
      键盘扫描函数
: G3 p- b) n" w) r
" M* s  u; Z; P4 {********************************/
+ Z. v+ X" h/ ^void keyscan()( X4 C5 U/ c0 {( j: a# v6 O
{5 a/ r3 a7 h7 P6 f4 C* z
            if(k1==0)7 E2 L! i1 B8 r
            {
% T4 w1 f% z; Y9 D                      delayms(10);
, I, R$ L. I% [. E9 F                      if(k1==0)                      6 D5 W: k. m9 m8 S% W. T% t+ [
                              TR0=0;
3 W, b5 w7 k# l# D: U2 K: u6 C                      do
5 r+ D+ ^* [4 J! T& e, l                               {1 O  A2 t/ i$ }" R* J! ^) j2 I
                                    xianshi(bai,shi,ge);+ C4 R( j( Z% p1 Z$ i
                              }
' k) b6 L  Z& b' b( K3 I# H6 c( Y                               while(!k1);
- o; k5 u5 L3 _4 K9 d
  p& a4 Q4 V' w% T" z                               TH0=(65536-9216)/256;+ K  |, @/ l- d& n
                              TL0=(65536-9216)%256;//松开按键后定时器重装初值
1 |) K! D. l. C9 h2 ^) [, a. n                               TR0=1;
% b. {& u: U# i1 F' {             }
3 d. P7 H+ q3 P# L# f: D! S( U
: k$ J2 ~6 A& p9 Y- D( C% e9 r, a! m: o6 {% q5 g4 X2 |5 ^

3 W: x* ~& s0 m7 p; f% @  M* A       if(k2==0)2 s' _6 y. w! {$ Q* p) n
                     {
3 U# t; l2 K* ^" H5 S                               delayms(10);
& ]. H+ ~% ~: E! y' o1 M                               if(k2==0);       : V: [1 k  A8 x- z8 l1 s
                                    {
5 ^# \& W! H* o                                  while(!k2)# z9 W1 d7 Q  b+ m9 T
                                       {
2 X, e8 X. G3 |* J                                                 TR0=0;
$ X3 Q' ]) [. T4 Q                                                       do. @, G! x: Q5 L' j/ |* O- P- O
                                                      {
6 T5 ^( `+ i+ |2 p3 p1 `* y                                                 xianshi(bai,shi,ge);- s/ H" G6 K" D5 n
                                    }( T' Y# M/ E  Q7 U' Q+ F
                                                      while(TR0==1);
1 S8 F7 j: w9 i1 W/ E                                        }, ^8 G4 V5 S( r! |2 G$ s9 l9 O4 ?% o
                              }             4 T" ^6 P' [/ e5 B' x) `8 H
                     }
. J0 |+ h5 I7 f; x, e2 @2 e# k1 ~# I  x. L: Q

# w8 o6 y! m# V0 r, t                      if(k3==0)0 }- F- N" p6 b- `' D- m
                     {
9 U2 s" `# V" l, z: K2 [                               delayms(10);
* k2 L; c! ?3 U                               if(k3==0)+ X+ O0 H2 {* N; Z0 |: D$ l+ T8 f
                              {
* B; l+ ~% z. h, }. H; ~$ w6 k                               while(!k3)
4 k; a* h- F* d( ?3 [                                     {                                              ) G, _  b9 o4 }3 M
                                             TH0=(65536-9216)/256;
  b) {1 e) @1 a$ d                                              TL0=(65536-9216)%256;" D9 \1 Z/ ]% G/ g; u# x
                                             TR0=1;
* `& d, R$ Q7 `                                     }
% R: q+ k. E2 V1 ]                         }
- V/ \1 q$ M* `+ ^0 F1 q: c& w                      }5 y4 m7 z- d6 {6 E" P$ ?
                     if(TR0==0)
: f3 b( y. s4 T2 J* A                      {       ! h9 z; l& ]- U" D! Z0 B
                                    if(k4==0)) a* u/ \! o+ M: F- m
                                    {) ~- J3 ^: ?; \6 @; R- F( c
                                             delayms(10);! |0 j6 O' S. [5 O# A
                                             if(k4==0)
4 Q: \3 C. x5 ^9 C/ D                                              {
& B+ v& r/ u5 z/ G                                                       while(!k4)& \$ U- J; s$ V8 k' U1 i. ?' u
                                                      {
: N3 G0 `. O. t5 O! H# J8 M                                                             xx=0;
% Z- X5 a* }7 ?! g3 o: Z) M0 H                                                       }
9 x: v7 L; L; t; t0 b                                              }       : S0 b; N8 Z8 d* w
                                    }
5 B. X4 D1 B3 S% B! i! |                }" E6 v, o3 h7 S! n; ]/ N
}
5 a- t) Q. d( o+ G" F& M/********************************
! g% \, w$ c2 A- a6 A/ H; }& G( B
! ^) a( d, x' V  W3 ~3 |                                              主函数0 \  o; y9 {+ \" w8 ]6 Z
2 D6 Y1 f) f; e$ T4 n7 ]. o# k
********************************// A1 k, K* M" |3 n( G& @
void main()
/ n, K4 q  K. |3 j# V" u" M{
1 _  @8 B) B% z" I5 e       ding();. Q) w3 _6 a6 L) e+ W3 L2 H
      chushihua();3 ^$ |( `' I; V2 W: W
      while(1)3 p6 }- A! B# @6 y& I1 i8 M
      {       * ~7 s( o9 m* G- \+ @/ C2 m
               keyscan();
0 S, e9 }* w6 @  B: ~                      xianshi(bai,shi,ge);
$ p' a; c! F( ]: x6 f; _# S, W  S; G1 S* \) _% `* c8 y, K6 M4 g
7 t$ T* A/ m) C% U* @, c
…………限于本文篇幅余下代码请从论坛下载附件…………
. s0 a4 @8 Z4 v$ c
游客，如果您要查看本帖隐藏内容请回复

- O9 a9 v. ~! b5 ?3 o6 a~~! ~- I) D8 _3 w4 Q' J1 F/ }~~

fanichicl · 发表于 2018-11-30 14:27

看一看

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

数码管前三位显示一个跑表，从000到999之间以1%秒速度运行

EDA365欢迎您登录！

浏览过的版块

推荐内容 /1