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