【正文】 Integer) ‘定義了一個(gè)名叫DrawRealLine的過(guò)程，用來(lái)繪制瓦斯?jié)舛鹊膭?dòng)態(tài)曲線 If TimeCountX 1 0 Then ((TimeCountX—1)*10，DataFromComLastX)(TimeCountX*10, DataFromComX), vbWhite 39。用Line方法，將表示上一時(shí)刻瓦斯?jié)舛戎档狞c(diǎn)與本時(shí)刻瓦斯?jié)舛戎档狞c(diǎn)用直線相連 End IfEnd SubPrivate Sub Timer1_Timer()DataFromComLast = DataFromComRandomizeDataFromCom = 3000 * Rnd ‘用一個(gè)隨機(jī)函數(shù)來(lái)模擬從串口讀來(lái)的實(shí)時(shí)值TimeCount = TimeCount + 1DrawRealLine Pic, TimeCount, DataFromCom, DataFromComLast 39。畫出實(shí)時(shí)的曲線 = Str(DataFromCom)If DataFromCom 2900 Then MsgBox 一號(hào)監(jiān)測(cè)點(diǎn)瓦斯?jié)舛瘸瑯?biāo), vbOKOnly, 警告End IfEnd SubPrivate Sub Timer2_Timer() = Hour(Now) amp。 : amp。 Minute(Now) amp。 : amp。 Second(Now)End SubPrivate Sub Timer3_Timer() = “select*from 一號(hào)監(jiān)測(cè)點(diǎn)瓦斯?jié)舛缺?where 時(shí)間 =‘ “ amp。 Hour(Now) amp。 : amp。 Minute(Now) amp。 : amp。 Second(Now) amp?！?‘ “ ‘每隔一秒將數(shù)據(jù)寫入相應(yīng)的數(shù)據(jù)庫(kù) = select*from一號(hào)監(jiān)測(cè)點(diǎn)瓦斯?jié)舛缺韜here 瓦斯?jié)舛?=39。 amp。 DataFromCom amp。 39。 = select*from 瓦斯 (時(shí)間) = Hour(Now) amp。 : amp。 Minute(Now) amp。 : amp。 Second(Now) (瓦斯?jié)舛? = DataFromCom End SubPrivate Sub Command1_Click() Unload Me End Sub Form8截圖 說(shuō)明本部分主要用來(lái)實(shí)現(xiàn)瓦斯?jié)舛惹€的動(dòng)態(tài)顯示。本部分是整個(gè)課程設(shè)計(jì)中最復(fù)雜、最繁難的部分。它涉及過(guò)程的調(diào)用圖像的繪制等多方面的知識(shí)，它需要我們有很強(qiáng)的綜合能力。在本段程序中，我編寫了多個(gè)過(guò)程，用來(lái)繪制函數(shù)圖像，事先編寫好過(guò)程程序可以使調(diào)用更方便。在本端程序中，將數(shù)據(jù)寫入數(shù)據(jù)庫(kù)的代碼是我以前沒(méi)有學(xué)過(guò)的，因此在編寫這一部分的程序時(shí)，我查閱了大量的資料，才將這一段完成。為了解決每隔一秒強(qiáng)數(shù)據(jù)庫(kù)中寫入一個(gè)數(shù)據(jù)的問(wèn)題，我將向數(shù)據(jù)庫(kù)中寫數(shù)據(jù)的語(yǔ)句放在Timer控件下，從而解決了這個(gè)問(wèn)題。 報(bào)表的顯示與打印在瓦斯?jié)舛缺砩锨逦娘@示出來(lái)各個(gè)監(jiān)測(cè)點(diǎn)在各個(gè)時(shí)間的瓦斯?jié)舛?，為報(bào)表的打印做好了基礎(chǔ)。單擊打印報(bào)表即可進(jìn)行報(bào)表的打印。Datareport控件和Dataenvironment控件的結(jié)合，實(shí)現(xiàn)報(bào)表打印，相應(yīng)數(shù)據(jù)清晰顯示。關(guān)閉報(bào)表時(shí)只需關(guān)閉報(bào)表窗口即可 。 報(bào)表的顯示在本程序中，F(xiàn)ormForm1Form15分別表示一號(hào)、二號(hào)、三號(hào)監(jiān)測(cè)點(diǎn)的瓦斯?jié)舛缺?。由于他們的程序源代碼機(jī)界面設(shè)計(jì)大體相同，所以這里將以Form10為例，進(jìn)行說(shuō)明。Form10的源代碼如下Private Sub Command1_Click() End SubPrivate Sub Command2_Click() End SubForm10截圖說(shuō)明：這里運(yùn)用到了一個(gè)很重要的控件——Data控件。它的功能與ADO控件基本相同，不過(guò)他們的設(shè)置方式略有不同。Data控件的設(shè)置方法是：將Databasename設(shè)置為所要連接的數(shù)據(jù)庫(kù)的地址，將Recordsourse屬性設(shè)置為數(shù)據(jù)庫(kù)中所要連接的表格。 報(bào)表的打印通過(guò)Datareport控件，可以很方便的實(shí)現(xiàn)報(bào)表的打印。DataReport1截圖伍 總結(jié)選題時(shí)，瓦斯報(bào)警監(jiān)控系統(tǒng)讓我眼睛一亮，首先，這是一個(gè)具有超級(jí)現(xiàn)實(shí)意義的系統(tǒng)，近年來(lái)煤礦的安全事故頻發(fā)，而這先事故的原因在很大程度上都與瓦斯?jié)舛瘸瑯?biāo)有關(guān)，因此，一個(gè)能有效監(jiān)控礦井內(nèi)瓦斯?jié)舛鹊南到y(tǒng)是很有用的；其次，這個(gè)項(xiàng)目要求一個(gè)人獨(dú)立完成，具有很強(qiáng)的挑戰(zhàn)性和鍛煉價(jià)值。因此，我選擇了這個(gè)項(xiàng)目。事實(shí)上，這個(gè)課程設(shè)計(jì)的題目的確不好做，它的核心需要數(shù)據(jù)庫(kù)知識(shí)，需要報(bào)表打印，這些內(nèi)容都是老師要求我們自學(xué)的，而最為困難的是實(shí)現(xiàn)數(shù)據(jù)已動(dòng)態(tài)曲線形式體現(xiàn)。我暗自為自己的選擇后悔，但他的困難又激發(fā)了我征服它的欲望，對(duì)他的的編程就如同是一條荊棘之路。每一點(diǎn)都需要學(xué)習(xí)因?yàn)閺奈唇佑|過(guò)數(shù)據(jù)庫(kù)、報(bào)表、實(shí)時(shí)曲線，從頭開(kāi)始。年前學(xué)的基礎(chǔ)也有部分遺忘，讓我的編程難上加難。讓我一度不知所措、急躁不安。前幾天僅僅完成了用戶的管理部分，后面的硬骨頭毫無(wú)進(jìn)展。僅僅實(shí)時(shí)動(dòng)態(tài)曲線的知識(shí)就讓我查閱了兩天。初步學(xué)會(huì)了line方法和picture box控件的使用。這次vb課程設(shè)計(jì) ，我收獲頗豐。學(xué)到了許多以前所不了解的vb知識(shí)與小竅門，譬如，以往在設(shè)計(jì)變量名時(shí)，往往只是簡(jiǎn)單的按照a b c d 的次序往下排，通過(guò)查閱許多資料，其實(shí)變量名可以完全可以按照其所代表的含義來(lái)取名，比如，Datafrom便表示來(lái)自上個(gè)串口的實(shí)時(shí)值，這在便可以減少注釋，并有效地防止在編程中犯低級(jí)錯(cuò)誤。與此同時(shí)，這一次的課程設(shè)計(jì)對(duì)于人生也有很大的啟示意義，做一件事，首先要有一個(gè)完整的規(guī)劃，并且按照規(guī)劃一步一步去做 ，不然到最后什么都做不了。我前幾天就是這樣，由于沒(méi)有完整的計(jì)劃，我做的很沒(méi)有章法，因此做的一塌糊涂。于是我從圖書館借來(lái)許多書籍，自學(xué)以前沒(méi)學(xué)過(guò)的東西。到了后幾天，編程逐漸變得順暢起來(lái)，還有了成功的喜悅。學(xué)習(xí)是永恒的，不知道的太多太多了，唯有不斷的學(xué)習(xí) 才能勝任自己的工作。這次編程，許多都是我沒(méi)有學(xué)過(guò)的，都需要自己一點(diǎn)一點(diǎn)的去學(xué)習(xí)。不懂的地方就要問(wèn)，參考文獻(xiàn)1．《visual basic程序設(shè)計(jì)》（第二版）， 王學(xué)軍 張玉梅 中國(guó)鐵道出版社課題制作人 陳 ＃ ＃ 學(xué)號(hào) 2010＃＃＃＃ 聯(lián)系電話 137第 ２９ 頁(yè) 共 29 頁(yè)