【正文】 a方法發(fā)送數(shù)據(jù)了。（5）當服務器程序接收到數(shù)據(jù)時，產(chǎn)生DataArrival事件，參數(shù)BytesTotal包含接收到的數(shù)據(jù)字節(jié)數(shù)。（6）如果接受到Close事件，則用Close方法關閉TCP/IP連接。 （2）設置RemotePort屬性,以便指定服務器程序的偵聽端口。（4）服務器接受客戶機程序的請求，客戶機程序產(chǎn)生Connect事件，就可以用SendData方法發(fā)送數(shù)據(jù)了。在該事件中，可以用GetData方法接收數(shù)據(jù)。 控件的添加方法如上圖41。是由德國慕尼黑的Keil Elektronik GmbH和美國德克薩斯的Keil Software組成。支持c語言，匯編語言。Keil提供了包括C編譯器、宏匯編、連接器、庫管理和一個功能強大的仿真調(diào)試器等在內(nèi)的完整開發(fā)方案，通過一個集成開發(fā)環(huán)境（uVision）將這些部分組合在一起。以下是keil操作界面：圖42 keil軟件界面 STC_ISP_V483簡介 STC……ISP 是一款單片機下載編程燒錄軟件，是針對STC系列單片機而設計的，可下載STC89系列、12C2052系列和12C5410等系列的STC單片機，使用簡便，現(xiàn)已被廣泛使用。它運行于Windows操作系統(tǒng)上，可以仿真、分析(SPICE)各種模擬器件和集成電路，該軟件的特點是：①實現(xiàn)了單片機仿真和SPICE電路仿真相結合。②支持主流單片機系統(tǒng)的仿真。③提供軟件調(diào)試功能。④具有強大的原理圖繪制功能。圖44 protues軟件界面 光照度采集程序流程圖采集程序開始運行，啟動adc0804進行數(shù)模轉換，把數(shù)模轉換取得的數(shù)值通過查表分析得到對應的光照度實時數(shù)據(jù)，將光照度實時數(shù)據(jù)與設定值相比較，如果實時光照小于設定光照，則開啟一個單位的led燈，延時1s等待led燈完全點亮達到標準亮度，繼續(xù)光照采集，比較數(shù)據(jù)，如果實時光照還是小于設定光照則按照上面的過程繼續(xù)點亮led 燈，如果實時光照大于設定光照則 圖45 光照度采集程序流程圖延時半個小時，半個小時后繼續(xù)采集光照度數(shù)據(jù)。 圖46 串口中斷程序流程圖 圖48 led驅動程序設計流程圖 led驅動程序設計流程圖 當單片機發(fā)現(xiàn)實時光照小于設定值需要點亮led燈補充光照時，先解鎖行鎖存器，輸入行數(shù)據(jù)，鎖存行鎖存器，解除列鎖存器鎖存，輸入列數(shù)據(jù)，鎖存列鎖存器，延時1s等待led完全點亮時繼續(xù)比較實時光照和設定值，繼續(xù)按照上面的步驟知道實時光照大于設定值一定的誤差范圍內(nèi)。 下位機界面設計（vb）圖48 下位機軟件界面如上圖48，下位機的能設置上位機ip，能顯示上位機發(fā)送過來的數(shù)據(jù)，能選擇端口將接受到的網(wǎng)絡數(shù)據(jù)發(fā)送到現(xiàn)場單片機上，作為單片機的數(shù)據(jù)進行控制。其中WINSOCK控件和MSCOMM控件是兩個最復雜的控件，WINSOCK的功能是使兩臺pc機能實現(xiàn)互聯(lián)網(wǎng)通訊，本課題只涉及到有路由器組成的局域網(wǎng)內(nèi)的通訊。 上位機控制界面設計（vb）圖49 上位機軟件界面如上圖49上位機軟件主要的功能有設置下位機ip，發(fā)送蔬菜序號到下位機，其中蔬菜序號是預先加載再COMBOBOX空間中的。第5章 總結畢業(yè)設計是對我們運用能力的一次全面考核，也是對我們進行科學研究基本功的訓練，培養(yǎng)我們綜合運用所學知識，獨立分析問題和解決問題的能力，為以后的學習工作打下良好的基礎。完成了pc與pc直接互聯(lián)網(wǎng)的通訊，pc與單片機之間的rs232通信，單片機的開環(huán)控制等模塊的設計。特別是成本低方面的原因，一是因為舍棄掉了很多影響不大的環(huán)節(jié)，二是選用的硬件都是成本低的，不管是控制器51單片機，無線模塊NRF24l01模塊都是成本不高。 展望由于認識的缺乏，經(jīng)驗缺乏，我的實際還有很多不足之處。另一個方面是光照監(jiān)測電路由于沒有設計好，系統(tǒng)很是不穩(wěn)定，暫時不能實現(xiàn)閉環(huán)控制。參考文獻[1]包長春，石瑞珍．基于zigBee技術的農(nóng)業(yè)設施測控系統(tǒng)的設計口[J]．農(nóng)業(yè)工程學報，2007，23(8)：160一161．[2]蔣園園，宋良圖．農(nóng)田遠程數(shù)據(jù)采集系統(tǒng)的設計與實現(xiàn)[J]．自動化與儀器儀表，2007(6)：18—19．[3]代媛，何東健，張建鋒．基于zigBee的農(nóng)業(yè)信息無線傳輸網(wǎng)絡研究與實現(xiàn)口[J]．傳感器與微系統(tǒng)，2010，29(7)：15．[4]武風波，強云霄．基于zigBee技術的遠程無線溫濕度測控系統(tǒng)的設計[J]．西北大學學報，2008，38(5)：732—733．[5]楊燁，董惠．基于zigBee的無線傳感器網(wǎng)絡節(jié)點的設計[J]，測控技術，2009(17)：141—142．[6]齊文新，魯涵，孫慶虎等．基于GPRS技術的溫室自動控制系統(tǒng)，GREENHOUSE HOUTICULTURE，38—39。尤其要強烈感謝我的論文指導老師佟春生老師，他對我進行了無私的指導和幫助，不厭其煩的幫助進行論文的修改和改進。在此向幫助和指導過我的各位老師表示最中心的感謝！感謝這篇論文所涉及到的各位學者。感謝我的同學和朋友，在我寫論文的過程中給予我了很多你問素材，還在論文的撰寫和排版燈過程中提供熱情的幫助。sbit wela=P2^7。 //數(shù)碼管顯示數(shù)組unsigned char code table2[]={0x78,0xb8,0xd8,0xe8,0x74,0xb4,0xd4,0xe4, 0x72,0xb2,0xd2,0xe2,0x71,0xb1,0xd1,0xe1}。// 飽和點 int buchang。 // 燈號void init_(void) //中斷初始化程序{TMOD=0x20。SCON=0X50。TL1=0xFd。EA=1。}void delay(a){ uchar b。b115。 } }}void zhongduan(void) interrupt 4 //中斷子程序{int B。int i。//二進制轉換十int c。 //轉換成的十進制數(shù)char *s 。if(RI==1) { A=SBUF。 EA=1。 //////////// 流水燈顯示delay(100)。B=SBUF。*s=SBUF。 for (i=0。i++) //轉換代碼 { a= (Bamp。 B=1。 }// P0=sum。 switch(sum) { case 1: {baohe=1324。} case 2: {baohe=1146。} case 3: {baohe=168。} } deng=baohe/100。 }void main(){int a。 a=0。發(fā)送數(shù)據(jù)信息 If = 7 Then Dim BB If = Then MsgBox 不能發(fā)送空信息, , 系統(tǒng)提示 Else If = 白菜 Then 39。 1 SENDINF amp。 39。 = 甜瓜 39。 2 39。發(fā)送消息 ElseIf = 絲瓜 Then 39。 3 SENDINF amp。 39。 SENDINF amp。發(fā)送消息 = Else: MsgBox 為配置蔬菜參數(shù) 39?！?= 白菜39。退出 39。, , [系統(tǒng)提示]End IfEnd SubPrivate Sub Form_Load() 39。If = COM1 Then39。 = 239。 = 339。 = 439。 = 539。 = 639。 = 739。 = 839。End IfEnd SubPrivate Sub Winsock1_ConnectionRequest(ByVal RequestID As Long) 39。如果Winsock控件狀態(tài)不為關閉，則關閉 RequestID 39。設置連接 = False 39。設置遠程計算機 = 200 39。客戶端端口號 39。接收新數(shù)據(jù)信息 Dim sdata As String 39。定義字符串變量 Dim mymand As String 39。獲得消息數(shù)據(jù) mymand = Left$(sdata, 7) Select Case mymand 39。 aa amp。發(fā)送數(shù)據(jù)信息 If = 7 Then Dim BB, DD If = Then MsgBox 不能發(fā)送空信息, , 系統(tǒng)提示 Else DD = SENDINF amp。發(fā)送消息 = End If Else MsgBox 沒有連接，請查正后再試, vbInformation, 錯誤 End IfEnd SubPrivate Sub Cmd_setup_Click() 39。本地服務器端端口號 = 200 39。監(jiān)聽 = False 39。退出 EndEnd SubPrivate Sub Command3_Click() = 9600,N,8,1 39。加載窗體 = 39。 = 4 39。 = 1 39。 = InputModeText 39。 = True 39。用于遠程計算機請求連接 If 0 Then 39。表示客戶請求連接的ID號 = TrueEnd SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 39。定義字符串變量 Dim sdata As String 39。獲得消息數(shù)據(jù) sdata = Left$(strdata, 7) Select Case sdata 39。發(fā)送消息 Case SENDINF Dim aa, temp1 sendxx = Right$(strdata, Len(strdata) …… 7) aa = sendxx = aa 39。If = 1 Then = 白菜 39。ElseIf = 3 Then = 絲瓜 39。End If Call Command1_Click Case OUITMYF = True Case GETFXIF xtxx = Right$(strdata, Len(strdata) …… 7) End SelectEnd Sub附錄2：電路原理圖圖25：電路原理圖（1）圖26：電路原理圖（2）附錄3：實物圖圖28：設計實物圖1圖28：設計實物圖245