三菱与西门子PLC双协议通讯实战指南

1. 项目概述与背景

在工业自动化领域，PLC（可编程逻辑控制器）与上位机的通讯是项目开发中的核心环节。许多工程师在实际项目中都会遇到需要同时对接不同品牌PLC的情况，比如三菱和西门子PLC混用的场景。这种多协议并行的需求在汽车生产线、智能仓储等场景中尤为常见。

我最近完成的一个智能分拣系统项目就遇到了这样的需求：需要同时控制三菱Q系列PLC（负责传送带控制）和西门子S7-1200（负责机械臂控制）。经过反复调试和优化，最终实现了一套稳定可靠的双协议通讯方案。本文将分享这个方案的核心实现细节和实战经验。

2. 开发环境准备

2.1 硬件配置要求

对于这种多PLC通讯的项目，建议采用以下硬件配置：

• 工控机：至少Intel i5处理器，8GB内存
• 网络接口：双网口（分别连接不同PLC网络）
• 操作系统：Windows 10 IoT Enterprise LTSC

注意：如果使用虚拟机环境，务必确保网卡设置为桥接模式，并关闭虚拟机的节能选项，否则可能导致通讯不稳定。

2.2 软件依赖安装

2.2.1 三菱MX组件安装

1. 从三菱官网下载最新版MX Component（当前版本为4.18S）
2. 安装时选择完整安装，包括：
   • MELSEC Communication Drivers
   • Act Controls
   • Sample Programs
3. 安装完成后，运行License Manager激活软件

常见安装问题：

• 如果遇到"无法注册DLL"错误，以管理员身份运行cmd，执行：

  bash复制regsvr32 "C:\Program Files (x86)\MELSEC\Act\Act.dll"
  

• 日文系统环境下需要额外安装语言包

2.2.2 S7.NET库配置

1. 通过NuGet安装S7.NET库：

   bash复制Install-Package S7netplus
   

2. 在项目中添加引用：

   vb.net复制Imports S7.Net
   

3. 对于S7-200 Smart系列，需要额外安装PC Access Smart软件

3. 三菱PLC通讯实现

3.1 通讯初始化

三菱PLC通讯的核心是通过MX Component提供的ActEasyIF类实现的。以下是标准初始化流程：

vb.net复制Dim mx As New ActEasyIF
With mx
    .ActLogicalStationNumber = 0  ' 对应MX Configurator中的设置
    .ActBaudRate = ActBaudRate.BaudRate_115200  ' 串口通讯时使用
    .ActPortNumber = 3  ' COM3端口
    .ActCpuType = ActCpuType.Q_L02CPU  ' 根据实际CPU型号设置
    .ActControl = ActControl.TCP  ' 网口通讯
    .ActDestinationIONumber = 0  ' 目标IO号
    .ActDestinationPortNumber = 5561  ' 默认端口
    .ActDestinationStationNumber = 255  ' 目标站号
    .ActIntelligentPreferenceBit = 0
    .ActPassword = ""  ' 密码保护功能
    .ActTimeOut = 3000  ' 3秒超时
    .ActUnitType = ActUnitType.UNIT_QNUDECPU  ' 单元类型
    .Open()
End With

关键参数说明：

• ActLogicalStationNumber：必须与MX Configurator中设置的站号一致
• ActCpuType：不同CPU系列要正确设置，常见值有：
  • FX_CPU：FX系列
  • Q_L02CPU：Q系列L02CPU
  • R04CPU：R系列
• ActTimeOut：建议设为3000-5000ms，过短会导致频繁超时

3.2 数据读写操作

3.2.1 单个寄存器读写

vb.net复制' 读取D100寄存器值
Dim devValue As Integer
mx.ReadDeviceRandom("D100", 1, devValue)

' 写入D200寄存器
Dim writeValue As Integer = 1234
mx.WriteDeviceRandom("D200", 1, writeValue)

3.2.2 批量读取优化

对于需要批量读取的场景，建议使用ReadDeviceBlock替代多次ReadDeviceRandom：

