-
大小: 4KB文件類型: .rar金幣: 2下載: 0 次發(fā)布日期: 2022-06-24
- 語言: 其他
- 標(biāo)簽:
資源簡介
內(nèi)部含有兩個AD轉(zhuǎn)換程序,并以800ms的時間通過串口想電腦發(fā)送數(shù)字?jǐn)?shù)據(jù)

代碼片段和文件信息
#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發(fā)送一次
{
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;?????//設(shè)置波特率為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,還沒開始轉(zhuǎn)換
ADCON1=0x88;??//接收的數(shù)據(jù)是右對齊;選擇AN0、AN1端口為模擬輸入
delay(10);
}
void?AD1int()
{
TRISA1=1;
RA1=0;
ADCON0=0x49;??//8Fosc選擇模擬通道為AN1;??ADGO=0,還沒開始轉(zhuǎn)換
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
評論
共有 條評論