【正文】 Shape 2— Oval Shape Name Shape11 BackColor amp。 BorderStyle 1— Solid FillColor amp。 BorderColor amp。 FillStyle 0— Solid Shape 3— Circle Shape Name Shape7 BackColor amp。 BorderStyle 1— Solid FillColor amp。 BorderColor amp。 FillStyle 0— Solid Shape 3— Circle Shape Name Shape3 BackColor amp。 BorderStyle 1— Solid FillColor amp。畫面層次分明，結構合理，安排規(guī)范，在窗體左下部分直觀形象展示生產實際過程和系統(tǒng)運行狀態(tài)；同時兼顧工程器件運行時能直觀、形象、實時反映工作狀態(tài)，在各臺水泵和電動閥處分別設置了 Shape 控件進行閃爍顯示；右下端則是“手動”、“自動”和具有串口選擇的框架；在其上端則顯示各臺水泵故障情況和通信報警情況；并通過左上部分各水泵和電動閥控制按鈕方便切換設備以便檢修。現(xiàn)在通過 Visual Basic 實現(xiàn)這個效果。 圖 34 登錄流程圖 (2)在打開代碼窗口中應添加的主要代 碼是 cmdOK_Click 事件程序，代碼如下： 39。因為 Timer2_Timer()的事件過程反復調用，為了保留每次過程結束時的值，程序中用到靜態(tài)變量語句(Static i As Integer)，即將變量 i 定義為整型靜態(tài)變量。設置時間 = 800 使兩個時鐘按一定規(guī)律打開。系統(tǒng)的整體流程如圖 31 所示。 (2) 規(guī)定系統(tǒng)訪問權限。 VB 為用戶提供大量的界面元素（在 VB 中稱為控件對象），這些控件對象對于熟悉 Windows 應用程序的用戶而言是一點也不陌生，如“窗體”、“菜單”、“命令按鈕”、“工具按鈕”、“檢查框”等等，用戶只需要利用鼠標、鍵盤把這些控件對象拖動到適當?shù)奈恢茫O置它們的大小、形狀、屬性等，就可以設計出所需的應用程序界面。它是被寫在代碼窗口，以待系統(tǒng)執(zhí)行。 圖 313 VB 應用程序圖形界面 2． 1． 2 向窗體添加控件 在 Visual Basic 中，經(jīng)常要使用控件，因此簡單舉個例子介紹如何添加控件顯的很有必要。 2． 1 VB 設計 方法和 步驟 在實際的開發(fā)流程上， Visual Basic 分成兩個部分：畫面設計及程序編寫畫面設計的結果就會是未來程序執(zhí)行時使用者可以看到的樣子。 電動閘閥故障：由電動機綜保監(jiān)視閘閥電機的過載、短路、漏電、斷相等故障，并參與水泵的聯(lián)鎖控制。 （ 5） PLC 自動檢測水位信號，計算單位時間內不同水位段水位的上升速率，從而判斷礦井的涌水量，自動投入和退出水泵運行臺數(shù)，合理地調度水泵運行。 1． 1． 5 通訊設計 PLC 通過通訊接口和通訊協(xié)議，與 計算機 進行 全雙工通訊，將水泵機組的工作狀態(tài)與運行參數(shù)傳至 計算機 ，完成各數(shù)據(jù)的動態(tài)顯示；同時，操作人員也可利用 計算機 將操作指令 傳至 PLC，控制水泵運行。 1． 1． 3 自動控制 系統(tǒng)控制設計選用了日本 三菱 公司 FX2N 系列 PLC 為控制主機，該機為模塊化結構，由 PLC 機架、 CPU、數(shù)字量 I/O、模擬量輸入、電源、通訊等模塊構成。該系統(tǒng)具有運行可靠、操作方便 、自動化程度高等特點，并可節(jié)省水泵的運行費用 ?？梢暬拈_發(fā)環(huán)境、豐富的控件支持使得 Visual Basic 成為工程實踐中重要的開發(fā)工具。 隨著計算機技術的發(fā)展和成熟，計算機的應用也越來越廣泛。緒 論 當前， PLC 控制系統(tǒng)已經(jīng)被廣泛應用于各個行業(yè)。 同時計算機不僅有很強的數(shù)據(jù)處理和管理能力，而且能給用戶提供非常美觀而有易于操作的界面，這恰恰是 PLC 的不足。利用 Visual Basic 開發(fā)串行通信程序時，有兩種方法，一種是用 Windows API 函數(shù)，另一種是用 VB 支持的通信控件 MSComm 與 Windows API 函數(shù)通過調用讀寫等函數(shù)來操作串口 相比 ，使用 MSComm 控件編程方便，具有更完善的發(fā)送和接收功能。 1． 1 系統(tǒng)組成 岱莊煤礦中央泵房井下主排水泵自動化控制系 如圖 11 所示 ，整個自動控制系統(tǒng)由數(shù)據(jù)自動采集、自動輪換工作、自動控制、動態(tài)顯示及故障記錄報警和通訊接口等 5 個部分組成。 PLC 自動化控制系統(tǒng)根據(jù)水倉水位的高低、計算出單位時間內不同水位段水 位的上升速率，從而判斷礦井的涌水量 ，同時根據(jù) 井下用電負荷的高、低峰和供電部門所規(guī)定的平段、谷段、峰段供電電價時間段 以及根據(jù) 檢測井下供電電流值，計算 出的 用 電負荷率等因素，建立 合理 數(shù)學模型 ， 控制 電機 在用電低峰和一天中電價最低時開啟水泵，用電高峰和電價高 時停止水泵運行，以達到避峰填谷及節(jié)能的目的。 PLC 同時將水泵機組的運行狀態(tài)與參數(shù)經(jīng)安全生產監(jiān)測系統(tǒng)分站傳至地面生產調度監(jiān)控中心主機，與全礦井安全生產監(jiān)控系統(tǒng)聯(lián)網(wǎng)，管理人員在地面即可掌握井下主排水系統(tǒng)設備的所有檢測數(shù)據(jù)及工作狀態(tài)，又可根據(jù)自動化控制信息，實現(xiàn)井下主排水系統(tǒng)的遙測、遙控，并為礦領導提供生產決策信息。（ 6）在觸摸屏上動態(tài)監(jiān)控水泵及其附屬設備的運行狀況，實時顯示水位、流量、壓力、溫度、電流、電壓等參數(shù)，超限報警，故障點自動閃爍。 （ 9）系統(tǒng)控制具有自動、半自動和手動檢修 3 種工作方式。在現(xiàn)在的設計中，引用了大量的可視化組 件，這些可視化組件可以有效地簡化設計工作。如圖 314 所示，在【控件箱】上用鼠標雙擊【標簽】控件，將【標簽】控件 添加到窗體上，此時可以用鼠標拖動窗體上的【標簽】控件，將【標簽】控件調整到適當位置，也可以調整它的大小，進而得到滿意的結果，如圖315 所示，其他控件的添加方法相同，在下面界面設計時不再一一介紹。雙擊【窗體】控件上【命 令按鈕】控件，會彈出一個【代碼編輯器】窗口，如圖 317 所示。 2． 2． 2 事件驅動編程 Windows 操作系統(tǒng)出現(xiàn)以來，圖形化的用戶界面和多任務多進程的應用程序要求程序設計不能是單一性的，在使用 VB 設計應用程序時，必須首先確定應用程序如何同用戶進行交互。由于岱山煤礦主排水系統(tǒng)關系到全礦生產大記，確保煤礦生產安全至關重要。 3． 1 初始化窗體 (fraLogin) 運行本系統(tǒng)，將出現(xiàn)啟動窗體 (fraLogin)，如圖 32 所示。 Timer1 打開登錄界面， Timer2 順序打開“歡迎光臨”四個大字的 Label 控件。 3． 2 登錄窗體 (frbLogin) 在系統(tǒng)到達規(guī)定 時間登錄窗體自動跳出，如圖 33。取輸入的得用戶名和密碼 Dim user As String, pwd As String user = txtUser pwd = txtPwd 39。要使文字在窗口上移動，可用文本控件 Label 或 TextBox在容器控件上每隔一段時間，按一定方向移動一次移動，以造成文字移動的假象。整幅畫面考慮了人們的視覺習慣，以及工程界面約定成俗的習慣，使用者可以一目了然，操作方便、快捷，達到很好工程要求。H00FFFFFFamp。H80000005amp。H00000000amp。H00FFFFFFamp。H80000005amp。H00FFFFFFamp。H00FFFFFFamp。H80000005amp。H00FFFFFFamp。H00FFFFFFamp。同時，當運行人員疏忽大意或手誤按錯按鈕時，系統(tǒng)會自動給出要運行此過程的先決條件，使系統(tǒng)具有很好的防誤操作功能。運行 /停止 plc Dim RSStr As String Dim dat As String Dim WTim As Single 39。通信繼續(xù) = 0 39。超出時間跳出循環(huán) 39。歷史曲線可觀察過去一段時間內 水位 的變化趨勢，并供 工作 人員分析工藝 水位 的穩(wěn)定性和故障 頻繁的時間段，根據(jù)工程實際情況，系統(tǒng)設置了四個時間段：最新十五分鐘水位顯示、最新一小時水位顯示、最新四小時水位顯示、最新十六小時水位顯示中，以方便對工程實際情況和分析歷史 狀況掌握，使運行人員對將來水位變化能夠把分析和把握。H80000005amp。H00000000amp。H00FFFFFFamp。 (1) 對于每一個采樣時刻和采集數(shù)據(jù)都顯示在趨勢顯示畫面的趨勢顯示 , 常稱為實時趨勢顯示。如果最左邊已經(jīng)繪制了曲線 ,則在傳送的過 程中會超出顯示畫面的邊界而不會顯示。同時，運行人員結合 井下用電負荷的高、低峰和供電部門所規(guī)定的平段、谷段、峰段供電電價時間段等因素，合理調度水泵，控制在用電低峰和一天中電價最低時開啟水泵，用電 高峰和電價高時停止水泵運行，以達到避峰填谷及節(jié)能的目的。H80000005amp。H00000000amp。H00FFFFFFamp。 (1) 礦井主排水系統(tǒng)有五臺水泵，如果每個水泵都要同時顯示電壓、電流值以及軸溫，這會給計算機資源帶來極大浪費。標出原點 picH1 = .Height + 2800 picW1 = .Width 39。畫出表盤外弧 (picW1 / 2, picH1 / 2), R1, , pi / 6, 5 * pi / 6 39。畫指針 (picW1 / 2, picH1 / 2)(picW1 / 2 R1 * Cos(B1), picH1 / 2 R1 * Sin(B1)) .DrawWidth = 8 39。在應用中當希望程序能夠實現(xiàn)某個功能，而 Visual Basic 又沒有該功能時，只好自己編制該段程序代碼，這種一段段的程序代碼稱之為子函數(shù)（或函數(shù)）。內弧顏色 .ForeColor = vbRed 39?？潭染€顏色 .ForeColor = vbBlue 39。根據(jù)這五臺水泵工作的額定電壓、額定電流以及額定軸溫相同，系統(tǒng)在設計時巧妙的安排了五臺水泵轉換按鈕，運行人員 只要按下想要測試的某臺水泵，那么系統(tǒng)將會顯示這臺水泵的電壓、電流和軸溫，如果超出額定工作值右邊作出相應報警顯示，以及時通知運行人員故障地點和故障性質。H80000005amp。H00FFFFFFamp。H00000000amp。 3． 6 表盤顯示窗體 (freLogin) 圖 310 frfLogin 窗體 在本窗體中根據(jù)工程要求在 PictureBox 繪圖方法繪制電壓表、電流表、壓力表以及溫度表，數(shù)據(jù)值的顯示可以采用表針轉動來指示當前某個儀器運行參數(shù)，同時使用 Label 控件實時顯示被監(jiān)測點的數(shù)據(jù)。 圖 39 曲線顯示流程圖 (2)繪制曲線的主要函數(shù)如下： Public Sub RePaint() Dim x As Single Dim y As Single Dim l As Long If pBox Is Nothing Then Exit Sub End If 39。 VB 中的繪圖是以圖片框作為繪圖的標準 ， 當繪圖的點數(shù)達到圖片框的右邊界時 ,有兩種處理方式。H80000005amp。H00FFFFFFamp。H00000000amp。窗口底端安置界面轉換按鈕，方便運行人員查看其它運行參數(shù)情況。(Chr(6)+站號 +PLC 號 If Len(RSStr) 5 Then MsgBox 狀態(tài)無法改變，通訊出錯！ , vbOKOnly + vbExclamation = PLC 停止 Exit Sub End If 39。RR 控制 PLC 運行 STOP， PLC 號 系統(tǒng)默認為 FF dat = 01FFRR0 = PLC 運行 = 1 End If 39。清空發(fā)送緩沖區(qū) = 0 39。一旦系統(tǒng)發(fā)生嚴重事故，運行人員還可以通過 “ PLC 運行 /停止”控制按鈕立即停止 PLC 運行，避免重大事故發(fā)生。H80000005amp。H00FFFFFFamp。H00FFFFFFamp。H80000005amp。H00FFFFFFamp。H00FFFFFFamp。H80000005amp。H00FFFFFFamp。H00000000amp。H80000005amp。 圖 36 frdLogin 窗體 3． 4． 1 界面設計 在所有窗體中工作流程窗體最復雜，所用的控件也最多，但是經(jīng)過嚴格組織、合理安排，界面明朗層次分明、安排規(guī)范，該窗體上控件及其屬性設置如表 351所示。設置 Label 的初始位置 iStep = \ 200 = True 39。登錄成功，否則登錄失敗 If txtUser = a And txtPwd = a Then Unload