【導(dǎo)讀】當(dāng)前，PLC控制系統(tǒng)已經(jīng)被廣泛應(yīng)用于各個(gè)行業(yè)?；仡橮LC發(fā)展的歷史，它的產(chǎn)生得益于集成電路制造技術(shù)和微處理器技術(shù)的發(fā)展。最初，PLC大部分都。大系統(tǒng)配置的靈活性。紀(jì)80年代起，PLC產(chǎn)品也開始逐漸支持連續(xù)量的控制?？删幊炭刂破饕云涓呖煽啃?，配置靈活和完善的功能，在工業(yè)控制系統(tǒng)。修改等功能，PLC卻不能直接方便地提供。面，這恰恰是PLC的不足。因此，在自動(dòng)化領(lǐng)域，計(jì)算機(jī)已經(jīng)成為控制系統(tǒng)的首。應(yīng)用范圍也會(huì)受到現(xiàn)場(chǎng)條件、響應(yīng)速度等因素的限制。VisualBasic對(duì)界面、圖形圖象、多媒體以及操作控制系統(tǒng)都有強(qiáng)大的支持。產(chǎn)調(diào)度中心，進(jìn)行實(shí)時(shí)監(jiān)測(cè)及報(bào)警顯示。超限報(bào)警，以避免水泵和電機(jī)損壞。PLC的數(shù)字量輸入模塊將各種開關(guān)量信號(hào)采。集到PLC中作為邏輯處理的條件和依據(jù)，控制排水泵的啟停。備進(jìn)行有效、準(zhǔn)確正常控制操作和對(duì)故障、事故進(jìn)行正確及時(shí)處理。電機(jī)溫度以及真空管壓力等進(jìn)行動(dòng)態(tài)顯示、超限報(bào)警，以提醒工作人員及時(shí)檢修，用計(jì)算機(jī)將操作指令傳至PLC，控制水泵運(yùn)行。

　　

