【正文】 。 2． 2． 2 事件驅(qū)動(dòng)編程 Windows 操作系統(tǒng)出現(xiàn)以來，圖形化的用戶界面和多任務(wù)多進(jìn)程的應(yīng)用程序要求程序設(shè)計(jì)不能是單一性的，在使用 VB 設(shè)計(jì)應(yīng)用程序時(shí)，必須首先確定應(yīng)用程序如何同用戶進(jìn)行交互。 第三章 界面設(shè)計(jì) 為了使運(yùn)行人員能全面、詳細(xì)的監(jiān)視礦井主排水系統(tǒng)主要設(shè)備運(yùn)行狀態(tài)；能方便、安全地對(duì)設(shè)備進(jìn)行有效的、準(zhǔn)確的正?？刂坪蛯?duì)事故進(jìn)行正確及時(shí)的處理，在界面 設(shè)計(jì)時(shí)應(yīng)做到以下幾個(gè)方面： (1) 界面切換靈活。由于岱山煤礦主排水系統(tǒng)關(guān)系到全礦生產(chǎn)大記，確保煤礦生產(chǎn)安全至關(guān)重要。并且把遙控操作裝置放在同一窗口，運(yùn)行人員 操作的迅速、快捷得到可能。 3． 1 初始化窗體 (fraLogin) 運(yùn)行本系統(tǒng)，將出現(xiàn)啟動(dòng)窗體 (fraLogin)，如圖 32 所示。 圖 32 fraLogin 窗體 3． 1． 1 界面設(shè)計(jì) 在工程中添加啟動(dòng)的窗體，命名為 ，該窗體上控件及其屬性設(shè)置如表 31 所示。 Timer1 打開登錄界面， Timer2 順序打開“歡迎光臨”四個(gè)大字的 Label 控件?！肮狻弊痔? Case 4 LblInfo(5).Visible = True 39。 3． 2 登錄窗體 (frbLogin) 在系統(tǒng)到達(dá)規(guī)定 時(shí)間登錄窗體自動(dòng)跳出，如圖 33。 Form Name FrbLogin BorderStyle 2— Sizable Caption 請(qǐng)登錄 KeyPreview False ShowInTaskbar False StartUpPosition 2— 屏幕中心 WindowState 0— Normal CommandButter Name cmdcancel Caption 取消 CommandButter Name cmdOK Caption 確定 Label Name lblLabels Index 0 Caption 用戶名： Label Name lblLabels Index 1 Caption 口令： Text Name txtPwd Locked False PsaawordChar * Text 為空 Text Name txtUser Locked False PsaawordChar 為空 Text 為空 表 32 frbLogin 表單的控件 3． 2． 2 主要功能設(shè)計(jì) 此窗體是用來區(qū)分操作員是否是合法使用者，說明如下： (1) 在彈出的窗體中用戶要分別在用戶名、口令對(duì)話框中輸入代碼，并單擊“確定”按鈕就會(huì)將輸入提交給系統(tǒng)以驗(yàn)證用戶和密碼。取輸入的得用戶名和密碼 Dim user As String, pwd As String user = txtUser pwd = txtPwd 39。在窗體下面安有界面轉(zhuǎn)換按鈕，可方便用戶在界面之間任意切換，同時(shí)窗體上方布置了象 Window 一樣的菜單，已習(xí)慣使用菜單的用戶提供方便。要使文字在窗口上移動(dòng)，可用文本控件 Label 或 TextBox在容器控件上每隔一段時(shí)間，按一定方向移動(dòng)一次移動(dòng)，以造成文字移動(dòng)的假象。循環(huán)顯示字幕 End If End If 同時(shí)窗體上方和下方分別設(shè)置了菜單畫面轉(zhuǎn)換按鈕，由于篇幅所限這里不再贅述，相應(yīng)的代碼請(qǐng)?jiān)斠姼戒洸糠帧Ｕ嬅婵紤]了人們的視覺習(xí)慣，以及工程界面約定成俗的習(xí)慣，使用者可以一目了然，操作方便、快捷，達(dá)到很好工程要求。H80000005amp。H00FFFFFFamp。H00000000amp。H80000005amp。H00FFFFFFamp。H00000000amp。H80000005amp。H00FFFFFFamp。H00000000amp。H80000005amp。H00FFFFFFamp。H00FFFFFFamp。H80000005amp。H00FFFFFFamp。H00FFFFFFamp。H80000005amp。H00FFFFFFamp。H00FFFFFFamp。H80000005amp。H00FFFFFFamp。H00FFFFFFamp。同時(shí)，當(dāng)運(yùn)行人員疏忽大意或手誤按錯(cuò)按鈕時(shí)，系統(tǒng)會(huì)自動(dòng)給出要運(yùn)行此過程的先決條件，使系統(tǒng)具有很好的防誤操作功能。為了避免人為操作帶來的故障，系統(tǒng)要求按照啟動(dòng)過程的逆過程操作，同啟動(dòng)過程一樣，違規(guī)操作時(shí)系統(tǒng)將會(huì)出現(xiàn)警告并且要求重新操作。運(yùn)行 /停止 plc Dim RSStr As String Dim dat As String Dim WTim As Single 39。RS 控制 PLC 停止 RUN， PLC 號(hào) 系統(tǒng)默認(rèn)為 FF dat = 01FFRS0 39。通信繼續(xù) = 0 39。退出主程序 Exit Sub Else 39。超出時(shí)間跳出循環(huán) 39。首先判斷通信口是否 打開 If = 0 Then MsgBox 請(qǐng)打開通信口 , vbOKOnly + vbExclamation Exit Sub 39。歷史曲線可觀察過去一段時(shí)間內(nèi) 水位 的變化趨勢(shì)，并供 工作 人員分析工藝 水位 的穩(wěn)定性和故障 頻繁的時(shí)間段，根據(jù)工程實(shí)際情況，系統(tǒng)設(shè)置了四個(gè)時(shí)間段：最新十五分鐘水位顯示、最新一小時(shí)水位顯示、最新四小時(shí)水位顯示、最新十六小時(shí)水位顯示中，以方便對(duì)工程實(shí)際情況和分析歷史 狀況掌握，使運(yùn)行人員對(duì)將來水位變化能夠把分析和把握。 圖 38 freLogin 窗體 3． 5． 1 界面設(shè)計(jì) 水位控制是本工程的關(guān)鍵所在， 實(shí)時(shí) 水位 曲線可顯示 水位的 當(dāng)前趨勢(shì)，以監(jiān)測(cè) 水位 在現(xiàn)場(chǎng) 涌水量 變化的情況下控制 水位 穩(wěn)定性 ，又根據(jù)移動(dòng)網(wǎng)格短時(shí)間內(nèi)能夠很好跟蹤曲線變化，因此系統(tǒng)采用在十五分鐘內(nèi)，隨著時(shí)間推移實(shí)時(shí)顯示水位變化趨勢(shì)。H80000005amp。H00FFFFFFamp。H00000000amp。H80000005amp。H00FFFFFFamp。H00000000amp。 (1) 對(duì)于每一個(gè)采樣時(shí)刻和采集數(shù)據(jù)都顯示在趨勢(shì)顯示畫面的趨勢(shì)顯示 , 常稱為實(shí)時(shí)趨勢(shì)顯示。本文中為實(shí)現(xiàn)水位曲線的平滑移動(dòng) ，在繪圖模塊中 定義了 RePaint 函數(shù)。如果最左邊已經(jīng)繪制了曲線 ,則在傳送的過 程中會(huì)超出顯示畫面的邊界而不會(huì)顯示。 If (ShowGrid) Then = GridColor If (MovingGrid) Then For x = GridPosition To pBoxWidth 1 Step ((pBoxWidth 1) / (VertSplits + 1)) const_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。同時(shí)，運(yùn)行人員結(jié)合 井下用電負(fù)荷的高、低峰和供電部門所規(guī)定的平段、谷段、峰段供電電價(jià)時(shí)間段等因素，合理調(diào)度水泵，控制在用電低峰和一天中電價(jià)最低時(shí)開啟水泵，用電 高峰和電價(jià)高時(shí)停止水泵運(yùn)行，以達(dá)到避峰填谷及節(jié)能的目的。同主窗體一樣設(shè)置了菜單和界面轉(zhuǎn) 換按鈕， 界面如上圖 310 所示。H80000005amp。H00FFFFFFamp。H00000000amp。H80000005amp。H00FFFFFFamp。H00000000amp。 (1) 礦井主排水系統(tǒng)有五臺(tái)水泵，如果每個(gè)水泵都要同時(shí)顯示電壓、電流值以及軸溫，這會(huì)給計(jì)算機(jī)資源帶來極大浪費(fèi)。 表盤繪制方法相同，它們只是繪圖起始點(diǎn)和終止點(diǎn)不同。標(biāo)出原點(diǎn) picH1 = .Height + 2800 picW1 = .Width 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。畫出表盤外弧 (picW1 / 2, picH1 / 2), R1, , pi / 6, 5 * pi / 6 39。文本框顯示所測(cè)數(shù)據(jù) Label1(0).Caption = 39。畫指針 (picW1 / 2, picH1 / 2)(picW1 / 2 R1 * Cos(B1), picH1 / 2 R1 * Sin(B1)) .DrawWidth = 8 39。 3． 7． 1 增加模塊和類模塊 圖 312 模塊添加 Visual Basi。在應(yīng)用中當(dāng)希望程序能夠?qū)崿F(xiàn)某個(gè)功能，而 Visual Basic 又沒有該功能時(shí)，只好自己編制該段程序代碼，這種一段段的程序代碼稱之為子函數(shù)（或函數(shù)）。指針寬度 .DrawWidth = 2 39。內(nèi)弧顏色 .ForeColor = vbRed 39。標(biāo)出刻度 10 i Next i 39?？潭染€顏色 .ForeColor = vbBlue 39。 (2) 電壓表繪制主要程序和注釋如下： 39。根據(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ì)。H00FFFFFFamp。H80000005amp。H00000000amp。H00FFFFFFamp。H80000005amp。H00000000amp。下面是繪制表盤的窗體及控件的屬性設(shè)置如表 36 所示。 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ù)。它反映的是 , 某個(gè)或多個(gè)監(jiān)測(cè)點(diǎn)在過去一段時(shí)間的變化趨勢(shì) , 通常不需要實(shí)時(shí)的移動(dòng)，所以網(wǎng)格不需要再移動(dòng)。 圖 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。隨著采樣數(shù)據(jù)的輸入 ， 顯示窗口內(nèi)顯示的曲線平移一個(gè)時(shí)間點(diǎn) ， 這相當(dāng)于顯示窗口后移一時(shí)間點(diǎn) ， 從而保證了曲線的最后一點(diǎn)的信息是最新的信息。 VB 中的繪圖是以圖片框作為繪圖的標(biāo)準(zhǔn) ， 當(dāng)繪圖的點(diǎn)數(shù)達(dá)到圖片框的右邊界時(shí) ,有兩種處理方式。H00FFFFFFamp。H80000005amp。H00000000amp。H00FFFFFFamp。H80000005amp。H00000000amp。窗體及控件及其屬性設(shè)置如表 35 所示。窗口底端安置界面轉(zhuǎn)換按鈕，方便運(yùn)行人員查看其它運(yùn)行參數(shù)情況。改變泵 1運(yùn)行狀態(tài) If = 泵 1運(yùn)行 Then Data = 01FFBW0Y001011 = 泵 1停止 Else = 01FFBW0Y001010 = 泵 1運(yùn)行 End If 39。(Chr(6)+站號(hào) +PLC 號(hào)