基于Winsock控件實(shí)現(xiàn)PLC網(wǎng)絡(luò)通信控制設(shè)計(jì)方法
加入技術(shù)交流群
4.通信程序的具體實(shí)現(xiàn)
在新建VB工程后，需要執(zhí)行VB工具欄“工程/部件” 命令www.cechina.cn，將Winsock控件添加到工程中， 并命名為“WskClient”。程序采用TCP/IP協(xié)議進(jìn)行通信，其主要屬性設(shè)定如下：
With WskClient
.Protocol = sckTCPProtocol ‘采用TCP/IP協(xié)議
.LocalPort = 9600 ‘本地計(jì)算機(jī)端口號(hào)
.RemoteHost = txtIP.Text ‘取得遠(yuǎn)程PLC的IP地址
.RemotePort = txtPort.Text ‘遠(yuǎn)程PLC端口號(hào)
.Bind 9600 ‘指定使用的本地端口
End With
初始化工作完成后向PLC提出連接請(qǐng)求，待PLC接受請(qǐng)求并發(fā)送應(yīng)答信息后，客戶端程序依照各種幀格式建立好要發(fā)送的信息幀，就可以與PLC進(jìn)行雙向的數(shù)據(jù)交流了。在這一過程中控制工程網(wǎng)版權(quán)所有，可建立發(fā)送失敗后的重發(fā)機(jī)制，以增強(qiáng)通信的可靠性。
首先控制工程網(wǎng)版權(quán)所有，建立并發(fā)送“握手信息”指令（20字節(jié)），指明客戶機(jī)節(jié)點(diǎn)號(hào);當(dāng)計(jì)算機(jī)接收到PLC返回幀（24字節(jié)）后，檢查PLC是否收到命令
控制工程網(wǎng)版權(quán)所有
，并取得服務(wù)器和客戶機(jī)節(jié)點(diǎn)號(hào)。當(dāng)計(jì)算機(jī)接收到PLC返回的數(shù)據(jù)時(shí)
控制工程網(wǎng)版權(quán)所有
，會(huì)產(chǎn)生DataArrival事件，參數(shù)BytesTotal包含接收到的數(shù)據(jù)字節(jié)數(shù)。在DataArrival事件中，可以調(diào)用GetData方法接收數(shù)據(jù)。如果接收到Close事件，則用Close方法關(guān)閉連接。另外，可用Winsock的State屬性來反映當(dāng)前TCP/IP的連接狀態(tài)。這里僅列舉主要程序如下：
‘向服務(wù)器請(qǐng)求連接
WskClient.Connect
TimeDelay 100
nbsp; Do
DoEvents
Loop Until WskClient.state=sckConnected
‘建立并發(fā)送FINS命令幀
Private Sub SendData_Click（）
ReDim SendData （19） As Byte
SendData （0） = H46‘FINS命令幀報(bào)頭的第1個(gè)字節(jié)
n
bsp; ……
WskClient.SendData SendData（） ‘發(fā)送FINS命令幀
End Sub
‘接收PLC響應(yīng)幀，并分析數(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é)點(diǎn)地址錯(cuò)誤“
End If
End If
在接收信息后,當(dāng)PLC收到傳輸過去的信息后,會(huì)將對(duì)應(yīng)的命令反饋值傳回,這個(gè)事件程序內(nèi)的程序?qū)⑺@示在文本框中,還可作進(jìn)一步處理。主程序流程圖如圖4所示。本文引用地址：http://www.ex-cimer.com/article/202677.htm
圖4 程序流程圖
若采用UDP協(xié)議，則通信的基本過程與TCP相同，只是不需要建立連接。此外,UDP應(yīng)用程序可以是客戶機(jī),也可以是服務(wù)器控制工程網(wǎng)版權(quán)所有,而不必象TCP應(yīng)用程序那樣必須分別建立客戶機(jī)程序和服務(wù)器程序。由于UDP在傳輸數(shù)據(jù)報(bào)前不用在客戶和服務(wù)器之間建立一個(gè)連接，且沒有超時(shí)重發(fā)等機(jī)制，故而傳輸速度很快。因此如果網(wǎng)絡(luò)中設(shè)備不是很多，且發(fā)送數(shù)據(jù)量不大時(shí)，可選擇耗費(fèi)計(jì)算機(jī)“資源”更小的UDP協(xié)議進(jìn)行通信。
5.結(jié)束語
采用Winsock控件實(shí)現(xiàn)的上位機(jī)以太網(wǎng)通信程序，已成功應(yīng)用于數(shù)字小樣并條機(jī)監(jiān)控系統(tǒng)中，該法簡單實(shí)用,在不追加投資的情況下,實(shí)現(xiàn)車間設(shè)備 的網(wǎng)絡(luò)數(shù)據(jù)實(shí)時(shí)監(jiān)控的功能，達(dá)到了理想的效果。而且以VB作為監(jiān)控軟件的開發(fā)平臺(tái)，軟件的二次開發(fā)不受限制，節(jié)約成本控制工程網(wǎng)版權(quán)所有，并可根據(jù)需要隨時(shí)對(duì)程序進(jìn)行升級(jí)。為實(shí)現(xiàn)對(duì)控制系統(tǒng)進(jìn)行有效的信息管理與監(jiān)控，基于以太網(wǎng)的PLC控制系統(tǒng)必將有更為廣泛的應(yīng)用，本文的論述對(duì)解決這類問題提供了一定參考價(jià)值。
評(píng)論