【正文】 _tolerance (x, 0)(x, pBoxHeight) Next Else For x = 0 To pBoxWidth 1 Step ((pBoxWidth 1) /(VertSplits + 1)) const_tolerance (x, 0)(x, pBoxHeight) Next End If For y = 0 To pBoxHeight 1 Step ((pBoxHeight 1) / (HorzSplits + 1)) const_tolerance (0, y)(pBoxWidth, y) Next If GridPosition = Int((pBoxWidth 1 / (HorzSplits + 1))) Then 39。網(wǎng)格復(fù)位 GridPosition = 0 End If End If If StartPosition = pBoxWidth 1 Then = LineColor Select Case DiagramType Case TYPE_LINE For l = StartPosition + 1 To pBoxWidth 2 (l, ValueArray(l))(l + 1, ValueArray(l + 1)) Next Case TYPE_POINT For l = StartPosition + 1 To pBoxWidth 2 (l + 1, ValueArray(l + 1)) Next End Select End If End Sub (3) 歷史趨勢(shì)曲線與實(shí) 時(shí)趨勢(shì)曲線的區(qū)別在于 ,實(shí)時(shí)趨勢(shì)顯示的數(shù)據(jù)點(diǎn)是在離散的采樣時(shí)間采集到的變量值 , 而歷史趨勢(shì)曲線是與一段時(shí)間內(nèi)若干采樣數(shù)據(jù)有關(guān)。它反映的是 , 某個(gè)或多個(gè)監(jiān)測(cè)點(diǎn)在過去一段時(shí)間的變化趨勢(shì) , 通常不需要實(shí)時(shí)的移動(dòng)，所以網(wǎng)格不需要再移動(dòng)。本系統(tǒng)中水位的歷史曲線只起到留給運(yùn)行人員進(jìn)行對(duì)地下涌水量進(jìn)行分析，并且由水位曲線歷史趨勢(shì)來預(yù)測(cè)將來水位走向，掌握礦井地下涌水規(guī)律。同時(shí)，運(yùn)行人員結(jié)合 井下用電負(fù)荷的高、低峰和供電部門所規(guī)定的平段、谷段、峰段供電電價(jià)時(shí)間段等因素，合理調(diào)度水泵，控制在用電低峰和一天中電價(jià)最低時(shí)開啟水泵，用電 高峰和電價(jià)高時(shí)停止水泵運(yùn)行，以達(dá)到避峰填谷及節(jié)能的目的。 怎樣繪制長時(shí)間段歷史歷史曲線呢？在這里 設(shè)歷史曲線一分鐘存儲(chǔ)一個(gè)數(shù)據(jù)，并設(shè)一個(gè)像素點(diǎn)畫一小段直線，因此對(duì)于 16 小時(shí)的曲線，圖片的寬度為 960 Pixel(像素 )，而對(duì)于 4 個(gè)小時(shí)的曲線，則 4 個(gè)像素點(diǎn)畫一小段直線，具體設(shè)置如下： = 1 : = False = 960 : = 120 由于運(yùn)用的繪制曲線的原理是一樣的，這里不在說明，詳細(xì)程序請(qǐng)參考附錄部分。 3． 6 表盤顯示窗體 (freLogin) 圖 310 frfLogin 窗體 在本窗體中根據(jù)工程要求在 PictureBox 繪圖方法繪制電壓表、電流表、壓力表以及溫度表，數(shù)據(jù)值的顯示可以采用表針轉(zhuǎn)動(dòng)來指示當(dāng)前某個(gè)儀器運(yùn)行參數(shù)，同時(shí)使用 Label 控件實(shí)時(shí)顯示被監(jiān)測(cè)點(diǎn)的數(shù)據(jù)。在窗體右下腳安置了五臺(tái)水泵轉(zhuǎn)換按鈕，按鈕上面的電壓、電流、壓力和溫度分別對(duì)應(yīng)當(dāng)前所測(cè)儀器報(bào)警情況。同主窗體一樣設(shè)置了菜單和界面轉(zhuǎn) 換按鈕， 界面如上圖 310 所示。 3． 6． 1 界面設(shè)計(jì) 在實(shí)際工程中，人們根據(jù)習(xí)慣要求在監(jiān)控界面上不僅能及時(shí)得到現(xiàn)場(chǎng)數(shù)據(jù)，并且希望能直觀看到一些數(shù)據(jù)象實(shí)際中一樣，通過模擬表盤顯示。下面是繪制表盤的窗體及控件的屬性設(shè)置如表 36 所示。 Form Name FreLogin BorderStyle 1— Fixed Single Caption 水位顯示 KeyPreview False ShowInTaskbar True StartUpPosition 0— 手動(dòng) WindowState 0— Normal CommandButter Name Command1 Caption 工程概況 CommandButter Name Command2 Caption 流程顯示 CommandButter Name Command3 Caption 水位顯示 CommandButter Name Command4 Caption 表盤顯示 CommandButter Name Command5 Caption 退 出 CommandButter Name Command6 Caption 泵 1 CommandButter Name Command7 Caption 泵 7 CommandButter Name Command8 Caption 泵 8 CommandButter Name Command9 Caption 泵 9 CommandButter Name Command10 Caption 泵 10 Label Name Label1 Caption 超高位 Label Name Label2 Caption 高水位 Label Name Label3 Caption 低水位 Label Name Label4 Caption 超低位 Label Name Label5 Caption 最新十六小時(shí)水位顯示 Label Name Label6 Caption 最新四小時(shí)水位顯示 Label Name Label7 Caption 最新一小時(shí)水位顯示 Label Name Labe18 Caption 最新十五分鐘水位顯示 Label Name Labe19 Caption 報(bào)警 PictureBox Name Picture_point2 BackColor H00E0E0E0 PictureBox Name Picture_point BackColor H00E0E0E0 PictureBox Name Picture_Line2 BackColor H00E0E0E0 PictureBox Name Picture_Line BackColor H00E0E0E0 Shape Name Shape1 BackColor amp。H80000005amp。 BorderColor amp。H00000000amp。 BorderStyle 1— Solid FillColor amp。H00FFFFFFamp。 FillStyle 0— Solid Shape 3— Circle Shape Name Shape2 BackColor amp。H80000005amp。 BorderColor amp。H00000000amp。 BorderStyle 1— Solid FillColor amp。H00FFFFFFamp。 FillStyle 0— Solid Shape 3— Circle Shape Name Shape1 BackColor amp。H80000005amp。 BorderColor amp。H00000000amp。 BorderStyle 1— Solid FillColor amp。H00FFFFFFamp。 FillStyle 0— Solid Shape 3— Circle Shape Name Shape1 BackColor amp。H80000005amp。 BorderColor amp。H00000000amp。 BorderStyle 1— Solid FillColor amp。H00FFFFFFamp。 FillStyle 0— Solid Shape 3— Circle Timer1 Interval 1000 Enabled False Timer2 Interval 4000 Enabled False Timer13 Interval 16000 Enabled False Timer4 Interval 64000 Enabled False 表 371 frfLogin 表 單的控件 3． 6． 2 主要功能設(shè)計(jì) 各種設(shè)備的運(yùn)行狀態(tài)也是工程測(cè)量上必不可少的測(cè)量參數(shù)，如電機(jī)的電壓、電流，水泵的軸溫以及真空管壓力，這些都是關(guān)系到安全生產(chǎn)大計(jì)。 (1) 礦井主排水系統(tǒng)有五臺(tái)水泵，如果每個(gè)水泵都要同時(shí)顯示電壓、電流值以及軸溫，這會(huì)給計(jì)算機(jī)資源帶來極大浪費(fèi)。同時(shí)， 圖 311 電壓表繪制和顯示流程圖 由于計(jì)算機(jī)屏幕限制也不可能做到這一點(diǎn)。根據(jù)這五臺(tái)水泵工作的額定電壓、額定電流以及額定軸溫相同，系統(tǒng)在設(shè)計(jì)時(shí)巧妙的安排了五臺(tái)水泵轉(zhuǎn)換按鈕，運(yùn)行人員 只要按下想要測(cè)試的某臺(tái)水泵，那么系統(tǒng)將會(huì)顯示這臺(tái)水泵的電壓、電流和軸溫，如果超出額定工作值右邊作出相應(yīng)報(bào)警顯示，以及時(shí)通知運(yùn)行人員故障地點(diǎn)和故障性質(zhì)。以電壓表為例，程序流程如上圖 311 所示。 表盤繪制方法相同，它們只是繪圖起始點(diǎn)和終止點(diǎn)不同。故電流表、壓力表、溫度表繪制過程這里不在說明，讀者如果有興趣，可以查閱附錄程序部分。 (2) 電壓表繪制主要程序和注釋如下： 39。電壓表 With Picture1 .Cls 39。標(biāo)出原點(diǎn) picH1 = .Height + 2800 picW1 = .Width 39?？潭染€寬 .DrawWidth = 1 39?？潭染€顏色 .ForeColor = vbBlue 39。這是畫刻度 For i = 0 To 10 39。表盤的弧度 A1 = (5 / 6) * pi (i / 15) * pi (picW1 / 2 R1 * Cos(A1), picH1 / 2 R1 * Sin(A1))(picW1 / 2 (R1 + 200) * Cos(A1), picH1 / 2 (R1 + 200) * Sin(A1)) 39。刻度線的相對(duì)坐標(biāo) .CurrentY = 180 .CurrentX = 100 39。標(biāo)出刻度 10 i Next i 39。表盤外弧線寬 .DrawWidth = 3 39。畫出表盤外弧 (picW1 / 2, picH1 / 2), R1, , pi / 6, 5 * pi / 6 39。表盤內(nèi)弧線寬 .DrawWidth = 1 39。內(nèi)弧顏色 .ForeColor = vbRed 39。畫出表盤內(nèi)弧 (picW1 / 2, picH1 / 2), R1 150, , pi / 6, 5 * pi / 6 39。文本框顯示所測(cè)數(shù)據(jù) Label1(0).Caption = 39。根據(jù)所測(cè)數(shù)據(jù)求出指針?biāo)诘幕《? B1 = (5 / 6) * pi ((10 / 10) / 15) * pi 39。指針寬度 .DrawWidth = 2 39。指針顏色 .ForeColor = vbBlack 39。畫指針 (picW1 / 2, picH1 / 2)(picW1 / 2 R1 * Cos(B1), picH1 / 2 R1 * Sin(B1)) .DrawWidth = 8 39。針尾所在端點(diǎn) (picW1 / 2, picH1 / 2), 60 End With 3． 7 模塊和類模塊設(shè)計(jì) 同其他程序語言一樣， Visual Basic 也有不足的地方。在應(yīng)用中當(dāng)希望程序能夠?qū)崿F(xiàn)某個(gè)功能，而 Visual Basic 又沒有該功能時(shí)，只好自己編制該段程序代碼，這種一段段的程序代碼稱之為子函數(shù)（或函數(shù)）。在 Visual Basic 中，通常將這些程序代 碼的集合放在一起，而以一個(gè)擴(kuò)展名稱為 .bas 或 .cls 的文件存儲(chǔ)起來，這個(gè)文件被稱為模塊或類模塊，而在模塊或類模塊內(nèi)的函數(shù)可以被同一工程的其他函數(shù)或程序所調(diào)用（除非此函數(shù)特別被聲明為 Private）。 3． 7． 1 增加模塊和類模塊 圖 312 模塊添加 Visual B