ad-an0.c

这是我从朋友那搞到的pic学习资料

/* ****************************************************************
** 功能描述: 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转化初始化子程序 
**	编    制: 刘    钊
**	日    期: 2004-3-31 
****************************************************************** */ 
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转换完成后处理数据子程序 
**	编    制: 刘    钊
**	日    期: 2004-3-31 
****************************************************************** */ 
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[i]=AD_Sample[i];	// 读采样值，以免在计算时被新的采样值覆盖
	data=0;
	for(i=0;i<16;i++)					// 计算16点采样值平方和
		{
			HI=AD_Reseve[i]>>8;		// 高2位
			Low=AD_Reseve[i]&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数据
		}
	}
}