opc課程設(shè)計(jì)word版-資料下載頁(yè)
2025-06-05 09:05本頁(yè)面
【正文】 r1_Timer() Dim vtItemValues() As Variant Dim lErrors() As Long Dim strBuf As String Dim nWidth As Integer Dim nHeight As Integer Dim nDrawHeight As Integer Dim sglScale As Single Dim I As Integer Dim a As Integer 39。Dim b As Integer 39。 同期讀取 SyncRead OPCCache, vtItemValues, lErrors 39。 棒圖的表示 For I = 1 To 2 39。 數(shù)據(jù)的格式化 strBuf = Format(vtItemValues(I), .000) 39。 表示數(shù)據(jù)字符串 lbBar(I).Caption = strBuf 39。 計(jì)算棒的寬和高 北京科技大學(xué)自動(dòng)化學(xué)院 課程設(shè)計(jì)（軟件設(shè)計(jì)）報(bào)告 xvii nWidth = Picture1(I).ScaleWidth nHeight = Picture1(I).ScaleHeight sglScale = vtItemValues(I) / 700 nDrawHeight = CInt(nHeight * sglScale) 39。 清除現(xiàn)棒圖 Picture1(I).Cls 39。 繪制棒 圖 Picture1(I).Line (0, nHeight nDrawHeight)(nWidth, nHeight), _ RGB(255, 0, 0), BF Next 39。 指示警戒值，警戒值以上改變顯示顏色 If lbBar(1).Caption 50 Or lbBar(2).Caption 80 Then = 出現(xiàn)異常！ Else: = 正在觀測(cè)！ End If If lbBar(1).Caption 50 Then = 溫度過(guò)高！ Picture1(1).Line (0, nHeight nDrawHeight)(nWidth, nHeight), _ RGB(255, 0, 0), BF End If If lbBar(1).Caption 50 Then = 溫度平穩(wěn)！ Picture1(1).Line (0, nHeight nDrawHeight)(nWidth, nHeight), _ RGB(0, 255, 0), BF 北京科技大學(xué)自動(dòng)化學(xué)院 課程設(shè)計(jì)（軟件設(shè)計(jì)）報(bào)告 xviii End If If lbBar(2).Caption 80 Then = 液面過(guò)高！ Picture1(2).Line (0, nHeight nDrawHeight)(nWidth, nHeight), _ RGB(255, 0, 0), BF End If If lbBar(2).Caption 80 Then = 液面平穩(wěn) ！ Picture1(2).Line (0, nHeight nDrawHeight)(nWidth, nHeight), _ RGB(0, 255, 0), BF End If = Now 39。a = a + 1 39。b = a * 39。 = 已觀測(cè)時(shí)間 : + Trim(b) + 秒 End Sub （ 1）總結(jié)： 本次課程設(shè)計(jì)的任務(wù)以 VB 設(shè)計(jì)的界面顯示從模擬 OPC 服務(wù)器接收到的數(shù)據(jù)，顯示 的同時(shí)增加一些其他的功能，結(jié)果也表明，本次課程設(shè)計(jì)的設(shè)計(jì)任務(wù)得到了很好的完成。 （ 2）體會(huì)： 1）通過(guò)這次實(shí)驗(yàn)，進(jìn)一步認(rèn)識(shí)了 OPC 服務(wù)器在工業(yè)過(guò)程控制中的應(yīng)用價(jià)值和優(yōu)勢(shì)，數(shù)據(jù)的異步同步讀取方法和處理，對(duì)今后的工作都將是一個(gè)很大的幫助。 北京科技大學(xué)自動(dòng)化學(xué)院 課程設(shè)計(jì)（軟件設(shè)計(jì)）報(bào)告 xix 2）本次課程設(shè)計(jì)所使用的工具為 Micrisoft Visual Basic ，這一軟件在可視化的開(kāi)發(fā)和應(yīng)用領(lǐng)域應(yīng)用面很廣，之前也曾經(jīng)作為一門選修課學(xué)習(xí)過(guò)，這次通過(guò)和 OPC 服務(wù)器應(yīng)用結(jié)合，極大地鍛煉了自己運(yùn)用 VB 開(kāi)發(fā)可視化界面的能力和經(jīng)驗(yàn)。 3）本次課程設(shè)計(jì)三人一組自由組 合，大家可以根據(jù)自己的想法選擇組員。在小組內(nèi)部大家集思廣益同時(shí)也有著明確的分工，鍛煉了自己的團(tuán)隊(duì)合作意識(shí)，增長(zhǎng)了才干。
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1