無(wú)線傳感器網(wǎng)絡(luò)(上位機(jī))-畢業(yè)論文-資料下載頁(yè)
2025-06-22 22:39本頁(yè)面
【正文】 于CC2430的無(wú)線傳感器網(wǎng)絡(luò)研究非常有意義，我經(jīng)過(guò)3個(gè)月的不懈努力，完成了無(wú)線傳感器網(wǎng)絡(luò)上位機(jī)的設(shè)計(jì)。設(shè)計(jì)采用Visual Basic ，采用Access 2003數(shù)據(jù)庫(kù)完成數(shù)據(jù)存儲(chǔ)，整個(gè)軟件分為8個(gè)窗體，每個(gè)窗體完成特定功能，經(jīng)過(guò)反復(fù)測(cè)試，系統(tǒng)完成后運(yùn)行添加、修改、查詢、等功能均正常，并能完成數(shù)據(jù)幀接收，分析處理數(shù)據(jù)幀。采用定時(shí)器定時(shí)讀取數(shù)據(jù)庫(kù)，完成節(jié)點(diǎn)信息的實(shí)時(shí)更新。通過(guò)串行口與下位機(jī)連接，接收適配器發(fā)送過(guò)來(lái)的字符數(shù)據(jù)，成功實(shí)現(xiàn)無(wú)線傳感器網(wǎng)絡(luò)溫度監(jiān)測(cè)。此系統(tǒng)仍存在許多缺陷，但是通過(guò)該系統(tǒng)設(shè)計(jì)達(dá)到了系統(tǒng)設(shè)計(jì)目的意義，基本掌握了無(wú)線傳感器網(wǎng)絡(luò)的基本原理，了解了軟件開(kāi)發(fā)時(shí)必須注意的問(wèn)題，另外，在設(shè)計(jì)過(guò)程中也逐漸提高了軟件開(kāi)發(fā)技能和編程技能。因此本設(shè)計(jì)雖然較粗糙，但是從學(xué)習(xí)的角度上看，非常有意義。 謝 辭本次畢業(yè)設(shè)計(jì)是在指導(dǎo)老師李偉勤的悉心指導(dǎo)下，我才能順利地完成了這次畢業(yè)設(shè)計(jì)的工作任務(wù)。在畢業(yè)設(shè)計(jì)期間，導(dǎo)師李老師給予了很大的幫助和關(guān)心，李老師他對(duì)整個(gè)畢業(yè)設(shè)計(jì)要求很嚴(yán)格，但正是這種嚴(yán)格，讓我學(xué)到了曾經(jīng)遺漏和忽略的知識(shí)。李老師在電子制作和軟件程序設(shè)計(jì)方面也有面深刻的造詣，給與了我許多指導(dǎo)，值得我尊敬，在此謹(jǐn)向他表示最誠(chéng)摯的感謝。在本設(shè)計(jì)的研究過(guò)程中，參考了許多專家學(xué)者的重要著作和文獻(xiàn)資料，同時(shí)借鑒了VB程序員們成功的編程經(jīng)驗(yàn)，他們的研究成果以及成熟的VB程序程序設(shè)計(jì)理念給了我極大的啟發(fā)和幫助，在此向他們表示最衷心的感謝。最后衷心地感謝電子信息工程學(xué)院與通信工程教研室的老師們以及輔導(dǎo)員老師，感謝你們這四年來(lái)對(duì)我的諄諄教導(dǎo)和殷切關(guān)懷，你們的教育和關(guān)心，使得我在大學(xué)四年里不僅學(xué)到了扎實(shí)的專業(yè)知識(shí)，而且學(xué)到了很多做人道理，我定會(huì)以更加飽滿的激情和昂揚(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ú)線網(wǎng)絡(luò)技術(shù)入門與實(shí)戰(zhàn). 北京：北京航空航天大學(xué)出版社，2007[4]瞿雷, 劉盛德, 胡咸斌編著. ZigBee技術(shù)及應(yīng)用. 北京：北京航空航天大學(xué)出版社，[5] Basic amp。 Access數(shù)據(jù)庫(kù)管理系統(tǒng)構(gòu)建實(shí)例. 北京：清華大學(xué)出版社，附 錄（）源代碼Option ExplicitDim tspeedDim mcu_msg$Public Sub lostrs1()End SubPublic Sub getrs()sql = select * from basic sql, con, adOpenDynamic, adLockPessimisticEnd SubPublic Sub getrs1()sql = select * from hf sql, con, adOpenDynamic, adLockPessimisticEnd SubPublic Function getcon()appdisk = IIf(Right(, 1) = \, , amp。 \) = Provider=。Persist Security Info=False。Data Source= amp。 appdisk amp。 = adUseClientEnd FunctionPrivate Sub alarm_c_Timer()If = amp。HFF8080 Then = amp。HFFamp。ElseIf = amp。HFFamp。 Then = 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。HFF8080 End If End SubPrivate Sub B1_Click()If = False Then = TrueMsgBox 串行端口成功打開(kāi) = False = TrueElseIf = True Then = False = TrueEnd IfEnd SubPrivate Sub B2_Click()If = True Then = False = True = FalseElse = True = FalseEnd IfEnd SubPrivate Sub cb2_Click()If = True ThenMsgBox 請(qǐng)先關(guān)閉串行端口ElseIf = False Then = + 1End IfEnd SubPrivate Sub cb3_Click()If = True ThenMsgBox 請(qǐng)先關(guān)閉串行端口ElseIf = False ThenSelect Case Case 0 = 38400,n,8,1tspeed = 9600Case 1 = 14400,n,8,1 = 9600,n,8,1tspeed = 14400Case 2 = 19200,n,8,1 = 9600,n,8,1tspeed = 19200Case 3 = 56000,n,8,1 = 9600,n,8,1tspeed = 56000End SelectEnd IfEnd SubPrivate Sub cb4_Click()If = True ThenMsgBox 請(qǐng)先關(guān)閉串行端口ElseIf = False ThenIf = 0 Then = tspeed amp。 ,n,8,1ElseIf = 1 Then = tspeed amp。 ,e,8,1End IfEnd IfEnd SubPrivate Sub cb5_Click()If = True ThenMsgBox 請(qǐng)先關(guān)閉串行端口ElseIf = False ThenIf = 0 Then = tspeed amp。 ,n,8,1ElseIf = 1 Then = tspeed amp。 ,n,8,2End IfEnd IfEnd SubPrivate Sub Check1_Cli
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1