【正文】 End FunctionPrivate Function Resce(i As Integer) Dim floor As String Dim state As String Dim code As Integer If ReceiveMes2 Then floor = SixteenTurnTen(CStr(Mid(ReceiveMes2, 18, 2))) state = SixteenTurnTen(CStr(Mid(ReceiveMes2, 22, 2))) code = SixteenTurnTen(CStr(Mid(ReceiveMes2, 11, 1))) WritePrivateProfileString datasourse, inNodeno + CStr(code), CStr(code), F:\qa\Bin\ WritePrivateProfileString datasourse, floow + CStr(code), floor, F:\qa\Bin\ WritePrivateProfileString datasourse, state + CStr(code), state, F:\qa\Bin\ End If If ReceiveMes5 Then code = 0 floor = SixteenTurnTen(CStr(Mid(ReceiveMes5, 18, 2))) state = SixteenTurnTen(CStr(Mid(ReceiveMes5, 22, 2))) code = SixteenTurnTen(CStr(Mid(ReceiveMes5, 11, 1))) WritePrivateProfileString datasourse, inNodeno + CStr(code + 4), CStr(code + 4), F:\qa\Bin\ WritePrivateProfileString datasourse, floow + CStr(code + 4), floor, F:\qa\Bin\ WritePrivateProfileString datasourse, state + CStr(code + 4), state, F:\qa\Bin\ = CStr(floor) + CStr(state) End If If ReceiveMes6 Then code = 0 floor = SixteenTurnTen(CStr(Mid(ReceiveMes6, 18, 2))) state = SixteenTurnTen(CStr(Mid(ReceiveMes6, 22, 2))) code = SixteenTurnTen(CStr(Mid(ReceiveMes6, 11, 1))) WritePrivateProfileString datasourse, inNodeno + CStr(code + 11), CStr(code + 11), F:\qa\Bin\ WritePrivateProfileString datasourse, floow + CStr(code + 11), floor, F:\qa\Bin\ WritePrivateProfileString datasourse, state + CStr(code + 11), state, F:\qa\Bin\ End If If ReceiveMes7 Then code = 0 floor = SixteenTurnTen(CStr(Mid(ReceiveMes7, 18, 2))) state = SixteenTurnTen(CStr(Mid(ReceiveMes7, 22, 2))) code = SixteenTurnTen(CStr(Mid(ReceiveMes7, 11, 1))) WritePrivateProfileString datasourse, inNodeno + CStr(code + 15), CStr(code + 15), F:\qa\Bin\ WritePrivateProfileString datasourse, floow + CStr(code + 15), floor, F:\qa\Bin\ WritePrivateProfileString datasourse, state + CStr(code + 15), state, F:\qa\Bin\ End If End FunctionPrivate Function SixteenTurnTen(ByVal varNum As String) As String SixteenTurnTen = Val(amp。With MSComm2 39。Call display5 If Not blnAutoSendFlag5 And Not blnReceiveFlag5 Then = False End If 39。圖標的提示信息End TypeDim t As NOTIFYICONDATADim NodeID As StringPrivate Sub Form_Load()39。當鼠標指針移至圖標上Private Const WM_LBUTTONUP = amp。i6。但在此我們沒有外部傳感器采集電路，因而不能進行A/D和D/A轉換,整個軟件系統(tǒng)是這樣來設計的：首先上位機編輯好源程序再轉換為相應的可執(zhí)行的二進制代碼文件由串口通信程序經過串口傳送到單片機中存儲。建立電梯運行檔案和維護檔案。－ 由內部程序決定的輸出點開/關控制。從而達到優(yōu)化整個智能化燈光照明，延長燈具壽命和節(jié)約能源的目的。該系統(tǒng)可以實現大樓內：生活用水系統(tǒng)、消防用水系統(tǒng)、噴灌用水系統(tǒng)的水位的監(jiān)視和水泵的自動啟停，變配電設備的監(jiān)視管理、冷熱源設備監(jiān)控管理，電梯的運行狀態(tài)和故障報警(電梯鎖人)信息進行遠程集中監(jiān)視和網絡化分布式監(jiān)視，以及大樓內公共照明和景觀照明的自動化監(jiān)視和控制。全部ICU程序均可以由智能控制單元獨立的自動執(zhí)行，也可以由操作員手動執(zhí)行。智能化的藝術照明和室外照明的自動控制。、與變配電、照明等系統(tǒng)的設計界面系統(tǒng)中的遙控單元、智能化儀表或開關、照明控制單元、電參數變送器等自動化器件，應配合強電設計選配，預置在配電柜或照明箱中。 } DisplayArray[0]=c_keyCode[keyIndex]。H2Private Const NIF_TIP = amp。 uCallbackMessage As Long 39。If blnReceiveFlag5 Then If Not Then = 5 = strSet = True End If 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。返回轉化后的字節(jié)數39。字符表示的十六進制數轉化為相應的整數39。對在整個畢業(yè)設計過程中，老師給予的指導和幫助，我表示衷心的感謝；另外系上其他老師和同學都給了我大力支持和幫助，對這些老師和同學表示誠摯的謝意；謝謝你們。設初值 HexDataLen = 0 strHexToByteArray = 0 StringLen = Len(strText) Account = StringLen \ 2 ReDim bytByte(Account) For n = 1 To StringLen Do 39。6號端口Private Sub sixResceerMes() 39。If longth 0 Then 39。 If blnReceiveFlag1 Then If Not Then = 7 = strSet = True End If 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。處理任務欄中圖標的窗口句柄 uID As Long 39。H2 39。 Else if(keytmp= =8) keydata =KEY4。　　風閥的控制應根據工況要求選擇電動操作機構或配電子定位裝置。對變壓器的進行溫度監(jiān)視。1) 智能控制單元功能－ 以設定的周期對采樣點與調控點進行數值和狀態(tài)的巡回檢測，并可將檢測結果傳送給中央計算機管理系統(tǒng)。電 子 科 技 大 學畢 業(yè) 設 計（論 文）論文題目：基于計算機網絡控制平臺下實現智能建筑設備監(jiān)控自動化系統(tǒng)(BAS)設計 學習中心（或辦學單位）：電子科技大學網絡教育學院指導老師： 職 稱： 副教授 學生姓名： 學 號: 專 業(yè)：計算機科學與技術 電子科技大學繼續(xù)教育學院制網絡教育學院2009年 11月 12日電 子 科 技 大 學畢業(yè)設計（論文）任務書