AN0通道进行交流(直流)1工频等间隔采样转

eva

/* ****************************************************************
** 功能描述: AN0通道进行交流(直流)1工频等间隔采样16点，并在2个数码管上显示计算结果（保留一位小数）
*************************************************************** */
#include "pic18.h"     /* 所有PIC18系列的头文件 */
#include <math.h>     /* 调用开方函数时用到的头文件 */
const char table[16]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0XD8,0x80, 0x90,0x88,0x83,0xc6,0xa1,0x86,0x8e};
        //不带小数点的显示段码表，依顺序为0-F共16个
const char table0[10]={0X40,0X79,0X24,0X30,0X19,0X12,0X02,0X78,0X00,0X10};
        //带小数点的0-9显示段码表
unsigned char SPI_data=0;   //SPI的8位开关量输入数据
unsigned int Adresult=0;   //AD转换计算结果
unsigned char AD_Flag=0;     //AD转换完成标志，＝1有新的AD数据转换完成
unsigned int AD_Point=0;   // AD 采样点
unsigned int AD_Sample[16]=0;  // AD 采样数组
unsigned int AD_Reseve[16]=0;  // 用于计算的AD 采样各点的值
/* ****************************************************************
** 函 数 名: initial()
** 功能描述: 系统初始化子程序，放在程序首部
*************************************************************** */
void initial()
{
INTCON=0x00;   /* bit7-bit0:关总中断 */
ADCON1=0X07;   /* 设置数字输入输出口 */
PIE1=0;     /* PIE1 的中断不使能 */   
PIE2=0;     /* PIE2 的中断不使能 */
PIE3=0;     /* PIE3 的中断不使能 */
}
/* ****************************************************************
** 函 数 名: tmint()
** 功能描述: TMR0初始化子程序，10ms中断1次
*************************************************************** */
void tmint()
{
T0CON=0X09;   // 设定TMR0工作于16位定时器方式,内部时钟,不分频
INTCON=INTCON|0X20; // TMR0中断允许
INTCON=INTCON&0Xfb; // 清除TMR0的中断标志
TMR0IP=1;    // TMR0中断高优先级
IPEN=1;     // 使能中断优先级
TMR0ON=1;    // 打开定时器0
}
/*  **************************************************************
** 函 数 名: AD_Initial()
** 功    能：A/D转化初始化子程序  
****************************************************************** */
void AD_Initial()
{
ADCON0=0x41;   // 选择A/D通道为RA0,A/D转换器
           // 处于工作状态,且使A/D转换时钟为8tosc
ADCON1=0X8E;   // 转换结果右移,及ADRESH寄存器的高6位为"0"
                   // 且把RA0(AN0)设置为模拟量输入方式
ADIF=0;     // 清除A/D转换标志
ADIE=1;     // A/D转换中断允许
ADIP=1;     // AD中断高优先级
TRISA=TRISA|0x01;  // 设置RA0(AN0通道)为输入方式
}
/*  **************************************************************
** 函 数 名: Deal_AD()
** 功    能：AD转换完成后处理数据子程序  
****************************************************************** */
void Deal_AD()
{
unsigned char HI,Low,i;
unsigned long data,j,a,b;
unsigned int c;
double m;
for(i=0;i<16;i++)
  AD_Reseve=AD_Sample; // 读采样值，以免在计算时被新的采样值覆盖
data=0;
for(i=0;i<16;i++)     // 计算16点采样值平方和
  {
   HI=AD_Reseve>>8;  // 高2位
   Low=AD_Reseve&0xff; // 低8位
   a=HI*HI;  
   a=a<<16;
   b=(HI*Low);
   b=b<<9;
   c=Low*Low;
   j=a+c+b;
  /* a为高2位，b为低8位，j=(a<<8+b)*(a<<8+b)= (a*a)<<16+2*(a<<8*b)+b*b=(a*a)<<16+(a*b)<<9+b*b.  */
   data+=j;
  }
data=data>>4;    // data=data/16
m=sqrt(data);    // 开平方根
Adresult=(unsigned int)m;  // 转换为整形数据
Adresult=(Adresult*50)>>10;
       /* 将AD采样结果转换为两位数表示的值，即放大10倍,
乘以满该度值5V，除以满刻度转换值10位（1024） */
Adresult=(((Adresult/10)<<4)&0xf0)+(Adresult % 10);
       /* 转换为带一位小数的BCD码实际值如25表示2.5V */
}
/* ****************************************************************
** 函 数 名: SPIinitial()
** 功能描述: SPI输出初始化子程序
*************************************************************** */
void SPIinitial()
{
TRISA=TRISA&0xdf;  /* 设置RA5输出74HC595锁存信号 */
TRISC=TRISC&0xd7;  // SDO(RC5)引脚为输出,SCK(RC3)引脚为输出
SSPCON1=0x30;   // SSPEN=1;CKP=1,FOSC/4
SSPSTAT=0xC0;   // 时钟下降沿发送数据
SSPIF=0;    // 清除SSPIF标志
}
/* ****************************************************************
** 函 数 名: SPILED()
** 功能描述: SPI传输数据（发送数据）子程序
*************************************************************** */
void   SPILED(char data)
{
SSPBUF=data;   /* 启动 SPI 发送 */
do
{
   ;
}while(SSPIF==0);  /* 等待SPI 发送完成 */
SSPIF=0;    /* 清SPI 发送完成标志 */
}
/* ****************************************************************
** 函 数 名: display()
** 功能描述: 8个数码管显示数据子程序
*************************************************************** */
void display()
{
unsigned  char  k;
unsigned  char  data;
RA5=0;     /* 准备锁存显示数据 */
/* 显示AD结果（占用2个数码管0-9.9V）*************** */
data=Adresult&0x0f;  //Adresult的输入数据低4位
data=table[data];   //个位需要不显示小数点
SPILED(data);    //发送显示段码
data=(Adresult&0xf0)>>4; //Adresult的数据高4位
data=table0[data];   //高位需要显示小数点
SPILED(data);    //发送显示段码
/* 显示AD结果（占用2个数码管0-9.9V）*************** */
for(k=0;k<6;k++)
{
  data=0xFF;
  SPILED(data);   // 连续发送4个DARK（即4个数码管不显示）
}
RA5=1;     /* 给锁存信号,显示数字 */
}
/* ****************************************************************
** 函 数 名: interrupt HI_ISR()
** 功能描述: 高优先级中断子程序：AD转换完成中断
*************************************************************** */
void interrupt HI_ISR()
{
if(TMR0IF==1)    // 定时器0中断
{
  TMR0IF=0;    // 清中断标志
  TMR0H=0XFB;
  TMR0L=0X2D;   // 对TMR0定时1.25ms写入一个初值。
  ADCON0=ADCON0|0x04; // 定时1.25ms启动AD采样，每周波采样16点
}
if(ADIF==1)     //AD转换完成
{
  ADIF=0;     // 清除中断标志
  AD_Sample[AD_Point]=ADRESL+(ADRESH<<8);
// 读取并存储A/D转换结果（10位，高6位为0）
  AD_Point++;
  if(AD_Point>15)
  {
   AD_Point=0;
   AD_Flag=1;   // 置AD转换完成标志
  }
}
}
main()     
{
initial();      /* 系统初始化子程序 */
AD_Initial();     // A/D转换初始化
SPIinitial();     /* SPI初始化子程序 */
tmint();      // TMR0初始化
IPEN=1;      // 使能中断高低优先级
INTCON=INTCON|0xc0;  // 开总中断、开外围接口中断
while(1)
{
  display();     //显示AD采样子程序
  if(AD_Flag==1)   // AD采样完成
  {
   AD_Flag=0;
   Deal_AD();   // 处理AD数据
  }
}
}