您的位置:首页单片机PIC单片机
内容搜索:
阅读内容
背景:#EDF0F5 #FAFBE6 #FFF2E2 #FDE6E0 #F3FFE1 #DAFAF3 #EAEAEF 默认  

基于PIC16F72的两路交流信号AD转换(C程序)

[日期:2008-01-18 ] [来源:东哥开发网(www.picavr.com) 作者:] [字体: (投递新闻)

//这是一个两路交流信号的AD转换,然后和标准比较决定输出大于标准的那一路,默认输出A路
#include  <pic.h>
#include   <math.h>
#include   <stdio.h>


bank1 int re0[40];   //定义存放A/D转换结果的数组,在bank0中
bank1 int re1[40];   //定义存放A/D转换结果的数组,在bank1中
unsigned  int i,j, k;  //定义几个整型变量
double squ ,squad;   //平方寄存器和平方和寄存器,squ又通用为存储其它数值
double   standard;     //定义双精度浮点型  
int uo;


//系统各I/O口初始化
void ioinitial()
{
TRISA=0X03;  //RA0~RA1为输入 RA2~RA4为输出
TRISB=0XC0;  // RB0~RB5为输出  RB6~RB7为输入
RB1=1;                    //B路关断 
RB2=0;                  // 选A导通
RB3=0;                   // A路导通
RB4=0;                   // LEDB不亮
RB5=1;                   // LEDA亮
}


//RA0 A/D转换初始化子程序
void ad0initial()
{
 ADCON0= 0XC1;   //选择A/D通道为RA0,RC时钟,且打开A/D转换器
           //在工作状态,使A/D转换时钟为
 ADCON1=0X02;  // RA0 RA1为模拟通道 VDD为参考电压5V
 ADIF=0;                     // 清ad中断标志位
 ADIE=1;   //A/D转换中断允许
 GIE=1;    //全局中断使能(允许CPU响应所有中断源产生的中断请求
 RP0 =0;    //设置RA0为输入方式
}

 


//RA1 A/D转换初始化子程序
void  ad1initial()
{
 ADCON0= 0XC9;   //选择A/D通道为RA1,RC时钟,且打开A/D转换器
           //在工作状态,使A/D转换时钟为
 ADCON1=0X02;  // RA0 RA1为模拟通道 VDD为参考电压5V
 ADIF=0;                   // 清ad中断标志位
 ADIE=1;   //A/D转换中断允许
 GIE=1;    //全局中断使能(允许CPU响应所有中断源产生的中断请求
}

 

//数据采集延时子程序
void delay0()
{
for(i=0;i<10;i++)  continue;
}

//AD转换间隔
void delay1()
{
for(i=0;i<10;i++)    continue;
}

 


// 存AD0结果
void ad0store()
{
 ADIF=0;    //清除中断标志
 re0[i]=ADRES;   //1次A/D转换的结果存入数组
}


// 存AD1结果
void ad1store()
{
 ADIF=0;    //清除中断标志
 re1[j]=ADRES;   //1次A/D转换的结果存入数组
}

 

// 处理AD040次AD转换结果得到交流信号有效值
void ad0process()
{for(i=0,squad=0;i<40;i++)
      {
 uo=re0[i];
 squ=(double)uo; //强制把采得的数据量转换成双精度数,以便运算
 squ=squ*5/256;  //把每点的数据转换成实际数据
 squ=squ*squ;  //求一点电压的平方
 squad=squad+squ;
 }          //以上求得40点电压的平方和,存于寄存器squad中
 squ=squad/40;  //求得平均值
 squ=sqrt(squ);  //开平方,求得最后的电压值
}


// 处理AD140次AD转换结果得到交流信号有效值
void ad1process()
{for(j=0,squad=0;j<40;j++)
    {
 uo=re1[j];
 squ=(double)uo;     //强制把采得的数据量转换成双精度数,以便运算
 squ=squ*5/256;  //把每点的数据转换成实际数据
 squ=squ*squ;  //求一点电压的平方
 squad=squad+squ;
 }           //以上求得40点电压的平方和,存于寄存器squad中
 squ=squad/40;  //求得平均值
 squ=sqrt(squ);   //开平方,求得最后的电压值
}

// A路通
void aon()
{ RB1=1;                    //B路关断 
  RB2=0;                   // 选A导通
  RB3=0;                   // A路导通
  RB4=0;                   // LEDB不亮
  RB5=1;                   // LEDA亮
}

// B路通
void bon()
{ RB1=0;                    //A路关断 
  RB2=1;                   // 选B导通
  RB3=1;                   // B路导通
  RB4=1;                   // LEDB亮
  RB5=0;                  // LEDA不亮
}


//主程序
main()
{
 ioinitial();    //系统各I/O口初始化
     standard=0.273861   ;              //75dbuv转换为电压为0.273861
for (i=0;i<40;i++)
    {   ad0initial();    //A/D转换初始化
         delay0();                         //AD采集延时
          ADGO=1    ;                         //启动A/D转换
        for(i=1;ADGO=1;i=1)
             {continue;}                        //go为1循环等待,go不为1结束循环
       ad0store()     ;                    // 存AD0结果
       delay1()   ;                            //AD转换间隔
    }
       ad0process()      ;                    // 处理AD040次AD转换结果得到交流信号有效值
if(squ>=standard)
   {
      aon()  ;                                     // A路通
   }
else
   {
      for(k=0;k<10;k++)
            {
               for (i=0 ;i<40;i++)
                  { ad1initial();    //A/D转换初始化
                delay0();                    //AD采集延时
                ADGO=1   ;                          //启动A/D转换
              for(i=1;ADGO=1;i=1)
                   {continue;}                        //go为1循环等待,go不为1结束循环
               ad1store();                    // 存AD1结果
               delay1();                            //AD转换间隔
                  }
            ad1process();                    // 处理AD040次AD转换结果得到交流信号有效值
            if(squ<standard) break;
           }
     if (k=10)
          {    bon();                                  // b路通
          }
     else {   aon()  ;                                     // A路通
           }
   }
}

 

阅读:
录入:JETTA

推荐 】 【 打印
本文评论
      全部评论
发表评论


点评: 字数
姓名:
站长推荐