標(biāo)題: PIC16F877A交流采樣+液晶顯示 [打印本頁]
作者: 13731062108    時間: 2019-7-30 11:16
標(biāo)題: PIC16F877A交流采樣+液晶顯示
#include<pic.h>
#include<math.h>
#include<stdio.h>
#include"cd1602.h"
union adres
{
int y1;
unsigned char adre[2];
}adresult; //定義一個共用體
bank3 int re[40]; //定義存放A/D轉(zhuǎn)換結(jié)果的數(shù)組
unsigned char k,data; //定義幾個通用寄存器
double squ,squad; //二次方寄存器和二次方和寄存器
int uo;
bank1 unsigned char s[4]; //此數(shù)組用于存儲需要顯示的字符的ASCII碼
void adinitial()
{
ADCON0=0x41; //選擇A/D轉(zhuǎn)換通道為RA0,且打開A/D轉(zhuǎn)換器
     //在工作狀態(tài)，使A/D轉(zhuǎn)換時鐘為8T
ADCON1=0x8E; //轉(zhuǎn)換結(jié)果右移，把RA0口設(shè)置為模擬量輸入方式
ADIE=1; //A/D轉(zhuǎn)換中斷允許
PEIE=1; //外部中斷允許
TRISA0=1; //設(shè)置RA0為輸入方式
}
void initial()
{
CCP2IE=0; //禁止CCP中斷
SSPIE=0; //禁止SSP中斷
CCP2CON=0x0B; //初始化CCP2CON,CCP2為特別事件觸發(fā)方式
CCPR2H=0x01;
CCPR2L=0xF4; //初始化寄存器CCPR2，設(shè)置采樣間隔為500μs
     //一個周期內(nèi)電壓采樣40個點
}
                     
void interrupt adint() //中斷服務(wù)程序
{
CCP2IF=0;
ADIF=0; //清除中斷標(biāo)志
adresult.adre[0]=ADRESL;
adresult.adre[1]=ADRESH; //讀取并存儲A/D轉(zhuǎn)換結(jié)果，A/D轉(zhuǎn)換的結(jié)果
        //通過共用體的形式放入了變量y1中
re[k]=adresult.y1; //1次A/D轉(zhuǎn)換的結(jié)果存入數(shù)組
k++;  //數(shù)組訪問指針加1
}
void conv()
{
s[0]=((int)squ); //個位
s[1]=((int)(squ*10)-s[0]*10); //小數(shù)點第一位
s[2]=((int)(squ*100)-s[0]*100-s[1]*10); //小數(shù)點第二位
s[3]=((int)(squ*1000)-s[0]*1000-s[1]*100-s[2]*10); //小數(shù)點第三位
}
void lcdxianshi()
{

unsigned char i;
lcdcom(0x80);
for(i=0;i<9;i++)
{
  if(i==0)
  lcddat(0x6A);
  else if(i==1)
  lcddat(0x7A);
  else if(i==2)
  lcddat(0x3A);
  else if(i==3)
  lcddat(s[i-3]+0x30);
  else if(i==4)
  lcddat(0x2E);
  else if(i==8)
  lcddat(0x56);
  else
  lcddat(s[i-4]+0x30);  
}
}
void main()
{
adinitial(); //A/D轉(zhuǎn)換初始化
initial(); //系統(tǒng)其他初始化
k=0; //數(shù)組訪問指針賦初值
TMR1H=0x00;
TMR1L=0x00; //定時器1清零
ei(); //中斷允許
T1CON=0x01; //打開定時器1
while(1)
{
  if(k==40) break; //A/D轉(zhuǎn)換次數(shù)達到40次，則終止
}
di(); //禁止中斷
for(k=0,squad=0;k<40;k++)
{
  uo=re[k];
  squ=(double)uo; //強制把采得的數(shù)據(jù)量轉(zhuǎn)換成雙精度數(shù)，以便運算
  squ=squ*5/1023; //把每點的數(shù)據(jù)轉(zhuǎn)換成實際數(shù)據(jù)
  squ=squ*squ; //求一點電壓的二次方
  squad=squad+squ;
} //以上求得40點電壓的二次方和存于寄存器squad中
squ=squad/40; //求得平均值
squ=sqrt(squ); //二分之一次方，求得最后的電壓值
conv();
TRISC=0X00;  //A口設(shè)置為輸出         
TRISD=0X00;
lcdrw=0;    //lcd控制
lcdinit();   //lcd初始化
lcdxianshi();
}


作者: admin    時間: 2019-7-30 18:09
本帖需要重新編輯補全電路原理圖,源碼,詳細(xì)說明與圖片即可獲得100+黑幣(帖子下方有編輯按鈕)
作者: 一尋城    時間: 2021-3-22 17:11
有原理圖嗎？
作者: 一尋城    時間: 2021-3-22 17:21
有原理圖嗎？



歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1