vb.net复制Dim values(10) As Integer  ' 准备读取11个连续寄存器
mx.ReadDeviceBlock("D100", 11, values)

性能对比测试：

• 读取100个寄存器：
  • ReadDeviceRandom ×100次：约1200ms
  • ReadDeviceBlock 1次：约80ms

3.2.3 位操作技巧

vb.net复制' 置位Y10
mx.SetDevice("Y10")

' 复位Y10
mx.ResetDevice("Y10")

' 批量置位Y20-Y25
For i As Integer = 20 To 25
    mx.SetDevice("Y" & i.ToString())
Next

4. 西门子PLC通讯实现

4.1 S7.NET基础配置

西门子PLC通讯主要通过S7.Net库实现，以下是基本连接配置：

vb.net复制Dim plc As New Plc(CpuType.S71200, "192.168.0.1", 0, 1)
Try
    plc.Open()
    If Not plc.IsConnected Then
        Throw New Exception("西门子PLC连接失败")
    End If
    
    ' 读取DB1.DBW0开始的10个字
    Dim dbData As Object = plc.Read("DB1.DBW0", VarType.Word, 10)
    
    ' 写入DB2.DBD4 (REAL类型)
    plc.Write("DB2.DBD4", 123.456)
    
Catch ex As Exception
    ' 异常处理
Finally
    plc.Close()
End Try

4.2 数据块访问优化

4.2.1 字节级读写

vb.net复制' 读取DB1.DBB0开始的20个字节
Dim buffer(19) As Byte
plc.ReadBytes(DataType.DataBlock, 1, 0, 20, buffer)

' 写入DB2.DBB10开始的5个字节
Dim writeData() As Byte = {1, 2, 3, 4, 5}
plc.WriteBytes(DataType.DataBlock, 2, 10, writeData)

4.2.2 结构体处理

对于复杂数据结构，建议使用结构体映射：

vb.net复制<StructLayout(LayoutKind.Sequential, Pack:=1)> _
Public Structure MotorData
    Public Speed As Short
    Public Current As Single
    Public Status As Byte
    <MarshalAs(UnmanagedType.ByValArray, SizeConst:=5)> _
    Public Reserved As Byte()
End Structure

' 读取结构体
Dim motor As MotorData
Dim rawData() As Byte = plc.ReadBytes(DataType.DataBlock, 3, 0, Marshal.SizeOf(GetType(MotorData)))
motor = RawDataToStruct(Of MotorData)(rawData)

4.3 特殊型号注意事项

4.3.1 S7-200 Smart

vb.net复制' S7-200 Smart特殊配置
Dim plc200Smart As New Plc(CpuType.S7200Smart, "192.168.0.2", 0, 0)  ' 机架号和槽号必须为0

4.3.2 S7-1500优化

vb.net复制' S7-1500性能优化设置
plc1500.ConnectionTimeout = 5000
plc1500.ReadTimeout = 3000
plc1500.WriteTimeout = 3000

5. 双协议并行处理方案

5.1 多线程架构设计

vb.net复制' 定义线程安全锁
Private ReadOnly mxLock As New Object()
Private ReadOnly s7Lock As New Object()

' 启动三菱采集线程
Dim mitsubishiThread As New Thread(Sub()
    While Not shutdownRequested
        SyncLock mxLock
            Try
                ' 读取三菱PLC数据
                mx.ReadDeviceBlock("D100", 10, mitsubishiData)
            Catch ex As Exception
                ' 异常处理
            End Try
        End SyncLock
        Thread.Sleep(50)
    End While
End Sub)

' 启动西门子采集线程
Dim siemensThread As New Thread(Sub()
    While Not shutdownRequested
        SyncLock s7Lock
            Try
                ' 读取西门子PLC数据
                siemensData = plc.Read("DB1.DBW0", VarType.Word, 10)
            Catch ex As Exception
                ' 异常处理
            End Try
        End SyncLock
        Thread.Sleep(50)
    End While
End Sub)

5.2 数据同步策略

5.2.1 共享内存设计

