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

ADC0809模数转换与显示 程序代码及仿真下载

[复制链接]

该用户从未签到

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

EDA365欢迎您登录!

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

x
ADC0809模数转换与显示 程序代码及仿真下载1 t! r, W) x, r& r8 p

: t9 k& N0 d0 b+ V# h* T

- z$ S, e7 y+ @: m# \+ `ADC0809模数转换与显示
; A( P3 a. x0 S程序代码及proteus仿真工程文件下载# ^- Y4 V9 n+ f5 `. c8 _# s2 ?8 c' H4 o

( o/ _  D: z. O) t7 U/ u

$ |1 S: H* I6 B# H& V5 \51单片机程序代码:
' [( I) F+ N0 U; l6 V. f
/***************   writer:shopping.w   ******************/
8 V1 ]6 \5 s6 H#include <reg52.h>
: A, n2 x& i2 y#define uint unsigned int
9 i* d" g, k2 N7 u/ N#define uchar unsigned char
' z+ K/ E: n# ]5 L% I0 v& b- }: n6 N  ^5 O; i, m6 _
uchar code LEDData[]=
$ x1 Z' r3 N5 K: x, @5 E{
8 U- r3 a+ n+ H. ]* e) t% L; H         0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f: r! p) f: V2 k0 `3 ?0 D
};
; B7 }& E6 ?+ J9 G; _4 ssbit OE  = P1^0;) D; G  b+ D$ B" t; B
sbit EOC = P1^1;. q3 u, {! s) B0 B
sbit ST  = P1^2;+ o/ x% l/ B+ Y5 B" X; T
sbit CLK = P1^3;
, {3 W9 F+ Z# o. F. a) A; J+ R
' o% j- O+ Y* B+ P6 h; Qvoid DelayMS(uint ms)# x/ ?( z0 v$ s* C: m# Y; r; `
{* o( V  a. E- ?* z
         uchar i;
, Y7 ]2 M) |: C        while(ms--)1 N0 t7 d' j5 h$ [
        {
2 O4 j5 @( t* q                 for(i=0;i<120;i++);5 f5 r' R* H3 v6 [3 R- E5 V% x
        }- J+ N, y' F2 v. k
}1 @1 H' A1 S# I3 y
- o5 Q/ }* C- M3 k; p2 K3 m6 z9 a- B
void Display_Result(uchar d)
' X" H( K( z' O8 B4 Y{9 F& k) {  J5 w4 \
         P2 = 0xf7;
! k, `" l6 x7 ]# y3 m        P0 = LEDData[d%10];  ^& {7 A1 z& K0 \& K0 d
        DelayMS(5);. M  h- ~! F# s/ ~$ ~- P
        P2 = 0xfb;  X/ u5 a" P6 q- [
        P0 = LEDData[d%100/10];
  p3 ~3 n5 W) z8 ?3 }) I- ~        DelayMS(5);4 r9 G- @# L* Y2 A4 e
        P2 = 0xfd;8 i4 T( y' O9 A$ ?/ g& x
        P0 = LEDData[d/100];
  _- g. H6 \! L5 g) C0 H7 U3 e( j2 d; ^        DelayMS(5);
8 l* s- u4 H8 a6 U}
; c2 j  e7 O5 T0 Z( G9 q& \' V9 a& G4 X
void main()
. Y8 E& I; n6 ~. F' w0 F{
' M$ u  u" u3 P2 n0 A         TMOD = 0x02;0 F# }( U; o4 I
        TH0  = 0x14;
  |$ x0 W+ s5 H2 `; W        TL0  = 0x00;
& O$ F2 @$ A& u: B1 z        IE   = 0x82;( A8 u. T) Z5 k- b
        TR0  = 1;) @0 S/ R! i4 N
        P1   = 0x3f;) `! C8 k" i8 G/ C* R0 P
        while(1)
2 K) D+ D7 a; X        {
* @9 F( X2 G+ P% l( E) q                 ST = 0;2 S% i6 F$ @4 s. E% {
                ST = 1;
( ~9 e) _# X) l0 Y                ST = 0;$ v( ^* b$ V6 I" }; Z" p
                while(EOC == 0);/ V9 L7 S1 A) H
                OE = 1;/ \+ U" u' @" b0 ]  y
                Display_Result(P3);, i! C: i& I$ T* f6 h+ N3 m7 Q  N9 b
                OE = 0;
* d9 @9 I4 e* J# x        }% G$ z2 C: C: d# [& A0 ~$ t4 q
}. c' |) ]$ h. [7 ~2 y+ o
* X6 O% M: F5 j/ p" O
void Timer0_INT() interrupt 1# f( n; }# J8 v4 K' L5 }
{
% m' H' ?. L- o/ k% |: F$ Z         CLK = !CLK;- Y1 E9 d1 O9 M; E) B# ?$ K
}7 @% Q2 ?5 [! Q! |

. I$ g+ j& d5 A* H+ s1 u& Q" B
/ _  F! R$ M. H4 R
' l/ I3 l  w: X3 z1 V; {; F7 R! M* `8 ?2 f下载:3 A9 v1 Z. u3 F, M6 R
游客,如果您要查看本帖隐藏内容请回复

9 Y" z8 r3 z4 j, k7 w$ R+ o

3 Q; B8 }- ~) c# c# t" I+ h
  • TA的每日心情
    开心
    2019-11-20 15:05
  • 签到天数: 2 天

    [LV.1]初来乍到

    2#
    发表于 2019-1-10 17:15 | 只看该作者
    不错,谢谢分享
    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    关闭

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

    EDA365公众号

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

    GMT+8, 2025-10-8 21:50 , Processed in 0.140625 second(s), 26 queries , Gzip On.

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

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

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