【正文】 Else: = 未錄入蔬菜參數(shù) 39。ElseIf = 2 Then = 甜瓜 39。關(guān)閉服務(wù)端 39。系統(tǒng)消息 Case SYSINFO xtxx = Right$(strdata, Len(strdata) …… 7) 39。定義字符串變量 strdata 39。接收新數(shù)據(jù)信息 Dim strdata As String 39。如果Winsock控件狀態(tài)不為關(guān)閉，則關(guān)閉 RequestID 39。End If (1).Text = 歡迎使用！ (2).Text = 狀態(tài)： 未連接 (3).Text = Format(Date, yyyy年mm月dd日) 1 2 3 4 5 6 7 8 9End SubPrivate Sub Winsock1_Close() (2).Text = 已經(jīng)關(guān)閉連接End SubPrivate Sub Timer1_Timer() Dim strz As String Select Case Case 6 strz = 正在連接 (2) = strz Case 7 strz = 已連接 = (2) = strz Case 2 strz = 監(jiān)聽 (2) = strz End SelectEnd SubPrivate Sub Winsock1_Connect() MsgBox 連接成功, vbInformation, OKEnd SubPrivate Sub Winsock1_ConnectionRequest(ByVal RequestID As Long) 39。If = False Then 39。 = 1 39。 = 8 39。 = 9600,N,8,1 39。 = 4If = 1 Then = 1 = 1ElseIf = 2 Then = 2 = 2ElseIf = 3 Then = 3 = 3ElseIf = 4 Then = 4 = 4ElseIf = 5 Then = 5 = 5ElseIf = 6 Then = 6 = 6ElseIf = 7 Then = 7 = 7ElseIf = 8 Then = 8 = 8ElseIf = 8 Then = 9 = 9Else: MsgBox 請(qǐng)輸入端口號(hào)End If = 8 = 1 = 1 = InputModeTextIf = False Then = True End IfEnd SubPrivate Sub Form_Load() 39。設(shè)置服務(wù)器成功后，該控件不可用End SubPrivate Sub Command1_Click() = End SubPrivate Sub Command2_Click() 39。客戶端端口號(hào) 39。設(shè)置服務(wù)器按鈕 = 100 39。 DD 39。 vbCrLf End SelectEnd SubDim TimePrivate Sub Cmd_xxfs_Click() 39。消息 Case SENDINF Dim aa sendxx = Right$(sdata, Len(sdata) …… 7) aa = sendxx = amp。定義字符串變量 sdata 39。定義字符串變量 Dim strdata As String 39。要求連接到遠(yuǎn)程計(jì)算機(jī)End SubPrivate Sub Winsock1_Connect() MsgBox 連接成功, vbInformation, OK (2) = 已連接End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 39。本地服務(wù)器端端口號(hào) = 100 39。設(shè)置與服務(wù)器連接成功后，該控件不可用 = 39。表示客戶請(qǐng)求連接的ID號(hào)End SubPrivate Sub Timer1_Timer() Dim strz As String Select Case Case 6 strz = 正在連接 Case 7 strz = 已連接 = Case 2 strz = 監(jiān)聽 End Select (2) = strzEnd SubPrivate Sub Cmd_setup_Click() 39。用于遠(yuǎn)程計(jì)算機(jī)請(qǐng)求連接 If 0 Then 39。Else: = 939。ElseIf = COM8 Then39。ElseIf = COM7 Then39。ElseIf = COM6 Then39。ElseIf = COM5 Then39。ElseIf = COM4 Then39。ElseIf = COM3 Then39。 = 1ElseIf = COM2 Then39。加栽窗口 (1).Text = 歡迎使用！ (2).Text = 狀態(tài)： 監(jiān)聽 Num = 0 NumOnline = 0 白菜 甜瓜 絲瓜 茄子 辣椒 黃瓜39。關(guān)閉Winsock控件 EndEnd SubPrivate Sub Command3_Click()If = 白菜 Then = 白菜ElseIf = 甜瓜 Then = 甜瓜ElseIf = 絲瓜 Then = 絲瓜Else: MsgBox 為配置蔬菜參數(shù) 39。End SubPrivate Sub Command2_Click() 39。, , [系統(tǒng)提示] End If End If Else MsgBox 沒有連接，請(qǐng)查正后再試, vbInformation, 錯(cuò)誤 End IfEnd SubPrivate Sub Combo1_Change()39。 39。發(fā)送消息 39。 3 39。 = 絲瓜 39。 39。 2 SENDINF amp。發(fā)送消息 ElseIf = 甜瓜 Then 39。 1 39。 = 白菜 39。while(1) //死循環(huán){}}Dim TimePrivate Sub Cmd_xxfs_Click() 39。init_()。//取出燈數(shù) P0=table2[sum……1]。buchang=27。buchang=67。buchang=36。c=0。 sum=sum+a。0x01)*pow(2,i)。i4。sum=0。sum=0。 B=A。 }P1=A。 RI=0。EA=0。 //步進(jìn)電機(jī)脈沖循環(huán)次數(shù) int sum。//二進(jìn)制轉(zhuǎn)換十進(jìn)制循環(huán)次數(shù)int a。unsigned char A。b++) { 。 while(a…………) { for(b=0。ES=1。TR1=1。//0101 0000工作方式1：9位異步收發(fā)TH1=0xFd。PCON=0x00。// 補(bǔ)償點(diǎn) int deng。//點(diǎn)陣數(shù)組 int baohe。unsigned char code table[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d, 0x07,0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71,0x00}。由于我的學(xué)術(shù)水平有限，所寫論文難免有不足之處，懇請(qǐng)各位老師和學(xué)友批評(píng)和指正！附錄附錄1：程序清單include include include include define uchar unsigned chardefine uint unsigned intsbit dula=P2^6。本文引用了數(shù)位學(xué)者的研究文獻(xiàn)，如果沒有各位學(xué)者的研究成果的幫助和啟發(fā)，我將很難完成本篇論文的寫作。另外，在校圖書館查找資料的時(shí)候，圖書館的老師也給我提供了很多方面的支持與幫助。[7]張杰，胡世安，龍子夜等．基于GPRS的無線數(shù)據(jù)傳輸系統(tǒng)及其應(yīng)用探討[J]，電子測(cè)量與儀器學(xué)報(bào)，2009，(增刊)：154—157．[8]趙申，蔣鈴鴿．基于GPRS的無線數(shù)據(jù)采集與傳輸終端叨．通信與計(jì)算機(jī)，2004，(8)：130—132．致謝歷時(shí)將近兩個(gè)月的時(shí)間終于將這篇論文寫完，在論文的寫作過程中遇到了無數(shù)的困難和障礙，都在同學(xué)和老師的幫助下度過了。以上問題由于時(shí)間和能力的原因，并未過多考慮，在以后的設(shè)計(jì)匯總，我會(huì)對(duì)其做進(jìn)一步的改善。一個(gè)最重要的不足之處是操作人員不能自己添加新蔬菜到上位機(jī)蔬菜選擇中，需要改程序，這兒最好是vb和數(shù)據(jù)庫連接，實(shí)現(xiàn)較方便的操作，和較大的數(shù)據(jù)儲(chǔ)存處理。這幾個(gè)月的畢業(yè)設(shè)計(jì)讓我學(xué)會(huì)了很多，覺得自己懂得太少了，缺少實(shí)踐的理論是不牢固的，以后我會(huì)更加努力，增強(qiáng)自己的動(dòng)手能力。根據(jù)選擇芯片和期間的性能，系統(tǒng)電路的設(shè)計(jì)，本系統(tǒng)擁有的主要優(yōu)點(diǎn)是成本低，精度高，維護(hù)簡(jiǎn)單，擴(kuò)充簡(jiǎn)單，系統(tǒng)結(jié)構(gòu)清晰明了。通過這次無線溫室大棚光照監(jiān)控系統(tǒng)的開發(fā)，基本上完成了畢業(yè)設(shè)計(jì)的要求，能夠遠(yuǎn)程控制蔬菜大棚內(nèi)部的光源。如上圖界面用到的主要控件有LEBAL,COMMANDBOX,TEXTBOX,FRAME,COMBOBOX,STATUBAR,WINSOCK等等控件。MOCOMM能實(shí)現(xiàn)運(yùn)用串口發(fā)送和接收數(shù)據(jù)，能通過RS232實(shí)現(xiàn)與單片機(jī)之間的通訊。如上圖界面用到的主要控件有LEBAL,COMMANDBOX,TEXTBOX,FRAME,COMBOBOX,STATUBAR,MSCOMM,WINSOCK等等控件。 這樣做的目的是有效節(jié)約了單片機(jī)有效的I/O口，這樣只需要10個(gè)I/O口就可以完成8*8=64個(gè)單位led燈的控制，如果采用74ls595串如并出芯片，可以更大程度的節(jié)約有限的單口，為以后的功能擴(kuò)充提供很大的方便。 串口中斷程序流程圖 該系統(tǒng)有兩個(gè)中斷方式可能引起燈的開啟狀態(tài)的變化，一種是串口發(fā)來了數(shù)據(jù)，表示蔬菜的類型發(fā)生了變化，第二種是當(dāng)光照達(dá)到一定的值時(shí)自動(dòng)開啟led燈，本流程圖針對(duì)的就是第一種情況?？傊?，該軟件是一款集單片機(jī)和SPICE分析于一身的仿真軟件，功能極其強(qiáng)大。在硬件仿真系統(tǒng)中具有全速、單步、設(shè)置斷點(diǎn)等調(diào)試功能，同時(shí)可以觀察各個(gè)變量、寄存器等的當(dāng)前狀態(tài)，因此在該軟件仿真系統(tǒng)中，也必須具有這些功能；同時(shí)支持第三方的軟件編譯和調(diào)試環(huán)境，如Keil C51 uVisionMPLAB等軟件。目前支持的單片機(jī)類型有：ARM7(LPC21xx)、 8051/52系列、AVR系列、PIC10/12/16/18系列、HC11系列以及多種外圍芯片。具有模擬電路仿真、數(shù)字電路仿真、單片機(jī)及其外圍電路組成的系統(tǒng)的仿真、RS232動(dòng)態(tài)仿真、I2C調(diào)試器、SPI調(diào)試器、鍵盤和LCD系統(tǒng)仿真的功能；有各種虛擬儀器，如示波器、邏輯分析儀、信號(hào)發(fā)生器等。操作界面如下圖43：圖43 STC……ISP軟件界面 protues軟件簡(jiǎn)介Protues簡(jiǎn)介(什么是Protues) Proteus 是英國(guó)Labcenter公司開發(fā)的電路分析與實(shí)物仿真軟件。運(yùn)行Keil軟