基于VB的臺達PLC與監控計算機的串行通信實現Implementation of Serial Communication Between Monitoring Computer and Delta PLC Based on Visual Basic摘 要：PLC直接與現場控制層的檢測儀器儀表設備連接，是底層控制網絡的組成部分，是工廠自動化系統的基石，因此實現與監控層計算機的通信對系統的優化運行有重要意義。文章基于VB討論臺達DVP PLC與監控計算機的通信問題。關鍵詞：VB 通信協議 可編程控制器Abstract: The PLC is a composing part of Infranet, it links to the measuring instrument and device in field control layer directly, and is the footstone of factory automation system. Therefore it is very important to realize the communication between PLC and monitoring layer computer for optimization of syste running. The paper discussed the related communication problems between Delta DVP PLC and monitoring computer based on Visual Basic. Key Words: Visual Basic Communication protocal Programable logic controller1 引 言 現場設備層中的設備種類繁多,有傳感器、啟動器、驅動器、I/O部件、變送器、閥門等等,當然也包括現場檢測儀器儀表設備。PLC是現場設備控制層不可缺少的部分，已經非常普及，如何簡便地實現與PLC的交互已經成為眾多廠商新的競爭戰場。由此產生了人機界面等軟件產品，這些產品的出現簡化了對PLC的控制、操作，使PLC的應用更加方便；但也有其共同的缺點，價格普遍偏高和可二開發性較差。VB作為“原始”的編程語言在這兩方面無疑有著明顯優勢的，本文結合一個簡單的案例，用比較基礎的概念討論如何通過VB實現PC與PLC之間的通信問題，這對剛涉步控制領域的工程師或許是有幫助的。在現場設備層中各式各樣的設備都可以和計算機聯機，而最簡單的自動化聯機方式就是使用串行通信，VB提供了串行通信控件可以讓開發者開發出串行通信的系統程序，以下是對相關問題的粗略討論。2 串行通信基本概念 數據通訊中有兩種類型的通信形式，即并行通信（Parallel Communication）和串行通信（Serial Communication）。例如，如果有8位數據需要傳送，那么并行通信一次就可以完成8位的傳輸量；而串行一次只能傳送1位。圖1表示了兩種不同的通信模式，常用的串行通信也有兩種，分別為RS-232和RS-485。 圖1 串行與并行傳輸的比較21 RS-232 串行通信 RS-232的信號準位是參考地線而言的，如圖2所示。相對于參考接地端1傳輸端傳送數據；接收端則相對于參考接地端2復現出傳送端的傳送的數據。 圖2 RS-232 串行通信示意圖 由圖2可知，由于兩個接地端準位不一定一樣，而且很容易受到干擾，所以信號在RS-232線路傳輸時，很容易產生錯誤。22 RS-485串行通信RS-485的信號傳輸方式如圖3所示。 RS-485的信號被傳送出去時會分成正負兩條線路，當到達接收端后，在將信號相減還原成原來的信號；如果將原始的信號表示成（DT），而被分成的信號分別標示成（D+）及（D-），則DT=(D+)-(D-)。同理，接收端在接收到信號后，也依據上式還原成原來的樣子。如果線路受到干擾，兩條線路的信號分別為（D+）+Noise與（D-）+Noise。接收端還原信號為(DT)= （D+）+Noise-（D-）+Noise，與先前結果一樣，所以RS-485可以有效的防止噪聲的干擾。3 VB的基本概念 VB（Visual Basic）是微軟的窗口軟件，提供了很多接口成員，對象、屬性、事件、方法就是4個重要的接口，VB提供了許多常用的控件。31卷標控件 卷標控件如圖4（a）所示，該控件專用于顯示文字、數字用，顯示如圖4(b)所示 （a） (b) 圖4 卷標控件界面3.2 按鈕控件按鈕控件如圖5（a）所示，該控件使用率很高，提供一個供系統用戶操作用的按鈕，如圖5（b）所示。 （a） (b) 圖5 按鈕控件界面 33 定時器控件 定時器控件如圖6所示，該控件的最大作用在固定的時間內可執行所設置的程序代碼一次。 圖6 定時器控件界面 VB提供了大量的控件，在此不再多述。4 基于MScomm控件的串行通信 要完成VB與PLC等設備的串行通信要用到MScomm控件， 在此有必要對該控件作較詳細的說明。Mscomm是一個非標準控件，需要要手動添加許多項目，其步驟如下。 1） 選擇菜單的【工程】 2） 選擇【部件】 3） 在彈出的對話框中做如圖7的選擇。 圖7 對話框界面 4）如圖8所示，在部件選項卡就會出現MScomm控件。 圖8 MScomm控件 5）基本屬性 如圖9所示。 計算機通信口選擇 通信參數設置 PortOpen 通信口是否打開 Input 收到的字符 Output 發送的字符 圖9 基本屬性設置4.1 MODBUS ASCII Modbus 分為ASCII和RTU兩種，ASCII采用的格式和校驗相對簡單，本文采用ASCII格式，并僅對使用的功能碼進行說明，更多的信息，請參看協議的詳細說明。 1）通信格式STX起始字符 “：”（3AH）ADR 1通信地址（站號）采用2個字符ADR 0CMD 1功能碼。采用2個字符CMD 0DATA（0）數據項DATA（1）DATA（n-1）LRC CHK 1LRC 校驗碼。采用2個字符LRC CHK 0END 1結束字符。采用2個字符。END 1 = CR（0DH），END 0 = LF（0AH）END 0 LRC算法：ADR H+CMD H+DATA H，然后取2的補碼。 2）功能碼格式例子 (十六進制)字頭3A站號01功能碼01起始地址0614讀取數目0025LRC 碼BF 05，寫入線圈 01，讀線圈狀態格式例子（十六進制）字頭3A站號01功能碼05地址0500寫入狀態FF00LRC 碼F6 06，寫入單個字寄存器 格 式 例子(十六進制) 字 頭 3A 站 號 01 功能碼 06 寄存器地址 06 00 寫入的資料 12 34 LRC 校驗碼 AD4.2 VB與PLC通信的實現 以下舉例說明現場設備與PLC通信的實現。 1）控制要求：控制PLC的起動、停止，并顯示運行狀態（綠色為運行，紅色為停止）；能夠用交替型按鈕控制Y0,Y1，并用指示燈顯示Y0,Y1狀態（綠色為運行，紅色為停止）；能夠對D256，D512兩個寄存器進行數值寫入的操作。 2）實現思路：PLC起動停止的標志位為M1072，查DVP協議，知道地址為H0C30，按功能碼01操作； 同樣Y0,Y1的地址分別為H0500，H0501。寫入FF00為ON，0000為OFF，按功能碼05操作；D256，D512地址分別為H1100，H1200，按功能碼06操作即可。 3）VB接口的設計如圖10所示。 圖10 監控程序界面 用按鈕控制PLC的起動停止，Y0、Y1的ON/OFF及D256、D512寫完數據的發送；用Shape組件做指示燈，表示PLC的運行狀態和Y的狀態；用timer組件不停的讀取M1072的狀態，以判斷PLC的運行情況；用MScomm控件實現PC與PLC的通信。 4）編程實現的代碼構成 （1） LRC算法校驗的實現 Public Function LRC(str As String) As String c = 0 l = Len(str) For c = c + 1 To l c_data = Mid$(str, c, 2) d_lrc = d_lrc + Val(&H + c_data) c = c + 1 Next c If d_lrc &HFF Then d_lrc = d_lrc Mod &H100 End If h_lrc = Hex(&HFF - d_lrc + 1) If Len(h_lrc) 2 Then h_lrc = Mid(h_lrc, Len(h_lrc) - 1, 2) End If LRC = h_lrc End Function （2） 運行的開始就判斷PLC的狀態并設置標志位 初次運行打開串口，并顯示PLC運行狀態 Private Sub Form_Load() Dim s1 As String Dim s2 As String Dim s22 As String Dim s3 As String Dim s4 As String MSComm1.PortOpen = True s2 = 01010C300001 s22 = LRC(s2) s1 = : + s2 + s22 + Chr$(13) + Chr$(10) MSComm1.Output = s1 s3 = MSComm1.Input s4 = Mid$(s, 6, 8) If s4 = 0C30FF00 Then plc = 1 PLC為運行標志 Else plc = 0 PLC為停止標志 End If End Sub （3） 下面一段為用指示燈表示PLC的運行狀態 Private Sub Timer5_Timer() Dim s1 As String Dim s2 As String Dim s22 Dim s3 As String Dim s4 As String s2 = 01010C300001 s22 = LRC(s2) s1 = : + s2 + s22 + Chr$(13) + Chr$(10) MSComm1.Output = s1 s3 = MSComm1.Input s4 = Mid$(s3, 8, 2) If s4 = 31 Then plc = 1 PLC為運行標志 Else: If s4 = 30 Then plc = 0 PLC為停止標志 End If If plc = 1 Then Label2.Caption = PLC正在運行. Shape1.FillColor = RGB(0, 255, 0) green Else Label2.Caption = PLC已經停止 Shape1.FillColor = RGB(255, 0, 0) red End If End Sub （4） PLC的起動與停止 起動PLC Private Sub start_Click() Dim strout As String Timer5.Enabled = False str = 00050C30FF00 M1072 為PLC起動停止標志位。查地址表，M1072為OC30.FF00為置 ON,0000為置OFF。 以上都是固定格式，要牢記。 LRCC = LRC(str) 計算 str的lrc校驗碼。 strout = : + str + LRCC + Chr$(13) + Chr$(10) 欲傳送之數據。13為D，10為A MSComm1.Output = strout Timer5.Enabled = True End Sub 停止PLC Private Sub stop_Click() Dim strout As String Timer5.Enabled = False str = 00050C300000 LRCC = LRC(str) strout = : + str + LRCC + Chr$(13) + Chr$(10) MSComm1.Output = strout Timer5.Enabled = True End Sub Y0、Y1的ON/OFF與PLC起動/停止的控制方式相同，指示燈的表示方式也相同。D256，D512數據寫入的操作類似，限于篇幅其它代碼就不再列出了。5 結束語VB語