【正文】 SComm 控件并非像想像中那樣完美和容易控制．特別是在中文 Wln95／ 98下通信時(shí)更會(huì)出現(xiàn)問題。 一般悅來，計(jì)算機(jī)都有一個(gè)或多個(gè)串行端口，它們依次為 Com?，這些串口還提供了外部設(shè)備與 PC進(jìn)行數(shù)據(jù)傳輸和通信的通道。當(dāng)字符數(shù)據(jù)從 CPU 發(fā)送給外設(shè)時(shí)，這些字符數(shù)據(jù)將被轉(zhuǎn)換成串行比特流數(shù)據(jù)；當(dāng)接收數(shù)據(jù)時(shí)，比特流數(shù)據(jù)被轉(zhuǎn)換為字符數(shù)據(jù)傳遞 給 圖 41 MSCOMM控件的添加 CPU，再進(jìn)一步說，在操作系統(tǒng)方面， Windows 用通信驅(qū)動(dòng)程序（ ）調(diào)用 API函數(shù)發(fā)送和接收數(shù)據(jù)，當(dāng)用通信控件或聲明調(diào)用 API函數(shù)時(shí)，它門由 COMM. 太原工業(yè)學(xué)院畢業(yè)設(shè)計(jì) 19 DRV 解釋并傳遞給設(shè)備驅(qū)動(dòng)程序，作為一個(gè) VB 程序員，要編寫通信程序．只需知道通信控件提供給 Windows 通信 AP1 函數(shù)的接口即可．換句話說，只需設(shè)定和監(jiān)視通信控件的屬性和事件即可。即使對(duì) TCP/IP 不太熟悉的用戶，使用該控件也可以在十幾分鐘內(nèi)創(chuàng)建一個(gè)簡單的客戶機(jī) /服務(wù)器程序。 服務(wù)器程序的實(shí)現(xiàn)過程是：（ 1）服務(wù)器程序必須設(shè)置好 LocalPort 屬性，作為偵聽端口，該值為一個(gè)整數(shù)（只要是一個(gè)其它 TCP/IP 應(yīng)用程序沒有使用過的值即可）。（ 3）客戶機(jī)程序發(fā)出連接請(qǐng)求，使服務(wù)器程序產(chǎn)生 ConnectionRequest 事件，該事件得到一個(gè)參數(shù) requestID。這樣，服務(wù)器程序就可以用 SendData 方法發(fā)送數(shù)據(jù)了。（ 5）當(dāng)服務(wù)器程序接收到數(shù)據(jù)時(shí)，產(chǎn)生 DataArrival 事件，參數(shù) BytesTotal 包含接收到的數(shù)據(jù)字節(jié)數(shù)。（ 6）如果接受到 Close 事件，則用 Close 方法關(guān)閉 TCP/IP 連接。 （ 2）設(shè)置 RemotePort 屬性 ,以便指定服務(wù)器程序的偵聽端口。（ 4）服務(wù)器接受客戶機(jī)程序的請(qǐng)求，客戶機(jī)程序產(chǎn)生 Connect 事件，就可以用 SendData 方法發(fā)送數(shù)據(jù)了。在該事件中，可以用 GetData 方法接收數(shù)據(jù)。 控件的添加方法如上圖 41。是由德國慕尼黑的 Keil Elektronik GmbH 和美國德克薩斯的 Keil Software 組成。支持 c語言，匯編語言。 Keil 提供了包括 C編譯器、宏匯編、連接器、庫管理和一個(gè)功能強(qiáng)大的仿真調(diào)試器等在內(nèi)的完整開發(fā)方案，通過一個(gè)集成開發(fā)環(huán)境（ uVision）將這些部分組合在一起。以下是 keil 操作界面： 圖 42 keil軟件界面 STC_ISP_V483 簡介 STC?? ISP 是一款 單片機(jī) 下 載編程 燒錄 軟件 ，是針對(duì) STC 系列單片機(jī)而設(shè)計(jì)的，可下載 STC89 系列、 12C2052 系列和 12C5410 等系列的 STC 單片機(jī)，使用簡便，現(xiàn)已被廣泛使用。它運(yùn)行于 Windows 操作系統(tǒng)上，可以仿真、分析 (SPICE)各種模擬器件和集成電路，該軟件的特點(diǎn)是：①實(shí)現(xiàn)了單片機(jī)仿真和 SPICE 電路仿真相結(jié)合。②支持主流單片機(jī)系統(tǒng)的仿真。③提供軟件調(diào)試功能。④具有強(qiáng)大的原理圖繪制功能。 太原工業(yè)學(xué)院畢業(yè)設(shè)計(jì) 22 圖 44 protues 軟件界面 光照度采集程序流程圖 采集程序開始運(yùn)行，啟動(dòng) adc0804進(jìn)行數(shù)模轉(zhuǎn)換，把數(shù)模轉(zhuǎn)換取得的數(shù)值通過查表分析得到對(duì)應(yīng)的光照度實(shí)時(shí)數(shù)據(jù)，將光照度實(shí)時(shí)數(shù)據(jù)與設(shè)定值相比較，如 果實(shí)時(shí)光照小于設(shè)定光照，則開啟一個(gè)單位的 led燈，延時(shí) 1s等待 led燈完全點(diǎn)亮達(dá)到標(biāo)準(zhǔn)亮度，繼續(xù)光照采集，比較數(shù)據(jù)，如果實(shí)時(shí)光照還是小于設(shè)定光照則按照上面的過程繼續(xù)點(diǎn)亮led 燈，如果實(shí)時(shí)光照大于設(shè)定光照則 圖 45 光照度采集程序流程圖 延時(shí)半個(gè)小時(shí)，半個(gè)小時(shí)后繼續(xù)采集光照度數(shù)據(jù)。 圖 46 串口中斷程序流程圖 圖 48 led驅(qū)動(dòng) 程序設(shè)計(jì)流程圖 led 驅(qū)動(dòng)程序設(shè)計(jì)流程圖 當(dāng)單片機(jī)發(fā)現(xiàn)實(shí)時(shí)光照小于設(shè)定值需要點(diǎn)亮 led 燈補(bǔ)充光照時(shí)，先解鎖行鎖存器，輸入行數(shù)據(jù)，鎖存行鎖存器，解除列鎖存器鎖存，輸入列數(shù)據(jù)，鎖存列鎖存器，延時(shí) 1s 等待 led 完全點(diǎn)亮?xí)r繼續(xù)比較實(shí)時(shí)光照和設(shè)定值，繼續(xù)按照上面的步驟知道實(shí)時(shí)光照大于設(shè)定值一定的誤差范圍內(nèi)。 下位機(jī)界面設(shè)計(jì)（ vb） 圖 48 下位機(jī)軟件界面 如上圖 48，下位機(jī)的能設(shè)置上位機(jī) ip，能顯示上位機(jī)發(fā)送過來的數(shù)據(jù)，能選擇端口將接受到的網(wǎng)絡(luò)數(shù)據(jù)發(fā)送到現(xiàn)場單片機(jī)上，作為單片機(jī)的數(shù)據(jù)進(jìn)行控制。 其中 WINSOCK 控件和 MSCOMM 控件是兩個(gè)最復(fù)雜的控件， WINSOCK 的功能是使兩臺(tái) pc 機(jī)能實(shí)現(xiàn)互聯(lián)網(wǎng)通訊 ，本課題只涉及到有路由器組成的局域網(wǎng)內(nèi)的通訊。 上位機(jī)控制界面設(shè)計(jì)（ vb） 太原工業(yè)學(xué)院畢業(yè)設(shè)計(jì) 25 圖 49 上位機(jī)軟件界面 如上圖 49 上位機(jī)軟件主要的功能有設(shè)置下位機(jī) ip，發(fā)送蔬菜序號(hào)到下位機(jī)，其中蔬菜序號(hào)是預(yù)先加載再 COMBOBOX 空間中的。 太原工業(yè)學(xué)院畢業(yè)設(shè)計(jì) 26 第 5 章 總結(jié) 畢業(yè)設(shè)計(jì)是對(duì)我們運(yùn)用能力的一次全面考核，也是對(duì)我們進(jìn)行科學(xué)研究基本功的訓(xùn)練，培養(yǎng)我們綜合運(yùn)用所學(xué)知識(shí)，獨(dú)立分析問題和解決問題的能力，為以后的學(xué)習(xí)工作打下良好的基礎(chǔ)。完成了 pc 與 pc 直接互聯(lián)網(wǎng)的通訊， pc與單片機(jī)之間的 rs232 通信，單片機(jī)的開環(huán)控制等模塊的設(shè)計(jì)。特別是成本低方面的原因 ，一是因?yàn)樯釛壍袅撕芏嘤绊懖淮蟮沫h(huán)節(jié)，二是選用的硬件都是成本低的，不管是控制器 51單片機(jī)，無線模塊 NRF24l01 模塊都是成本不高。 展望 由于認(rèn)識(shí)的缺乏，經(jīng)驗(yàn)缺乏，我的實(shí)際還有很多不足之處。 另一個(gè)方面是光照監(jiān)測電路由于沒有設(shè)計(jì)好， 系統(tǒng)很是不穩(wěn)定，暫時(shí)不能實(shí)現(xiàn)閉環(huán)控制。 太原工業(yè)學(xué)院畢業(yè)設(shè)計(jì) 27 參考文獻(xiàn) [1]包長春，石瑞珍．基于 zigBee技術(shù)的農(nóng)業(yè)設(shè)施測控系統(tǒng)的設(shè)計(jì)口 [J]．農(nóng)業(yè)工程學(xué)報(bào)， 2021， 23(8)： 160一 161． [2]蔣園園，宋良圖．農(nóng)田遠(yuǎn)程數(shù)據(jù)采集系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) [J]．自動(dòng)化與儀器儀表， 2021(6)： 18— 19． [3]代媛，何東健，張建鋒．基于 zigBee的農(nóng)業(yè)信息無線傳輸網(wǎng)絡(luò)研究與實(shí)現(xiàn)口[J]．傳感器與微系統(tǒng)， 2021， 29(7)： 15． [4]武風(fēng)波，強(qiáng)云霄．基于 zigBee技術(shù)的遠(yuǎn)程無線溫濕度測控系統(tǒng)的設(shè)計(jì) [J]．西北大學(xué)學(xué)報(bào)， 2021， 38(5)： 732— 733． [5]楊燁，董惠．基于 zigBee的無線傳感器網(wǎng)絡(luò)節(jié)點(diǎn)的設(shè)計(jì) [J]，測控技術(shù)，2021(17)： 141— 142． [6]齊文新，魯涵，孫慶虎 等 ．基于 GPRS技術(shù)的溫室自動(dòng)控制系統(tǒng)， GREENHOUSE HOUTICULTURE， 38— 39。尤其要強(qiáng)烈感謝我的論文指導(dǎo)老師 佟春生 老師， 他 對(duì)我進(jìn)行了無私的指導(dǎo)和幫助，不厭其煩的幫助進(jìn)行論文的修改和改進(jìn)。在此向幫助和指導(dǎo)過我的各位老師表示最中心的感謝！ 感謝這篇 論文所涉及到的各位學(xué)者。 感謝我的同學(xué)和朋友，在我寫論文的過程中給予我了很多你問素材，還在論文的撰寫和排版燈過程中提供熱情的幫助。 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}。// 飽和點(diǎn) int buchang。 // 燈號(hào) void init_(void) //中斷初始化程序 { TMOD=0x20。 SCON=0X50。 TL1=0xFd。 EA=1。 } 太原工業(yè)學(xué)院畢業(yè)設(shè)計(jì) 30 void delay(a) { uchar b。b115。 } } } void zhongduan(void) interrupt 4 //中斷子程序 { int B。 int i。//二進(jìn)制轉(zhuǎn)換 十 int c。 //轉(zhuǎn)換成的十進(jìn)制數(shù) char *s 。 if(RI==1) { A=SBUF。 EA=1。 //////////// 流水燈顯示 delay(100)。 太原工業(yè)學(xué)院畢業(yè)設(shè)計(jì) 31 B=SBUF。 *s=SBUF。 for (i=0。i++) //轉(zhuǎn)換代碼 { 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。 太原工業(yè)學(xué)院畢業(yè)設(shè)計(jì) 32 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 If End Sub 太原工業(yè)學(xué)院畢業(yè)設(shè)計(jì) 34 Private Sub Form_Load() 39。If = COM1 Then 39。 = 2 39。 = 3 39。 = 4 39。 = 5 39。 = 6 39。 = 7 39。 = 8 39。End If End Sub Private Sub Winsock1_ConnectionRequest(ByVal RequestID As Long) 39。如果 Winsock 控 件狀態(tài)不為關(guān)閉，則關(guān)閉 RequestID 39。設(shè)置連接 = False 39。設(shè)置遠(yuǎn)程計(jì)算機(jī) = 200 39?？蛻舳硕丝谔?hào) 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 太原工業(yè)學(xué)院畢業(yè)設(shè)計(jì) 37 MsgBox 沒有連接，請(qǐng)查正后再試 , vbInformation, 錯(cuò)誤 End If End Sub Private Sub Cmd_setup_Click() 39。本地服務(wù)器端端口號(hào) = 200 39。監(jiān)聽 = False 39。退出 End End Sub Private Sub Command3_Click() = 9600,N,8,1 39。加載窗體 = 太原工業(yè)學(xué)院畢業(yè)設(shè)計(jì) 39 39。 = 4 39。 = 1 39。 = InputModeText 39。 = True 39