vb電壓采集系統(tǒng)設(shè)計(jì)論文-資料下載頁
2025-01-18 12:54本頁面
【正文】 i + j1) = receivedata(i) Next i j1 = j1 + 1Case Else = False = TrueEnd SelectFor j = 0 To 24Text1(j) = data(j) / 10Next jEnd SubPrivate Sub Command1_Click()End SubPrivate Sub Command2_Click()Dim h As IntegerFor h = 0 To 24Text1(h) = 39。Next h = True = TrueEnd SubPrivate Sub Command3_Click()Dim sql As StringDim rs As RecordsetDim db As DatabaseDim i As IntegerDim l As IntegerDim xianlu As Stringxianlu = InputBox(請(qǐng)輸入所要查看的線路：, 線路選擇窗口)l = Val(xianlu)If l 25 ThenMsgBox 超出規(guī)定范圍，請(qǐng)重新輸入！！, vbCriticalExit SubEnd IfSet db = OpenDatabase( amp。 \, False, False)sql = select 我的數(shù)據(jù)庫.* from 我的數(shù)據(jù)庫 order by Set rs = (sql, dbOpenDynaset)39。39。If = 0 ThenMsgBox 沒有歷史數(shù)據(jù)！, vbCriticalExit SubEnd IfWith MSChart1.TitleText = 歷史數(shù)據(jù)曲線.RowCount = For i = 1 To .Row = i.data = (線路 + xianlu).RowLabel = (時(shí)間)Next iEnd WithEnd SubPrivate Sub endCommand_Click() = FalseEndEnd SubPrivate Sub Form_Load() 39。 = True39。 = False = 0 = Time() = Falsei = 0 = TrueEnd SubPrivate Sub Timer1_Timer() = 0Dim r(0) As ByteDim h As Integerj1 = 039。For h = 0 To 2439。Text1(h) = 39。39。Next hr(0) = amp。H5039。r(1) = amp。H339。r(2) = amp。H039。r(3) = amp。H4039。r(4) = amp。H039。r(5) = amp。HD39。r(6) = amp。H8539。r(7) = amp。HDB = rEnd SubPrivate Sub addrecord(savedata() As Byte)Dim sql As StringDim rs As RecordsetDim db As DatabaseDim data1(26) As ByteFor i = 0 To 24 data1(i) = savedata(i) / 10Next iSet db = OpenDatabase( amp。 \, False, False) 39。表示以共享的方式打開數(shù)據(jù)庫sql = select 我的數(shù)據(jù)庫.* from 我的數(shù)據(jù)庫Set rs = (sql, dbOpenDynaset) 39。添加一組空白記錄(1) = Time()(0) = Date For i = 2 To 26 (i) = data1(i) Next i 39。將記錄寫至數(shù)據(jù)庫End SubPrivate Sub Timer2_Timer()Call addrecord(data())End SubPrivate Sub Timer3_Timer() = Time()End Sub二．硬件說明1）輸入端電源：接220V 市電。COM1：當(dāng)外接為無源輸入時(shí)的公共端，即：當(dāng)COM1與IIIIIIII8任一輸入導(dǎo)通，有輸入進(jìn)入。COM2：當(dāng)外接為有源輸入時(shí)的公共端，例如：使用第1輸入輸入電流應(yīng)限制在8mA左右，不能超過10mA。串聯(lián)電阻的算法：例如：24V有源輸入，可接3K電阻再接輸入，24V的地線與COM2相連。2）輸出端C5是 OUT5 、 OUT6 公共端，C6是 OUT7 、 OUT8公共端第1路輸出接COUT1，第2路輸出接COUT2，第3路輸出接COUT3，第4路輸出接COUT4，第5路輸出接COUT5，第6路輸出接COUT6，第7路輸出接COUT7，第8路輸出接COUT8，3) 指示燈說明 輸入八路指示，有輸入,燈亮。 輸出八路指示，有輸出控制,燈亮。 另外中間有電源指示燈。總 結(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ù)庫的功能又有了進(jìn)一步的了解。另外，除了以上的收獲外，在此過程中我還提高了自己的自學(xué)能力和專研能力，并且體會(huì)到了與同學(xué)合作的樂趣。真是受益匪淺！致 謝經(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)力。參考文獻(xiàn)1．《Visual Basic 程序設(shè)計(jì)教程》 劉炳文 清華大學(xué)出版社2．《Visual Basic數(shù)據(jù)庫編程》 童愛紅 北京交通大學(xué)出版社3．《Visual Basic 》 北京希望電子出版社4．《Visual Basic 》 網(wǎng)冠科技 機(jī)械工業(yè)出版社5．《Visual Basic數(shù)據(jù)庫開發(fā)自學(xué)教程》 人民郵電出版社6．《VB編程技巧280例》 上?？萍计占俺霭嫔?0
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1