【正文】 ,n,8,1ElseIf = 1 Then = tspeed amp。 ,n,8,1ElseIf = 1 Then = tspeed amp。HFF8080End IfEnd SubPrivate Sub alarm_scan_Timer()Dim rs3 As New Dim i As Integerflagf = Falseflags = Falsesql = select * from basic sql, con, adOpenDynamic, adLockPessimistic For i = 1 To If Not Or Not Then If Val((ntemp)) Val((falarm)) Then flagf = True (nstate) = 一級(jí)報(bào)警 ElseIf Val((ntemp)) Val((falarm)) Then (nstate) = 正常 End If If Val((ntemp)) Val((salarm)) Then flagf = True (nstate) = 二級(jí)報(bào)警 End If End If Next i If flagf = True Then = True ElseIf flagf = False Then = False = amp。HFFamp。HFFamp。 = adUseClientEnd FunctionPrivate Sub alarm_c_Timer()If = amp。Data Source= amp。 \) = Provider=。最后衷心地感謝電子信息工程學(xué)院與通信工程教研室的老師們以及輔導(dǎo)員老師，感謝你們這四年來(lái)對(duì)我的諄諄教導(dǎo)和殷切關(guān)懷，你們的教育和關(guān)心，使得我在大學(xué)四年里不僅學(xué)到了扎實(shí)的專(zhuān)業(yè)知識(shí)，而且學(xué)到了很多做人道理，我定會(huì)以更加飽滿(mǎn)的激情和昂揚(yáng)的斗志投身到新的學(xué)習(xí)工作當(dāng)中，以更加優(yōu)異的成績(jī)回報(bào)老師，回報(bào)母校！由于知識(shí)水平有限，在設(shè)計(jì)過(guò)程中難免有所差錯(cuò)和不足，所以，希望各位老師、同學(xué)能對(duì)我的設(shè)計(jì)論文中的缺陷和不足予以指正，本人在此表示衷心感謝！參考文獻(xiàn)[1]李玉東等編著. Visual Basic ：電子工業(yè)出版社，2002[2]陳學(xué)東，常丹等編著. Visual Basic . 北京：清華大學(xué)出版社，2005[3]李文仲, 段朝玉等編著. ZigBee無(wú)線(xiàn)網(wǎng)絡(luò)技術(shù)入門(mén)與實(shí)戰(zhàn). 北京：北京航空航天大學(xué)出版社，2007[4]瞿雷, 劉盛德, 胡咸斌編著. ZigBee技術(shù)及應(yīng)用. 北京：北京航空航天大學(xué)出版社，[5] Basic amp。李老師在電子制作和軟件程序設(shè)計(jì)方面也有面深刻的造詣，給與了我許多指導(dǎo)，值得我尊敬，在此謹(jǐn)向他表示最誠(chéng)摯的感謝。謝 辭本次畢業(yè)設(shè)計(jì)是在指導(dǎo)老師李偉勤的悉心指導(dǎo)下，我才能順利地完成了這次畢業(yè)設(shè)計(jì)的工作任務(wù)。此系統(tǒng)仍存在許多缺陷，但是通過(guò)該系統(tǒng)設(shè)計(jì)達(dá)到了系統(tǒng)設(shè)計(jì)目的意義，基本掌握了無(wú)線(xiàn)傳感器網(wǎng)絡(luò)的基本原理，了解了軟件開(kāi)發(fā)時(shí)必須注意的問(wèn)題，另外，在設(shè)計(jì)過(guò)程中也逐漸提高了軟件開(kāi)發(fā)技能和編程技能。采用定時(shí)器定時(shí)讀取數(shù)據(jù)庫(kù)，完成節(jié)點(diǎn)信息的實(shí)時(shí)更新。 數(shù)據(jù)庫(kù)網(wǎng)路節(jié)點(diǎn)信息表25 結(jié) 論無(wú)線(xiàn)傳感器網(wǎng)絡(luò)的應(yīng)用越來(lái)越廣泛，基于CC2430的無(wú)線(xiàn)傳感器網(wǎng)絡(luò)研究非常有意義，我經(jīng)過(guò)3個(gè)月的不懈努力，完成了無(wú)線(xiàn)傳感器網(wǎng)絡(luò)上位機(jī)的設(shè)計(jì)。原本Access 2003 ，一共有5條記錄，每條記錄有完整的參數(shù)，包括節(jié)點(diǎn)ID、節(jié)點(diǎn)狀態(tài)、節(jié)點(diǎn)名稱(chēng)、節(jié)點(diǎn)地址、節(jié)點(diǎn)溫度、節(jié)點(diǎn)報(bào)警值等。5) 軟件對(duì)操作系統(tǒng)的兼容性良好，但未打包程序不能在未安裝VB的機(jī)器上使用，主要是因?yàn)橄到y(tǒng)中用到了ADO控件和MSchart控件。4) 數(shù)據(jù)溢出、越界基本未能進(jìn)行非法提示，以警告用戶(hù)的錯(cuò)誤使用。2) 數(shù)據(jù)庫(kù)的可維護(hù)性良好，數(shù)據(jù)的錄入能順利完成，并能實(shí)現(xiàn)動(dòng)態(tài)更新，刪除和修改也能順利完成。 新建節(jié)點(diǎn)后的主界面 節(jié)點(diǎn)管理 無(wú)線(xiàn)傳感器網(wǎng)絡(luò)上、下位機(jī)實(shí)現(xiàn)測(cè)試與下位機(jī)連接后進(jìn)入上位機(jī)下位機(jī)連接測(cè)試，因?yàn)橄挛粰C(jī)僅有一個(gè)網(wǎng)絡(luò)節(jié)點(diǎn)，所以軟件只監(jiān)測(cè)一個(gè)節(jié)點(diǎn)溫度，測(cè)試步驟如下進(jìn)入主界面（）后點(diǎn)擊開(kāi)始建網(wǎng)，建網(wǎng)成功后（），圖形化顯示初始化并連接數(shù)據(jù)庫(kù)，此時(shí)，數(shù)據(jù)庫(kù)連接成功，軟件已經(jīng)開(kāi)始定時(shí)接收串行口發(fā)送過(guò)來(lái)的數(shù)據(jù)，已經(jīng)開(kāi)始定時(shí)更新數(shù)據(jù)庫(kù)了，此時(shí)我在程序中加一條代碼：msgbox net_tem, 這個(gè)代碼的意思是在每次接收到串行數(shù)據(jù)發(fā)送的數(shù)據(jù)后，待分析完字符數(shù)據(jù)，提取net_tem后，通過(guò)msgbox告訴我是否溫度檢測(cè)成功，數(shù)據(jù)是否成功收到，如果消息盒子的報(bào)告是空的，則表示數(shù)據(jù)接收失敗或者沒(méi)受到數(shù)據(jù)，如果消息盒子報(bào)告彈出溫度正常，則表示成功接收并更新了數(shù)據(jù)庫(kù)。管理員可以點(diǎn)擊鼠標(biāo)右鍵，打開(kāi)彈出菜單，選擇要進(jìn)行的操作，可以重新設(shè)置節(jié)點(diǎn)報(bào)警值或進(jìn)入報(bào)警處理窗體（），進(jìn)行報(bào)警屏蔽等操作。 測(cè)試步驟 軟件模擬測(cè)試首先進(jìn)入主界面(),這時(shí)，窗體界面基本初始化已經(jīng)完成，但并沒(méi)有完成網(wǎng)絡(luò)節(jié)點(diǎn)注冊(cè)，選擇菜單軟件模擬 ，進(jìn)入軟件模擬窗體（）。5) 軟件模擬功能是否正常實(shí)現(xiàn)，演示功能是否強(qiáng)大。3) 數(shù)據(jù)庫(kù)可維護(hù)性好，數(shù)據(jù)的錄入、刪除及更改是否能順利完成，并能實(shí)現(xiàn)動(dòng)態(tài)更新。 測(cè)試內(nèi)容1) 軟件是否初始化正常，數(shù)據(jù)庫(kù)連接是否成功，退出及關(guān)閉時(shí)是否無(wú)任何錯(cuò)誤。為提高程序開(kāi)發(fā)效率以及能方便的調(diào)試，軟件還具有模擬功能，在沒(méi)有下位機(jī)的情況下，只需要將串行通信口的發(fā)送、接收引腳短接，即可實(shí)現(xiàn)軟件仿真功能。 .Elsecstring = End IfIf = False Then = TrueEnd If = cstringEnd Sub 出廠(chǎng)設(shè)置（default_setup）可視化界面，管理員可以設(shè)置溫度節(jié)點(diǎn)測(cè)試類(lèi)型，選擇好溫度檢測(cè)類(lèi)型后，系統(tǒng)會(huì)自動(dòng)根據(jù)測(cè)試類(lèi)型初始化一級(jí)報(bào)警值和二級(jí)報(bào)警值，如果符合要求確定表示設(shè)置完成，如果需要更改立即更改，出廠(chǎng)設(shè)置參數(shù)設(shè)置后，在新建網(wǎng)絡(luò)節(jié)點(diǎn)時(shí)的一級(jí)報(bào)警值、二級(jí)報(bào)警值和節(jié)點(diǎn)類(lèi)型都和出廠(chǎng)設(shè)置的信息相同，這樣非常方便的對(duì)新網(wǎng)絡(luò)節(jié)點(diǎn)的統(tǒng)一管理，功能更為完善和強(qiáng)大。 amp。 amp。 .ElseIf = 1 And = 0 Then cstring = : amp。 amp。 . amp。 amp。定時(shí)功能用定時(shí)器完成。管理員可以自行設(shè)置節(jié)點(diǎn)ID,節(jié)點(diǎn)溫度，并通過(guò)復(fù)選框按鈕選擇是否多通道發(fā)送字符，為更好的人機(jī)結(jié)合，管理員可查看發(fā)送的字符串?dāng)?shù)據(jù)，為調(diào)試和測(cè)試軟件功能提供了強(qiáng)大的支持，模擬開(kāi)始后，主窗體會(huì)顯示模擬字樣，操作非常簡(jiǎn)單。%報(bào)警%39。 報(bào)警管理報(bào)警管理窗體能搜索所有報(bào)警中的字段并列表顯示出來(lái)，實(shí)現(xiàn)核心是搜索功能。 節(jié)點(diǎn)信息設(shè)置節(jié)點(diǎn)信息設(shè)置主要實(shí)現(xiàn)數(shù)據(jù)庫(kù)更新數(shù)據(jù)功能，包括更新一級(jí)報(bào)警值，二級(jí)報(bào)警值和更新時(shí)間。核心代碼實(shí)現(xiàn)見(jiàn)下：For i = 0 To 8(i + 1) = Text1(i).TextNext iCall getrs1(nstyle) = (nstyle)Call lostrs1Call k_int 節(jié)點(diǎn)信息設(shè)置（）功能描述：可視化界面，包括一級(jí)報(bào)警值設(shè)置，二級(jí)報(bào)警值設(shè)置，更新時(shí)間設(shè)置，管理員可以通過(guò)主界面右鍵進(jìn)入，也可以通過(guò)菜單選項(xiàng)進(jìn)入。 節(jié)點(diǎn)管理節(jié)點(diǎn)管理的核心功能是實(shí)現(xiàn)數(shù)據(jù)庫(kù)記錄集內(nèi)數(shù)據(jù)的新建和刪除，并及時(shí)更新數(shù)據(jù)庫(kù)，在主界面顯示出來(lái)。設(shè)置行共15行 = 1 39。 = False 39。 If = False And = False Then =