vb.net复制Public Class SharedData
    Public Property MitsubishiValues As Integer()
    Public Property SiemensValues As Object
    Public Property LastUpdateTime As DateTime
    Public ReadOnly Property IsDataFresh As Boolean
        Get
            Return (DateTime.Now - LastUpdateTime).TotalSeconds < 2
        End Get
    End Property
End Class

5.2.2 事件驱动机制

vb.net复制' 定义数据更新事件
Public Event MitsubishiDataUpdated As EventHandler(Of DataUpdatedEventArgs)
Public Event SiemensDataUpdated As EventHandler(Of DataUpdatedEventArgs)

' 在采集线程中触发事件
SyncLock mxLock
    ' ...读取数据...
    RaiseEvent MitsubishiDataUpdated(Me, New DataUpdatedEventArgs With {
        .Data = mitsubishiData,
        .Timestamp = DateTime.Now
    })
End SyncLock

6. 异常处理与调试技巧

6.1 常见错误代码解析

6.2 实时调试方法

6.2.1 三菱PLC调试

1. 使用MX Component自带的测试工具：

   • 打开MX Monitor
   • 选择对应的逻辑站号
   • 实时监控设备值变化

2. 网络抓包分析：

   bash复制wireshark -i eth0 -f "port 5561" -w mitsubishi.pcap
   

6.2.2 西门子PLC调试

1. 使用TIA Portal的在线监控功能
2. 通过S7.NET的调试模式：

   vb.net复制plc.DebugMode = True
   plc.DebugOutput = "s7_debug.log"
   

6.3 性能优化建议

1. 通讯间隔优化：

   • 关键数据：50-100ms
   • 普通数据：500-1000ms
   • 历史数据：5000ms以上

2. 数据打包策略：

   vb.net复制' 三菱批量读取示例
   mx.ReadDeviceBlock("D100", 50, batchData)
   
   ' 西门子批量读取示例
   plc.ReadBytes(DataType.DataBlock, 1, 0, 100, bigBuffer)
   

3. 连接保持机制：

   vb.net复制' 心跳检测线程
   Private Sub HeartbeatThread()
       While True
           SyncLock mxLock
               If Not mx.IsOpen Then
                   mx.Open()
               End If
           End SyncLock
           
           SyncLock s7Lock
               If Not plc.IsConnected Then
                   plc.Close()
                   plc.Open()
               End If
           End SyncLock
           
           Thread.Sleep(10000)
       End While
   End Sub
   

7. 项目实战经验分享

7.1 现场部署注意事项

1. 网络隔离：

   • 为不同品牌PLC配置独立的网络交换机
   • 使用VLAN划分逻辑网络
   • 禁用工控机的无线网络

2. 防火墙配置：

   bash复制netsh advfirewall firewall add rule name="Mitsubishi PLC" dir=in action=allow protocol=TCP localport=5561
   netsh advfirewall firewall add rule name="Siemens PLC" dir=in action=allow protocol=TCP localport=102
   

3. 抗干扰措施：

   • 使用屏蔽双绞线（STP）
   • 避免与变频器共用电缆槽
   • 在PLC端添加信号隔离器

7.2 代码健壮性设计

1. 重连机制实现：

   vb.net复制Public Function SafeReadMitsubishi(device As String, retryCount As Integer) As Integer
       For i As Integer = 1 To retryCount
           Try
               Dim value As Integer
               mx.ReadDeviceRandom(device, 1, value)
               Return value
           Catch ex As Exception
               If i = retryCount Then Throw
               Thread.Sleep(1000)
               mx.Close()
               mx.Open()
           End Try
       Next
       Return 0
   End Function
   

2. 数据校验策略：

   vb.net复制Public Function ValidateSiemensData(data As Byte()) As Boolean
       If data Is Nothing OrElse data.Length = 0 Then Return False
       
       ' 检查数据头尾标志
       If data(0) <> &HAA OrElse data(data.Length - 1) <> &H55 Then
           Return False
       End If
       
       ' 校验和验证
       Dim checksum As Byte = 0
       For i As Integer = 1 To data.Length - 2
           checksum = checksum Xor data(i)
       Next
       
       Return checksum = data(data.Length - 2)
   End Function
   

