PIC單片機的交流電壓測量C語言實例

1、第11章交流電壓測量11.3.2 程序活單該程序已在模板上調(diào)試通過，可作讀者的參考。有關(guān)顯示部分請讀者參考本書相關(guān)章 節(jié)，有關(guān)A/D轉(zhuǎn)換的詳細設(shè)置請參考前面章節(jié)。<pic.h><math.h>#include<stdio.h>#include #include/該程序用于測電網(wǎng)的交流電壓有效值，最后的結(jié)果將在4個LED上顯示，保留/1位小數(shù)。需要將 PICC的double型數(shù)據(jù)選成32位/為了保證調(diào)試時數(shù)據(jù)運算的精確性，union adres int y1;unsigned adresult bank3char adre2/unsignedint re40;

2、char k, data ;/doublesqu , squad;/定義一個共用體定義存放A/D轉(zhuǎn)換結(jié)果的數(shù)組，在bank3中/定義幾個通用寄存器/平方寄存器和平方和寄存器，squ又通用為存儲其 它數(shù)值191int uobank1s4;constunsigned charchar table10=0xc0/此數(shù)組用于存儲需要顯示的字符的ASII碼,0xf9 , 0xa4, 0xb0, 0x99, 0x92, 0x82, 0XD8 0x80,0x90;/不帶小數(shù)點的顯示段碼表,0x79, 0x24, 0x30, 0x19, 0x12, 0x02, 0x78, 0x00,const char ta

3、ble010=0x400x10; 帶小數(shù)點的顯示段碼表/A/D轉(zhuǎn)換初始化子程序void adinitial()ADCON0=0x 1/ADCON1=0X8E/選擇A/D通道為RA0且打開A/D轉(zhuǎn)換器在工作狀態(tài)，使 A/D轉(zhuǎn)換時鐘為8Tosc轉(zhuǎn)換結(jié)果右移，及ADRES寄存器的高6位為"0"把RA0口設(shè)置為模擬量輸入方式ADIE=1PEIE=1;/A/D轉(zhuǎn)換中斷允許/外圍中斷允許TRISA0=1;/設(shè)置RA0為輸入方式/spi方式顯示初始化子程序voidSPIINIT()(PIR1=0;SSPCON=0x3 0SSPSTAT=0xC 0/設(shè)置SPI的控制方式，允許SSP方式，并

4、且時鐘下降沿發(fā)送，與"74HC595,當(dāng)其/SCLK從低到高跳變時，串行輸入寄存器 ”的特點相對應(yīng)TRISC=0xD7/SDO引腳為輸出，SCKSI腳為輸出TRISA5=Q/RA5引腳設(shè)置為輸出，以輸出顯示鎖存信號/系統(tǒng)其它初始化子程序void i nitial()(CCP2IE=0 SSPIE=Q CCP2CON=0X0B CCPR2H=0X01CCPR2L=0XF;4/中斷服務(wù)程序/禁止CCP斷/禁止SSP中斷/初始化CCP2CONCCP初特別事件觸發(fā)方式/初始化CCPR窈存器，設(shè)置采樣間隔500 s,/ 一個周期內(nèi)電壓采40個點void interrupt (CCP2IF=0A

5、DIF=0;adint(void)/清除中斷標(biāo)志adresult.adre0=ADRESL ;adresult.adre1=ADRESH ; /讀取并存儲 A/D轉(zhuǎn)換結(jié)果，A/D轉(zhuǎn)換的結(jié)果 /通過共用體的形式放入了變量 y1中rek=adresult.y1 ;/1次A/D轉(zhuǎn)換的結(jié)果存入數(shù)組k+;/數(shù)組訪問指針加1/SPI傳送數(shù)據(jù)子程序void SPILED(data)/啟動發(fā)送SSPBUF=data do(while(SSPIF=0);SSPIF=O;/主程序main()(adinitial() ;/A/D 轉(zhuǎn)換初始化SPIINIT() ;/spi方式顯示初始化initial() ;/系統(tǒng)其它

6、初始化while(1)(k=0;/數(shù)組訪問指針賦初值TMR1H=0X00 ;TMR1L=0X00 / 定時器 1 清 0ei() ;/中斷允許T1CON=0X01/打開定時器1while(1)(if(k=40)break;/A/D 轉(zhuǎn)換次數(shù)達到 40,則終止di() ;/禁止中斷for(k=0 ; k<40; k+)rek=rek-0X199; /假設(shè)提升電壓為 2 V,對應(yīng)十六進制數(shù) 199H,/則需在米樣值的基礎(chǔ)上減去該值for(k=0 , squad=0; k<40; k+) (uo=rek；squ=(double)uo ;squ=squ*5/1023 ;squ=squ*sq

7、u ;/強制把采得的數(shù)據(jù)量轉(zhuǎn)換成雙精度數(shù)，以便運算/把每點的數(shù)據(jù)轉(zhuǎn)換成實際數(shù)據(jù)/求一點電壓的平方squad=squad+squ;squ=squad/40 ;squ=sqrt(squ);squ=squ*154.054 ;/以上求得40點電壓的平方和，存于寄存器 squad中/求得平均值/開平方，求得最后的電壓值/通過變壓器的變比和分壓電阻分配確定該系數(shù)/以上得到了實際電網(wǎng)的電壓值squ=squ*10;/為了保證顯示的小數(shù)點的精度，先對電壓值乘以10uo=(int)squ ;/強制把U轉(zhuǎn)換成有符號整型量sprintf(s , "%4d”, uo);/通過sprintf 函數(shù)把需要顯示的電壓數(shù)據(jù)轉(zhuǎn)換成/ASII碼，并存于數(shù)組S中RA5=0/準(zhǔn)備鎖存for(k=0 ; k<4; k+)data=sk；data=data&0X0F ;/通過按位相與的形式把 ASII碼轉(zhuǎn)換成BCDif(k=2) data=table0data ; /因為squ已乘以10,則需在第2位打小數(shù)點else data=tabledata ;/ table0 存儲帶小數(shù)點的顯示段碼,SPILED(data);for(k=0 ; k&l