【正文】 39。 uCallbackMessage As Long 39。加載串口 39。默認發(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 = 1024 .OutBufferSize = 1024 .InputMode = InputModeBinary .InputLen = 0 .SThreshold = 0 .InBufferCount = 0 .OutBufferCount = 0 If Not .PortOpen Then On Error Resume Next .PortOpen = True If Err Then MsgBox 串口已經(jīng)被占用 Exit Sub End If End If End With Case 5 With MSComm5 If .PortOpen = True Then .PortOpen = False End If .CommPort = .Settings = 9600,N,8,1 .InBufferSize = 1024 .OutBufferSize = 1024 .InputMode = InputModeBinary .InputLen = 0 .SThreshold = 0 .InBufferCount = 0 .OutBufferCount = 0 If Not .PortOpen Then On Error Resume Next .PortOpen = True If Err Then MsgBox 串口已經(jīng)被占用 Exit Sub End If End If End With Case 6 With MSComm6 If .PortOpen = True Then .PortOpen = False End If .CommPort = .Settings = 9600,N,8,1 .InBufferSize = 1024 .OutBufferSize = 1024 .InputMode = InputModeBinary .InputLen = 0 .SThreshold = 0 .InBufferCount = 0 .OutBufferCount = 0 If Not .PortOpen Then On Error Resume Next .PortOpen = True If Err Then MsgBox 串口已經(jīng)被占用 Exit Sub End If End If End With Case 7 With MSComm7 If .PortOpen = True Then .PortOpen = False End If .CommPort = .Settings = 9600,N,8,1 .InBufferSize = 1024 .OutBufferSize = 1024 .InputMode = InputModeBinary .InputLen = 0 .SThreshold = 0 .InBufferCount = 0 .OutBufferCount = 0 If Not .PortOpen Then On Error Resume Next .PortOpen = True If Err Then MsgBox 串口已經(jīng)被占用 Exit Sub End If End If End With End SelectEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Select Case CLng(X) Case WM_MOUSEMOVE Case WM_DBUTTONUP = True Case WM_LBUTTONUPEnd SelectEnd SubPrivate Sub Form_Resize()If = 1 Then = Len(t) = = 0 = NIF_ICON Or NIF_MESSAGE Or NIF_TIP = WM_MOUSEMOVE = = Quantum Automation Lift Server amp。此處添加處理接收的代碼 = InputModeBinary intInputLen = ReDim bytInput(intInputLen) bytInput = Call twoInputManage(bytInput, intInputLen) 39。If blnReceiveFlag5 Then If Not Then = 5 = strSet = True End If 39。 End If End SelectEnd SubPrivate Sub MSComm6_OnComm()Dim bytInput() As Byte Dim intInputLen As Integer Select Case Case EvReceive 39。 Call display If Not blnAutoSendFlag6 And Not blnReceiveFlag6 Then = False End If 39。 Call GetDisplayText 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。If longth 0 Then 39。SetComm (5) 39。 End If 39。 If longth 0 Then 39。H amp。5號端口Private Sub fiveResceerMes() 39。7號端口Private Sub sevResceerMes() 39。返回轉(zhuǎn)化后的字節(jié)數(shù)39。低位字符 Dim HighHexData As Integer 39。字符串長度 Dim Account As Integer 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。字符表示的十六進制數(shù)轉(zhuǎn)化為相應(yīng)的整數(shù)39。隨著建筑和智能設(shè)備技術(shù)的進步，智能設(shè)備和建筑融為一體，已成為建筑藝術(shù)的一部分，讓我們大家共同努力，將更多的智能控制系統(tǒng)應(yīng)用到智能建筑的設(shè)計中去，營造出藝術(shù)、智能化的建筑環(huán)境，賦予建筑與生命。在此首先感謝母校的辛勤培育之恩；其次，感謝電子科技大學(xué)網(wǎng)絡(luò)教育學(xué)院計算機科學(xué)技術(shù)及應(yīng)用系給我提供了很好的設(shè)計環(huán)境，使我的設(shè)計得以順利的進行。參考文獻[1]楊將新，李華軍等．單片機程序設(shè)計及應(yīng)用[M]. 電子工業(yè)出版社， 2006：142—154.[2] 范風(fēng)強，蘭蟬麗．單片機語言C51應(yīng)用實戰(zhàn)集錦[M]. 電子工業(yè)出版社， 2005：212—234.[3]胡漢才．單片機原理及接口技術(shù)[M]. 青華大學(xué)出版社，1996：132—145.[4]陳一才編著. 智能建筑電氣設(shè)計手冊. 中國建材工業(yè)出版社[5]楊紹胤編著. 智能建筑設(shè)計實例精選. 中國電力出版社[6]孫景芝編著. 建筑智能化系統(tǒng)概論. 高等教育出版社[7]李林、[8]李威良、……。對在整個畢業(yè)設(shè)計過程中，老師給予的指導(dǎo)和幫助，我表示衷心的感謝；另外系上其他老師和同學(xué)都給了我大力支持和幫助，對這些老師和同學(xué)表示誠摯的謝意；謝謝你們。畢業(yè)設(shè)計是對電子科技大學(xué)網(wǎng)絡(luò)學(xué)院所學(xué)知識的綜合應(yīng)用，也是理論走向?qū)嵺`的第一步，在此設(shè)計過程中，我更深刻地理解了設(shè)計的概念，擴展了知識面，加深理解了某些知識點，提高了獨立思考和自學(xué)的能力，更重要的是提高了實踐能力，為以后走向工作崗