7.3 高级应用场景

7.3.1 跨PLC联动控制

vb.net复制' 当三菱D100值变化时触发西门子操作
Private Sub MitsubishiDataChanged(sender As Object, e As EventArgs)
    If mitsubishiData(0) > 100 Then
        SyncLock s7Lock
            plc.Write("DB1.DBX0.0", True)  ' 触发西门子动作
        End SyncLock
    End If
End Sub

7.3.2 数据持久化方案

vb.net复制' SQLite数据库记录
Using conn As New SQLiteConnection("Data Source=plc_data.db")
    conn.Open()
    
    Dim cmd As New SQLiteCommand(
        "INSERT INTO history(timestamp, plc_type, address, value) " &
        "VALUES(@time, @type, @addr, @val)", conn)
    
    cmd.Parameters.AddWithValue("@time", DateTime.Now)
    cmd.Parameters.AddWithValue("@type", "Mitsubishi")
    cmd.Parameters.AddWithValue("@addr", "D100")
    cmd.Parameters.AddWithValue("@val", mitsubishiData(0))
    
    cmd.ExecuteNonQuery()
End Using

8. 源码结构解析

8.1 项目目录结构

code复制PLCCommunicationDemo/
├── Libraries/               # 第三方库
│   ├── S7.Net.dll           # 西门子通讯库
│   └── Act.dll              # 三菱MX组件
├── Documents/               # 文档
│   ├── S7NET_CN.pdf         # S7.NET中文手册
│   └── MX_Manual.pdf        # MX组件手册
├── Configs/                 # 配置文件
│   ├── Mitsubishi.config    # 三菱PLC配置
│   └── Siemens.config       # 西门子PLC配置
├── Models/                  # 数据模型
│   ├── PlcData.vb           # 数据实体类
│   └── Communication.vb     # 通讯基础类
├── Services/                # 服务层
│   ├── MitsubishiService.vb # 三菱服务
│   └── SiemensService.vb    # 西门子服务
└── MainForm.vb              # 主界面

8.2 核心类设计

8.2.1 三菱服务类

vb.net复制Public Class MitsubishiService
    Implements IDisposable
    
    Private ReadOnly mx As New ActEasyIF
    Private ReadOnly config As MitsubishiConfig
    Private ReadOnly dataBuffer As ConcurrentDictionary(Of String, Integer)
    
    Public Sub New(config As MitsubishiConfig)
        Me.config = config
        InitializeConnection()
    End Sub
    
    Private Sub InitializeConnection()
        mx.ActLogicalStationNumber = config.StationNumber
        ' ...其他初始化代码...
    End Sub
    
    Public Function ReadDevice(device As String) As Integer
        Dim value As Integer
        mx.ReadDeviceRandom(device, 1, value)
        dataBuffer(device) = value
        Return value
    End Function
    
    ' ...其他方法...
End Class

8.2.2 西门子服务类

vb.net复制Public Class SiemensService
    Implements IDisposable
    
    Private plc As Plc
    Private ReadOnly config As SiemensConfig
    Private ReadOnly dataBuffer As ConcurrentDictionary(Of String, Object)
    
    Public Event DataUpdated As EventHandler(Of DataUpdatedEventArgs)
    
    Public Sub New(config As SiemensConfig)
        Me.config = config
        InitializePlc()
    End Sub
    
    Private Sub InitializePlc()
        plc = New Plc(config.CpuType, config.IpAddress, config.Rack, config.Slot)
        plc.Open()
    End Sub
    
    Public Function ReadData(dataBlock As Integer, offset As Integer, dataType As VarType) As Object
        Dim address = $"DB{dataBlock}.DB{GetTypePrefix(dataType)}{offset}"
        Dim value = plc.Read(address, dataType)
        dataBuffer(address) = value
        RaiseEvent DataUpdated(Me, New DataUpdatedEventArgs With {
            .Address = address,
            .Value = value
        })
        Return value
    End Function
    
    ' ...其他方法...
