【正文】 Else If Not Then = 5 = strSet = True End If = 0 = 0 = 0 = 1 End If blnReceiveFlag5 = Not blnReceiveFlag5End Sub39。6號(hào)端口Private Sub sixResceerMes() 39。接收數(shù)據(jù) If blnReceiveFlag6 Then If Not blnAutoSendFlag6 And Not blnReceiveFlag6 Then = False End If Else If Not Then = 6 = strSet = True End If = 0 = 0 = 0 = 1 End If blnReceiveFlag6 = Not blnReceiveFlag6End Sub 39。7號(hào)端口Private Sub sevResceerMes() 39。接收數(shù)據(jù) If blnReceiveFlag7 Then If Not blnAutoSendFlag7 And Not blnReceiveFlag7 Then = False End If Else If Not Then = 7 = strSet = True End If = 0 = 0 = 0 = 1 End If blnReceiveFlag7 = Not blnReceiveFlag7End Sub39。**********************************39。字符串表示的十六進(jìn)制數(shù)據(jù)轉(zhuǎn)化為相應(yīng)的字節(jié)串39。返回轉(zhuǎn)化后的字節(jié)數(shù)39。**********************************Function strHexToByteArray(strText As String, bytByte() As Byte) As Integer Dim HexData As Integer 39。十六進(jìn)制(二進(jìn)制)數(shù)據(jù)字節(jié)對(duì)應(yīng)值 Dim hstr As String * 1 39。高位字符 Dim lstr As String * 1 39。低位字符 Dim HighHexData As Integer 39。高位數(shù)值 Dim LowHexData As Integer 39。低位數(shù)值 Dim HexDataLen As Integer 39。字節(jié)數(shù) Dim StringLen As Integer 39。字符串長(zhǎng)度 Dim Account As Integer 39。計(jì)數(shù) strTestn = 39。設(shè)初值 HexDataLen = 0 strHexToByteArray = 0 StringLen = Len(strText) Account = StringLen \ 2 ReDim bytByte(Account) For n = 1 To StringLen Do 39。清除空格 hstr = Mid(strText, n, 1) n = n + 1 If (n 1) StringLen Then HexDataLen = HexDataLen 1 Exit For End If Loop While hstr = Do lstr = Mid(strText, n, 1) n = n + 1 If (n 1) StringLen Then HexDataLen = HexDataLen 1 Exit For End If Loop While lstr = n = n 1 If n StringLen Then HexDataLen = HexDataLen 1 Exit For End If HighHexData = ConvertHexChr(hstr) LowHexData = ConvertHexChr(lstr) If HighHexData = 1 Or LowHexData = 1 Then 39。遇到非法字符中斷轉(zhuǎn)化 HexDataLen = HexDataLen 1 Exit For Else HexData = HighHexData * 16 + LowHexData bytByte(HexDataLen) = HexData HexDataLen = HexDataLen + 1 End If Next n If HexDataLen 0 Then 39。修正最后一次循環(huán)改變的數(shù)值 HexDataLen = HexDataLen 1 ReDim Preserve bytByte(HexDataLen) Else ReDim Preserve bytByte(0) End If If StringLen = 0 Then 39。如果是空串,則不會(huì)進(jìn)入循環(huán)體 strHexToByteArray = 0 Else strHexToByteArray = HexDataLen + 1 End If End Function39。**********************************39。字符表示的十六進(jìn)制數(shù)轉(zhuǎn)化為相應(yīng)的整數(shù)39。錯(cuò)誤則返回 139。**********************************Function ConvertHexChr(str As String) As Integer Dim test As Integer test = Asc(str) If test = Asc(0) And test = Asc(9) Then test = test Asc(0) ElseIf test = Asc(a) And test = Asc(f) Then test = test Asc(a) + 10 ElseIf test = Asc(A) And test = Asc(F) Then test = test Asc(A) + 10 Else test = 1 39。出錯(cuò)信息 End If ConvertHexChr = test End FunctionPrivate Sub Timer8_Timer() If Len() 1078 Then = End IfEnd Sub程序調(diào)試界面運(yùn)行之后結(jié)果如下圖結(jié)束語(yǔ) 以上是對(duì)計(jì)算機(jī)網(wǎng)絡(luò)平臺(tái)下實(shí)現(xiàn)智能建筑設(shè)備監(jiān)控系統(tǒng)的應(yīng)用及解決方案的一個(gè)介紹，我們知道智能建筑控制系統(tǒng)不僅可以滿足和實(shí)現(xiàn)不同的設(shè)備監(jiān)視及控制要求，實(shí)現(xiàn)建筑智能設(shè)備的高層管理，改善工作和居住環(huán)境，提高工作效率，還可以節(jié)約能源，延長(zhǎng)建筑設(shè)備壽命，減少維護(hù)費(fèi)用。隨著建筑和智能設(shè)備技術(shù)的進(jìn)步，智能設(shè)備和建筑融為一體，已成為建筑藝術(shù)的一部分，讓我們大家共同努力，將更多的智能控制系統(tǒng)應(yīng)用到智能建筑的設(shè)計(jì)中去，營(yíng)造出藝術(shù)、智能化的建筑環(huán)境，賦予建筑與生命。致 謝 經(jīng)過(guò)幾個(gè)月的努力，我按時(shí)完成了畢業(yè)設(shè)計(jì)。畢業(yè)設(shè)計(jì)是對(duì)電子科技大學(xué)網(wǎng)絡(luò)學(xué)院所學(xué)知識(shí)的綜合應(yīng)用，也是理論走向?qū)嵺`的第一步，在此設(shè)計(jì)過(guò)程中，我更深刻地理解了設(shè)計(jì)的概念，擴(kuò)展了知識(shí)面，加深理解了某些知識(shí)點(diǎn)，提高了獨(dú)立思考和自學(xué)的能力，更重要的是提高了實(shí)踐能力，為以后走向工作崗位奠定了基礎(chǔ)，這將使我終身受益。當(dāng)懂得很多以前沒(méi)有弄懂的知識(shí)時(shí)，心中充滿了欣慰。在此首先感謝母校的辛勤培育之恩；其次，感謝電子科技大學(xué)網(wǎng)絡(luò)教育學(xué)院計(jì)算機(jī)科學(xué)技術(shù)及應(yīng)用系給我提供了很好的設(shè)計(jì)環(huán)境，使我的設(shè)計(jì)得以順利的進(jìn)行。最后，感謝設(shè)計(jì)指導(dǎo)老師，他淵博的專業(yè)知識(shí)，嚴(yán)謹(jǐn)?shù)闹螌W(xué)作風(fēng)，育人求實(shí)的工作態(tài)度都體現(xiàn)在這次設(shè)計(jì)的指導(dǎo)中；每當(dāng)我遇到困難時(shí)，他總是耐心細(xì)致地給我講解，幫助我度過(guò)一個(gè)又一個(gè)難關(guān)，使得我的設(shè)計(jì)能有條不紊的進(jìn)行。對(duì)在整個(gè)畢業(yè)設(shè)計(jì)過(guò)程中，老師給予的指導(dǎo)和幫助，我表示衷心的感謝；另外系上其他老師和同學(xué)都給了我大力支持和幫助，對(duì)這些老師和同學(xué)表示誠(chéng)摯的謝意；謝謝你們。在未來(lái)的工作和學(xué)習(xí)中，我將以更好的成績(jī)來(lái)回報(bào)各位領(lǐng)導(dǎo)和老師。參考文獻(xiàn)[1]楊將新，李華軍等．單片機(jī)程序設(shè)計(jì)及應(yīng)用[M]. 電子工業(yè)出版社， 2006：142—154.[2] 范風(fēng)強(qiáng)，蘭蟬麗．單片機(jī)語(yǔ)言C51應(yīng)用實(shí)戰(zhàn)集錦[M]. 電子工業(yè)出版社， 2005：212—234.[3]胡漢才．單片機(jī)原理及接口技術(shù)[M]. 青華大學(xué)出版社，1996：132—145.[4]陳一才編著. 智能建筑電氣設(shè)計(jì)手冊(cè). 中國(guó)建材工業(yè)出版社[5]楊紹胤編著. 智能建筑設(shè)計(jì)實(shí)例精選. 中國(guó)電力出版社[6]孫景芝編著. 建筑智能化系統(tǒng)概論. 高等教育出版社[7]李林、[8]李威良、