【正文】 參考文獻(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]李威良、……。對(duì)在整個(gè)畢業(yè)設(shè)計(jì)過(guò)程中，老師給予的指導(dǎo)和幫助，我表示衷心的感謝；另外系上其他老師和同學(xué)都給了我大力支持和幫助，對(duì)這些老師和同學(xué)表示誠(chéng)摯的謝意；謝謝你們。在此首先感謝母校的辛勤培育之恩；其次，感謝電子科技大學(xué)網(wǎng)絡(luò)教育學(xué)院計(jì)算機(jī)科學(xué)技術(shù)及應(yīng)用系給我提供了很好的設(shè)計(jì)環(huán)境，使我的設(shè)計(jì)得以順利的進(jìn)行。畢業(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ǔ)，這將使我終身受益。隨著建筑和智能設(shè)備技術(shù)的進(jìn)步，智能設(shè)備和建筑融為一體，已成為建筑藝術(shù)的一部分，讓我們大家共同努力，將更多的智能控制系統(tǒng)應(yīng)用到智能建筑的設(shè)計(jì)中去，營(yíng)造出藝術(shù)、智能化的建筑環(huán)境，賦予建筑與生命。**********************************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。字符表示的十六進(jìn)制數(shù)轉(zhuǎn)化為相應(yīng)的整數(shù)39。如果是空串,則不會(huì)進(jìn)入循環(huán)體 strHexToByteArray = 0 Else strHexToByteArray = HexDataLen + 1 End If End Function39。遇到非法字符中斷轉(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。設(shè)初值 HexDataLen = 0 strHexToByteArray = 0 StringLen = Len(strText) Account = StringLen \ 2 ReDim bytByte(Account) For n = 1 To StringLen Do 39。字符串長(zhǎng)度 Dim Account As Integer 39。低位數(shù)值 Dim HexDataLen As Integer 39。低位字符 Dim HighHexData As Integer 39。十六進(jìn)制(二進(jìn)制)數(shù)據(jù)字節(jié)對(duì)應(yīng)值 Dim hstr As String * 1 39。返回轉(zhuǎn)化后的字節(jié)數(shù)39。**********************************39。7號(hào)端口Private Sub sevResceerMes() 39。6號(hào)端口Private Sub sixResceerMes() 39。5號(hào)端口Private Sub fiveResceerMes() 39。2號(hào)端口Private Sub twoResceerMes() 39。H amp。 End If 39。 If longth 0 Then 39。 SetComm (7) 39。 End If 39。If longth 0 Then 39。SetComm (5) 39。End If 39。If longth 0 Then 39。SetComm (2) 39。 End If NodeID = NodeID + 1 If NodeID = 8 Then NodeID = 1End SubPrivate Function Send(ii As Integer, jj As Integer) Dim longth As Integer strSendText = A5 81 0 + CStr(ii) + 00 00 8 + CStr(jj) + 5A SendMes = TX: amp。 End If ok = True End SelectEnd SubPrivate Sub Timer1_Timer() Dim s1 As String Send CInt(NodeID), CInt(NodeID + 1) s1 = Mid(ReceiveMes2, 11, 1) = s1 39。 Call GetDisplayText 39。 If blnReceiveFlag1 Then If Not Then = 7 = strSet = True End If 39。 Call display If Not blnAutoSendFlag6 And Not blnReceiveFlag6 Then = False End If 39。此處添加處理接收的代碼 = InputModeBinary intInputLen = ReDim bytInput(intInputLen) bytInput = Call sixInputManage(bytInput, intInputLen) 39。 End If End SelectEnd SubPrivate Sub MSComm6_OnComm()Dim bytInput() As Byte Dim intInputLen As Integer Select Case Case EvReceive 39。 Call GetDisplayText5 39。If blnReceiveFlag5 Then If Not Then = 5 = strSet = True End If 39。 Call display If Not blnAutoSendFlag2 And Not blnReceiveFlag2 Then = False End If 39。此處添加處理接收的代碼 = InputModeBinary intInputLen = ReDim bytInput(intInputLen) bytInput = Call twoInputManage(bytInput, intInputLen) 39。 Chr(10)Shell_NotifyIcon NIM_ADD, t = False = 0ElseEnd IfEnd SubPrivate Sub MSComm2_OnComm() Dim bytInput() As Byte Dim intInputLen As Integer Select Case Case EvReceive 39。默認(rèn)發(fā)送方式為ASCII twoResceerMes fiveResceerMes sixResceerMes sevResceerMes NodeID = 1End SubPrivate Sub SetComm(ByRef As Integer) Select Case Case 2 With MSComm2 If .PortOpen = True Then .PortOpen = False End If .CommPort = .Settings = 9600,N,8,1 .InBufferSize =