国产欧美日韩精品a在线观看-国产欧美日韩精品一区二区三区-国产欧美日韩精品综合-国产欧美中文字幕-一区二区三区精品国产-一区二区三区精品国产欧美

關鍵詞：VB  MODBUS/TCP協議  可編程控制器  以太網

1、 引言

    在網絡的各個層上，隨著自動化和控制工程師需要與網絡打交道的機會越來越多，聯網的愿望和需要也正在逐漸高漲。而且，在監控和數據采集應用中，大多數工程師已將以太網協議應用于數據采集與監視控制系統（SCADA）和工廠的診斷、測試及維護。如何簡便地實現與PLC的交互已經成為眾多廠商新的競爭戰場。由此產生了人機界面及各種組態軟件產品，這些產品的出現簡化了對PLC的控制、操作，使PLC的應用更加方便。但也有其共同的缺點，價格普遍偏高和可二次開發性較差。VB作為“原始”的編程語言，兼具了上述兩方面的優勢。本文結合一個簡單的案例來粗略討論如何通過VB實現PC機與PLC的以太網通信問題。

2、以太網通信的基本概念

    2.1以太網的標準

    以太網是一種局域網。早期標準為IEEE 802.3，數據鏈路層使用CSMA/CD，10Mb/s速度物理層有：

    (1)10 Base 5粗同軸電纜，RG-8，一段最長為500m。

    (2)10 Base 2細同軸電纜，RG-58，一段最長為185m。

    (3)10 Base T雙絞線，UTP或STP，一段最長為100m。

    2.2工業以太網與商用以太網的區別

    什么是工業以太網？技術上，它與IEEE802.3兼容，故從邏輯上可把商用網和工業網看成是一個以太網，而用戶可根據現場情況，靈活裝配自己的網絡部件。但從工業環境的惡劣和抗干擾的要求，設計者希望采用市場上可找到的以太網芯片和媒介，兼顧考慮下述工業現場的特殊要求：首先要考慮高溫、潮濕、振動。二是對工業抗電磁干擾和抗輻射有一定要求，如滿足EN50081-2、EN50082-2標準，而辦公室級別的產品未經這些工業標準測試，表1列出了一些常用工業標準。為改善抗干擾性和降低輻射，工業以太網產品多使用多層線路板或雙面電路板，且外殼采用金屬如鑄鋁屏蔽干擾。三是電源要求，因集線器、交換機、收發器多為有源部件，而現場電源的品質又較差，故常采用雙路直流電或交流電為其供電，另外考慮方便安裝，工業以太網產品多數使用DIN導軌或面板安裝。四是通信介質選擇，在辦公室環境下多數配線使用UTP，而在工業環境下推薦用戶使用STP(帶屏蔽雙絞線)和光纖。
 

    2.3 使用TCP/IP協議的原因及其概述

    最主要的一個原因在于它能使用在多種物理網絡技術上，包括局域網和廣域網技術。TCP/IP協議的成功，很大程度上取決于它能適應幾乎所有底層通信技術。20世紀80年代初，先在X.25上運行TCP/IP協議；而后又在一個撥號語音網絡(如電話系統)上使用TCP/IP協議，又有TCP/IP在令牌環網上運行成功；最后又實現了TCP/IP遠程分組無線網點與其他Internet網點間TCP/IP通信。所以TCP/IP協議極其靈活，具備連接不同網絡的能力。另外，使用TCP/IP也簡化了OSI模型，因為它省略了表示層和會話層。如果現在把以太網的物理層和數據鏈路層加到OSI模型，就構成了基于以太網的TCP/IP網，如圖1所示。用以太網實現TCP/IP也是經濟的一種方式。
 

    IP是Internet最基本的協議。IP是面向報文的協議，它獨立處理每個報文包，每個報文包必須含有完整的尋址信息。IP報文包的格式如圖2所示。
 

圖2  IP報文包的格式

    IP地址的類型共有4種(如圖3所示)：A類用于處理超大型網絡，最多16387064個主機(1～126)；B類網絡最多可有64516個主機(網絡地址的第一段為128～191)；C類用于小型網絡，最多可有254個主機(網絡地址的第一段為192～223)；D類用于多點播送，用于多目的信息的傳輸。全零(“0.0.0.0”)地址對應于當前主機，全1地址(“255.255.255.255”)是當前子網的廣播地址。

    TCP是基于傳輸層的協議，協議文件可從RFC793得到，使用廣泛，面向連接的可靠協議。它能把報文分解為數段，在目的站再重新裝配這些段，支持重新發送未被收到的段，提供兩臺設備間的全雙工連接，允許它們高效地交換大量數據。TCP使用滑動窗口協議來高效使用網絡。由于TCP很少干預底層投遞系統的工作，它適應各種投遞系統，且提供流量控制，能使各種不同速率的系統進行通信。報文段是TCP所使用的基本傳輸單元，用于傳輸數據或控制信息。

3、MODBUS數據幀格式

    在TCP/IP以太網上傳輸，支持Ethernet II和802.3兩種幀格式。圖3所示，Modbus TCP數據幀包含報文頭、功能代碼和數據3部分。
 

4、 MODBUS功能代碼

    4.1  3種類型

    (1)公共功能代碼(如表2所示)：已定義好的功能碼，保證其唯一性，由Modbus.org認可。

    (2)用戶自定義功能代碼有兩組，分別為65～72和100～110，無需認可，但不保證代碼使用的唯一性。如變為公共代碼，需交RFC認可。

    (3)保留的功能代碼，由某些公司使用在某些傳統設備的代碼，不可作為公共用途。

