【正文】 etion EndIfCANInitIntMask=ErrCode=0CANInit(port，BTRO，BTRI，IntMask) IfErrCode()0ThenMsgBox“ CANiniterror!“，vbOKOnly，”SEND，Exi七Funetion EndIfCANSetoutCtrlErrCode=CANSetoutCtrl(port，outCtr1Code) IfErrCode()0ThenDim1AsIntegerPort=1=ID16=0=8 CallCopyMemory(TempBytesl(O)，Tempsngl，2)(0)=TempBytesl(1)MsgBox護 CANsetouteontroleodeerror!護，vbOK0nly，“SEND， Ex1tFUnetion EndIfCANSetAePErrCode=CANSetAep(port，AcpCode，AepMask) IfErrCode(0ThenMsgBox” CANsetACPeodeerror!“，vbOKOnly，”SEND“ ExitFunetion EndIfCANSetBaUdErrCode=CANSe七Baud(port，BTRO，BTRI) IfErrCode0ThenMsgBox“ CANse七 BaudRateerror!“，vbOK0nly，“SEND， ExitFunetionEnd工fCANSetNormalErrCode=CANSetNormal(port) IfErrCode)0ThenMsgBox” CANsetnormalmodeerror!“，vb0K0nly，“SEND， Ex1tFunction EndIfCANEnableRxlntErrCode=CANEnableRxlnt(port) IfErrCode()0ThenMsgBox“ CANportEnableRxlnterror!”，vbOKOnly，“DriverMessage“ ExitFunetion EndIfCANEnableEventErrCode=CANEnableEvent(port，1)IfErrCode(0ThenMsgBox” CANPortEnableEventerror!”，vb0K0nly，”DriverMessage護 ExitFUnetion EndIf EndFunction(1)發(fā)送16位整型函數(shù):FunetionSend4Integer16(ByValID16AsLong，ByValTemPSnglAsInteger， ByValTempsngZAsInteger， ByValTempsng3AsInteger， ByValTempsng4 AsInteger) DimPortAsInteger DimEntryAsString DimTempBytesl(0Tol)AsByte DimTemPBytesZ(0Tol)AsByteDimTempBytes3(0Tol)AsByte DimTempBytes4(0Tol)AsByte Dim1AsIntegerPort=1=ID16=0=8 CallCopyMemory(TempBytesl(O)，Tempsngl，2)(0)=TempBytesl(1)(1)二TempBytesl(0) CallCopyMemory(TempBytesZ(0)，TempsngZ，2)Dim1AsIntegerPort=1=ID16=0=8 CallCopyMemory(TempBytesl(O)，Tempsngl，2)(0)=TempBytesl(1)(2)=TempBytesZ(1)(3)=TempBytesZ(0)CallCopyMemory(TempBytes3(0)，Tempsng3，2)(4)=TempBytes3(1)(5)=TempBytes3(0) CallCopyMemory(TempBytes4(0)，Tempsng4，2)(6)=TempBytes4(l)(7)=TempBytes4(0)ErrCode=CANWriteFile(port，bReady，Msg) EndFunetion(2)發(fā)送32位浮點數(shù)函數(shù)FunctionSendFloat32(ByValID32AsLong，yValTempfloatlAsSingle， ByValTempfloatZAsSingle) DimPortAsIn七eger DimEntryAsString DimTempBytesl(0To3)AsByte DimTempBytesZ(0To3)AsByte=ID32=0=8Port二1 Cal1CopyMemory(TempBytesl(0)，Tempfloatl，4)(0)=TempBytesl(3)(1)=TempBytesl(2)(2)=TempBytesl(1) (3)=TempBytesl(0) CallCopyMemory(TempBytesZ(0)，TempfloatZ，4)(4)=TempBytesZ(3)(5)=TempBytesZ(2)(6)=TempBytesZ(1)Dim1AsIntegerDimreadeountAsIntegerreadeount=0ebReturned=1 DoWhileebReturned二 1orreadeount(10Port=1=ID16=0=8 CallCopyMemory(TempBytesl(O)，Tempsngl，2)(0)=TempBytesl(1)PrivateSubTimerRx一imer() DimreadeountAsIntegerreadeount=0ebReturned=1 DoWhileebReturned二 1orreadeount(10ebReturned=0readeount=readeoun七+1ErrCode=CANReadFile(port，1，f一sgData(0)，ebReturned) IfebReturned=1Then IffjsgData(0).ID=16ThenreeeID二 ReeeiFloat32lowreceFloat= IfreeeID=ReceiFloa七32_high REALDATABOOMHEADANGLEThentxtDisp=Format(reeeFloat，”0” ElselfreeeID=REALDATABOOMB00TANGLEThentxtbootDisP=Format(reeeFloat，“0‘DimreadeountAsIntegerreadeount=0ebReturned=1 DoWhileebReturned二 1orreadeount(10DimreadeountAsIntegerreadeount=0ebReturned=1 DoWhileebReturned二 1orreadeount(10Dim1AsIntegerPort=1=ID16=0=8 CallCopyMemory(TempBytesl(O)，Tempsngl，2)(0)=TempBytesl(1) EndIf EndIfElseEndebReturned=0IfLooP EndSubintCANO_Reeeive_Data(eharMessage_Num，uehar*p，eharword_num){uintiSFRPAGE=CANOADR= CANO_PAGE://IFIalreadysetupforRX IFZCMDRQST://PointtoConunandRequestCANODATL=Messagejum://Move//MOVe newdataforRXfromReg. MsgObj”MsgNum“ newdatatoaCANOADRfor(i=0 =IFZDATAI://PointtolstbyteofDataField:i(2*(word_num+1):i++)*P++=*p++=CANODATH。CANODATL。return4*(word_num+1):第7章 結(jié) 論 本文探討了以N總線在工程機械領(lǐng)域的實際應(yīng)用，結(jié)合當(dāng)前工程機械的工作特點，重點討論了如何組建一套可靠性高、抗干擾性強、實時性好的工業(yè)級現(xiàn)場總線網(wǎng)絡(luò)，以解決工程機械應(yīng)用中的數(shù)據(jù)準確性和作業(yè)的安全性問題。 CAN現(xiàn)場總線的數(shù)據(jù)通信具有突出的可靠性、實時性和靈活性，主要表現(xiàn)在以下幾個方面: CAN為多主工作方式。 CAN總線節(jié)點分成不同的優(yōu)先級。采用非破壞仲裁技術(shù)。報文采用短幀結(jié)構(gòu)，數(shù)據(jù)出錯率極低。 節(jié)點在錯誤嚴重的情況下可自動關(guān)閉輸出。 CAN現(xiàn)場總線作為一種面向工業(yè)底層控制的通信網(wǎng)絡(luò)，其局限性也是顯而易見的。首先，它不能與Internet互連，不能實現(xiàn)遠程信息共享。其次，它不易于與上位機直接接口，現(xiàn)有的CAN接口卡價格比較昂貴。還有，以N現(xiàn)場總線無論是通信速率還是通信距離都不能與以太網(wǎng)相比。 CAN總線已被公認為是最有前途的幾種現(xiàn)場總線之一。因其高性能價格比、實現(xiàn)簡單等突出優(yōu)點深得越來越多的研發(fā)人員的青睞。我國的以N總線技術(shù)起步較晚，但隨著現(xiàn)代電子產(chǎn)業(yè)的不斷進步發(fā)展，其研究和應(yīng)用正在如火如茶的進行中。 CAN總線以其通信速率高，可靠性好和價格低廉等特點，特別適合于中小規(guī)模的工業(yè)過程監(jiān)控設(shè)備的互連。 CAN總線作為一種可靠的計算機網(wǎng)絡(luò)已經(jīng)在許多先進技術(shù)上得到應(yīng)用，將CAN總線應(yīng)用于智能傳感器中，使傳感器獲得的信號能通過總線實時地、可靠地、高速而準確地進行傳輸，使得各工程機械計算機控制單元能夠通過CAN總線共享所有信息和資源，達到簡化不限、減少傳感器數(shù)量，避免控制功能重復(fù)，提高系統(tǒng)可靠性、減低成本，更好地匹配和協(xié)調(diào)各控制系統(tǒng)的目的。同時，由于整個智能傳感器網(wǎng)絡(luò)采用全數(shù)字化的通信，因此，總線也具有很好的剛干擾能力，是未來智能化傳感器和智能化控制網(wǎng)絡(luò)的發(fā)展趨勢。參考文獻[1]杜尚豐，曹曉鐘，:電子工業(yè)出版社，2007[2]王黎明，:電子工業(yè)出版社，2008[3]:機械工業(yè)出版社，2005[4]汪晉寬，馬淑華，:北京郵電出版社，2007[5]鄒繼軍，王進宏，:北京航空航天大學(xué)出版社，2007[6]舒志兵，袁佑新，:電子工業(yè)出版社，2007[7]李汪全，王衛(wèi)兵，:機械工業(yè)出版社，2007[8]張玲，:電子工業(yè)出版社，2007[9]:清華大學(xué)出版社，2007[1]:電子工業(yè)出版社，2008[11]:化學(xué)工業(yè)出版社，2004[12]幻常斗南，:電子工業(yè)出版社，2006[13]薛迎成，:中國電力出版社，2007[14]:機械工業(yè)出版社，2007[15]ChristopherPoelker， :MeGraw一Hill，2007[16] :Addison一Wesley，2007[17]:0’Reilly，2007[18] :0’Reilly，2009[19]:0’Reilly，2003[20]:機械工業(yè)出版社，2001[21]，單片機接口實用子程序:人民郵電出版社，2005[22]李念強，王玉泰，張魯，:機械工業(yè)出版社，2007[23]:北京理工大學(xué)出版社，2007致 謝 在本論文完成之際，我的學(xué)習(xí)生涯也將結(jié)束。在此要感謝幫助我完成學(xué)業(yè)的老師、家人以及同事，沒有他們的大力支持也就沒有今天的畢業(yè)。首先，我要特別感謝我的導(dǎo)師趙子祥教授。趙老師在學(xué)習(xí)上給予我很多的關(guān)心和指導(dǎo)，沒有他耐心的輔導(dǎo)，我很難按時完成此論文。趙老師在學(xué)術(shù)上嚴謹求實，而且對自己學(xué)生的認真負責(zé)，使我感受到“老師”二字的份量與責(zé)任，為我今后工作樹立了榜樣，是我永遠的楷模。在趙老師身上所學(xué)，將令我受益終生! 其次，我要特別感謝[北京普瑞塞特〕的領(lǐng)導(dǎo)和同事。公司領(lǐng)導(dǎo)鼓勵員工積極深造，為我創(chuàng)造了很好的學(xué)習(xí)實踐環(huán)境。在論文寫作期間，黃總工程師在技術(shù)方面給了我很多幫助，我的論文才得以順利完成。 最后，我要特別感謝我的家人。沒有家人的關(guān)愛和支持，我不可能完成今天的學(xué)業(yè)。在此對他們表示我最真摯的感謝! 謝謝。歡迎您的光臨，！希望您提出您寶貴的意見，你的意見是我進步的動力。贈語； 如果我們做與不做都會有人笑，如果做不好與做得好還會有人笑，那么我們索性就做得更好，來給人笑吧！ 現(xiàn)在你不玩命的學(xué)，以后命玩你。我不知道年少輕狂，我只知道勝者為王。不要做金錢、權(quán)利的奴隸；應(yīng)學(xué)會做“金錢、權(quán)利”的主人。什么時候離光明最近？那就是你覺得黑暗太黑的時候。最值得欣賞的風(fēng)景，是自己奮斗的足跡。壓力不是有人比你努力，而是那些比你牛幾倍的人依然比你努力。學(xué)習(xí)資