【正文】 圖10溫室環(huán)境監(jiān)測系統(tǒng)報表結(jié)論本文通過對國內(nèi)外溫室環(huán)境控制現(xiàn)狀分析，指出了溫室環(huán)境監(jiān)測智能化是發(fā)展的必然趨勢。根據(jù)溫室內(nèi)作物生長的需要，對溫室環(huán)境因子進行實時監(jiān)測控制，主要完成了溫、濕度及光線狀況環(huán)境監(jiān)測系統(tǒng)的上位機軟件的設(shè)計 ，本設(shè)計可實時測量某一具體空間中任意一點的溫度、濕度數(shù)據(jù)以及光線狀況，能在小型終端設(shè)備的LCD上顯示，還能通過串口通信在微機上實現(xiàn)實時數(shù)據(jù)的顯示、分析和圖形打印等功能。但由于時間和個人能力有限，該設(shè)計難免有許多不完善之處，敬請更正。致謝無論是做畢業(yè)設(shè)計還是寫論文對我來說都是第一次，我對串口通信的了解只是一些基本知識，而缺乏真正的實踐經(jīng)驗。能順利的完成這次畢業(yè)設(shè)計并寫出這篇論文，我要十分感謝我的指導(dǎo)老師程老師。程老師在我遇到挫折與困難時總是能給我足夠的信心與動力和一些建設(shè)性的指導(dǎo)意見，使我終于完成了這個對我來說蔚為艱巨的任務(wù)。程老師嚴(yán)謹(jǐn)認(rèn)真的治學(xué)態(tài)度、淵博的知識、深厚的專業(yè)功底、敏銳的洞察力、求真務(wù)實的科研精神，及謙虛熱情的待人風(fēng)格使我受益匪淺。從這次的畢業(yè)設(shè)計中我學(xué)會了怎樣去獨立的思考和完成一項任務(wù)，以及怎樣去面對和了解我所未知的東西，從何下手，怎樣解決。首先，要分析這個任務(wù)的目的跟要求；然后去收集跟它有關(guān)的資料，進行整理和消化，全面和深入的了解這些資料并整理出大概的思路，系統(tǒng)的整理出任務(wù)的流程圖和提綱；最后再按照流程圖和提綱去完成這個任務(wù)。這樣就能獨立并很好的完成一項任務(wù)了。我想，這次的經(jīng)歷必將給我今后的工作帶來很大的幫助和難得的經(jīng)驗。由于時間倉促，本設(shè)計難免有考慮不完善之處，敬請指正。 謝謝！參 考 文 獻[1]黃興海．智能網(wǎng)絡(luò)犁環(huán)境溫濕度監(jiān)測系統(tǒng)系統(tǒng)集成方案．電子質(zhì)量2001年第3期．[2]林振強．基于網(wǎng)絡(luò)技術(shù)的實驗室溫、濕度監(jiān)測系統(tǒng)．化學(xué)分析計量．2006．04[3]郭慶．基于RS485總線的環(huán)境監(jiān)控系統(tǒng)設(shè)計與實現(xiàn)．國外電子測量技術(shù)．2006．07[4]劉愛榮．多通道溫．濕度循環(huán)檢測儀．河南科學(xué)．2006—02[5]錢君．．2006 ,P121132[6]Ray Liscbner． Delphi技術(shù)手冊．中國電力出版社．P6688[7]李海兵， [8]蔣培，肖江等．1氐消耗無線溫濕度監(jiān)測系統(tǒng)設(shè)計．木材加工機械．2007年4期．[9]王樹曉濕度計算機監(jiān)測系統(tǒng)開發(fā)與應(yīng)用．北京紡織．2003—02[10]張毅剛，新編MCS51單片機應(yīng)用設(shè)計，哈爾濱工業(yè)大學(xué)出版社，2006,P145155[11]張培仁，基于C語言編程MSC51單片機原理與應(yīng)用，清華大學(xué)出版社，2002,P134156[12]沈紅衛(wèi)，單片機應(yīng)用系統(tǒng)設(shè)計實例與分析，北京航空航天大學(xué)出版社，2003[13]李長林，Visual C++ 串口通信技術(shù)與典型實例，清華大學(xué)出版社，2006,P132166[14]周亞玲,，2006,P1536[15]，2008,P2588附錄主要程序:(1).初始化按鈕代碼：Procedure TFoml．FormCreate(Sender：TObject)；BeginMSComm．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；beginmflg：=true；for i：=l to 8 dobeginif not fm ml writemdata(sendbutter，i)thenbeginCommflg=false；break；end；end；end；(3)接收數(shù)據(jù)按鈕代碼：procedure TForm1. Comm1ReceiveData (Sender: TObject。Buffer:Pointer。BufferLength:Word)。varI,j:integer。mRevstr:shortstring。beginviewstring:=″″。SetLength(CommRevStr,BufferLength)。//設(shè)置字符串長度與緩沖區(qū)大小相等。move(buffer^,pchar(@rbuf^),bufferlength)。//將緩沖區(qū)拷貝到字符串地址上。for i:=1 to bufferlength do　beginviewstring:=viewstring+inttohex(rbuf[i],2)+″″?！? //其他語句end。end。 (4)導(dǎo)出數(shù)據(jù)按鈕代碼：Procedure TForm5．Buttonl Click(Sender：TObject)；／／導(dǎo)出數(shù)據(jù)過程Var iCount，jCount：Integer； ／／設(shè)置變量XLApp，Sheet：Variant； ／／存儲生成Excel數(shù)據(jù)表格變量BeginScreen．Cursor：=crHourGlass； ／／將鼠標(biāo)顯示為忙狀態(tài) If not VarlsEmpty(XLApp)then ／／XLApp是否為空BeginXLApp．DisplayAlerts：=False；XLApp．Quit；VarClear(XLApp)； ／／XLApp不為空將其清空End；TryXLApp：=CreateOleObject(’Excel．Application’)； ／／看系統(tǒng)中是否有Excel程序ExceptScreen．Cursor：=crDefault；Showmessage(’沒有找到Excel程序’)； ／／如果沒有則彈出對話框顯示未找到Exit；End；XLApp．WorkBooks。Add； ／／添加一張表Sheet：=XLApp．Workbooks[1]．WorkSheets[1]；Sheet．name：=shuju．text； ／／給sheet一個名字Sheet．Range[’AI：B 1’]．Merge； ／／合并單元格Sheet．Range[’AI：B1’]．value：=溫濕度數(shù)據(jù)； ／／設(shè)置標(biāo)題Sheet．Columns[1]．ColumnWidth：=25；Sheet．columns[2]．columnwidth：=9；Sheet．columns[3]．columnwidth：9； ／／設(shè)置表格欄名Sheet．cells[2，l]．value：=’時間’；Sheet．cells[2，2]．value：=’溫度’；Sheet．cells[2，3]．value：=’濕度’； ／／將記錄導(dǎo)出來DBGridl．DataSource．DataSet．First； ／／將記錄指針直到第一條While not DB嘶d1．DataSource．DataSet．Eofdo ／／將數(shù)據(jù)記錄導(dǎo)入到Excel表中BeginFor iCount：=O to DBGridl．Columns．Count1 doSheet．Cells[jCount，iCount+1]：=DBGridl．Columns．Items[iCount]．Field．AsString；Inc(Count)；FiguredbGrid．DataSource．DataSet．Next；End；Showmessage(’導(dǎo)出成功．)；X1App．Visible：=True； ／／將Excel表格顯示出來Screen．Cursor．_crDefault； ／／導(dǎo)出成功之后屏幕鼠標(biāo)變回默認(rèn)型End； （5）數(shù)據(jù)打印按鈕代碼：Procedure TFom5．Button2Click(Sender：TObject)；BeginPrinterdial091．Execute；Print；End； （6）刷新數(shù)據(jù)按鈕代碼：Procedure TFonIl5．button3Click(Sender：TObject)；BeginWith adoqueryl doBeginClose；SQL．Clear；(‘select distinct*from ID0157 order by time’)；Open；DateTimepickerl．DateTime：=adoqueryl．FieldList．Fields[0]．AsDateTime；DateTimepicker2．DateTime：=adoquery2．FieldList．Fields[0]．AsDateTime；With dbchartl doBeginAllowZoom：=true； ／／將圖形設(shè)置成放大縮小Lef認(rèn)xis．Automatic：=true；LeftAxis．Increment：=one minute；BottomAxis．DateTimeFormat：=‘MM—dd hh：mm39。；End；With dbgridl doBeginSeriesl．XLabelsSource：=‘時間’；Seriesl．YValues．ValueSource：=‘溫度’；Series2．YValues．ValueSouree：=‘濕度’；Columns[O]．title．caption：=‘時間’；Columns[O]．fieldname：=‘time’；end；With DBChartl．BottomAxis do ／／動態(tài)顯示數(shù)據(jù)BeginAutomatic：=false；DateTimeFormat：=‘MMdd hh：mm’； ／／設(shè)置時間坐標(biāo)的格式SetMinMax(IncMinute(now,60)，now)； ／／設(shè)置顯示一小時的數(shù)據(jù)End；（7）中斷按鈕代碼：Procedure TForm5．FormCloseQuery(Sender：TObject；vat CanClose：Boolean)；BeginComm 1．StopComm；End；