無線傳感器網(wǎng)絡(luò)(上位機(jī))-畢業(yè)論文-資料下載頁
2025-06-22 22:39本頁面
【正文】 于CC2430的無線傳感器網(wǎng)絡(luò)研究非常有意義，我經(jīng)過3個月的不懈努力，完成了無線傳感器網(wǎng)絡(luò)上位機(jī)的設(shè)計。設(shè)計采用Visual Basic ，采用Access 2003數(shù)據(jù)庫完成數(shù)據(jù)存儲，整個軟件分為8個窗體，每個窗體完成特定功能，經(jīng)過反復(fù)測試，系統(tǒng)完成后運行添加、修改、查詢、等功能均正常，并能完成數(shù)據(jù)幀接收，分析處理數(shù)據(jù)幀。采用定時器定時讀取數(shù)據(jù)庫，完成節(jié)點信息的實時更新。通過串行口與下位機(jī)連接，接收適配器發(fā)送過來的字符數(shù)據(jù)，成功實現(xiàn)無線傳感器網(wǎng)絡(luò)溫度監(jiān)測。此系統(tǒng)仍存在許多缺陷，但是通過該系統(tǒng)設(shè)計達(dá)到了系統(tǒng)設(shè)計目的意義，基本掌握了無線傳感器網(wǎng)絡(luò)的基本原理，了解了軟件開發(fā)時必須注意的問題，另外，在設(shè)計過程中也逐漸提高了軟件開發(fā)技能和編程技能。因此本設(shè)計雖然較粗糙，但是從學(xué)習(xí)的角度上看，非常有意義。 謝 辭本次畢業(yè)設(shè)計是在指導(dǎo)老師李偉勤的悉心指導(dǎo)下，我才能順利地完成了這次畢業(yè)設(shè)計的工作任務(wù)。在畢業(yè)設(shè)計期間，導(dǎo)師李老師給予了很大的幫助和關(guān)心，李老師他對整個畢業(yè)設(shè)計要求很嚴(yán)格，但正是這種嚴(yán)格，讓我學(xué)到了曾經(jīng)遺漏和忽略的知識。李老師在電子制作和軟件程序設(shè)計方面也有面深刻的造詣，給與了我許多指導(dǎo)，值得我尊敬，在此謹(jǐn)向他表示最誠摯的感謝。在本設(shè)計的研究過程中，參考了許多專家學(xué)者的重要著作和文獻(xiàn)資料，同時借鑒了VB程序員們成功的編程經(jīng)驗，他們的研究成果以及成熟的VB程序程序設(shè)計理念給了我極大的啟發(fā)和幫助，在此向他們表示最衷心的感謝。最后衷心地感謝電子信息工程學(xué)院與通信工程教研室的老師們以及輔導(dǎo)員老師，感謝你們這四年來對我的諄諄教導(dǎo)和殷切關(guān)懷，你們的教育和關(guān)心，使得我在大學(xué)四年里不僅學(xué)到了扎實的專業(yè)知識，而且學(xué)到了很多做人道理，我定會以更加飽滿的激情和昂揚的斗志投身到新的學(xué)習(xí)工作當(dāng)中，以更加優(yōu)異的成績回報老師，回報母校！由于知識水平有限，在設(shè)計過程中難免有所差錯和不足，所以，希望各位老師、同學(xué)能對我的設(shè)計論文中的缺陷和不足予以指正，本人在此表示衷心感謝！參考文獻(xiàn)[1]李玉東等編著. Visual Basic ：電子工業(yè)出版社，2002[2]陳學(xué)東，常丹等編著. Visual Basic . 北京：清華大學(xué)出版社，2005[3]李文仲, 段朝玉等編著. ZigBee無線網(wǎng)絡(luò)技術(shù)入門與實戰(zhàn). 北京：北京航空航天大學(xué)出版社，2007[4]瞿雷, 劉盛德, 胡咸斌編著. ZigBee技術(shù)及應(yīng)用. 北京：北京航空航天大學(xué)出版社，[5] Basic amp。 Access數(shù)據(jù)庫管理系統(tǒng)構(gòu)建實例. 北京：清華大學(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) = 一級報警 ElseIf Val((ntemp)) Val((falarm)) Then (nstate) = 正常 End If If Val((ntemp)) Val((salarm)) Then flagf = True (nstate) = 二級報警 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 串行端口成功打開 = 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 請先關(guān)閉串行端口ElseIf = False Then = + 1End IfEnd SubPrivate Sub cb3_Click()If = True ThenMsgBox 請先關(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 請先關(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 請先關(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號-1