【正文】 最后，向擔(dān)任本組評閱的答辯組老師和提供給我學(xué)習(xí)機(jī)會的學(xué)校表示衷心的感謝！。在這里向所有的這些同學(xué)們表示我的感謝！在最初準(zhǔn)備資料時(shí)，一次次地向圖書館借書籍、查資料、詢問，圖書館的教職工也總是不厭其煩的做好他們的本職工作。在這難忘的三個(gè)月中，我們相互鼓勵，營造了一個(gè)良好的團(tuán)結(jié)協(xié)作氛圍，沒有他們的幫助我就不可能如此順利地完成設(shè)計(jì)。所有這些，不僅使我在大學(xué)的最后一次設(shè)計(jì)中，也是最綜合的一次設(shè)計(jì)中得到了實(shí)踐性的鍛煉，同時(shí)也為我以后步入工作崗位打下了堅(jiān)實(shí)的基礎(chǔ)，使我從中受益匪淺。設(shè)計(jì)中我還得到了王博學(xué)長和其他研究生學(xué)長的大力指導(dǎo)。在整個(gè)設(shè)計(jì)過程中，無論何時(shí)遇到什么問題，任老師總是先放下手頭工作，隨時(shí)隨地替我們解決問題，不厭其煩地講解。參考文獻(xiàn)[1] [J].電信工程技術(shù)與標(biāo)準(zhǔn)化，：1214[2] ——物聯(lián)網(wǎng)的發(fā)展分析[J].中國農(nóng)業(yè)分析，：57[3] [J].后IP時(shí)代與物聯(lián)網(wǎng)，:1013[4] [J].微型電腦應(yīng)用，:13[5] [J].通信與信息技術(shù)，:5053[6] [C].青島：[7] Basic+Access[M].北京：清華大學(xué)出版社，2006[8] 2003數(shù)據(jù)庫教程[M].北京：清華大學(xué)出版社，2006[9] Basic數(shù)據(jù)庫開發(fā)實(shí)例精粹[M].北京：電子工業(yè)出版社，2005[10] Basic [M].北京：冶金工業(yè)出版社,2004. [11] 李玉東. Visual Basic [M].北京：電子工業(yè)出版社,2002.[12] BASIC [M].北京：人民郵電出版社,2003. [13] Basic程序設(shè)計(jì)教程[M].北京：清華大學(xué)出版社，2006[14] Rob van Internet of Things（A critique of ambient technology and the allseeing network of RFID）[M]. hog school van Amsterdam University of Applied Sciences,1995[15] Kin Database System [M].New York: ACM Press, 1995.致　謝這次畢業(yè)設(shè)計(jì)工作是在我的指導(dǎo)老師任德志老師的全面指導(dǎo)下完成的。整個(gè)畢業(yè)設(shè)計(jì)培養(yǎng)了自己嚴(yán)肅認(rèn)真的科學(xué)態(tài)度和嚴(yán)謹(jǐn)求實(shí)的工作作風(fēng)。擁有這些條件，程序的可讀性才會好，開發(fā)的復(fù)雜度才能大大減少，修改代碼時(shí)更加容易下手。系統(tǒng)采用模塊化設(shè)計(jì)的方法，將系統(tǒng)分為溫度的手動錄入、采集，查詢溫度位置信息、動態(tài)模擬仿真幾塊來實(shí)現(xiàn)。在這個(gè)設(shè)計(jì)中，ACCESS 2003數(shù)據(jù)庫軟件來完成我的畢業(yè)設(shè)計(jì)。結(jié) 論畢業(yè)設(shè)計(jì)是本科教育過程中最重要的一次集中性實(shí)踐環(huán)節(jié)，是學(xué)生四年學(xué)習(xí)的重要總結(jié)。對此執(zhí)行文件進(jìn)行測試，然后利用Visual Basic自帶的打包向?qū)Чぞ逷ackage amp。聯(lián)機(jī)調(diào)試中也可以實(shí)現(xiàn)下位機(jī)與上位機(jī)的互聯(lián)，以及與數(shù)據(jù)庫之間的聯(lián)系。以實(shí)現(xiàn)項(xiàng)目的設(shè)計(jì)功能。(二) 聯(lián)機(jī)調(diào)試：本系統(tǒng)是物聯(lián)網(wǎng)設(shè)計(jì)的一項(xiàng)上位機(jī)數(shù)據(jù)庫設(shè)計(jì)，下面有紅外節(jié)點(diǎn)軟件硬件設(shè)計(jì)，溫度采集軟硬件設(shè)計(jì)，串行口通訊設(shè)計(jì)，基于TCP/IP的通訊接口軟件設(shè)計(jì)，還有這個(gè)數(shù)據(jù)庫軟件設(shè)計(jì)。 系統(tǒng)調(diào)試系統(tǒng)調(diào)試分為單機(jī)模擬調(diào)試和小組內(nèi)綜合調(diào)試：(一) 單機(jī)調(diào)試：VB程序設(shè)計(jì)有數(shù)據(jù)模擬定時(shí)器，可以對模擬的數(shù)據(jù)進(jìn)行錄入存儲以及查詢功能，在這些功能及基礎(chǔ)上加入的查詢最大最小值以及位置紅外報(bào)警功能可以很好的實(shí)現(xiàn)。(三) 綜合測試：在以上測試的基礎(chǔ)上，對系統(tǒng)功能進(jìn)行了整體測試，依次檢驗(yàn)系統(tǒng)功能能否實(shí)現(xiàn)系統(tǒng)設(shè)計(jì)的要求。 系統(tǒng)測試在開發(fā)本系統(tǒng)時(shí)，為了使系統(tǒng)能夠穩(wěn)定運(yùn)行，對本系統(tǒng)進(jìn)行了有針對性的全面測試，采取的方式是：(一) 按鍵測試：為了保證每一項(xiàng)按鍵能夠正確實(shí)現(xiàn)系統(tǒng)實(shí)現(xiàn)的功能，對每一按鍵進(jìn)行增加、修改、刪除等操作，以及測試軟件進(jìn)行了無數(shù)次改正，從而保證了功能的正確實(shí)現(xiàn)。刪除溫度格式表中的所有記錄 End Sub在本窗口的三個(gè)textbox內(nèi)輸入三個(gè)點(diǎn)的溫度信息，然后點(diǎn)添加按鍵，此時(shí)在數(shù)據(jù)庫沒有輸入數(shù)據(jù)，只有按下提交鍵，錄入的數(shù)據(jù)都會存進(jìn)數(shù)據(jù)庫里。 \。data source= amp。INSERT 可以是對一個(gè)表與表之間的插入39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。data source= amp。以方便調(diào)試演示,如圖37：圖37 錄入溫度數(shù)據(jù)主要有兩個(gè)click控件，一個(gè)是添加（Command1），一個(gè)是提交（mand3），時(shí)間DTpicker控件隨時(shí)間自動更新三部分程序段：添加按鍵程序：Private Sub Command1_Click() Dim SQL1 As String If Len() = 0 Then MsgBox 數(shù)據(jù)不全請重新輸入, vbInformation, 提示 Exit Sub End If 39。記錄溫度C最小值 sqlmin = select min(溫度C) from 溫度 + sql sqlmin, conn, adOpenDynamic, adLockOptimistic If ( = 0) Then = 0 ℃ Else = Format(rs(0), ) amp。記錄溫度B最小值 sqlmin = select min(溫度B) from 溫度 + sql sqlmin, conn, adOpenDynamic, adLockOptimistic If ( = 0) Then = 0 ℃ Else = Format(rs(0), ) amp。記錄溫度A最小值 sqlmin = select min(溫度A) from 溫度 + sql sqlmin, conn, adOpenDynamic, adLockOptimistic If ( = 0) Then = 0 ℃ Else = Format(rs(0), ) amp。記錄溫度C最大值 sqlmax = select max(溫度C) from 溫度 + sql sqlmax, conn, adOpenDynamic, adLockOptimistic If ( = 0) Then = 0 ℃ Else = Format(rs(0), ) amp。記錄溫度B最大值 sqlmax = select max(溫度B) from 溫度 + sql sqlmax, conn, adOpenDynamic, adLockOptimistic If ( = 0) Then = 0 ℃ Else = Format(rs(0), ) amp。 If ( = 0) Then = 0 ℃ Else = Format(rs(0), ) amp。記錄溫度A最大值 sqlmax = select max(溫度A) from 溫度 + sql sqlmax, conn, adOpenDynamic, adLockOptimistic39。為了便于查詢歷史數(shù)據(jù)及當(dāng)天溫度的極值，設(shè)置查詢最大最小值功能，如圖36所示：圖36 查詢極值程序代碼如下：39。 amp。 amp。39。 Format (, hh:mm:ss), yyyyMMdd hh:mm:ss)39。 Format (, hh:mm:ss), yyyyMMdd hh:mm:ss) dt4 = Format ( amp。 溫度查詢Private Sub ctlQueryInTemperature_Click () Dim sql As String If ( = True) Then dt1 = CDate () dt2 = DateAdd (d, dt1, 1) sql = where 時(shí)間= + CStr(dt1) + and 時(shí)間 + CStr(dt2) + Else dt3 = Format ( amp。 = adUseClient = adUseClient select 時(shí)間,溫度A,溫度B,溫度C from溫度, conn, adOpenDynamic, adLockOptimistic select 時(shí)間,位置A,位置B,位置C from位置, conn, adOpenDynamic, adLockOptimistic39。 App. Path amp。 位置數(shù)據(jù)集1． 當(dāng)窗體啟動時(shí)，在DataGrid中加載溫度，位置信息，代碼如下：Private Sub Form Load () provider=。 數(shù)據(jù)連接Dim rsTemperature As New 39。2) 兩個(gè)textbox程序的設(shè)置：Private Sub ctlUpper_Change () Dim t as Long On Error GoTo over: If (Trim () = ) Then = 0 Exit Sub End If t = CLng (Trim ()) If (t 0) Then = 0 ElseIf (t 150) Then = 150 End If Exit SubOver: = 0End SubPrivate Sub ctlLower_Change () Dim t as Long On Error GoTo over: If (Trim () = ) Then = 0 Exit Sub End If t = CLng (Trim ()) If (t 0) Then = 0 ElseIf (t 150) Then = 150 End If Exit SubOver: = 0End SubTextbox中的數(shù)據(jù)在0到150之間，當(dāng)溢出時(shí)取兩極限值（0或150）。 \images\) End IfEnd Sub在文件夾images內(nèi)加入兩個(gè)bmp格式的圖片，當(dāng)位置信息判斷為True時(shí)，；當(dāng)位置信息判斷為false時(shí)。Private Sub LedOn (pos As Image, state As Boolean) If (state = True) Then = LoadPicture (App. Path amp。HC000amp。）。小于設(shè)置溫