pic18f單片機can通信程序及ad采樣

上傳人：奔*** IP屬地：河北更新時間：2024-07-28 格式：docx 頁數(shù)：7 大小：30.88KB 人氣指數(shù)：12 舉報 版權申訴

已閱讀1頁，還剩6頁未讀，繼續(xù)免費閱讀

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

1、　　程序流程圖　　功能描述:AD數(shù)據(jù)采集,AD采集20組數(shù)據(jù)，每組數(shù)據(jù)50個采樣值,然后將采樣值經過　　計算平均值并轉換為十進制數(shù)據(jù)后發(fā)送到CAN，在PC機上用CANTools軟件調試　　主函數(shù)流程圖中斷函數(shù)流

2、程圖　　程序源碼　　/* ****************************************************************　　***********************************************************

3、**** */　　#include"pic18f4680.h"/* PIC18系列的頭文件 */　　charCAN_TX_Adress_H,CAN_TX_Adress_L;/* CAN 發(fā)送郵箱標識符高低字節(jié) */　　charCAN_RX_Adress_H,CAN_RX_Adre

4、ss_L;/* CAN 接收郵箱標識符高低字節(jié) */　　#define CHANNEL7 0X1D //選擇模擬通道7采集正輸出電壓　　#define CHANNEL6 0X19//選擇模擬通道6采集正輸出電流　　#define CHANNEL3 0X0D//選擇模擬通道3采集正輸出電壓

5、　　#define CHANNEL2 0X09//選擇模擬通道2采集正輸出電流　　#define CHANNEL1 0X05//選擇模擬通道1采集負輸出電流　　#define CHANNEL0 0X01//選擇模擬通道0采集負輸出電壓　　#define LN 50 //采集50次進行平均<

6、;/p>　　#define LAN 20 //采集20個平均值　　bank2 uint AD[LN];//存放50次采樣值 　　uint RES[LAN]; //存放20個平均值　　uint RESVP=0x0000; //存放正輸出電壓采樣值，供CAN上傳數(shù)據(jù)

7、;　　uint RESIP=0X0000;//存放正輸出電流電壓采樣值，供CAN上傳數(shù)據(jù)　　uint RESVN=0X0000;//存放負輸出電壓采樣值，供CAN上傳數(shù)據(jù)　　uint RESIN=0X0000;//存放負輸出電流正電壓采樣值，供CAN上傳數(shù)據(jù)　　uchar WAIT_FLAG

8、; //等待中斷標志位　　uint count; //100次計數(shù)　　/* ****************************************************************　　** 函數(shù) 名: initial()&

9、lt;/p>　　** 功能描述: 系統(tǒng)初始化子程序，放在程序首部　　*************************************************************** */　　voidinitial()　　{</

10、p>　　count=0;　　INTCON=0x00;/* bit7-bit0:關總中斷 */ 　　PIE1=0;/* PIE1 的中斷不使能 */　　PIE2=0;/* PIE2 的中斷不使能 */</

11、p>　　PIE3=0;/* PIE3 的中斷不使能 */　　}　　/* ****************************************************************　　** 函數(shù) 名: initc

12、an()　　** 功能描述: CAN初始化子程序，采用標準標識符，正常工作模式　　*************************************************************** */　　voidinitcan()　　{&

13、lt;/b>　　// 設置發(fā)送郵箱0標識符 :10011001010=0x04CA 　　CAN_TX_Adress_L=0x55; //CAN低地址標識符　　CAN_TX_Adress_L=CAN_TX_Adress_L&0xe0;　　CAN_TX_A

14、dress_H=0x99; //CAN高地址標識符，應與發(fā)送方標識符相同　　// 設置接收郵箱0標識符 :00110011111=0x019F 　　CAN_RX_Adress_H=0x33; //CAN高地址標識符　　CAN_RX_Adress_L=0xe0; //C

15、AN低地址標識符，應與發(fā)送方標識符相同　　CAN_RX_Adress_L=CAN_RX_Adress_L&0xe0;　　// ************設置對CAN進行配置*************** 　　TRISB=TRISB & 0XFB; // 設置CANRX/RB

16、3輸入,CANTX/RB2輸出 　　CANCON=0X80; //CANCON，bit7-5:1XX請求配置 　　while((CANSTAT & 0X80)==0) // CAN狀態(tài)寄存器。bit7-5:100配置方式　　{</p&g

17、t;　　; // 等待進入CAN配置模式OPMODE=100　　} 　　// ***********波特率設置 ************************** 　　BRGCON1=0X07;

18、// Sync_Seg(bit7-6)=1TQ,BRP(bit5-0)=1，則TQ=((2*(BRP+1))/Fosc=16/32M=0.5us 　　BRGCON2=0X90;//bit7=1自由編程,bit6=0總線在采樣點采樣1次;phase_Seg1(bit5-3)=3TQ;　　BRGCON3=0X42;// Prog_Seg(b

19、it2-0)=1TQ,設置Phase_Seg2(bit2-0)=3TQ 　　// 標稱位時間＝TQ*(Sync_Seg+ Prop_Seg+ Phase_seg1+ Phase_seg2)=(1+1+3+3)TQ＝8TQ, 　　//位率=1/(8*0.5us)=250Kbps　　// ******設置發(fā)送郵箱0

