【正文】 預(yù)。數(shù)據(jù)幀由“：”開始，表示一個網(wǎng)絡(luò)節(jié)點數(shù)據(jù)的開始，其次是網(wǎng)絡(luò)節(jié)點ID，用來標(biāo)識檢測的節(jié)點通道號，然后是網(wǎng)絡(luò)節(jié)點溫度，最后“。 my_end = mcu_msg If InStr(my_end, .) Then 39。 amp。 數(shù)據(jù)庫表的創(chuàng)建首先打開Office Access 2003，點擊新建，這時右邊會出現(xiàn)你所要新建的對象。 數(shù)據(jù)庫創(chuàng)建向?qū)Ы缑孢x擇使用設(shè)計器進入數(shù)據(jù)表設(shè)計，設(shè)置字段名稱以及字段存儲類型。圖 新數(shù)據(jù)錄入 數(shù)據(jù)庫表 數(shù)據(jù)庫表介紹編號數(shù)據(jù)表名稱描述功能說明1網(wǎng)絡(luò)節(jié)點信息表網(wǎng)絡(luò)節(jié)點信息主要用于所有網(wǎng)絡(luò)節(jié)點信息存儲，比如節(jié)點溫度，節(jié)點ID等。 \) = Provider=。 = adUseClientEnd Function數(shù)據(jù)庫連接成功后，系統(tǒng)軟件就可以訪問數(shù)據(jù)庫了，但是還不能調(diào)用、修改、更新數(shù)據(jù)庫中的數(shù)據(jù)表，必須建立記錄集，建立記錄集的函數(shù)如下，記錄集與數(shù)據(jù)庫表連接成功后，就可以修改數(shù)據(jù)庫表中的數(shù)據(jù)了。Visual Basic ：1) 支持面向?qū)ο蟮某绦蛟O(shè)計（OOP）；2) 采用事件驅(qū)動方式；3) 提供對象的連接與嵌入（OLE）和訪問數(shù)據(jù)庫功能；2) Microsoft Office Access 2003簡介Microsoft Office Access 2003是由微軟發(fā)布的關(guān)聯(lián)式數(shù)據(jù)庫管理系統(tǒng)。ACCESS 2003是一個功能強大的后臺數(shù)據(jù)庫管理系統(tǒng)，以其低費用、可伸縮性、可靠性和易用性等諸多方面的優(yōu)勢，被廣大人們所喜愛。在串行通信前這個模塊完成所有串行口初始化工作，管理員設(shè)置完串行口后，打開串行口即可實現(xiàn)串行通信。 無線傳感器網(wǎng)絡(luò)溫度監(jiān)測中心無線傳感器網(wǎng)絡(luò)溫度監(jiān)測中心是整個軟件的主界面，它承載著數(shù)據(jù)庫連接，記錄集建立，串口初始化，以及圖形控件的初始化等，運行軟件后，系統(tǒng)首先初始化串行口，然后等待用戶建網(wǎng)，當(dāng)建網(wǎng)成功后，數(shù)據(jù)庫會連接成功，Datagrid與記錄集連接，并顯示記錄集所有信息。串口初始化39。接收文本型數(shù)據(jù) = 1 39。text初始化39。設(shè)置不能選中整個系列 = 15 39。新建記錄集的時候系統(tǒng)首先自動由出廠設(shè)置預(yù)設(shè)網(wǎng)絡(luò)節(jié)點初始信息，用戶也可以根據(jù)自己的需求更改。實現(xiàn)核心代碼見下：Private Sub Command1_Click()(falarm) = (salarm) = (updatetime) = Unload MeEnd Sub 報警管理()功能描述：可視化界面，管理員可以查看所有溫度超標(biāo)的節(jié)點信息，包括節(jié)點ID,節(jié)點溫度，一級報警值，二級報警值，和列表顯示報警節(jié)點信息，人性化的設(shè)計，方便管理員對報警節(jié)點統(tǒng)一管理，同時管理員可以對報警節(jié)點報警屏蔽，報警值重新設(shè)置等操作。 sql, con, 1, 1Set = my_rs2If = False And = False ThenText1(0).Text = (nid)Text1(1).Text = (ntemp)Text1(2).Text = (falarm)Text1(3).Text = (salarm)End If 軟件模擬()功能描述：可視化界面，管理員可以在沒有下位機的情況下測試軟件的功能，數(shù)據(jù)幀主要包括數(shù)據(jù)幀起始標(biāo)志，節(jié)點ID，節(jié)點溫度，數(shù)據(jù)幀結(jié)束標(biāo)志。核心代碼如下：Private Sub Timer1_Timer()If = 1 And = 1 Then cstring = : amp。 : amp。 amp。 amp。軟件仿真窗體將定時從串行口的2引腳（數(shù)據(jù)發(fā)送引腳TXD）發(fā)送數(shù)據(jù)幀，因為3引腳短接，數(shù)據(jù)直接發(fā)送到3（數(shù)據(jù)接收引腳RXD）引腳，并傳回電腦端，這時主窗體的數(shù)據(jù)字符處理模塊就正常運行，進行網(wǎng)絡(luò)節(jié)點溫度實時顯示和處理功能了，同時，管理員還可以改變模擬節(jié)點的節(jié)點ID和溫度，模擬軟件的實時顯示溫度，并在主窗體上顯示“模擬中”字樣，表示現(xiàn)在處于模擬狀態(tài)，停止模擬后，該字樣消失。4) 串行口數(shù)據(jù)接收是否正常，能正常、準確分析接收的數(shù)據(jù)，并且數(shù)據(jù)庫字段是否能搜索實時更新。 軟件模擬界面 主界面圖 點擊開始模擬和開始建網(wǎng)，建網(wǎng)成功后，圖形化顯示初始化并連接數(shù)據(jù)庫，開定時更新數(shù)據(jù)，通過模擬軟件窗體改變節(jié)點溫度，網(wǎng)路節(jié)點列表和條形圖實時顯示溫度信息（）。具體代碼如下cu_msg = Mid(mcu_msg, 2, 3)net_tem = mcu_msgMsgBox net_temCall Add_temp(0001, net_tem) 測試結(jié)果1) 在軟件的不斷啟動關(guān)閉過程中沒有出現(xiàn)死機、程序執(zhí)行效率降低等各種不良現(xiàn)象，功能的實現(xiàn)較為完善。但能對用戶的非正常操作方式能提出警告。 數(shù)據(jù)庫網(wǎng)路節(jié)點信息表1新建網(wǎng)絡(luò)節(jié)點后，記錄集一共增加為6條（），新網(wǎng)絡(luò)節(jié)點的所有相關(guān)參數(shù)也準確的設(shè)定了初始值，數(shù)據(jù)庫記錄添加無誤。通過串行口與下位機連接，接收適配器發(fā)送過來的字符數(shù)據(jù)，成功實現(xiàn)無線傳感器網(wǎng)絡(luò)溫度監(jiān)測。在畢業(yè)設(shè)計期間，導(dǎo)師李老師給予了很大的幫助和關(guān)心，李老師他對整個畢業(yè)設(shè)計要求很嚴格，但正是這種嚴格，讓我學(xué)到了曾經(jīng)遺漏和忽略的知識。 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。 appdisk amp。ElseIf = 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,2End IfEnd IfEnd SubPrivate Sub Check1_Click()