基于51单片机的电表电量采集系统程序

#include <reg51.h>//AD7135直接与单片机相连采用查询的方法多路#include <absacc.h> #include <intrins.h>#define ucharunsigned char#define uintunsigned int#define ulongunsigned long#define ADP2#define ADP0#define CD4051P1#define fosc12//晶振频率#define time02000//定时2000us#define jishu1000//假设AD输入电压与对应瞬时功率的基数//1V对应1000w uint idata jisuandu;//临时变量，用于计算电度数uint idata time0_0;//临时变量，用于计算定时sbit STAT7135= P1^7;// 7135的启动端sbit busy= P2^6;// 7135的忙端sbit st= P2^5;// 7135的选通端sbit CS7221= P1^5;// 7221的片选sbit DIN7221 = P1^4;// 7221的数据端sbit CLK7221 = P1^6;// 7221的时钟端sbit SDA=P3^1;//2416的数据端sbit SCL=P3^0;//2416的时钟端//sbit en_24c16=P3^4;uchar DISPBUF[8]={0,1,2,3,4,5,6,7};//显示缓冲区uchar ADBUF[40]=0;//AD缓冲区（万千百十个）*8uchar TIME[2]=0;//用于定时uchar BUF[5]=0;//数据处理缓冲区void delay(uint n);//延时子程序void Initial7221(void);//MAX7221初始化void WR7221(uchar addr,uchar Data);//MAX7221写程序void Max7221Display(uchar *buffer);//MAX7221显示程序void time2ms(void);//定时器0初始化程序void time0_int(void);//定时器0中断服务程序void ICL7135(void);//ICL7135 8路信号AD转换程序void SAVE(void);//电量存储转电度程序void start_bit(void);//IIC开始条件void stop_bit(void);//IIC停止条件void mast_ack(void);//IIC应答bit write_8bit(uchar ch);//IIC写8位数据uchar read24c16(uint address,uchar *shu);//IIC读字节数据uchar write24c16(uint address,uchar ddata);//IIC写字节数据uchar page_wr(uint firstw_ad,uint counter,uchar *firstr_ad);//IIC页写uchar page_rd(uint firstrd_ad,uint count,uchar *firstwr_ad);//IIC页读main(){//while(page_wr(0,120,0)==0);Initial7221();Max7221Display(&DISPBUF[0]);delay(40);time2ms();while(1){if(TIME[1]%10==0){ICL7135();SAVE();}}}void WR7221(uchar addr,uchar Data){uchar i;CS7221= 0;for (i=0;i<8;i++){CLK7221 = 0;DIN7221 = (addr&(0x80>>i)) ? 1:0;_nop_();_nop_();CLK7221 = 1;_nop_();_nop_();}for (i=0;i<8;i++){CLK7221 = 0;DIN7221 = (Data&(0x80>>i)) ? 1:0;_nop_();_nop_();CLK7221 = 1;_nop_();_nop_();//初次使用时清电量数//初始化7221//开机默认显示0~7//xx//启动定时器//5秒时间到//启动8路AD转换//存储电能//MAX7221的写子程序//片选有效//写8位地址//时钟低//先发高位依次到低位//时钟高上升沿锁数据//写8位数据//时钟低//先发高位依次到低位//时钟高上升沿锁数据}CS7221= 1;//片选无效}voidInitial7221(void)//MAX7221初始化{WR7221(0x0A,0x0A);//亮度地址0AH,0x00~0x0F,0x0F最亮WR7221(0x0B,0x07);//扫描LED个数地址0BH,0x00~0x07,最多扫描8个数码管WR7221(0x0C,0x01);//工作模式地址0x0C. 0x00:关断;0x01:正常WR7221(0x09,0xFF);//编码模式地址0x09. 0x00~0xFF:哪一位为1，哪一位就支持编码}void Max7221Display(uchar *buffer)//MAX7221显示子程序{uchar i;for (i=0;i<8;i++)//MAX7221的8个数码管显示{WR7221(i+1,*(buffer+i));//调MAX7221的写子程序}}void delay(uint n)//延时程序{uint i,j;for (i=0;i<n;i++)for (j=0;j<1140;j++);}void time2ms(void)//T0定时器初始化{TMOD=0x01;// T0工作方式1/* 2ms定时设置*/time0_0 = 65536-time0*fosc/12;//计算初值//装定时器0初值TL0=(time0_0%256);TR0=1;//启动定时器0ET0=1;//打开定时器0xxEA=1;//打开总中断}/*定时器0中断服务子程序，定时用于AD转换1s约转换3次，8路信号约3s时间为了时间充裕5s采集一次电能信号*/void time0_int(void) interrupt 1{//重装定时器0初值TL0=(time0_0%256);TIME[0]++;if (TIME[0]==250)//250*2ms=500ms=0.5s时间到{TIME[0]=0;//到0.5s时TIME[0]清0TIME[1]++;//TIME[1]加1内存的0.5秒的整数倍}}void ICL7135(void)//启动8路AD转换{uchar i,j;STAT7135=1;//7135启动端使能启动AD转换CD4051=CD4051&0xf0;//设置CD4051的第一路信号输入ADfor (j=0;j<=7;j++)//8路循环测量{i=CD4051&0xf0;//读P1口的状态保护高位CD4051=j|i;//通过j调节多路开关的转换STAT7135=1;//7135启动端使能启动AD 转换i=busy;//读7135的正在转换忙端do{i=busy;}while(busy==0);//忙端为0时等待直到开始转换do{i=busy;}while(busy==1);//忙端为1时正在转换等待STAT7135=0;//7135禁止AD转换do{i=ADP2;}while((ADP2&0x010)!=0x010);//读7135的D5，直到D5为1if ((ADP2&0x010)==0x010)//D5为1开始读AD转换结果{//STAT7135=0;ADBUF[j*5]=ADP0&0x0f;//读7135的万位do{i=ADP2;}while((ADP2&0x08)!=0x08);//读7135的D4，直到D4为1ADBUF[1+j*5]=ADP0&0x0f;//读7135的千位do{i=ADP2;}while((ADP2&0x04)!=0x04);//读7135的D3，直到D3为1ADBUF[2+j*5]=ADP0&0x0f;//读7135的百位do{i=ADP2;}while((ADP2&0x02)!=0x02);//读7135的D2，直到D2为1ADBUF[3+j*5]=ADP0&0x0f;//读7135的十位do{i=ADP2;}while((ADP2&0x01)!=0x01);//读7135的D1，直到D1为1ADBUF[4+j*5]=ADP0&0x0f;//读7135的个位//ADBUF[0]=j+1;//路号//Max7221Display(&ADBUF[j*5]);//当频率慢时可以显示AD转换的结果}}}void SAVE(void)//电能处理保存{uchar k,i;ulong kk,kk1,kk2;if (TIME[1]<120)//小于1分钟时120*0.5=60s简单加{for (k=0;k<=7;k++)//8路电能循环存储{while(page_rd(k*5,5,&BUF[0])==0);//读原来的电能各路5位数字for(i=0;i<=4;i++){BUF[i]=BUF[i]+ADBUF[i+k*5];//本次的电能和原来的电能求和}while (page_wr(k*5,5,&BUF[0])==0);//存新的总电能}}if (TIME[1]==120)//等于1分钟时做电度数的处理{TIME[1]=0;for (k=0;k<=7;k++)//8路电能循环转换成电度数存储{while (page_rd(k*5,5,&BUF[0])==0);//读原来的电能各路5位数字for(i=0;i<=4;i++){BUF[i]=BUF[i]+ADBUF[i+k*5];//本次的电能和原来的电能求和}while (page_wr(k*5,5,0)==0);//清寄存的电能kk=(ulong)BUF[0]*100+(ulong)BUF[1]*1000+(ulong)BUF[2]*100+(ulong)BUF[3]* 10+(ulong)BUF[4];//把电能转化为千瓦时即度while(page_rd(100+k*2,2,&BUF[0])==0);//读上次余数kk=kk*jishu+(ulong)BUF[0]*100+(ulong)BUF[1];//(jishu*1000)/(100*12*60)=jishu/7200kk1=kk/7200;//取电度数kk2=kk%7200;//kk1为电度数kk2余数//分两部分存储电度的余数100为界BUF[1]=(uchar)(kk2%100);while(page_wr(100+k*2,2,&BUF[0])==0);//电度的存余数while (page_rd(50+k*5,5,&BUF[0])==0);//读原来电度数kk1=kk1+(ulong)BUF[0]*100+(ulong)BUF[1]*1000+(ulong)BUF[2]*100+(ulong)B UF[3]*10+(ulong)BUF[4];//原来的电度和新的电度数相加//万BUF[1]=(uchar)((kk1%100)/1000);//千BUF[2]=(uchar)(((kk1%100)%1000)/100); //百BUF[3]=(uchar)((kk1%100)/10);//十BUF[4]=(uchar)((kk1%100)%10);//个while(page_wr(50+k*5,5,&BUF[0])==0);//存新电度数DISPBUF[0]=k+1;//显示户号DISPBUF[1]=0xf;//显示2个FDISPBUF[2]=0xf;DISPBUF[3]=BUF[0];//显示此时电度数DISPBUF[4]=BUF[1];DISPBUF[5]=BUF[2];DISPBUF[6]=BUF[3];DISPBUF[7]=BUF[4];Max7221Display(&DISPBUF[0]);//送显示delay(20);//延时}}}/*----------------------------------------------- 调用方式：void start_bit(void)函数说明：开始位-----------------------------------------------*/void start_bit(void){SCL=1;_nop_();SDA=1;_nop_();SDA=0;_nop_();SCL=0;_nop_();}/*----------------------------------------------- 调用方式：void stop_bit(void)函数说明：停止位-----------------------------------------------*/void stop_bit(void){SDA=0;_nop_();SCL=1;_nop_();SDA=1;_nop_();}/*----------------------------------------------- 调用方式：void mast_ack(void)函数说明:主答函数-----------------------------------------------*/void mast_ack(void){SCL=0;_nop_();SDA=0;_nop_();SCL=1;_nop_();SCL=0;_nop_();SDA=1;_nop_();}/*----------------------------------------------- 调用方式：write_8bit(uchar ch)函数说明：写一个字节（8位）数据-----------------------------------------------*/bit write_8bit(uchar ch){uchar i=8;bit fan_w;SCL=0;_nop_();while (i--){SDA=(bit)(ch&0x80);_nop_();ch<<=1;SCL=1;_nop_();SCL=0;_nop_();}SDA=1;_nop_();SCL=1;_nop_();fan_w=SDA;SCL=0;_nop_();return(fan_w);}/*----------------------------------------------调用方式：uchar read24c16(uint address,uchar *shu)函数说明：读24c16指定地址数据（字节读）-----------------------------------------------*/uchar read24c16(uint address,uchar *shu){uchar data rdata; uchar i=8;EA=0;//避免与串口通讯等xx冲突start_bit();if (write_8bit(0xA0)!=0){stop_bit();EA=1;return(0);}if (write_8bit(address)!=0){stop_bit();EA=1;return(0);}start_bit();if (write_8bit(0xA1)!=0){(0);}while (i--){rdata<<=1;SCL=1;_nop_();if (SDA) rdata|=0x01;SCL=0;_nop_();}stop_bit();EA=1;*shu=rdata;return(1);}/*-----------------------------------------------调用方式：void write24c16(uint address,uchar ddata)函数说明：写数据到24c16的指定地址（字节写）-----------------------------------------------*/uchar write24c16(uint address,uchar ddata){EA=0;//避免与串口通讯等中断冲突start_bit();if (write_8bit(0xA0)!=0){stop_bit();EA=1;return(0);}if (write_8bit(address)!=0){stop_bit();EA=1;return(0);}if (write_8bit(ddata)!=0){(0);}stop_bit();EA=1;return(1);}/*-----------------------------------------------调用方式：void page_wr(uint firstw_ad,uint counter,uint data *firstr_ad)函数说明：页面写函数，firstw_ad为写入字节单元的首地址，*firstr-ad为被写入数据所在首地址指针counter为写入数据字节数-----------------------------------------------*/uchar page_wr(uint firstw_ad,uint counter,uchar *firstr_ad){uchar data *ufirstr_ad;ufirstr_ad=firstr_ad;start_bit();if (write_8bit(0xA0)!=0){stop_bit();return(0);}if (write_8bit(firstw_ad)!=0){stop_bit();return(0);}while (counter--){if (write_8bit(*ufirstr_ad)!=0){stop_bit();return(0);}ufirstr_ad++;}stop_bit();return(1);}/*-----------------------------------------------调用方式：void page_rd(uint firstrd_ad,uint count,uint firstwr_ad)函数说明：页面读函数，firstrd-ad为所读字节首地址，count为读字节数*ufirstwr-ad为读出数据存储首地址指针-----------------------------------------------*/uchar page_rd(uint firstrd_ad,uint count,uchar *firstwr_ad){uchar j=8; uchar data *ufirstwr_ad;ufirstwr_ad=firstwr_ad;start_bit();if (write_8bit(0xA0)!=0){stop_bit();return(0);}if (write_8bit(firstrd_ad)!=0){stop_bit();return(0);}start_bit();if (write_8bit(0xA1)!=0){stop_bit();return(0);}while (count--){uchar i=8;while (i--){(*ufirstwr_ad)<<=1;SCL=1;_nop_();if (SDA) (*ufirstwr_ad)|=0x01;SCL=0; _nop_();}ufirstwr_ad++;mast_ack();}while (j--){(*ufirstwr_ad)<<=1; SCL=0;_nop_();_nop_();SCL=1;if (SDA) (*ufirstwr_ad)|=0x01;}stop_bit(); return(1);}。