【正文】 receivedata： array ofbyte； begin sleep(100)； ／／等待 lOOms，保證接收到所有數(shù)據(jù) move(buffef,receivedata,bufferlength)； ／／將接收緩存區(qū)中的數(shù)據(jù)轉(zhuǎn)移到數(shù)組中 ...... end； (5)關閉串口 在系統(tǒng)開發(fā)中，應注意在不使用串口時應及時關閉串口，釋放系統(tǒng)資源，否則可能會影響系統(tǒng)的其它應用。 系 統(tǒng) 主 界 面 模 塊數(shù) 據(jù) 顯 示 模 塊用 戶 設 置 模 塊歷 史 數(shù) 據(jù) 查 詢 模塊設 備 運 行 模 塊 圖 51 軟件模塊結(jié)構(gòu)圖 數(shù)據(jù)庫平臺選用 Microsoft Access 2021， Access2021 是 office2021 中文版的組件之一，是一個中、小型數(shù)據(jù)庫管理系統(tǒng) ，使用方便、功能強大，與其它數(shù)據(jù)庫有良好的接口。 Access2021 內(nèi)有強大的操作向?qū)?，為用戶提供了豐富的數(shù)據(jù)庫基本表模板。在Access2021 中，可以設定、修改基本表之間的關聯(lián)，從而實現(xiàn)在多個相關 表之間的關系查詢。健雄職業(yè)技術學院畢業(yè)設計（論文） 20Access2021 不僅可以處理自身的數(shù)據(jù)庫文件，還可以處理其它一些數(shù)據(jù)庫系統(tǒng)管理軟件所建立的數(shù)據(jù)庫文件，能識別 dBase、 FOxBase、 FoxPrO、 Paradox、 Btrieve 等數(shù)據(jù)庫格式文件，并且支持開放式數(shù)據(jù)庫互連性標準 (ODBc)的 SQL。 Access2021 的一個數(shù)據(jù)庫文件中包含了該數(shù)據(jù)庫中的全部數(shù)據(jù)表、查詢、窗體 、報表等所有數(shù)據(jù)，便于管理。 (3)具有強大的網(wǎng)絡功能，可通過網(wǎng)絡傳送數(shù)據(jù)。 (5)可以處理多種數(shù)據(jù)信息，如文本文件和其它數(shù)據(jù)庫文件。能否及時準確的接受溫濕度，光線監(jiān)測數(shù)據(jù)在很大程度上取決于通信協(xié)議和通信流程的設計，本軟件采用自定義的通信協(xié)議， 有效地避免了數(shù)據(jù)碰撞的現(xiàn)象 ,提高了通信的質(zhì)量與速度，減輕了通信量的負荷 ,降低了程序的復雜度。根據(jù)本課題研究的對象和主要目的，選擇采用總線型網(wǎng)絡結(jié)構(gòu)、主從通信模式將更能滿足上、下位機即時通信的需求，實現(xiàn)最終目的。 RS485協(xié)議是為彌補 RS232的不足而提出的，它改進了 RS232通信距離短、速率低的缺點，具有更強的抗干擾與負載能力，允許在一條平衡總線上連接最多 256個收發(fā)器，支持半、全雙工通信。 在通信過程中，通信設備雙方是互相獨立的。能否很好的克服這種客觀存在的不可確定性，完全取決于通信協(xié)議中通信流程的設計。下位機應答的可能性有四種情況：第一種是所求數(shù)據(jù) 的應答 (當成功執(zhí)行時 )；第二種是表示命令執(zhí)行失敗的應答；第三種是表示未能成功接收上位機所發(fā)命令的應答；第四種是在規(guī)定時間內(nèi)未接收到任何應答。如果不用輪詢而改用下位機自動報 告的方式則又可能出現(xiàn)數(shù)據(jù)碰撞的情況。上位機接收到下位機的應答信號后向下位機發(fā)送命令信息，下位機接收到此命令后就開始根據(jù)這個信息的命令代碼執(zhí)行相應的操作，即發(fā)送數(shù)據(jù)或接收數(shù)據(jù)。 (1)上位機發(fā)送命令／接收應答流程 當上位機發(fā)送一個命令幀之后，立即轉(zhuǎn)到線程串口監(jiān)視線程，等待下位機的應答健雄職業(yè)技術學院畢業(yè)設計（論文） 22幀。當在超時時間內(nèi)沒有接收到下位機的應答幀時，上位機的行為會出現(xiàn)繼續(xù)向下位機發(fā)送命令幀。當下位機接收到一個呼叫命令幀后，向上位機發(fā)送應答信號。 健雄職業(yè)技術學院畢業(yè)設計（論文） 23串 口 接 到 一 幀 數(shù)據(jù)格 式 是 否 正 確執(zhí) 行 相 應 的 命 令命 令 執(zhí) 行 成 功否發(fā) 送 應 答 表 示 接收 成 功等 待 接 收 下 一 幀命 令是是否否 圖 54 下位機發(fā)送命令∕接收回應流程圖 通信格式的設計 通信協(xié)議中的數(shù)據(jù)格式大多是基于幀的，即將所要發(fā)送數(shù)據(jù)／命令的頭尾加入修飾性的字符，形成一個幀發(fā)送出去；接收時將所接收到的幀去掉所加入的頭尾即可取出數(shù)據(jù) 1命令。 表 51 數(shù)據(jù)∕命令幀格式 1 幀 起 始 字 符 數(shù) 據(jù) 、 命 令 校 驗 字 幀 停 止 字 符 表 52 數(shù)據(jù)∕命令幀格式 2 幀 起 始 字 符 字 符 長 度 數(shù) 據(jù) ∕ 命 令 校 驗 字 健雄職業(yè)技術學院畢業(yè)設計（論文） 24 通信程序的開發(fā) SPComm控件通過串口傳輸和接收數(shù)據(jù)，為應用程序提供串行通信功能。跟所有其它的 ActiveX控件一樣， SPComm． OCX定了一系列的屬性和接口。 SPComm控件提供了兩種串行口消息處理的方法：一種是查詢方式，另外一種是事件驅(qū)動方式。對較復雜的通信任務，就應用事件驅(qū)動接口，它只響應 OnComm事件對己發(fā)生的事件或錯誤進行處理，與 CommEvent屬性密切相關。 事件驅(qū)動通信是處理串行端 12交互作用的一種非常有效的方法。在這些情況下，可以利用 SPComm控件的 OnComm事件捕獲并處理這 些事件。在編程過程中，就可以在 OnComm事件處理函數(shù)中加入自己的處理代碼。每個的設計實現(xiàn) SPComm控件對應著一個串行端口，如果應用程序需要訪問多個串行端口，必須使用多個 SPComm控件。 利用 SPComm控件開發(fā)串口通信軟件，需要了解以下線的名稱及其作用，這些線的高低電平狀態(tài)分別對應 SPComm控件相應屬性的 True和 False值。 健雄職業(yè)技術學院畢業(yè)設計（論文） 26 圖 56 用戶登錄模塊截圖 下面對重要的控件的屬性加以說明： 表 53 TTable 控件屬性 屬性 值 Name Table1 DatabaseName Shuju TableName Denglu Active Ture 表 54 TQuery 控件屬性 控件屬性 設置值 Name Query1 DatabaseName Sjk Active False 系統(tǒng) 主界面模塊 該界面是本軟件中最重要的部分。其運行界面如圖 57 所示。但在修改之前需要輸入原先的密碼，然后才能進行修改。用戶可以重新輸入新密碼。 健雄職業(yè)技術學院畢業(yè)設計（論文） 28 圖 58用戶設定模塊截圖 歷史數(shù)據(jù)查詢 模塊 歷史數(shù)據(jù)查詢頁設計功能有 :按日期時間順序?qū)v史數(shù)據(jù)的查詢、打印，對所查詢到的記錄產(chǎn)生報表并以文本格式輸出。 具體實現(xiàn)代碼如下： Procedure TForm4． setmaxminO； Currentmaxdata： =fieldlist． fields[i]． asfloat； Currentmindata： =fieldlist． fields[i]． asfloat； While not(eof)do begin If fieldlist． Fields[i]． asfloatcurrentmindata then begin Currentmindata： =fieldlist． fields[i]． asfloat； Currentmindate： =fieldlist． fields[O]． asdatetime If fieldlist． fields[i]． asfloatcurrentmaxdata then begin Currentmaxdata： =fieldlist． fields[i]． asfloat； Currentmaxdate： =fieldlist． fields[0]． asdatetime； 健雄職業(yè)技術學院畢業(yè)設計（論文） 29 圖 9 歷史數(shù)據(jù)查詢界面 健雄職業(yè)技術學院畢業(yè)設計（論文） 30 圖 10溫室環(huán)境監(jiān)測系統(tǒng)報表 健雄職業(yè)技術學院畢業(yè)設計（論文） 31結(jié)論 本文通過對國內(nèi)外溫室環(huán)境控制現(xiàn)狀分析，指出了溫室環(huán)境監(jiān)測智能化是發(fā)展的必然趨勢。 但由于時間和個人能力有限， 該設計難免有許多不完善之處，敬請更正。能順利的完成這次畢業(yè)設計并寫出這篇論文，我要十分感謝我的指導老師程老師。程老師嚴謹認真的治學態(tài)度、淵博的知識、深厚的專業(yè)功底、敏銳的洞察力、求真務實的科研精神，及謙虛熱情的待人風格使我受益匪淺。首先，要分析這個任務的目的跟要求；然后去收集跟它有關的資料，進行整理和消化，全面和深入的了解這些資料并整理出大概的思路，系統(tǒng)的整理出任務的流程圖和提綱；最后再按照流程圖和提綱去完成這個任務。我想，這次的經(jīng)歷必將給我今后的工作帶來很大的幫助和難得的經(jīng)驗。 謝謝！ 健雄職業(yè)技術學院畢業(yè)設計（論文） 33參 考 文 獻 [1]黃興海 ．智能網(wǎng)絡犁環(huán)境溫濕度監(jiān)測系統(tǒng)系統(tǒng)集成方案．電子質(zhì)量 2021年第 3期． [2]林振強．基于網(wǎng)絡技術的實驗室溫、濕度監(jiān)測系統(tǒng)．化學分析計量． 2021． 04 [3]郭慶．基于 RS485總線的環(huán)境監(jiān)控系統(tǒng)設計與實現(xiàn)．國外電子測量技術． 2021． 07 [4]劉愛榮．多通道溫．濕度循環(huán)檢測儀．河南科學． 2021— 02 [5]錢君． Delphi5 串 12通信編程 .機械工業(yè)出版社． 2021 ,P121132 [6]Ray Liscbner． Delphi技術手冊．中國電力出版社． P6688 [7]李海兵，楊曉亮 .Access 2021 數(shù)據(jù)庫管理從入門到精通 .中國青年出版社 [8]蔣培，肖江等． 1氐消耗無線溫濕度監(jiān)測系統(tǒng)設計．木材加工機械． 2021年 4期． [9]王樹曉濕度計算機監(jiān)測系統(tǒng)開發(fā)與應用．北京紡織． 2021— 02 [10]張毅剛，新編 MCS51單片機應用設計，哈爾濱工業(yè)大學出版社， 2021,P145155 [11]張培仁，基于 C語言編程 MSC51單片機原理與應用，清華大學出版社， 2021,P134156 [12]沈紅衛(wèi)，單片機應用系統(tǒng)設計實例與分析，北京航空航天大學出版社， 2021 [13]李長林， Visual C++ 串口通信技術與典型實例，清華大學出版社， 2021,P132166 [14]周亞玲 ,蘇治中 .delphi 開發(fā)實用編程 200例 .中國鐵道出版社， 2021,P1536 [15]曹巖 .delphi 程序設計實用教程 .化學工業(yè)出版社， 2021,P2588 健雄職業(yè)技術學院畢業(yè)設計（論文） 34附錄 主要程序 : (1).初始化按鈕代碼： Procedure TFoml． FormCreate(Sender： TObject)； Begin MSComm． CommPort： =1： ／／ COM 1為選擇端口 MSComm． Setting： =’9600， n， 8， 1’； ／／波特率 9600，數(shù)據(jù) 8位 ,無奇偶校驗，停止 1位 MSComm． InBufferCount： =0； ／／清空接收緩沖區(qū) MSComm． InputLen： =O； ／／讀取整個緩沖區(qū)內(nèi)容 MSComm． InBufferSize： =4096； ／／接收緩沖區(qū) 4096個字節(jié) MSComm． RThreshold： =1000； ／／每次接收到 1000個字節(jié)即產(chǎn)生 OnComm事件 MSComm． OutBufferCount： =O： ／／清空發(fā)送緩沖區(qū) MSComm． OutBufferSize： =512； ／／發(fā)送緩沖區(qū) 512個字節(jié) MSComm． SThreshold： =l； ／／每次發(fā)送緩沖區(qū)字節(jié)數(shù)少于 1個即產(chǎn)生 OnComm事件 If not MSComm． PortOpen then ／／打開串口 MSComm． PortOpen： =True； End； (2)發(fā)送數(shù)據(jù)按鈕代碼： procedure senddata； vali： integer； eommflg： Boolean； begin 健雄職業(yè)技術學院畢業(yè)設計（論文） 35mflg： =true； for i： =l to 8 do begin if not fm ml writemdata(sendbutter， i)then begin Commflg=false； break； end； end； end； (3)接收數(shù)據(jù)按鈕代碼： procedure TForm1. Comm1ReceiveData (Sender: TObject。 BufferLength:Word)。 mRevstr:shortstring。 SetLength(CommRevStr,BufferLen