基于Winsock控件實現(xiàn)PLC網(wǎng)絡通信控制
加入技術交流群
初始化工作完成后向PLC提出連接請求，待PLC接受請求并發(fā)送應答信息后，客戶端程序依照各種幀格式建立好要發(fā)送的信息幀，就可以與PLC進行雙向的數(shù)據(jù)交流了。在這一過程中，可建立發(fā)送失敗后的重發(fā)機制，以增強通信的可靠性。
首先，建立并發(fā)送“握手信息”指令(20字節(jié))，指明客戶機節(jié)點號;當計算機接收到PLC返回幀(24字節(jié))后，檢查PLC是否收到命令，并取得服務器和客戶機節(jié)點號。當計算機接收到PLC返回的數(shù)據(jù)時，會產生DataArrival事件，參數(shù)BytesTotal包含接收到的數(shù)據(jù)字節(jié)數(shù)。在DataArrival事件中，可以調用GetData方法接收數(shù)據(jù)。如果接收到Close事件，則用Close方法關閉連接。另外CONTROL ENGINEERING China版權所有，可用Winsock的State屬性來反映當前TCP/IP的連接狀態(tài)。這里僅列舉主要程序如下：
‘向服務器請求連接
WskClient.Connect
TimeDelay 100
Do
DoEvents
Loop Until WskClient.state=sckConnected
‘建立并發(fā)送FINS命令幀
Private Sub SendData_Click()
ReDim SendData (19) As Byte
SendData (0) = H46‘FINS命令幀報頭的第1個字節(jié)
……
WskClient.SendData SendData() ‘發(fā)送FINS命令幀
End Sub
‘接收PLC響應幀，并分析數(shù)據(jù)
Private Sub WskClient_DataArrival(ByVal bytesTotal As Long)
Dim i As Integer
ReDim ArriveData(bytesTotal) As Byte
wsk.GetData ArriveData, vbArray + vbByte, bytesTotal
‘接收數(shù)據(jù)，保存在ArriveData數(shù)組中
For i = 0 To bytesTotal - 1
txtArData.Text = txtArData.Text " " ArriveData (i)
Next i
……‘其它數(shù)據(jù)處理
If ArriveData(7) > 16 Then
MsgBox“接收信息丟失“
ElseIf SendData(19)= ArriveData (bytesTotal-5) Then
MsgBox“節(jié)點地址錯誤“
End If
End If
在接收信息后,當PLC收到傳輸過去的信息后,會將對應的命令反饋值傳回,這個事件程序內的程序將它顯示在文本框中,還可作進一步處理。主程序流程圖如圖4所示。
若采用UDP協(xié)議，則通信的基本過程與TCP相同，只是不需要建立連接。此外,UDP應用程序可以是客戶機,也可以是服務器,而不必象TCP應用程序那樣必須分別建立客戶機程序和服務器程序。由于UDP在傳輸數(shù)據(jù)報前不用在客戶和服務器之間建立一個連接，且沒有超時重發(fā)等機制，故而傳輸速度很快。因此如果網(wǎng)絡中設備不是很多，且發(fā)送數(shù)據(jù)量不大時，可選擇耗費計算機“資源”更小的UDP協(xié)議進行通信。
5.結束語
采用Winsock控件實現(xiàn)的上位機以太網(wǎng)通信程序，已成功應用于數(shù)字小樣并條機監(jiān)控系統(tǒng)中，該法簡單實用,在不追加投資的情況下,實現(xiàn)車間設備的網(wǎng)絡數(shù)據(jù)實時監(jiān)控的功能，達到了理想的效果。而且以VB作為監(jiān)控軟件的開發(fā)平臺，軟件的二次開發(fā)不受限制，節(jié)約成本，并可根據(jù)需要隨時對程序進行升級。為實現(xiàn)對控制系統(tǒng)進行有效的信息管理與監(jiān)控，基于以太網(wǎng)的PLC控制系統(tǒng)必將有更為廣泛的應用，本文的論述對解決這類問題提供了一定參考價值。
評論