基于卡爾曼濾波的目標(biāo)跟蹤研究畢業(yè)設(shè)計(jì)-資料下載頁(yè)
2025-06-27 19:53本頁(yè)面
【正文】 停止。一開(kāi)始保存數(shù)據(jù)的路徑我設(shè)置的是J:\Documents and Settings\lj\桌面\魯東大學(xué)\編程\，由于這是絕對(duì)路徑，所以它只在我編程用的電腦上好用，如果換了電腦就要修改程序的路徑，很不方便。 amp。 \ amp。 ，不過(guò)一開(kāi)始的時(shí)候程序改了還是不能運(yùn)行，最后我又上網(wǎng)下了一點(diǎn)相對(duì)路徑方面的知識(shí)，終于發(fā)現(xiàn)了自己的錯(cuò)誤，改相對(duì)路徑的時(shí)候“”必須和程序在同一個(gè)文件夾里。 系統(tǒng)方案設(shè)計(jì)的窗體界面此界面是在老師的幫助下一步步改進(jìn)和完善的，基本完成了設(shè)計(jì)要求的任務(wù)。程序運(yùn)行過(guò)程中通過(guò)觀察軟件界面上溫度數(shù)據(jù)的變化規(guī)律,操作人員可以對(duì)當(dāng)前正在進(jìn)行的實(shí)驗(yàn)情況有一個(gè)清楚的了解，這也有助于逼真、形象的顯示采集的溫度數(shù)據(jù)。圖5 程序窗體界面圖6 代碼程序圖7 運(yùn)行所采集的畫(huà)面6 小節(jié)本界面顯示系統(tǒng)采用總體到局部，逐步完善的方法，用硬件描述語(yǔ)言VB完成。該系統(tǒng)界面清晰，模塊分明，易于實(shí)現(xiàn)溫度數(shù)據(jù)采集、顯示和保存等功能。但是本系統(tǒng)也有不足的地方，就是串口選擇不太完善，數(shù)據(jù)的保存不能達(dá)到我所期望的目標(biāo)，我期望的是當(dāng)數(shù)據(jù)發(fā)生變化時(shí)自動(dòng)保存一次，并且有時(shí)間顯示，我們可以了解到溫度在何時(shí)發(fā)生變化的，這有待改進(jìn)?？傮w上說(shuō)，本設(shè)計(jì)系統(tǒng)能夠?qū)崿F(xiàn)溫度數(shù)據(jù)采集、顯示和保存的基本功能，能夠較好的進(jìn)行功能擴(kuò)展。參考文獻(xiàn)：[1] 崔武子，齊華山，于寧．界面設(shè)計(jì)與Visual Basic[M]．北京：清華大學(xué)出版社，2004[2] 唐大仕．Visual Basic程序設(shè)計(jì)[M]．北京：清華大學(xué)出版社，2003[3] 邊海龍，賈少華．[M]．北京：人民郵電出版社，2004[4] 仵浩，齊燕杰．Visual Basic串口通信工程開(kāi)發(fā)實(shí)例導(dǎo)航[M]．北京：人民郵電出版社，2002．[5] 范逸之，陳立元，孫德?tīng)I(yíng)．利用Visual Basic實(shí)現(xiàn)串并行通信技術(shù)[M]．北京：清華大學(xué)出版社，2001[6] 李光忠．基于單片機(jī)的溫濕度檢測(cè)系統(tǒng)的設(shè)計(jì)[D]．濟(jì)南：山東大學(xué)，2007.[7] 曹真貫．基于USB接口的數(shù)據(jù)采集系統(tǒng)的設(shè)計(jì)[D]．淮南：安徽理工大學(xué)，2006[8] 于克龍，畢小龍，邱立峻．?dāng)?shù)組溫度傳感器DS18B20的應(yīng)用[J].Machine Building amp。 Automation，2004，33(2) ：4749.[9] 程安宇，孫士民，徐洋．基于DS18B20的單片機(jī)溫度測(cè)量控制系統(tǒng)[J].自動(dòng)測(cè)量與控制，2007，26（2）[10] 潘笑，高玉玲，康亞娜．基于模糊PID 的AT89C2051單片機(jī)智能溫度控制系統(tǒng)[J]. 兵工自動(dòng)化，2006，3（5）：6567.[11] 基于DS18B20數(shù)字溫度傳感器的設(shè)計(jì)與實(shí)現(xiàn)[12] DS18B20數(shù)字溫度傳感器應(yīng)用詳解 [13] 金偉正．單線數(shù)字溫度傳感器的原理及應(yīng)用[J ]．電子技術(shù)應(yīng)用，2000 ，3 （6）：9296 致謝論文在軟件編程設(shè)計(jì)和寫作的過(guò)程中，周XX老師給我提供了相關(guān)資料，多次詢問(wèn)設(shè)計(jì)進(jìn)程，幫助我開(kāi)拓設(shè)計(jì)思路。而且每周三傍晚都會(huì)組織我們開(kāi)會(huì)，幫助我們解決實(shí)際過(guò)程中遇到的一些問(wèn)題，還對(duì)我們已完成的一些設(shè)計(jì)要求提出更完善的建議，在此非常感謝周老師。在做程序調(diào)試的時(shí)候，周老師又不厭其煩的一次次幫我看程序、給我指導(dǎo)，同時(shí)還在思想、生活上給我以無(wú)微不至的關(guān)懷，令我很感動(dòng)。周老師淵博的學(xué)識(shí)、嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神、靈活的思維方式、耐心細(xì)致的言傳身教、無(wú)私的奉獻(xiàn)精神及精益求精的工作作風(fēng)使我深受的啟迪。從尊敬的導(dǎo)師身上，我不僅學(xué)到了扎實(shí)、寬廣的專業(yè)知識(shí)，也學(xué)到了做人的道理，在此我要向我的導(dǎo)師致以最衷心的感謝和深深的敬意。另外還要感謝在論文的軟件編程設(shè)計(jì)過(guò)程中給予我指導(dǎo)、幫助的李XX和王XX同學(xué)，他們那種刻苦認(rèn)真、勤奮進(jìn)取的精神讓我學(xué)到了很多。同時(shí)特別感謝我的班主任印XX老師這四年來(lái)對(duì)我的關(guān)心和幫助，感謝父母對(duì)我二十多年來(lái)辛勤的養(yǎng)育!最后，我要向在百忙之中抽時(shí)間對(duì)本文進(jìn)行審閱、評(píng)議和參加本人論文答辯的各位老師表示感謝！ 附錄：部分關(guān)鍵源程序代碼39?？刂茰y(cè)溫按扭Private Sub Command1_Click()If = 停止測(cè)溫 Then = False 39。關(guān)閉串口 = 開(kāi)始測(cè)溫Else = True 39。打開(kāi)串口 = 停止測(cè)溫End IfEnd Sub39。退出系統(tǒng)Private Sub Command2_Click()Unload MeEnd Sub39。數(shù)據(jù)保存與停止Private Sub Command3_Click()If = 保存數(shù)據(jù) ThenOpen amp。 \ amp。 For Append As 1 39。相對(duì)路徑 = 停止保存ElseClose 1 39。關(guān)閉 = 保存數(shù)據(jù)End IfEnd Sub39。初始化代碼Private Sub Form_Load() = 4 39。設(shè)置串口4 = 19200,n,8,1 39。波特率19200bit/s, 無(wú)校驗(yàn), 8位數(shù)據(jù)， 1位停止位 = 0 39。讀取接收緩沖區(qū)的所有字符 = 1024 39。設(shè)置接收緩沖區(qū)為1024字節(jié) = 512 39。設(shè)置發(fā)送緩沖區(qū)為512字節(jié) = True 39。打開(kāi)串口 = 0 39。不觸發(fā)發(fā)送事件 = 1 39。每個(gè)字符到接收緩沖區(qū)都觸發(fā)接收事件 = 0 39。清除發(fā)送緩沖區(qū)數(shù)據(jù) = 0 39。清除接收緩沖區(qū)數(shù)據(jù) = 39。清空接收文本框End Sub39。接收數(shù)據(jù)Private Sub msm_onm() Dim str, numb As String Select Case 39。 檢驗(yàn)串口事件 39。錯(cuò)誤處理 Case EventOverrun 39。數(shù)據(jù)丟失 = 39。清空接收緩沖區(qū) Exit Sub Case EventRxOver 39。接收緩沖區(qū)溢出 = 39。清空接收緩沖區(qū) Exit Sub Case EventTxFull 39。發(fā)送緩沖區(qū)滿 = 39。清空接收緩沖區(qū) Exit Sub 39。事件處理 Case EvReceive 39。接收緩沖區(qū)內(nèi)有數(shù)據(jù) str = 39。從接受隊(duì)列中讀入字符串 End Select If str = NO Devic Then str = = 沒(méi)有檢測(cè)到感溫元件 End If If str = e Then str = = 沒(méi)有檢測(cè)到感溫元件 End If If str = p Then str = = + 39。讀出字符串送顯 End If If str = n Then str = = 39。讀出字符串送顯 End If = + str 39。讀出字符串送顯End Sub39。時(shí)間設(shè)置Private Sub Timer1_Timer() = Now()If = 停止保存 ThenPrint 1, , End IfEnd Sub20
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1