【正文】 增加空白記錄 = True = True End SubPrivate Sub Command7_Click()End SubPrivate Sub MSComm1_OnComm()Dim Buffer As Variant 39。MsgBox 登錄成功 Else MsgBox 登錄失敗 If mk = 3 Then MsgBox 你登錄已經(jīng)超過3次 End If End IfEnd SubPrivate Sub Form_Load() = = End Sub查詢模塊程序：Private Sub Command1_Click()39。字段1為用戶密碼 If U And P Then Ok = True Exit Do Else . End If Loop End With mk = mk + 1 If Ok Then 39。第一張圖片 = LoadPicture() = LoadPicture() = LoadPicture() For wenduzhi_k = 0 To 18 Step 1 wenduzhi(wenduzhi_k) = wenduzhi(wenduzhi_k + 1) 39。 time_count = time_count + 1 (溫度值) = Val() (濕度值) = Val() (光照值) = Val() (時(shí)間) = Now 39。 39。HFFamp。H8000amp。濕度 If (Val() Val()) Or (Val() Val()) Then = amp。紅色 Else = amp。判斷是否報(bào)警 39。 in_data(4)) = Val(in_data(5) amp。通道0的開始標(biāo)志位 z_start = True ovt = 0 End If If hk(0) = amp。 n,8,1End SubPrivate Sub exit_Click()EndEnd SubPrivate Sub Form_Load() = 0 = 0 = InputModeBinaryEnd SubPrivate Sub help_Click()MsgBox 請(qǐng)致電18996148285 徐圍 解決相關(guān)問題End SubPrivate Sub history_Click()End SubPrivate Sub MSComm1_OnComm() Select Case Case EvReceive 39。在此一并向他們表示最真摯的謝意！ 本次畢業(yè)設(shè)計(jì)雖然結(jié)束了，但它卻給我留下了很多美好的回憶，面對(duì)自己的勞動(dòng)成果有一種油然而生的滿足感和成就感，沒有付出，就沒有收獲這句話又一次得到了驗(yàn)證。 首先，我要感謝我的指導(dǎo)老師曾宇丹老師對(duì)我的精心指導(dǎo)；她嚴(yán)謹(jǐn)?shù)目茖W(xué)態(tài)度，遇到困難時(shí)勇于戰(zhàn)勝的精神，一直鼓勵(lì)著我前進(jìn)。參考文獻(xiàn)[1]李江全, 張麗, 岑紅蕾. Visual Basic串口通信與測(cè)控應(yīng)用技術(shù)實(shí)戰(zhàn)詳解. 北京: 人民郵電出版社, 2007: 150155[2]李長(zhǎng)林, 沙占友等. Visual Basic串口通信技術(shù)與典型實(shí)例. 北京: 清華大學(xué)出版社, 2006: 112157[3]李長(zhǎng)林，張麗華，王紅. Visual Basic數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)從基礎(chǔ)到實(shí)踐. 北京:電子工業(yè)出版社, 2006: 276310[4]劉彬彬，高春艷，孫秀梅等. Visual Basic從入門到精通. 北京: 清華大學(xué)出版社, 2008: 427454[5]陳杰華, 劉奇, 卿川. 奇思異想編程序. 北京: 國防工業(yè)出版社, 2004: 314315[6]斯琴巴圖, 楊利潤等. 零基礎(chǔ)學(xué)Visual Basic. 北京: 系統(tǒng)械工業(yè)出版社, 2008: 228230[7]白曉勇, 余健等. Visual Basic課程設(shè)計(jì)案例精編. 北京: 清華大學(xué)出版社, 2007: 255256[8]陳紫紅, 安劍, 孫秀梅等. Visual Basic項(xiàng)目開發(fā)全程實(shí)錄. 北京: 清華大學(xué)出版社, 2008: 115124[9]胡小江等. 21天學(xué)通Visual Basic. 北京: 電子工業(yè)出版社, 2009: 239251[10]范逸之. Visual Basic與RS232串行通訊控制. 北京: 中國青年出版社, 2000: 215[11]李懷明等. Visual Basic 中文版參考詳解. 北京: 清華大學(xué)出版社, 1999: 98103[12]龔沛增. Visual Basic 程序設(shè)計(jì)教程. 北京: 清華大學(xué)出版社, 2004: 1132[13]劉新民. Visual Basic . 北京: 清華大學(xué)出版社, 2004: 6183[14]劉瑞新, 李樹東. Visual Basic 程序設(shè)計(jì)教程習(xí)題及習(xí)題解答. 北京: 電子工業(yè)出版社, 1999: 101120[15]郭琦. Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)技術(shù). 北京: 人民郵電出版社, 2004: 4253[16]El1]SIGRIMIS N，ARVAN1TIS K G，PASGIAN0S G D，et a1．Computer integrated management and intelligent control ofgreenhouse[J]．Environ Co ntrol in Biol，2002，40(1)：39—53．[17]SEGINE L，B0IⅡ?？偨Y(jié)與展望 通過對(duì)智能溫室上位測(cè)控系統(tǒng)的課題的完成，逐步了解了VB編程以及串口通信的編程方法，了解了通過ADO對(duì)象實(shí)現(xiàn)程序與數(shù)據(jù)庫的連接、使用DataGrid控件顯示溫度數(shù)據(jù)。一個(gè)工程通常包括以下幾類文件。如果工程尚未保存過，那么系統(tǒng)首先顯示“文件另存為”對(duì)話框，提示編程人員確定用于保存窗體的文件名。：開始打開參數(shù)修改界面進(jìn)行參數(shù)修改修改后的參數(shù)存入數(shù)據(jù)庫將參數(shù)修改了后的顯示到主界面通過MSCOMM控件傳入MAX232結(jié)束 參數(shù)修改程序流程圖： 參數(shù)修改界面 當(dāng)實(shí)際測(cè)得的溫度濕度光照值在所給定的范圍之內(nèi)，報(bào)警按鈕則處于綠色狀態(tài)，如果實(shí)測(cè)的值超出這個(gè)范圍報(bào)警按鈕就會(huì)變?yōu)榧t色。 趨勢(shì)圖 為了實(shí)現(xiàn)趨勢(shì)圖的顯示，本在這個(gè)課題中選用了3個(gè)picturebox控件，分別用來顯示溫度曲線，濕度曲線，光照曲線?！案隆卑粹o是用于同步數(shù)據(jù)，“返回”按鈕用于回到主界面。 StatusBar控件屬性頁 實(shí)時(shí)數(shù)據(jù)顯示模塊的設(shè)計(jì) 完整的溫度信息顯示采用類似于電子數(shù)據(jù)表的DataGrid控件實(shí)現(xiàn)。單擊“插入窗格”按鈕，插入一個(gè)表格。 將StatusBar控件添加到窗體上，用鼠標(biāo)右鍵單擊該控件，在彈出的快捷菜單中選擇“屬性”命令，即可彈出“屬性頁”對(duì)話框。該窗體通常位于父窗體的底部，通過這一窗體，應(yīng)用程序能顯示各種數(shù)據(jù)。 菜單編輯區(qū)是指中間的7個(gè)按鈕，主要用于對(duì)已經(jīng)輸入的菜單進(jìn)行簡(jiǎn)單的編輯操作。其中包括三個(gè)區(qū)域：菜單屬性設(shè)置區(qū)、菜單編輯區(qū)、菜單列表區(qū)。菜單欄是通過VB中的菜單編輯器設(shè)計(jì)的，包含了歷史數(shù)據(jù)查詢、參數(shù)修改、開始/停止記錄、幫助等模塊；狀態(tài)欄用于顯示系統(tǒng)日期、時(shí)間和設(shè)計(jì)信息，通過StatusBar控件實(shí)現(xiàn)。通過選擇主界面上的菜單，我們就可以實(shí)現(xiàn)對(duì)溫度信息的各種操作。界面上的3個(gè)Label控件用來標(biāo)識(shí)窗體中的信息（用戶登陸，賬號(hào)，密碼），2個(gè)TextBox控件用來輸入賬號(hào)和密碼，2個(gè)CommandButton控件用來登陸以及新建用戶，1個(gè)ADODC控件（運(yùn)行時(shí)隱藏）用來完成和數(shù)據(jù)庫用戶信息表的連接。選擇新建“標(biāo)準(zhǔn)EXE”，執(zhí)行“打開”命令，進(jìn)入Visual Basic工程集成開發(fā)環(huán)境，窗體設(shè)計(jì)器會(huì)自動(dòng)出現(xiàn)一個(gè)Form1的空白窗體。amp。 ADO Data控件屬性很多，其中ConnectionString屬性和RecordSource屬性是兩個(gè)非常重要的屬性。 所以，本文選擇ADO Data控件來訪問數(shù)據(jù)庫，進(jìn)行數(shù)據(jù)庫的操作。 DAO（Data Access Objects）數(shù)據(jù)存取對(duì)象是數(shù)據(jù)訪問對(duì)象之一，是VB最早引入的數(shù)據(jù)訪問技術(shù)。 (a) 溫度信息表字段名稱字段大小必填字段數(shù)據(jù)類型時(shí)間常規(guī)日期是日期/時(shí)間溫度單精度型是文本濕度單精度型是文本光照單精度型是文本（b）用戶信息表字段名稱字段大小必填字段數(shù)據(jù)類型賬號(hào)50是文本密碼50是文本(c) 標(biāo)準(zhǔn)值表字段名稱字段大小必填字段數(shù)據(jù)類型標(biāo)準(zhǔn)溫度單精度型是文本最高溫度單精度型是文本最低溫度單精度型是文本標(biāo)準(zhǔn)濕度單精度型是文本最高濕度單精度型是文本最低濕度單精度型是文本標(biāo)準(zhǔn)光照單精度型是文本最高光照單精度型是文本最低光照單精度型是文本 上位測(cè)控系統(tǒng)信息數(shù)據(jù)庫的表結(jié)構(gòu) 由于數(shù)據(jù)在現(xiàn)場(chǎng)測(cè)控系統(tǒng)和上位測(cè)控系統(tǒng)之間傳輸?shù)臅r(shí)間很短，所以約定溫度信息送至上位測(cè)控系統(tǒng)的時(shí)間為測(cè)量的時(shí)間。根據(jù)該系統(tǒng)的功能，我設(shè)計(jì)了3個(gè)表：用戶信息表：用戶信息表用于描述用戶名和密碼，完成用戶登陸信息和密碼修改信息的驗(yàn)證。它能以最佳方式、最少的重復(fù)、最大的獨(dú)立性為多種應(yīng)用提供共享服務(wù)。歷史數(shù)據(jù)查詢模塊：當(dāng)操作人員需要分析一段時(shí)間的數(shù)據(jù)的時(shí)候，可以調(diào)用查詢模塊進(jìn)行歷史數(shù)據(jù)分析。 串行通信模塊：用于接收現(xiàn)場(chǎng)測(cè)控系統(tǒng)所發(fā)送給上位測(cè)控系統(tǒng)的數(shù)據(jù)。 in_data(6)) 39。 in_data(2)) 39。HFA Then 39。編寫程序時(shí)，只需要按照下面流程圖，即可實(shí)現(xiàn)通信功能。用戶程序就可在OnComm事件處理程序中針對(duì)不同的代碼，進(jìn)行相應(yīng)的處理。屬性描述Commport設(shè)置并返回通信串口號(hào)Settings以字符串的形式設(shè)置并返回串口波特率、奇偶校驗(yàn)、數(shù)據(jù)位、停止位。查詢方式的編程可用計(jì)時(shí)器或Do…Loop程序?qū)崿F(xiàn)。在程序設(shè)計(jì)中，可以在OnComm事件處理函數(shù)中加入自己的處理代碼，一旦事件發(fā)生即可自動(dòng)執(zhí)行該段程序。 MSComm控件處理通信的方式 MSComm控件通過串行端口傳輸和接收數(shù)據(jù)，為應(yīng)用程序提供串行通信功能。 Visual Visual Basic是一種可視化的編程語言，利用可視化技術(shù)進(jìn)行編程，可使應(yīng)用程序的開發(fā)簡(jiǎn)單、快捷，可編寫出界面友好、功能強(qiáng)大的應(yīng)用程序。由于RS232電平與TTL電平不兼容，本系統(tǒng)通過MAX232芯片實(shí)現(xiàn)TTL電平到RS232電平的轉(zhuǎn)換，MAX232芯片是包含兩路接收器和驅(qū)動(dòng)器的RS232電平轉(zhuǎn)換芯片，適用于各種232通信接口。本系統(tǒng)是采用MAX232芯片實(shí)現(xiàn)電平轉(zhuǎn)換的。不帶負(fù)載時(shí)驅(qū)動(dòng)器輸出電平25V~25V負(fù)載電阻范圍3~7k歐驅(qū)動(dòng)器輸出電阻300歐負(fù)載電容（包括線間電容）2500pF邏輯“0”時(shí)驅(qū)動(dòng)器輸出電平5~15V邏輯“0”時(shí)負(fù)載端接收電平+3V邏輯“1”時(shí)驅(qū)動(dòng)器輸出電平15~5V邏輯“1”時(shí)負(fù)載端接收電平3V輸出短路電流500mA驅(qū)動(dòng)器轉(zhuǎn)換速率30 RS232標(biāo)準(zhǔn)的電氣特性 ，邏輯“0”：+5~+15V，邏輯“1”：5~15V。引腳號(hào)信號(hào)名稱方向信號(hào)功能1DCD上位測(cè)控系統(tǒng)←對(duì)方上位測(cè)控系統(tǒng)收到遠(yuǎn)程信號(hào)（載波檢測(cè)）2RXD上位測(cè)控系統(tǒng)←對(duì)方上位測(cè)控系統(tǒng)接收數(shù)據(jù)3TXD上位測(cè)控系統(tǒng)→對(duì)方上位測(cè)控系統(tǒng)發(fā)送數(shù)據(jù)4DTR上位測(cè)控系統(tǒng)→對(duì)方上位測(cè)控系統(tǒng)準(zhǔn)備就緒5GN