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