第11章 交流電壓測量
11.3.2 程序清單
該程序已在模板上調試通過，可作讀者的參考。有關顯示部分請讀者參考本書相關章節，有關A/D轉換的詳細設置請參考前面章節。
//該程序用于測電網的交流電壓有效值，最后的結果將在4個LED上顯示，保留
//1位小數。
//為了保證調試時數據運算的精確性，需要將PICC的double型數據選成32位
union adres
{
int y1；
unsigned char adre[2]；
}adresult； //定義一個共用體
bank3 int re[40]； //定義存放A/D轉換結果的數組，在bank3中
unsigned char k，data； //定義幾個通用寄存器
double squ ，squad； //平方寄存器和平方和寄存器，squ又通用為存儲其
//它數值
int uo；
bank1 unsigned char s[4]； //此數組用于存儲需要顯示的字符的ASII碼
const char table[10]={0xc0，0xf9，0xa4，0xb0，0x99，0x92，0x82，0XD8，0x80，0x90}；
//不帶小數點的顯示段碼表
const char table0[10]={0x40，0x79，0x24，0x30，0x19，0x12，0x02，0x78，0x00，0x10}；//帶小數點的顯示段碼表
//A/D轉換初始化子程序
void adinitial()
{
ADCON0=0x41； //選擇A/D通道為RA0，且打開A/D轉換器
//在工作狀態，使A/D轉換時鐘為8Tosc
ADCON1=0X8E； //轉換結果右移，及ADRESH寄存器的高6位為”0”
//把RA0口設置為模擬量輸入方式
ADIE=1； //A/D轉換中斷允許
PEIE=1； //外圍中斷允許
TRISA0=1； //設置RA0為輸入方式
}
//spi方式顯示初始化子程序
void SPIINIT()
{
PIR1=0；
SSPCON=0x30；
SSPSTAT=0xC0；
//設置SPI的控制方式，允許SSP方式，并且時鐘下降沿發送，與”74HC595，當其
//SCLK從低到高跳變時，串行輸入寄存器”的特點相對應
TRISC=0xD7； //SDO引腳為輸出，SCK引腳為輸出
TRISA5=0； //RA5引腳設置為輸出，以輸出顯示鎖存信號
}
//系統其它初始化子程序
void initial()
{
CCP2IE=0； //禁止CCP中斷
SSPIE=0； //禁止SSP中斷
CCP2CON=0X0B； //初始化CCP2CON，CCP2為特別事件觸發方式
CCPR2H=0X01；
CCPR2L=0XF4； //初始化CCPR2寄存器，設置采樣間隔500 μs，
//一個周期內電壓采40個點
}
//中斷服務程序
void interrupt adint(void)
{
CCP2IF=0；
ADIF=0； //清除中斷標志
adresult.adre[0]=ADRESL；
adresult.adre[1]=ADRESH； //讀取并存儲A/D轉換結果，A/D轉換的結果
//通過共用體的形式放入了變量y1中
re[k]=adresult.y1； //1次A/D轉換的結果存入數組
k++； //數組訪問指針加1
}
//SPI傳送數據子程序
void SPILED(data)
{
SSPBUF=data； //啟動發送
do{
；
}while(SSPIF==0)；
SSPIF=0；
}
//主程序
main( )
{
adinitial()； //A/D轉換初始化
SPIINIT()； //spi方式顯示初始化
initial()； //系統其它初始化
while(1){
k=0； //數組訪問指針賦初值
TMR1H=0X00 ；
TMR1L=0X00； //定時器1清0
ei()； //中斷允許
T1CON=0X01； //打開定時器1
while(1){
if(k==40) break； //A/D轉換次數達到40，則終止
}
di()； //禁止中斷
for(k=0；k<40；k++)re[k]=re[k]-0X199；//假設提升電壓為2 V，對應十六進制數199H，
//則需在采樣值的基礎上減去該值
for(k=0，squad=0；k<40；k++) {
uo=re[k]；
squ=(double)uo； //強制把采得的數據量轉換成雙精度數，以便運算
squ=squ5/1023； //把每點的數據轉換成實際數據
squ=squsqu； //求一點電壓的平方
squad=squad+squ；
} //以上求得40點電壓的平方和，存于寄存器 squad中
squ=squad/40； //求得平均值
squ=sqrt(squ)； //開平方，求得最后的電壓值
squ=squ154.054； //通過變壓器的變比和分壓電阻分配確定該系數
//以上得到了實際電網的電壓值
squ=squ10； //為了保證顯示的小數點的精度，先對電壓值乘以10
uo=(int)squ； //強制把U轉換成有符號整型量
sprintf(s，”%4d”，uo)； //通過sprintf函數把需要顯示的電壓數據轉換成
//ASII碼，并存于數組S中
RA5=0； //準備鎖存
for(k=0；k<4；k++){
data=s[k]；
data=data&0X0F； //通過按位相與的形式把ASII碼轉換成BCD碼
if(k==2) data=table0[data]；//因為squ已乘以10，則需在第2位打小數點
else data=table[data]； // table0存儲帶小數點的顯示段碼，
//table存儲不帶小數點的顯示段碼
SPILED(data)； //發送顯示段碼
}
for(k=0；k<4；k++) {
data=0xFF；
SPILED(data)； //連續發送4個DARK，使顯示看起來好看一些，這點與
//該實驗板的LED分布結構有關
}
RA5=1； //最后給一個鎖存信號，代表顯示任務完成
}
}
.png)
2.png)
