vb電壓采集系統(tǒng)設(shè)計(jì)論-資料下載頁(yè)
2025-06-03 05:56本頁(yè)面
【正文】 9。 Next h = True = True End Sub Private Sub Command3_Click() Dim sql As String Dim rs As Recordset Dim db As Database Dim i As Integer Dim l As Integer Dim xianlu As String xianlu = InputBox(請(qǐng)輸入所要查看的線路： , 線路選擇窗口 ) l = Val(xianlu) If l 25 Then MsgBox 超出規(guī)定范圍，請(qǐng)重新輸入！！ , vbCritical Exit Sub End If Set db = OpenDatabase( amp。 \我的數(shù)據(jù)庫(kù) .mdb, False, False) sql = select 我的數(shù)據(jù)庫(kù) .* from 我的數(shù)據(jù)庫(kù) order by 我的數(shù)據(jù)庫(kù) .時(shí)間 Set rs = (sql, dbOpenDynaset) 39。 39。 If = 0 Then MsgBox 沒有歷史數(shù)據(jù)！ , vbCritical Exit Sub End If With MSChart1 24 .TitleText = 歷史數(shù)據(jù)曲線 .RowCount = For i = 1 To .Row = i .data = (線路 + xianlu) .RowLabel = (時(shí)間 ) Next i End With End Sub Private Sub endCommand_Click() = False End End Sub Private Sub Form_Load() 39。 = True 39。 = False = 0 = Time() = False i = 0 = True End Sub Private Sub Timer1_Timer() = 0 Dim r(0) As Byte Dim h As Integer j1 = 0 39。For h = 0 To 24 39。Text1(h) = 39。 39。Next h r(0) = amp。H50 39。r(1) = amp。H3 39。r(2) = amp。H0 25 39。r(3) = amp。H40 39。r(4) = amp。H0 39。r(5) = amp。HD 39。r(6) = amp。H85 39。r(7) = amp。HDB = r End Sub Private Sub addrecord(savedata() As Byte) Dim sql As String Dim rs As Recordset Dim db As Database Dim data1(26) As Byte For i = 0 To 24 data1(i) = savedata(i) / 10 Next i Set db = OpenDatabase( amp。 \我的數(shù)據(jù)庫(kù) .mdb, False, False) 39。表示以共享的方式打開數(shù)據(jù)庫(kù) sql = select 我的數(shù)據(jù)庫(kù) .* from 我的數(shù)據(jù)庫(kù) Set rs = (sql, dbOpenDynaset) 39。添加一組空白記錄 (1) = Time() (0) = Date For i = 2 To 26 (i) = data1(i) Next i 39。將記錄寫至數(shù)據(jù)庫(kù) End Sub Private Sub Timer2_Timer() Call addrecord(data()) End Sub Private Sub Timer3_Timer() = Time() End Sub 二．硬件說明 1） 輸入端 26 電源：接 220V 市電。 COM1：當(dāng)外接為無源輸入時(shí)的公共端，即：當(dāng) COM1 與 I I I I II I I8 任一輸入導(dǎo)通，有輸入進(jìn)入。 COM2：當(dāng)外接為有源輸入時(shí)的公共端，例如：使用第 1 輸入 輸入電流應(yīng)限制在 8mA 左右，不能超過 10mA。 串聯(lián)電阻的算法： 500108 13 ?? ?? ?VccR 例如： 24V 有源輸入， KR ? ，可 接 3K 電阻再接輸入， 24V 的地線與 COM2相連。 2） 輸出端 C5 是 OUT5 、 OUT6 公共端， C6 是 OUT7 、 OUT8 公共端 第 1 路輸出接 C OUT1， 第 2 路輸出接 C OUT2， 第 3 路輸出接 C OUT3， 第 4 路輸出接 C OUT4， 第 5 路輸出接 C OUT5， 第 6 路輸出接 C OUT6， 第 7 路輸出接 C OUT7， 第 8 路輸出接 C OUT8， 3) 指示燈說明 27 輸入八路指示，有輸入 ,燈亮 。 輸出八路指示，有輸出控制 ,燈亮。 另外中間有電源指示燈。 28 總 結(jié) 在本系統(tǒng)的開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識(shí)、經(jīng)驗(yàn)方面都存在著不足。該系統(tǒng)必然會(huì)存在一些缺陷和不足。因?yàn)閷?duì)系統(tǒng)整個(gè)設(shè)計(jì)要求不夠熟悉，在需求分析時(shí)未能做到完全滿足用戶的需求。通過對(duì)本系統(tǒng)的開發(fā)，使我了解到了許多 VB 中在課堂上老師沒有講過的知識(shí)，而且對(duì) Access 數(shù)據(jù)庫(kù)的功能又有了進(jìn)一步的了解。另外，除了以上的收獲外，在此過程中我還提高了自己的自學(xué)能力和專研能力，并且體會(huì)到了與同學(xué)合作的樂趣。真是受益 匪淺！ 29 致 謝 經(jīng)過幾個(gè)月的忙碌和學(xué)習(xí)，本次畢業(yè)論文設(shè)計(jì)已經(jīng)接近尾聲。作為一個(gè) ?？粕漠厴I(yè)設(shè)計(jì)，由于 經(jīng)驗(yàn) 的匱乏，難免有許多考慮不周全的地方，如果沒有指導(dǎo)教師的的督促指導(dǎo)，想要完成這個(gè)設(shè)計(jì)是難以想象的。在這里首先要感謝我的論文指導(dǎo)老師 包天悅老師 。 包 老師平日里工作繁多，但在我做畢業(yè)設(shè)計(jì)的每個(gè)階段中都給予了我悉心的指導(dǎo)。除了敬佩 包 老師的專業(yè)水平外， 他 的 治學(xué)嚴(yán)謹(jǐn)和科學(xué)研究的精神也是我永遠(yuǎn)學(xué)習(xí)的榜樣，并將積極影響我今后的學(xué)習(xí)和工作。最后還要感謝大學(xué) 三 年來所有的 電信系 老師，是在他們的教誨下，我喜歡上了 我們的專業(yè) ，掌握了堅(jiān)實(shí)的專業(yè)知識(shí)基礎(chǔ)，為我以后的揚(yáng)帆遠(yuǎn)航注入了動(dòng)力。 30 參考文獻(xiàn) 1． 《 Visual Basic 程序設(shè)計(jì)教程 》 劉炳文 清華大學(xué)出版社 2． 《 Visual Basic 數(shù)據(jù)庫(kù)編程》 童愛紅 北京交通大學(xué)出版社 3． 《 Visual Basic 》 北京希望電子出版社 4． 《 Visual Basic 工程師》 網(wǎng)冠科技 機(jī)械工業(yè)出版社 5．《 Visual Basic 數(shù)據(jù)庫(kù)開發(fā)自學(xué)教程 》 人民郵電出版社 6．《 VB 編程技巧 280 例》 上海科技普及出版社
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1