20、和初始發(fā)送的數(shù)據(jù)***** 　　TXB0SIDL=CAN_TX_Adress_L&0xe0; //bit3=0標準標識符,bit7-5:標準標識符2-0位　　TXB0SIDH=CAN_TX_Adress_H;// 標準標識符的10-3位　　TXB0CON=0X03;// bit1-0:發(fā)送

21、優(yōu)先級,設置TXB0為最高優(yōu)先級3　　TXB0DLC=0X08;// 設置數(shù)據(jù)長度為8個字節(jié) 　　TXB0D0=0X00; /* 寫發(fā)送緩沖器數(shù)據(jù)區(qū)數(shù)據(jù)初值 */　　TXB0D1=0X00;　　TXB0D2=0X00;

22、 　　TXB0D3=0X00;　　TXB0D4=0X00;　　TXB0D5=0X00;　　TXB0D6=0X00;　　TXB0D7=0X00;　　/*接收緩沖區(qū)0的

23、ID、數(shù)據(jù)長度寫無效，故不需設置*/　　RXB0CON=0X20;// bit6-5=01只接收有效的標準標識符信息 　　// *******初始化接收濾波器0和接收屏蔽**************** 　　RXF0SIDH=CAN_RX_Adress_H;

24、　　RXF0SIDL=CAN_RX_Adress_L&0xe0; //高3位為標識符低3位，低5位是配置 　　RXM0SIDH=0XFF;　　RXM0SIDL=0XE0;// 11個1表示接收11位標識符進行濾波，標識符不同不接收;若全為0，若正確信息，全部接收　　// *******設置C

25、AN工作模式**************************** 　　CANCON=0X00;//=0X40,進入自測試模式;=0x00,正常操作模式　　while((CANSTAT&0XE0)!=0); // 檢測CAN配置完成 　　/* 初始化CAN的中斷，PIR3

26、為CAN的外圍中斷標志寄存器 */　　PIR3=0X00; // 清所有CAN中斷標志 　　PIE3=PIE3|0X01; //使能接收緩沖器0的接收中斷 　　IPR3=IPR3|0X01; // 接收緩沖器0的接收中斷為最高優(yōu)先級

