【正文】 謝謝！ 健雄職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 33參 考 文 獻 [1]黃興海 ．智能網(wǎng)絡(luò)犁環(huán)境溫濕度監(jiān)測系統(tǒng)系統(tǒng)集成方案．電子質(zhì)量 2021年第 3期． [2]林振強．基于網(wǎng)絡(luò)技術(shù)的實驗室溫、濕度監(jiān)測系統(tǒng)．化學(xué)分析計量． 2021． 04 [3]郭慶．基于 RS485總線的環(huán)境監(jiān)控系統(tǒng)設(shè)計與實現(xiàn)．國外電子測量技術(shù)． 2021． 07 [4]劉愛榮．多通道溫．濕度循環(huán)檢測儀．河南科學(xué)． 2021— 02 [5]錢君． Delphi5 串 12通信編程 .機械工業(yè)出版社． 2021 ,P121132 [6]Ray Liscbner． Delphi技術(shù)手冊．中國電力出版社． P6688 [7]李海兵，楊曉亮 .Access 2021 數(shù)據(jù)庫管理從入門到精通 .中國青年出版社 [8]蔣培，肖江等． 1氐消耗無線溫濕度監(jiān)測系統(tǒng)設(shè)計．木材加工機械． 2021年 4期． [9]王樹曉濕度計算機監(jiān)測系統(tǒng)開發(fā)與應(yīng)用．北京紡織． 2021— 02 [10]張毅剛，新編 MCS51單片機應(yīng)用設(shè)計，哈爾濱工業(yè)大學(xué)出版社， 2021,P145155 [11]張培仁，基于 C語言編程 MSC51單片機原理與應(yīng)用，清華大學(xué)出版社， 2021,P134156 [12]沈紅衛(wèi)，單片機應(yīng)用系統(tǒng)設(shè)計實例與分析，北京航空航天大學(xué)出版社， 2021 [13]李長林， Visual C++ 串口通信技術(shù)與典型實例，清華大學(xué)出版社， 2021,P132166 [14]周亞玲 ,蘇治中 .delphi 開發(fā)實用編程 200例 .中國鐵道出版社， 2021,P1536 [15]曹巖 .delphi 程序設(shè)計實用教程 .化學(xué)工業(yè)出版社， 2021,P2588 健雄職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 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è)技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 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。用戶可以重新輸入新密碼。 事件驅(qū)動通信是處理串行端 12交互作用的一種非常有效的方法。 (1)上位機發(fā)送命令／接收應(yīng)答流程 當上位機發(fā)送一個命令幀之后，立即轉(zhuǎn)到線程串口監(jiān)視線程，等待下位機的應(yīng)答健雄職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 22幀。能否及時準確的接受溫濕度，光線監(jiān)測數(shù)據(jù)在很大程度上取決于通信協(xié)議和通信流程的設(shè)計，本軟件采用自定義的通信協(xié)議， 有效地避免了數(shù)據(jù)碰撞的現(xiàn)象 ,提高了通信的質(zhì)量與速度，減輕了通信量的負荷 ,降低了程序的復(fù)雜度。利用SPCOMM串口控件接收下位機發(fā)送的數(shù)據(jù)信息的代碼如下： ／／事件驅(qū)動方式接收數(shù)據(jù)程序 procedure TForm 1． CommlReceiveData(Sender： Tobject； Buffer： Pointer； bufferLength： Word)； var receivedata： array ofbyte； begin sleep(100)； ／／等待 lOOms，保證接收到所有數(shù)據(jù) move(buffef,receivedata,bufferlength)； ／／將接收緩存區(qū)中的數(shù)據(jù)轉(zhuǎn)移到數(shù)組中 ...... end； (5)關(guān)閉串口 在系統(tǒng)開發(fā)中，應(yīng)注意在不使用串口時應(yīng)及時關(guān)閉串口，釋放系統(tǒng)資源，否則可能會影響系統(tǒng)的其它應(yīng)用。函數(shù)有兩個參數(shù) ,其中 pDataToWrite 是要發(fā)送的字符串 , dwSizeofDataToWrite 是發(fā)送的長度 [9]。 ByteSize:字節(jié)長度 5, 6, 7, 8 等 ,根據(jù)實際情況設(shè)定。現(xiàn)在開發(fā)串口應(yīng)用程序的方法很多，如微軟的 MSCm 控件，但是 MSComm本身存在一定的弊端，如只能發(fā)送 ASCII 碼等。 (3)串口的讀寫控制 健雄職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 13這部分內(nèi)容關(guān)系到串行通信的核心內(nèi)容，將分讀／寫串口 API函數(shù)、異步 I／ O操作兩部分介紹。 (1)串口的打開與關(guān)閉 Win32系統(tǒng)把文件的概念進行了擴展，無論是文件、通信設(shè)備、 命名管道、郵槽、磁盤，還是控制臺，都是用 API函數(shù) CreateFile()來打開或創(chuàng)建的。如果在調(diào)用 CreateFileO創(chuàng)建句柄時指定了 ILE FLAG OVERLAPPED標志， 那么調(diào)用 ReadFileO和 writeFileO對該句柄進行的讀寫操作就是異步的，如果未指定異步標志，則讀寫操作是同步的。在用異步方式讀寫串行口時，雖然在完成讀／寫操作以前就可能返回，但超時仍然是起作用的。通信 API函數(shù)所涉及的操作包括串口的打開、關(guān)閉、初始化與讀寫等。由于Delphi 同時兼?zhèn)淞?VC 功能強大和 VB 簡單易學(xué)的特點，因此它成為了程序員至愛的編程工具。這個標準傳輸信號具有很強的抗干擾能力，可以達到更大的傳輸距離和更高的傳輸效率。各個溫的控制功能一般由單片機 (子處理器 )完成， PC 機作為主處理器，僅實現(xiàn)輔助功能，脫離主處理器，整 個控制系統(tǒng)仍可工作。很難進行遠距離的監(jiān)控和報警。因此開發(fā)研制出適合我國現(xiàn)狀的低成本高性能的環(huán)境監(jiān)測系統(tǒng)，是一項非常緊迫的任務(wù)，也對提高我國現(xiàn)代化企業(yè)的經(jīng)濟效益和加快我國的現(xiàn)代化水平具有非常重要意義。 本質(zhì)上看，環(huán)境保護是以減少或避免生態(tài)系統(tǒng)的破壞為終極目標。 Delphi 是一種可視化的、快速的應(yīng)用程序 ， 具有面向?qū)ο缶幊?，支持團隊開發(fā)，提供 工程管理 ，對數(shù)據(jù)庫的良好支持等特性，是一個集數(shù)據(jù)通信、存儲、查詢、處理于一體的綜合性軟件 。 本設(shè)計能夠?qū)崿F(xiàn)以下功能： PC 機通過串行口 與下位機通信，將下位機 采集到的溫、濕度及光線數(shù)據(jù) 在 PC 機上實時顯示 ； 對歷史數(shù)據(jù)進行查詢、分析、統(tǒng)計，并能將相應(yīng)的結(jié)果打印出來 。對環(huán)境監(jiān)測，目前單純的理化指標和生物指標監(jiān)測存在很大的局限性，而生態(tài)環(huán)境監(jiān)測則可彌補傳統(tǒng)環(huán)境監(jiān)測的不足。 國內(nèi)外環(huán)境監(jiān)測現(xiàn)狀及發(fā)展趨勢 發(fā)展現(xiàn)狀 近些年來我國的經(jīng)濟發(fā)展迅速，人們的生活水平得到了很大的提高，但是與此同時工業(yè)化的發(fā)展 也給環(huán)境帶來的巨大的改變。 產(chǎn)品只用液晶、 LED等方式簡單顯示，使操作無法進行現(xiàn)場復(fù)雜實用的數(shù)據(jù)分析、讀取、按需數(shù)據(jù)圖形打印。分布式控制方式具有價格低、控制靈活、可靠性高等優(yōu)點，將在以后很長一個時期內(nèi)廣泛應(yīng)用于溫室環(huán)境控制系統(tǒng)中。由于上位 機只有一臺，而需要通信的下位機有多臺，因此不一定能夠跟每個下位機同時及時的通信，所以為了更好的實現(xiàn)數(shù)據(jù)的傳輸，需要用排隊理論來合理的設(shè)計和控制傳輸，使數(shù)據(jù)的傳輸更及時和有效，提高系統(tǒng)的通信能力。 Delphi 的主要特性如下： 1） Delphi 是 32 位應(yīng)用程序，使用它可以開發(fā)出各種功能強大的應(yīng)用程序； 2） Delphi 的編譯器是目前世界上最快的 32 位本地代碼編譯器，使用這種編譯器產(chǎn)生的運行文件（ EXE）是獨立的，不需要鏈接運行時的解釋器 DL； 3） Delphi 可充分發(fā)揮 Windows95/98/2021/NT 和 Windows NT 的強大功 能； 4） Delphi 提供了多種 32 位可視組件； 5） Delphi 是一種面向?qū)ο蟮某绦蛟O(shè)計語言，因此可做到對可視窗體的繼承； 6） Delphi 采用三層數(shù)據(jù)庫管理模式（數(shù)據(jù)層、對象層、應(yīng)用程序?qū)樱牙鐢?shù)據(jù)模型、業(yè)務(wù)規(guī)則、窗體和對象等集中存儲在對象存儲庫中； 7）應(yīng)用程序可通過在 Delphi 中使用 Borland 公司提供的數(shù)據(jù)引擎（ BDE）功能從而毫無障礙地使用多種數(shù)據(jù)庫，例如 Oracle、 Sybase 等； 8）使用 Delphi 提供的數(shù)據(jù)庫瀏覽器。 (1)串口的打開與關(guān)閉 Win32系統(tǒng)把文件的概念進行了擴展，無論是文件、通信設(shè)備、命名管道、 郵槽、磁盤，還是控制臺，都是用 API函數(shù) Create File()來打開或創(chuàng)建的。在這種情況下，超時規(guī)定的是操作的完成時間，而不是讀／寫函數(shù)的返回時間。 在設(shè)置了異步 I／ O操作后， I／ O操作和函數(shù)返回有以下兩種情況： 第一種，函數(shù)返回時 I／ O操作己完成：此時結(jié)果好像是同步執(zhí)行的，但實際上這是異步操作的結(jié)果。如果打開成功的話會返回一個串口的句柄，應(yīng)用程序應(yīng)對這個句柄判斷其有效性。讀／寫串口 API函數(shù)： win32中使用 ReadFile0函數(shù)或者 ReadFileEx0數(shù)從串口中讀取數(shù)據(jù)。從用戶角度講上位機串口通信模塊的使用流程一般分四個步驟，即“初始化并打開串口 監(jiān)視串口 讀寫串口 關(guān)閉串口 ” 。 Parity:奇偶校驗位。 事件 OnReceiveData:procedure(Sender:TObject。關(guān)閉串口的代碼如下： procedure TForml． FormClose(Sender； TObj ect： var Action： TCIoseAction)； begin ml． StopComm； end； 健雄職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 19第五章 上位機軟件設(shè)計 系統(tǒng)設(shè)計概述 本軟件采用模塊化設(shè)計方案，以系統(tǒng)主界面模塊為主導(dǎo)，實現(xiàn)用戶等級管理等主要功能，這樣可以使整個軟件結(jié)構(gòu)層次化，且更易于維護和升級。 通信協(xié)議的設(shè)計 l、通信模型的設(shè)計 在確定通信流程與通信格式之前，應(yīng)該首先明確通信方式，即明確上、下位機之間將采用什么組網(wǎng)形式及什么通信規(guī)約的問題。上位機接收到正確應(yīng) 答后會繼續(xù)發(fā)送下一幀命令，而不會向下位機發(fā)送任何表示正確接收的命令。在許多情況下，在事件發(fā)生時需要得到通知，例如，在串口接收緩沖區(qū)中有字符，或者 CD或 RTS線上一個字符到達或一個事件發(fā)生時。用戶設(shè)置窗體只有以管理員登錄的用戶才有權(quán)利修改，否則彈出該窗體的按鈕是灰色的不能實現(xiàn)如上操作。 Buffer:Pointer。由于時間倉促，本設(shè)計難免有考慮不完善之處，敬請指正。新的密碼需要輸入兩次，如果兩次輸入的新密碼不一樣，則系統(tǒng)會彈出對話框提示密碼沒有修改成功。在 Delphi中實現(xiàn)事件驅(qū)動方法時，要控件的變量，以后針對此對象操作即可。若下位機沒有收到上位機的呼叫信號就不會向上位機發(fā)出應(yīng)答信號，那么上位機將繼續(xù)呼叫下位機，直到下位機有應(yīng)答為止。 串口通信在本系統(tǒng)中的實現(xiàn) 串口通信模塊是本遠程監(jiān)測軟件的重要組成部分之一，是上位機與下位機進行正常通信的重要依據(jù)。利用 SPCOMM串口控件向下位機發(fā)送數(shù)據(jù)代碼如下： ／／發(fā)送數(shù)據(jù)和控制子程序 procedure senddata； var i:integer； mflg： Boolean； begin mflg： =true； for i： =l to 8 do begin if not fm ml writemdata(sendbutter， i)then begin 健雄職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 18Commflg=false； break；