PIC单片机的AD转换程序并含串口发送程序

内部含有两个AD转换程序，并以800ms的时间通过串口想电脑发送数字数据

#include

#define uchar unsigned char 
#define uint unsigned int 

__CONFIG（0x3B31）;

uint intnum;

unsigned char  TRAN[6];
uint T1[10]T2[10];

void init（）;
void AD0int（）;
void get_AD0（）;
void AD1int（）;
void get_AD1（）;
void delay（uint x）;

void main（）
{
	uint adval1a;
	init（）;

	while（1）
	{	
		TRAN[0]=0xef;
		TRAN[5]=0xef;

		AD0int（）;
		ADGO=1;
		get_AD0（）;

		AD1int（）;
		ADGO=1;
        get_AD1（）;
		if（intnum==16）    //800ms发送一次
		{
			intnum=0;
			RD0=!RD0;
			for（a=0;a<6;a++）//在此改正
			{					
				TXREG=TRAN[a];
				while（!TRMT）;//
			}
		}
	}
}

void init（）
{
	TRISC=0xff;
	TXSTA=0x24;   //选择异步通信，高速模式
	RCSTA=0x90;
	SPBRG=25;     //设置波特率为9600   
	GIE=1;        //总中断允许
	PEIE=1;       //外围终端允许
	RCIE=1;       //接收中断允许	

	TRISD0=0;
	RD0=0;

	TRISD1=0;
	RD1=0;

	TRISD2=1;
	RD2=1;

//	TRISA2=1;
//	RA1=0;

	TRISA3=1;
	RA1=1;

	OPTION=0x07;  //定时器0   256分频
	INTCON=0xa0;  //开总中断GIE  
	TMR0=61;	  //
}



void interrupt time0（）
{
	T0IF=0;
	TMR0=61;      //
	intnum++;
}


void AD0int（）
{
	TRISA0=1;
	RA0=0;
	ADCON0=0x41;  //8Fosc选择模拟通道为AN0；  ADGO=0，还没开始转换
	ADCON1=0x88;  //接收的数据是右对齐；选择AN0、AN1端口为模拟输入
	delay（10）;
}

void AD1int（）
{
	TRISA1=1;
	RA1=0;
	ADCON0=0x49;  //8Fosc选择模拟通道为AN1；  ADGO=0，还没开始转换
	ADCON1=0x88;
	delay（10）;
}

void get_AD0（）
{
	uint advalnum1abcd;
	uint AD0HAD0L;
	float advalf;
	T1[0]=0;
	num1=0;
	for（b=0;b<10;b++）
	{
		ADGO=1;
		while（ADGO）;
		adval=ADRESH;//0000 0000 0000 0011   
		adval=adval<<8|ADRESL;//0000 0011 1111 1111

		
		T1[b]=adval;
		num1+=T1[b];
		if（b==9）
		{
			a=num1/10;
			advalf=a/1023.0*5.04;    //==2.70
			if（RD2==1）
			{
				RD1=0;
			}
			if（advalf>2.7000）
			{
				if（RD2==0）
				{
					delay（5）;
					if（RD2==0）
					{
						RD1=1;
					}
				}
				else
					RD1=0;
			}		
			else
				RD1=0;
			num1=0;			
		}
	}
	
	AD0H=a&0x0300;
	AD0H=AD0H>>8;
	AD0L=a&0x00ff;
	TRAN[1]=AD0H;
	TRAN[2]=AD0L;
}

void get_AD1（）
{
	uint adval;
    ADGO=1;
	while（ADGO）;
    TRAN[3]=ADRESH;
	TRAN[4]=ADRESL;
}

void delay（uint x）
{
	uint ab;
	for（a=x;a>0;a--）
		for（b=110;b>0;b--）;
}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        994  2010-12-27 11:00  lianggeAD-WBJZ-WUBH-PMT\lianggeAD-WBJZ-WUBH-PMT.mcp

     文件      25088  2010-12-27 11:01  lianggeAD-WBJZ-WUBH-PMT\lianggeAD-WBJZ-WUBH-PMT.mcw

     文件       2308  2010-12-24 12:50  lianggeAD-WBJZ-WUBH-PMT\lianggeAD-WBJZ-WUBH-PMT.c

     文件         75  2010-12-27 11:01  lianggeAD-WBJZ-WUBH-PMT\lianggeAD-WBJZ-WUBH-PMT.mcs

     目录          0  2010-12-23 18:26  lianggeAD-WBJZ-WUBH-PMT

----------- ---------  ---------- -----  ----

                28465                    5