基于C8051F的简易电压表.doc

河南机电高等专科学校C51程序设计大作业 设计题目： 简易电压表（03.3V）班 级： 通技 091 学 号： 090413122 姓 名： 成 绩： 2011年11月1 设计任务设计制造一个简易电压表，要求精度0.01V，范围为03.3v。测量要反应灵敏，精度要。2电路原理图 本次设计采用了电信班的单片机（c8051f410）实验板。原理图如下：3 系统流程图单片机C8051F410八位数码管显示驱动CH452电压输入4 源程序#include C8051F410.hvoid PCA_Init()/关闭看门狗 PCA0MD &= 0x40; PCA0MD = 0x00;void ADC_Init()/初始化adc转换 ADC0MX = 0x08; ADC0CN = 0x80; ADC0TK = 0xF7;void Voltage_Reference_Init()/设置基准电压 REF0CN = 0x18;void Port_IO_Init()/初始化I/O口 P1MDIN = 0xFE; P1MDOUT = 0x20; P2MDOUT = 0xFF; P1SKIP = 0x01; XBR1 = 0x40;void Oscillator_Init()/设置振荡器频率 OSCICN = 0x85;void Init_Device(void)/初始化函数 PCA_Init(); ADC_Init(); Voltage_Reference_Init(); Port_IO_Init(); Oscillator_Init();sbit FMQ=P17; /蜂鸣器sbit CH452_SCL = P13;sbit CH452_SDA = P14; sbit CH452_KEY = P15; unsigned char dispbuff = 0,0,0,0,0,0,0,0; /显示缓冲，初始显示全0unsigned int CMD,DAT,DAT1,j;code unsigned char font32 = 0xFC,0x60,0xDA,0xF2,0x66,0xB6,0xBE,0xE0, /01234567 0xFE,0xF6,0xEE,0x3E,0x9C,0x7A,0x9E,0x8E, /89ABCDEF 0xFD,0x61,0xDB,0xF3,0x67,0xB7,0xBF,0xE1, 0xFF,0xF7,0x00,0x62,0x02,0x12,0x7C,0x1C;unsigned long ads,AD_I,AD_II,AD_III,AD_IIII;unsigned int adc() /ADC转换函数 AD0BUSY=1;do while(AD0INT=0);AD0INT=0;ads=ADC0H*0x0100+ADC0L;return(ads); void delayms(unsigned int i)/* mS延时 */unsigned intj;dofor(j=0;j!=1000;j+);while(-i);void delayus(void)/* uS延时 */ unsigned int k; for (k=0;k10;k+);void toch452(unsigned int cmda) /* 命令、数据送CH452 */unsigned char j;CH452_SDA = 0;delayus();CH452_SCL = 0;delayus();CH452_SCL = 1;delayus();CH452_SCL = 0;for (j=0;j16;j+)CH452_SDA = cmda&0x8000;CH452_SCL = 1;delayus();CH452_SCL = 0;cmda=1 ;CH452_SDA = 1;delayus();CH452_SCL = 1;main()unsigned char i;Init_Device(); /初始化delayms(100);CMD = 0x9103;/设置CH452系统参数toch452(CMD);CMD = 0x9500; /设置CH452显示参数toch452(CMD);FMQ=0; /蜂鸣器0不响while(1)for(j=0;j10); /1024次求平均值AD_II=0;AD_IIII=(AD_III*3310)/4095);dispbuff 7=26; /灭dispbuff 6=30; /Udispbuff 5=29; /=dispbuff 4=(AD_IIII/1000)+0x10;dispbuff 3=(AD_IIII%1000)/100;dispbuff 2=(AD_IIII%1000)%100)/10;dispbuff 1=(AD_IIII%1000)%100)%10;dispbuff 0=26; /灭DAT1 = 0xA100;/8个数码管逐一送显示for (i=0;i8;i+)DAT = DAT1 + fontdispbuff i;toch452(DAT);DAT1 = DAT1 + 0x0400;参考文献【1】 Brian W.Kernighan，Dennis M.Ritchie.C.程序设计语言.机械工业出版社，机械工业出版社，