用89C52单片机驱动AD574A程序在四位共阴极数码管上显示.doc

用89C52单片机驱动AD574A 程序 在四位共阴极数码管上显示#include#include#define uchar unsigned char#define uint unsigned int#define AD574Data P1#define ADC_8 AD574_A0=0;#define Out_H8 AD574_A0=0; /高八位输出#define Out_L4 AD574_A0=1; /低四位输出#define AD574_Start AD574_RC=0; /启动AD转换#define AD574_Read AD574_RC=1; /读取转换结果sbit dula=P26;sbit wela=P27;sbit AD574_A0=P30;sbit AD574_RC=P31;sbit AD574_STS=P20; /STSuchar A1,A2,A3,A4;uint AD574value;uchar code table=0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71;void delay(uint xms)uint i,j;for(i=xms;i0;i-) /i=xms即延时xms毫秒for(j=110;j0;j-);void display(uchar qian,uchar bai, uchar shi, uchar ge ) /显示子程序dula=1;P0=tableqian; /显示千位dula=0;P0=0xff;wela=1;P0=0xfe;wela=0;delay(5);dula=1;P0=tablebai; /显示百位dula=0;P0=0xff;wela=1;P0=0xfd;wela=0;delay(5);dula=1; /显示十位P0=tableshi;dula=0;P0=0xff;wela=1;P0=0xfb;wela=0;delay(5);dula=1;P0=tablege; /显示个位dula=0;P0=0xff;wela=1;P0=0xf7;wela=0;delay(5);uint AD574Convert(void)uchar h8,l4;ADC_8;_nop_();AD574_Start; /启动转换_nop_();while(AD574_STS=1); /等待转换结束AD574_Read;_nop_();Out_H8;_nop_();h8=AD574Data;Out_L4;_nop_();l4=AD574Data;AD574value=(uint)(h84)+(l4&0x0f);return(AD574value);init() /ad初始化AD574_A0=0;_nop_();AD574_RC=1;_nop_();void main(void)while(1)init();AD574Convert();display(A1,A2,A3,A4);A1=AD574value/1000;A2=(AD574value-A1