表2  Modbus常用公共代碼功能

    5.2 按鈕控件

    按鈕控件如圖5（a）所示，該控件使用率很高，提供一個供系統用戶操作用的按鈕，如圖5（b）所示。
 

6、基于Winsock控件的TCP/IP以太網通信

    要完成VB與PLC等設備的以太網通信要用到Winsock控件，在此有必要對該控件作較詳細的說明。Winsock是一個ActiveX控件，需要要手動添加許多項目，其步驟如下：

    （1）選擇菜單的【工程】。

    （2）選擇【部件】。

    （3）在彈出的對話框中做如圖6的選擇。
 

圖6 對話框界面

    （4）如圖7所示，在部件選項卡就會出現Winsock控件。
 

    在界面中用按鈕控制Y0的ON/OFF及D100、D200數據的寫與讀；用shape組件做指示燈，指示Y0的ON/OFF狀態；用Winsock控件實現PLC與VB的通信。

    （１）實現功能的代碼構成

    （２）建立網絡連接

    Private Sub Command1_Click()
    Winsock1.Close
    Winsock1.Connect Text1， 502
    Label2.Caption = "Version: 1.0 : " + Format(Now， "mmm dd yyyy Hh:Nn:Ss")
    Command1.Enabled = False
    Command1.Enabled = False
    Text1.Enabled = False
    End Sub
    （2）、Y0的ON/OFF控制
    Private Sub Comd_send_Click()
    On Error GoTo ErrProc
    Dim sendstr(14) As Byte
    sendstr(0) = &H0 '交換識別號高字節，通常為0
    sendstr(1) = &H0 '交換識別號低字節，通常為0
    sendstr(2) = &H0 '協議識別號高字節，為 0
    sendstr(3) = &H0 '協議識別號低字節，為 0
    sendstr(4) = &H0 '字節長度高字節
    sendstr(5) = &H9 '以下字節長度低字節
    sendstr(6) = &HFF '單元識別號，確省為 255
    sendstr(7) = &H5 '寫一個線圈命令代碼
    sendstr(8) = &H0  '寫線圈的起始地址高字節
    sendstr(9) = &H1'寫線圈的起始地址低字節
    sendstr(10) = a '=FF打開線圈，=00關閉線圈
    sendstr(11) = &H0 '
    Dim aStr As String
    Dim i， j As Integer
    For i = 0 To 11
    aStr = aStr & Chr(sendstr(i))
    Next
    Winsock1.SendData aStr
    Exit Sub
    ErrProc:
    MsgBox "傳輸數據失敗"， vbCritical， "網絡傳輸"
    End Sub

    （3）線圈狀態顯示及寄存器讀出數據顯示

    Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim strdata() As Byte
    Dim i， j As Integer
    Dim s As String
    Dim s1 As String
    Dim IO As Byte
    i = Winsock1.BytesReceived
    ReDim strdata(i)
    Winsock1.GetData strdata， vbByte， i
    For j = 0 To i - 1
    s = s + Hex(strdata(j))
    Next
    If s Like "*5*" Then
    s1 = Mid(s， 12， 2)
    If s1 = "FF" Then
    IO = 1
    a = &H0
    Else
    IO = 0
    a = &HFF
    End If
    If IO = 1 Then
    Shape1.FillColor = RGB(0， 255， 0) 'green
    Labl3.Caption = "IO點接通"
    Else
    Shape1.FillColor = RGB(255， 0， 0) 'red
    Labl3.Caption = "IO點斷開"
    End If
    End If If s Like "*3*" Then
    Text3.Text = Text3.Text + Mid(s， 11) + ""
    End If

    （4）、讀多個寄存器數據

    End Sub Private Sub Command4_Click()
    On Error GoTo ErrProc
    Dim str(12) As Byte
    str(0) = &H0 '交換識別號高字節，通常為 0
    str(1) = &H0 '交換識別號低字節，通常為 0    
    str(2) = &H0 '協議識別號高字節，為 0
    str(3) = &H0 '協議識別號低字節，為 0
    str(4) = &H0 '字節長度高字節
    str(5) = &H6 '以下字節長度低字節
    str(6) = &HFF '單元識別號，確省為 255
    str(7) = &H3 '讀多個寄存器命令代碼
    str(8) = &H10  '讀數據的起始地址高字節
    str(9) = &HC8 '讀數據的起始地址低字節
    str(10) = &H0 '數據長度高字節
    str(11) = &H1 '數據長度低字節
    Dim bStr As String
    Dim i As Integer
    For i = 0 To 11
    bStr = bStr & Chr(str(i))
    Next
    Winsock1.SendData bStr
    Exit Sub
    ErrProc:
    MsgBox "傳輸數據失敗"， vbCritical， "網絡傳輸"
    End Sub
    D100寄存器的寫入操作類似，由于篇幅所限其他代碼在此就不再贅述。

9．結速語

    工業以太網是工業自動化網絡發展的必然趨勢，為了對工業設備進行實時的管理與監控，工業以太網設備大多都支持遠程管理，而且各廠商業都有各自的網絡管理軟件以提供對網絡設備進行友好的圖形化界面操作。管理員還可以通過遠程telnet或web界面的方式直接對設備進行調試。完善的兼容性，可靠的穩定性，對惡劣環境的適應性，強大的冗余能力和方便的可管理性，是人們越來越多地在網絡設計過程中采用工業以太網的原因，而這也勢必成為工業以太網在越來越多的網絡環境里大顯身手的重要契機。借臺達即將推出以太網模塊之際撰寫此文，希望能夠為其以太網模塊的推廣提供一些幫助。由于本人水平有限本文編寫難免會有錯漏之處，也請讀者給予批評指正。

    南京寧控系統工程有限公司　　熊金香