AN0通道进行交流(直流)1工频等间隔采样转
/* ****************************************************************** 功能描述: AN0通道进行交流(直流)1工频等间隔采样16点，并在2个数码管上显示计算结果（保留一位小数）
*************************************************************** */
#include "pic18.h" /* 所有PIC18系列的头文件 */
#include <math.h> /* 调用开方函数时用到的头文件 */
const char table={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0XD8,0x80, 0x90,0x88,0x83,0xc6,0xa1,0x86,0x8e};
//不带小数点的显示段码表，依顺序为0-F共16个
const char table0={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=0;// AD 采样数组
unsigned int AD_Reseve=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()
{
unsignedchark;
unsignedchardata;
RA5=0; /* 准备锁存显示数据 */
/* 显示AD结果（占用2个数码管0-9.9V）*************** */
data=Adresult&0x0f;//Adresult的输入数据低4位
data=table; //个位需要不显示小数点
SPILED(data); //发送显示段码
data=(Adresult&0xf0)>>4; //Adresult的数据高4位
data=table0; //高位需要显示小数点
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=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数据
}
}
}
页:
[1]