【正文】 發(fā)布。1998 年 Visual 發(fā)布。Visual Basic 已經(jīng)是一款非常成熟和穩(wěn)定的開發(fā)系統(tǒng)，微軟把 Visual 作為 visual studio 的一員發(fā)布的，這表明微軟在改變 VB 的產(chǎn)品定位，成為大規(guī)模企業(yè)開發(fā)的利器。在 中微軟加入了 ado 數(shù)據(jù)訪問模型，使大數(shù)據(jù)量快速訪問成為可能，提高了 VB 對 n 層結(jié)構(gòu)的分布式應(yīng)用程序的開發(fā)能力，同時(shí)微軟也為 VB 加入了開發(fā) web 應(yīng)用程序的能力。2022 年 Visual 誕生。這是 VB 的又一次革命， 新增了許多功能， 不能實(shí)現(xiàn)繼承，因此一直被 c++程序員指責(zé)為偽面向?qū)ο笳Z言， 還支持多線程，引入了 try…catch 結(jié)構(gòu)異常化處理。 Visual basic 的主要特點(diǎn) 向 對 象 的 可 視 化 程 序 設(shè) 計(jì)傳 統(tǒng) 的 結(jié) 構(gòu) 化 語 言 ， 如 BASIC、 Pascal 和 C 等 都 是 采 用 面 向 過 程 的 編 程 方 法 。在 這 些 方 法 中 ， 代 碼 和 數(shù) 據(jù) 具 有 很 大 的 分 離 性 、 可 維 護(hù) 性 很 差 。 Visual basic 采用 了 面 對 對 象 的 設(shè) 計(jì) 方 法 （ OOP） ， 這 種 方 法 是 把 程 序 和 數(shù) 據(jù) 封 裝 在 一 個(gè) 類 中 ， 類 的實(shí) 例 就 是 對 象 。 每 個(gè) 對 象 都 是 可 視 化 的 。 設(shè) 計(jì) 程 序 時(shí) 只 需 用 現(xiàn) 有 的 工 具 根 據(jù) 要 求 直 接26拖 出 所 需 的 對 象 ， 并 為 每 個(gè) 對 象 設(shè) 計(jì) 屬 性 、 程 序 員 的 工 作 僅 編 寫 針 對 對 象 要 完 成 那 些功 能 的 程 序 。 因 而 程 序 設(shè) 計(jì) 的 效 率 可 大 大 提 高 。 件 驅(qū) 動 的 編 程 機(jī) 制傳 統(tǒng) 的 程 序 設(shè) 計(jì) 是 一 種 面 對 過 程 的 設(shè) 計(jì) 方 式 ， 程 序 總 是 按 事 先 設(shè) 計(jì) 好 的 流 程 進(jìn) 行 ，而 不 能 將 后 面 的 程 序 放 在 前 面 運(yùn) 用 ， 當(dāng) 然 用 戶 就 不 能 隨 意 改 變 、 控 制 程 序 的 流 向 ， 這很 不 符 合 人 類 的 思 維 習(xí) 慣 。 事 件 驅(qū) 動 是 非 常 適 合 圖 形 用 戶 界 面 的 應(yīng) 用 程 序 中 ， 程 序 員只 要 編 寫 響 應(yīng) 用 戶 的 代 碼 ， 每 個(gè) 動 作 之 間 不 一 定 有 聯(lián) 系 ， 這 樣 的 應(yīng) 用 程 序 代 碼 較 短 ，當(dāng) 然 程 序 即 易 編 寫 又 易 維 護(hù) 。 持 多 種 數(shù) 據(jù) 庫 的 訪 問數(shù)據(jù)庫訪問特性允許對包括 SQL Server 和其他數(shù)據(jù)庫在內(nèi)的大部分?jǐn)?shù)據(jù)格式建立數(shù)據(jù)庫和前端應(yīng)用程序。利用數(shù)據(jù)控件或 ODBC 能訪問的數(shù)據(jù)系統(tǒng)有 Microsoft Access、Microsoft FoxPro、dbase、Paradox 等。支持動態(tài)連接庫（DLL） 、動態(tài)數(shù)據(jù)交換（DDE）與對象連接和嵌入（OLE） 。完備的 Help 聯(lián)機(jī)幫助功能。 上位機(jī)監(jiān)控界面設(shè)計(jì)風(fēng)缸水壓氣壓試驗(yàn)系統(tǒng)的監(jiān)控界面主要由登陸窗口、主控界面、參數(shù)設(shè)置窗口、打印輸出窗口組成。 系統(tǒng)的登陸窗口如圖 所示。登陸窗口主要用于系統(tǒng)對操作員的用戶管理，在操作員使用該系統(tǒng)時(shí)，對用戶名和密碼進(jìn)行驗(yàn)證，如果是正確的用戶名和密碼，該用戶可使用該軟件，反之將進(jìn)入不了系統(tǒng)。這樣做主要限制使用用戶，保證試驗(yàn)過程的安全。系統(tǒng)的主控界面如圖 所示。主控界面主要用于對下位機(jī)發(fā)出的信號進(jìn)行接收，并對信號作相關(guān)的處理，完成系統(tǒng)試驗(yàn)過程的動態(tài)顯示、參數(shù)設(shè)置、數(shù)據(jù)記錄、系統(tǒng)報(bào)警等動作，以及完成對下位機(jī)被控對象的相應(yīng)動作控制，實(shí)現(xiàn)對整個(gè)試驗(yàn)系統(tǒng)的監(jiān)控。主控界面顯示結(jié)構(gòu)程上、中、下方式進(jìn)行布置，上方區(qū)為按鈕區(qū)和信息區(qū)。按鈕有：12工作臺/34工作臺選擇按鈕、[顯示數(shù)據(jù)]、[打印報(bào)標(biāo)]、[參數(shù)修改]、[機(jī)能檢測]、[幫助信息]、[推出系統(tǒng)]等。中間區(qū)為系統(tǒng)試驗(yàn)過程動態(tài)顯示區(qū)。可顯示水泵工作狀態(tài)，注水充氣、夾緊狀態(tài)、氣缸動作、電磁閥開關(guān)狀態(tài)等動畫效果。27圖 登陸窗口圖 主控界面283. 參數(shù)設(shè)置窗口參數(shù)設(shè)置窗口如圖 所示。參數(shù)設(shè)置窗口具有用戶驗(yàn)證功能，帶有密碼保護(hù)。只有最高管理員才能進(jìn)入。通過這個(gè)窗口可以對 1至 4工作臺進(jìn)行壓力傳感器的系數(shù)設(shè)置、壓力零點(diǎn)設(shè)置。圖 參數(shù)設(shè)置窗口4. 打印輸出窗口打印輸出窗口如圖 所示。 打印報(bào)標(biāo)是通過水晶報(bào)表按照工藝要求設(shè)計(jì)的，打印輸出的所有數(shù)據(jù)都存儲在Access 數(shù)據(jù)庫中，打印過程可按照時(shí)間或編號進(jìn)行打印。29圖 打印輸出窗口 監(jiān)控軟件關(guān)鍵程序 接收程序在 Windows 環(huán)境下，操作系統(tǒng)通過驅(qū)動程序控制各硬件資源，不允許用戶像在 DOS環(huán)境下那樣直接對串口進(jìn)行底層的操作。為此，Visual Basic 提供了一個(gè)串行通信控件：MSComm 控件。上位監(jiān)控機(jī)只需設(shè)置和監(jiān)視 MSComm 控件的屬性和事件，就可以勁易而易舉地實(shí)現(xiàn)串行通信。通過 VB 設(shè)計(jì)的監(jiān)控軟件，可以完成對 PLC 工作狀態(tài)的實(shí)時(shí)監(jiān)控。計(jì)算機(jī)對 PLC 進(jìn)行數(shù)據(jù)的傳送與接收時(shí)，采用“半雙工”的通信模式。即同一時(shí)刻，數(shù)據(jù)的流動只能一個(gè)方向進(jìn)行。這是由 RS485 本身屬于“半雙工”工作模式?jīng)Q定的。當(dāng)監(jiān)控軟件運(yùn)行并打開通信端口（COM0）時(shí)，PLC 將每隔一定時(shí)間（）對上位監(jiān)控機(jī)發(fā)送狀態(tài)數(shù)據(jù)。監(jiān)控軟件通過接收這些數(shù)據(jù)，對供水系統(tǒng)做出實(shí)時(shí)的動畫顯示。當(dāng)上位監(jiān)控機(jī)對下位機(jī)進(jìn)行控制時(shí)，PLC 將產(chǎn)生一個(gè)接收中斷，完成對監(jiān)控機(jī)的命令響應(yīng)。數(shù)據(jù)的接收和發(fā)送程序框30圖如圖 所示。 開 始 發(fā) 送 信 息 ？ 進(jìn) 入 通 信 子 程 序 接 收 信 息 信 息 正 確 ？ N 執(zhí) 行 動 畫 顯 示 Y N 發(fā) 送 信 息 Y 執(zhí) 行 響 應(yīng) 下 位 機(jī) 應(yīng) 答 ？ 響 應(yīng) 正 確 ？ Y Y 超 時(shí) ？ 重 發(fā) 次 數(shù) =3？ 提 出 錯(cuò) 誤 中 斷 退 出 重 發(fā) 次 數(shù) =3？ 提 出 錯(cuò) 誤 中 斷 退 出 N N NN Y Y N 圖 上位監(jiān)控機(jī)接收和發(fā)送程序框圖接收程序如下：39。=================================================39。過程名：MSComm1_OnComm()39。作 用：接收下位機(jī) PLC 發(fā)出的信息。 39。=================================================Private Sub MSComm1_OnComm() 39。通訊程序Static SCOMS As StringDim S1 As String, VH As Single, Vh1 As Integer, i As IntegerIf = EvReceive Then S1 = If (S1 = Chr(amp。H1B)) And (Len(SCOMS) 5) Then SCOMS = Else If S1 Chr(amp。HD) Then SCOMS = SCOMS amp。 S1 Else Call MYSAVE(SCOMS) End If End IfEnd IfEnd Sub 數(shù)據(jù)解析程序上位機(jī)計(jì)算機(jī)從下位機(jī) PLC 接收上來的數(shù)據(jù)，需經(jīng)過數(shù)據(jù)解析才能使用。數(shù)據(jù)解析程序如下：3139。=================================================39。過程名：MYSAVE ()39。作 用：數(shù)據(jù)解析。39。=================================================Public Sub MYSAVE(SCOMS As String)Dim i As IntegerSCOMS = Trim(SCOMS) 39。接收到 44 個(gè)字段SCOMS = Right(SCOMS, 44)For i = 0 To 3 39。分解 44 個(gè)字段zf(i) = Trim(Mid(SCOMS, 1, 10))Next izf(4) = Trim(Mid(SCOMS, 41, 4))For i = 0 To 3 YL(i) = Trim(Mid(SCOMS, 1 + i * 10, 4)) 39。壓力值的存放（字符串） ZD(i) = Trim(Mid(SCOMS, 5 + i * 10, 1)) 39。自動信號 JJ(i) = Trim(Mid(SCOMS, 6 + i * 10, 1)) 39。夾緊信號 CQ(i) = Trim(Mid(SCOMS, 7 + i * 10, 1)) 39。充氣信號 ZS(i) = Trim(Mid(SCOMS, 8 + i * 10, 1)) 39。自動水信號 GS(i) = Trim(Mid(SCOMS, 9 + i * 10, 1)) 39。高壓水信號 PQ(i) = Trim(Mid(SCOMS, 10 + i * 10, 1)) 39。排水和氣的信號Next iFor i = 0 To 3If CCLng(YL(i)) 0 Then VHy(i) = (CCLng(YL(i)) 6400) / qiyaxishu(i) lingdian(i)If VHy(i) 0 Then VHy(i) = 0If VHyold(i) = 0 Then VHyold(i) = VHy(i)VHyold(i) = VHy(i)If Sstep(i) = 3 Then txtPressure1(i) = sbdyl(i) Else If (Int(VHy(i)) Mod 3) = 0 Then txtPressure1(i) = Str(VHy(i)) 39。壓力的整形存入文本框End If39。*********************自動信號的處理*************************If ZD(i) = 1 Then 39。手自動燈的轉(zhuǎn)換 LabelZD(i).Caption = 自動 LabelZD(i).ForeColor = amp。HFFamp。 39。紅色 If TimerRun(i).Enabled = False Then Commandkaishi(i).Enabled = True Commandjiesu(i).Enabled = True End If If TimerRun(i).Enabled = True Then Commandkaishi(i).BackColor = amp。HFF00amp。 39。綠色 Else Commandkaishi(i).BackColor = amp。HFF80FF 39。粉色 End If Else LabelZD(i).Caption = 手動 LabelZD(i).ForeColor = amp。H0amp。 39。黑色 Commandkaishi(i).Enabled = False Commandkaishi(i).BackColor = amp。HE0E0E0 39?；疑獷nd IfIf TimerRun(i).Interval = 1000 Then cmdState(i).BackColor = Commandkaishi(i).BackColor39。*********************夾緊信號的處理************************* If JJ(i) = 1 Then32 TopClaw(i) = down Else TopClaw(i) = up End If39。*********************充氣信號的處理************************* If CQ(i) = 1 Then imgCliqueCharge(i).Picture = If (i + 2) Mod 2 = 0 Then timer13Charge(i).Enabled = True Else timer24Charge(i).Enabled = True End If Else imgCliqueCharge(i).Picture = If (i + 2) Mod 2 = 0 Then timer13Charge(i).Enabled = False Else timer24Charge(i).Enabled = False End If End If39。*********************自動水信號的處理************************* If