End Class

9. 性能优化进阶

9.1 通讯负载均衡

vb.net复制' 动态调整采集频率
Private Sub AdjustPollingRate()
    Dim cpuUsage = GetCpuUsage()
    Dim memUsage = GetMemoryUsage()
    
    If cpuUsage > 80 OrElse memUsage > 80 Then
        ' 降频采集
        mitsubishiPollingInterval = 200
        siemensPollingInterval = 200
    Else
        ' 正常频率
        mitsubishiPollingInterval = 50
        siemensPollingInterval = 50
    End If
End Sub

9.2 数据压缩传输

vb.net复制' 三菱批量数据压缩读取
Public Function ReadCompressedData(startAddress As String, count As Integer) As Byte()
    Dim values(count - 1) As Integer
    mx.ReadDeviceBlock(startAddress, count, values)
    
    Using ms As New MemoryStream()
        Using gz As New GZipStream(ms, CompressionMode.Compress)
            Dim bytes = values.SelectMany(Function(x) BitConverter.GetBytes(x)).ToArray()
            gz.Write(bytes, 0, bytes.Length)
        End Using
        Return ms.ToArray()
    End Using
End Function

9.3 异步编程模型

vb.net复制' 异步读取示例
Public Async Function ReadMitsubishiAsync(device As String) As Task(Of Integer)
    Return Await Task.Run(Function()
        Dim value As Integer
        SyncLock mxLock
            mx.ReadDeviceRandom(device, 1, value)
        End SyncLock
        Return value
    End Function)
End Function

' 在UI线程调用
Private Async Sub UpdateDataAsync()
    Dim d100 = Await mitsubishiService.ReadMitsubishiAsync("D100")
    txtD100.Text = d100.ToString()
End Sub

10. 安全防护措施

10.1 通讯加密方案

vb.net复制' AES加密通讯数据
Public Function EncryptData(data As Byte(), key As String) As Byte()
    Using aes As New AesManaged
        aes.Key = Encoding.UTF8.GetBytes(key).Take(32).ToArray()
        aes.IV = New Byte(15) {}
        
        Using encryptor = aes.CreateEncryptor()
            Using ms As New MemoryStream()
                Using cs As New CryptoStream(ms, encryptor, CryptoStreamMode.Write)
                    cs.Write(data, 0, data.Length)
                End Using
                Return ms.ToArray()
            End Using
        End Using
    End Using
End Function

10.2 访问控制实现

vb.net复制' 基于角色的访问控制
Public Class PlcAccessController
    Private ReadOnly userRoles As Dictionary(Of String, String())
    
    Public Sub New()
        userRoles = New Dictionary(Of String, String()) From {
            {"operator", {"read"}},
            {"engineer", {"read", "write"}},
            {"admin", {"read", "write", "config"}}
        }
    End Sub
    
    Public Function CheckPermission(user As String, permission As String) As Boolean
        Return userRoles.ContainsKey(user) AndAlso 
               userRoles(user).Contains(permission)
    End Function
End Class

10.3 审计日志记录

vb.net复制' 操作审计日志
Public Sub LogOperation(user As String, operation As String, details As String)
    Dim logEntry = $"{DateTime.Now:yyyy-MM-dd HH:mm:ss} [{user}] {operation} - {details}"
    
    ' 写入文件
    File.AppendAllText("plc_audit.log", logEntry & Environment.NewLine)
    
    ' 写入Windows事件日志
    Using eventLog As New EventLog("Application")
        eventLog.Source = "PLCCommApp"
        eventLog.WriteEntry(logEntry, EventLogEntryType.Information)
    End Using
End Sub

在实际项目部署中，我们通常会遇到各种预料之外的情况。记得在一次现场调试中，发现三菱Q系列PLC在连续运行48小时后会出现通讯丢包，最终发现是MX组件的内存泄漏问题，通过定期重启通讯服务解决了这个问题。这也提醒我们，无论代码写得多么完善，现场环境总能带来新的挑战。