AD+串口程序
#i nclude<pic.h>
__CONFIG(0x1832);
union adres
{int y1;
unsigned char adre[2];
}adresult;
int AD_Value;
bit sci_Sign,js=0;
int Order[3];
int buf[4];
void adinitial(void);
void sciint(void);
void ad_Collect(void);
void sci(int);
//*SCI部件接收初始化子程序*/
void sciint()
{
TRISC7= 1 ;// |= 0xc0;//设置为输入
TRISC6= 1 ;
BRGH = 1 ; //高波特率选择位
SPBRG = 25 ; //((20000000/9600)/16)-1
SYNC = 0 ;//异步
SPEN = 1 ;//串口使能
RCIE = 1 ;// USART数据接收中断使能位
TXIE = 0 ;//USART数据发送中断使能位
TXEN = 1 ;//发送
CREN = 1 ;//连续接收使能位
PEIE= 1 ; //开中断
}
//A/D 转换初始化子程序
void adinitial()
{
ADCON0=0X41;//
ADCON1=0X8E;
TRISA0=1;
}
void ad_Collect()
{
float temp;
ADGO=1;
while(!ADIF);
ADIF=0;
adresult.adre[0]=ADRESL;//读取AD转换的结果到联合体数组.
adresult.adre[1]=ADRESH;
// AD_value="/ADRESH;//
temp=(float)adresult.y1;//*5)/1023)*1000;
temp=((temp*5)/1023)*100;
AD_Value=(int)(temp*5);//adresult.y1;//(int)temp;
}
void" sci(int tran)
{
while(!TXIF);
TXREG=tran; //*发出一个字符*/
TXIF=0;
}
void interrupt SCI_Admit(void)
{
// sci_Sign=1;
int temp;
if(RCIF) //判断是否是接收中断
{
if(js)
{
if(Order[0]=='$')
{
temp++;
Order[temp]=RCREG;
if(temp==2)
{
js=0;
sci_Sign=1;
temp=0;
}
}
else
js=0;
// RCIF=0;
}
else
{
Order[0]=RCREG;
js=1;
temp=0;
}
RCIF=0;
}
}
/* if(js)
{
if(Order[1]=='R')
{
Order[2]=RCREG;
sci_Sign=1;
js=0;
}
else
{
Order[1]=RCREG;
}
temp++;
Order[temp]=RCREG;
if(temp==2)
js=0;
}*/
void int_to_asc(int dat)
{
int temp;
buf[0]=(dat/1000)+'0';
temp=dat%100;
buf[1]=((dat%1000)/100)+'0';
buf[2]=((dat%1000)%100)/10+'0';
buf[3]=((dat%1000)%100)%10+'0';
}
void main()
{
int temp='V';
adinitial();
sciint(); //*SCI部件初始化*/
sci_Sign=0;
ei();
TXEN = 1 ;//发送
CREN = 1 ;//连续接收使能位
while(1)
{
// ad_Collect();
if(sci_Sign)
{
if(Order[0]=='$')
{
if(Order[1]=='R'&&Order[2]=='V')
{
ad_Collect();
//AD_value="/123;
//sci(AD_Value);
int_to_asc(AD_Value);
sci(temp);
if(buf[0]!='0')
sci(buf[0]);
sci(buf[1]);
sci('."');
sci(buf[2]);
sci(buf[3]);
Order[0]=0;
Order[1]=0;
Order[2]==0;
}
// sci(temp);
}
sci_Sign=0;
}
}
}

BrodieWang
- 粉丝: 29
最新资源
- 网络连接配置和系统安全专业讲座.pptx
- 新版计算机基础知识试题及答案.doc
- 网络工程师实习总结2000字.docx
- 电力信息及自动化产品科技贷款项目可行性论证报告.doc
- 高中生物2017年专题11.3基因工程的应用(选修一)课件.ppt
- 基于NeuroSky-TGAM脑机接口的EEG识别获奖科研报告论文.docx
- 青梧商城B2B2C-C++资源
- 综合布线技术省名师优质课赛课获奖课件市赛课一等奖课件.ppt
- 系统安全工程能力成熟模型20b.docx
- 神经网络分类器.ppt
- 关于Widget-、App-Widget-、Web-App-的概念.doc
- 我们身边的网络安全.ppt
- 数据通信基础知识PPT课件.ppt
- 教师网络平台学习心得体会.doc
- 物流网络设计(1).ppt
- 安徽电信后端组织架构调整方案(座谈会稿0716).ppt
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈



- 1
- 2
前往页