27、　　}　　void CAN_SEND()　　{　　TXB0REQ=0; /* 關發(fā)送，該位發(fā)送成功則自動清零*/ 　　TX

28、B0D0=RESVP/100;　　TXB0D1=(RESVP%100)/10;　　TXB0D1=(TXB0D1<<4)|((RESVP%100)%10);　　TXB0D2=RESIP/100;　　TXB0D3=(RESIP%100)/10;

29、 　　TXB0D3=(TXB0D3<<4)|((RESIP%100)%10);　　TXB0D4=RESVN/100;　　TXB0D5=(RESVN%100)/10;　　TXB0D5=(TXB0D5<<4)|((RESVN%100)%

30、10);　　TXB0D6=RESIN/100;　　TXB0D7=(RESIN%100)/10;　　TXB0D7=(TXB0D7<<4)|((RESIN%100)%10); 　　TXB0REQ=1; /* bit3(TXR

31、EQ)=1請求發(fā)送 ,開始發(fā)送數(shù)據(jù)*/　　while(TXB0REQ==1); //等待發(fā)送完成 　　}　　/* ******************************************************

32、**********　　** 函數(shù) 名: interruptHI_ISR()　　** 功能描述: 高優(yōu)先級中斷子程序：RXB0接收郵箱0接收中斷子程序　　*************************************************************** */

33、　　void interruptHI_ISR()　　{　　if(RXB0IF==1)　　{ 　　if(RXB0D0==0xF0) //判斷命令，是否要上傳數(shù)據(jù)&l

34、t;/p>　　{　　WAIT_FLAG=0x00;// 置接收到 CAN 數(shù)據(jù) 　　} 　　RXB0FUL=0;// bit7＝0打開接收緩沖器接收新信息 <

35、p>　　RXB0IF=0;// 清接收中斷標志 　　}　　}　　void get_ad(uint *x)　　{<p

36、>　　GODONE=1; //開始AD轉換，轉換完成后GODONE清零　　while(GODONE); //等待轉換完成　　*x=(ADRESH<<8)+ADRESL;　　}&l

37、t;p>　　//************************主程序****************************　　void main()　　{　　uchar ia,ib;　　osc_config(0x70,0x

38、40); //8MHz，四倍頻Fosc=8MHz*4　　initial(); // 系統(tǒng)初始化子程序 　　io_init();　　adc_init();　　initcan();// CAN設置初始化 　　I

39、PEN=1;// 使能中斷高低優(yōu)先級 　　INTCON=INTCON|0xC0;// 開總中斷、開外圍接口中斷 　　TXB0REQ=0;/* 關發(fā)送，TXB0REQ=0;緩沖區(qū)沒有要發(fā)送的數(shù)據(jù) */　　RXB0FUL=0; /*清零RXB0FUL,表示緩沖區(qū)未接

40、收到數(shù)據(jù)*/　　WAIT_FLAG=0X01;// 關發(fā)送，TXB0REQ=0; 　　while(1)　　{　　while (WAIT_FLAG==0X01); //等待中斷</

41、p>　　//* ***************測正電壓**************　　for (ib=0;ib<LAN;ib++) //LAN==16(20)　　{　　for (ia=0;ia<LN;ia++)

42、//LN==64(50)　　{　　ADCON0=CHANNEL3;　　get_ad(&AD[ia]); 　　}　　RES[i

43、b]=0x0000;　　for (ia=0;ia<LN;ia++)　　{　　RES[ib]+=AD[ia];　　}　　RES[ib]=RES[ib]

44、/50;　　}　　RESVP=0X0000; //保存平均的結果　　for (ib=0;ib<LAN;ib++)　　{

45、;　　RESVP=RESVP+RES[ib];　　}　　RESVP=RESVP/20; 　　//*****************測正壓ACS輸出******************　　for (ib=0;ib<LAN;ib+

46、+)　　{　　for (ia=0;ia<LN;ia++)　　{　　ADCON0=CHANNEL2;　　get_ad(&AD[ia]);<

47、;/p>　　}　　RES[ib]=0x0000;　　for (ia=0;ia<LN;ia++)　　{　　RES[ib]+=AD[ia];&

48、lt;p>　　}　　RES[ib]=RES[ib]/50;　　}　　RESIP=0X0000; //保存平均的結果　　for (ib=0;ib<L

49、AN;ib++)　　{　　RESIP+=RES[ib];　　}　　RESIP=RESIP/20; 　　//**********************測

50、負電壓********************　　for (ib=0;ib<LAN;ib++)　　{　　for (ia=0;ia<LN;ia++)　　{<

51、p>　　ADCON0=CHANNEL0;　　get_ad(&AD[ia]); 　　}　　RES[ib]=0x0000;　　for (ia=0;ia<LN;ia++)&l

52、t;p>　　{　　RES[ib]+=AD[ia];　　}　　RES[ib]=RES[ib]/50; //保存平均的結果　　}&l

53、t;p>　　RESVN=0X0000; 　　for (ib=0;ib<LAN;ib++)　　RESVN+=RES[ib];　　RESVN=RESVN/20; 　　//*******************

54、測負電源ACS輸出*******************　　for (ib=0;ib<LAN;ib++)　　{　　for (ia=0;ia<LN;ia++)　　{

55、　　ADCON0=CHANNEL1;　　get_ad(&AD[ia]); 　　}　　RES[ib]=0x0000;　　for (ia=0;ia<LN;ia++)

56、;　　{　　RES[ib]+=AD[ia];　　}　　RES[ib]=RES[ib]/50;　　}<p&g

57、t;　　RESIN=0X0000;　　for (ib=0;ib<LAN;ib++)　　{　　RESIN+=RES[ib];　　}　　RESIN=RE

58、SIN/20; 　　CAN_SEND(); 　　if(count>=99)　　{　　WAIT_FLAG=0X01; //發(fā)送完一百個數(shù)據(jù)后關閉發(fā)送　　count=0;

59、 //等待下一次接收CAN的命令　　}　　else　　{　　count++;&l

眾賞文庫> 全部分類> 畢業(yè)設計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網頁內容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內容本身不做任何修改或編輯，并不能對任何下載內容負責。
6. 下載文件中如有侵權或不適當內容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

pic18f單片機can通信程序及ad采樣

文檔簡介

溫馨提示

最新文檔

評論

pic18f單片機can通信程序及ad采樣

文檔簡介

溫馨提示

最新文檔

評論

免費下載