VB与三菱Q系列PLC通讯源码解析：从MC协议到稳定收发-北京尧图网络

简介一份面向工业自动化上位机开发者的VB与三菱Q系列PLC通讯数据传输源码包聚焦串口与网络通信场景适合具备VB基础并希望掌握PLC数据交换的开发新手也适合需要实际工程参考的进阶人员。整个压缩包仅277KB包含51个文件以VB源码、工程文件、动态链接库和可执行程序为核心另有调试记录、界面资源、XML配置等辅助内容目录划分清晰可以直接用Visual Studio打开工程查看。已有204人学习浏览源码演示了串口初始化、链路开启、读写指令构造与发送、返回数据接收解析到最终关闭串口的完整流程并包含了异常捕获、实时通信及数据格式转换等工程实用细节。对照三菱Q系列PLC端的寄存器与数据区设定能够帮助阅读者快速建立上位机与PLC通信的整体设计思路并将相关方法迁移到实际生产线监控、设备数据采集等项目中去。1. 为什么一份VB源码能省掉你一下午上次接到一台三菱Q系列PLC的数据对接需求我一开始以为上位机无非就是设好串口参数、发个报文结果卡在请求帧上波特率没错、地址没错PLC就是不理你。后来我把这套VB与三菱Q系列PLC通讯数据传输源码TcpClient.sln从头到尾拆了一遍才把连接初始化、命令帧组装、接收解析和字节序转换这几件事彻底理顺。这份资源尤其适合两类人一是刚入工控上位机、对PLC通讯协议还不太熟的开发者二是程序已经能跑但偶尔丢数据、不知道怎么排查的熟手。它能帮你省时间的点不在代码量而在把“数据怎么发出去、响应怎么读回来”这件事交代清楚了。2. 通讯方式选型先搞清楚Q系列PLC吐出来的是什么协议帧2.1 串口和以太网都叫MC协议只是帧外壳不同三菱Q系列PLC对外通讯的底层协议基本是MC协议MELSEC Communication Protocol但承载方式不同帧结构也不同一个走串口RS-232/422/485一个走以太网TCP/UDP。很多新手拿到VB工程后第一件事就是找“MSComm控件”或者“SerialPort类”这并不错但你要先确认PLC那一端提供的是串口还是以太网口。如果你看的工程叫TcpClient.sln那基本上可以判定源码走的是TCP客户端模式因为Visual Basic .NET里TcpClient这个类就是用来做以太网通讯的。当然也不排除有串口分支但工程名已经给出强烈暗示。实际现场判断标准也很简单PLC上有没有以太网模块GX Works2里模块参数配的是“内置以太网端口”还是“串口通讯模块”。只要走以太网就按MC协议的4E帧二进制格式来处理走串口则可能是ASCII文本帧或者4D二进制帧。我的习惯是先抓一次包或者用串口助手看一次原始字节再决定上位机代码怎么写。不要一上来就按某个网上模板从头抄因为三菱PLC的帧格式受模块固件、GX Works2设置影响很大不同项目里“访问路径”和“网络号”这两位经常不一样。2.2 串口还是以太网三个选择指标这里给一张选型对照表做项目选型时可以直接套。对比项RS-232/RS-422串口以太网TCP/UDP传输距离一般15米以内RS-422可更远网线可达100米交换机级联更长实时性波特率决定上限通常够用网络缓存与TCP重传有一定不确定性抗干扰差一点长线易受现场变频器干扰较好但布线要避开动力电缆工程量点对点简单需要IP地址规划、端口规划典型场景单台上位机直接连一台PLC车间多台设备数据采集到MES选型上没有绝对好坏。比如你在调试台临时读写D寄存器串口更快参数直观如果这台设备将来要并进车间数据采集系统那我建议直接上以太网。这套TcpClient源码对你最大的价值是把以太网方式的请求帧怎么构造、响应帧怎么解析讲清楚了串口的坑后面我会提几句。2.3 请求帧怎么组装读D寄存器的4E帧示例MC协议的以太网请求帧很多人第一次看会懵一段十六进制字节里既有帧头、命令又有数据长度和软元件代码。以最常见的“批量读取软元件”为例请求帧关键部分包括帧头与网络号、PLC号等内容监视定时器决定PLC处理这次请求的超时判定命令字段与子命令字段读软元件是一组固定值数据长度注意它只统计数据区字节数不是整帧长度数据区包含软元件代码、起始地址、读取点数。下面是一段组帧代码按常见4E帧结构写的。不同固件版本字段顺序可能有差异现场测试前最好对照一次抓包数据。 summary 组装批量读取软元件的请求帧以太网MC协议常见4E帧结构 deviceCodeD寄存器0x00A8按低字节在前传输 startAddr起始地址比如0 points读取点数比如10个连续地址 /summary Private Function BuildReadFrame(deviceCode As UShort, startAddr As Integer, points As UShort) As Byte() Dim frame As New List(Of Byte) 帧头D0、网络号00、PLC号10、IO编号00 注意PLC号这一字节不同模块定义不同有的项目填FF frame.Add(HD0) frame.Add(H00) frame.Add(H10) frame.Add(H00) 监视定时器0x0010 16 x 250ms 4000ms frame.Add(H00) frame.Add(H10) 命令读软元件 0x0401二进制传输低字节在前 frame.Add(H01) frame.Add(H04) 子命令0x0000访问CPU软元件 frame.Add(H00) frame.Add(H00) 访问路径常见Q兼容模式填 00 00 00 00 00 FF 03 00 Dim path As Byte() {H00, H00, H00, H00, H00, HFF, H03, H00} frame.AddRange(path) 数据长度 2字节软元件代码 3字节起始地址 2字节点数 7 frame.Add(H07) frame.Add(H00) 软元件代码D寄存器0x00A8低字节A8在前 frame.Add(CByte(deviceCode And HFF)) frame.Add(CByte(deviceCode 8)) 起始地址3字节小端排列地址0就是00 00 00 frame.Add(CByte(startAddr And HFF)) frame.Add(CByte((startAddr 8) And HFF)) frame.Add(CByte((startAddr 16) And HFF)) 点数2字节小端10个点就是0A 00 frame.Add(CByte(points And HFF)) frame.Add(CByte((points 8) And HFF)) Return frame.ToArray() End Function这段代码最容易踩坑的就是“字节序”。三菱PLC多数协议字段传输时按低字节在前所以0x0401写成01 040x00A8写成A8 00。如果你把这几个字段按直觉“高字节在前”填进去PLC会一直回负响应或者干脆不回应。数据长度字段也是同样的规则7写成07 00而不是00 07。提示访问路径的8个字节是很多项目里被改得最多的位置。以太网模块型号不同、PLC号设置不同这8个字节可能跟着变。现场不通时先别怀疑命令代码优先核对访问路径和站号。2.4 响应帧的常见字段和请求帧的差异要分清响应帧结构与请求帧不完全对称。请求帧里是“命令子命令数据区”响应帧则是“请求回显结束代码数据区”。结束代码为0时代表正常非0就对应协议手册里的异常表比如地址越界、数据个数超限、软元件代码不存在等。我在解析响应帧时一般会先打印原始字节再判断结束代码。不要直接拿“响应数据的第N个字节”去当数值因为你得先跳过结束代码字段。很多人写解析代码时把偏移量算错一位结果读回来的数据比实际值大一截或始终是0。3. 源码拆解TcpClient.sln 从打开到发出第一帧3.1 先看工程文件每个文件管什么这套源码的工程结构不算复杂先花两分钟把文件角色认清楚后面改代码不会迷路。文件/目录作用TcpClient.sln解决方案文件Visual Studio直接打开TcpClient.vbprojVB.NET项目文件引用了哪些命名空间由它决定Form1.vb主窗体逻辑按钮事件、收发数据的主要代码在这里Form1.Designer.vb界面布局和控件初始化代码App.config应用配置文件适合放IP、端口、超时时间ResourceHome.png窗体的图片资源obj/bin编译中间产物和输出目录平时不用去动打开sln之后按F5能直接跑起来。没接真实PLC时点“读取”大概率会报超时这不代表源码坏了只说明你的电脑当前没有和PLC建立TCP连接。源码里如果有模拟数据按钮可以先选模拟模式看界面逻辑。3.2 连接初始化TcpClient 与 SerialPort 两条路虽然工程名叫TcpClient.sln但你在其他工程里看到的串口方式仍然值得记一下因为不少老设备还是走RS-232。下面是两条路的初始化代码。Imports System.Net.Sockets Imports System.IO.Ports Public Class PlcConnection 以太网方式 Private _client As TcpClient Private _stream As NetworkStream 串口方式 Private _serial As SerialPort summary 连接PLC以太网模块 /summary Public Sub ConnectTcp(ip As String, port As Integer) _client New TcpClient() _client.NoDelay True _client.ReceiveTimeout 2000 _client.SendTimeout 2000 注意Connect会阻塞UI线程里调用要放到Task.Run中 _client.Connect(ip, port) _stream _client.GetStream() End Sub summary 连接PLC串口参数要和PLC侧通讯设置完全一致 /summary Public Sub ConnectSerial(portName As String, baudRate As Integer) _serial New SerialPort(portName, baudRate, Parity.Even, 8, StopBits.One) _serial.ReadTimeout 2000 _serial.WriteTimeout 2000 _serial.Open() End Sub End ClassConnectTcp里的NoDelay True是很多老代码里容易漏掉的。这个属性决定TCP是否启用Nagle算法。Nagle算法会把小数据包合并发送减少网络报文数量但代价是增加了延迟。工业上位机通常追求指令响应速度所以一般设成True让请求帧立即发出去。串口方式里波特率、校验位、数据位、停止位四项要和PLC端“串口通讯设置”完全一致否则会出现能收到数据但全是乱码的问题。还有一点要提TcpClient.Connect是同步阻塞方法。如果PLC网线没插好这一步可能要等十几秒才返回直接放在按钮事件里会让界面“假死”。常见做法是用Task.Run包一层或者用ConnectAsync。3.3 发送与接收别用一次Read读完TCP流很多人在这个点上翻车。TCP是流式协议不是你自己定义的“一次一帧”。你发了一条请求帧PLC返回的响应可能分两个包到达也可能多个响应挤在一个包到达。如果直接stream.Read(buffer, 0, buffer.Length)大概率读不够或读多了。我一般会封装一个“读完整帧”的方法先读固定长度头部再从头部里解析出数据长度再循环读取数据区。Private ReadOnly _commLock As New Object() summary 发送请求帧并读取完整响应帧 /summary Private Function SendAndReceive(request As Byte()) As Byte() SyncLock _commLock If _stream Is Nothing Then Throw New InvalidOperationException(连接未建立) End If 清空接收缓冲防止上次残留数据影响本次解析 While _stream.DataAvailable _stream.ReadByte() End While _stream.Write(request, 0, request.Length) _stream.Flush() 先读响应头部。这里头部长度视协议版本而定我先按10字节处理 Dim headerLen As Integer 10 Dim header(headerLen - 1) As Byte ReadExactly(header, 0, headerLen) 头部最后2字节是数据区长度低字节在前 Dim dataLen As Integer header(headerLen - 2) Or (header(headerLen - 1) 8) Dim data(dataLen - 1) As Byte ReadExactly(data, 0, dataLen) Dim response(headerLen dataLen - 1) As Byte Buffer.BlockCopy(header, 0, response, 0, headerLen) Buffer.BlockCopy(data, 0, response, headerLen, dataLen) Return response End SyncLock End Function summary 保证把count字节全部读完而不是读一次就返回 /summary Private Sub ReadExactly(buffer As Byte(), offset As Integer, count As Integer) Dim total As Integer 0 While total count Dim n _stream.Read(buffer, offset total, count - total) If n 0 Then Throw New IOException(连接被对端关闭) End If total n End While End Sub这段代码里的SyncLock _commLock很重要。如果界面里同时有“读取”和“写入”两个按钮用户快速连续点击时两个线程可能同时操作同一条TCP连接造成数据交叉响应帧就错乱了。用同一个对象加锁能保证同一时刻只有一个请求在收发。ReadExactly这个函数解决的是“读一次不够”的问题。TCP分包后第一次Read可能只返回几十字节必须循环读直到读满指定长度。这个细节在网速不稳的现场尤其重要漏了它程序会在运行一段时间后出现莫名其妙的“解析异常”。3.4 数据解析D寄存器与32位数据的字节序三菱Q系列D寄存器默认按16位保存传输时低字节在前。比如PLC里D00x1234你收到的两个字节就是34 12。用VB.NET的BitConverter.ToUInt16直接转在小端机器上结果恰好是对的但如果你手动拼字节就一定要按“低字节或上高字节左移8位”的方式。32位数值占两个连续D寄存器。常见顺序是低位寄存器在前、高位寄存器在后但不同PLC型号、不同GX Works2设置也可能反过来。稳妥做法是先打印原始4字节再对比PLC监控画面确定顺序。Dim raw16(1) As Byte Dim value16 As UShort CUShort(raw16(0) Or (CUShort(raw16(1)) 8)) Dim lowWord As UShort 0 Dim highWord As UShort 0 Dim value32 As Integer (CInt(highWord) 16) Or lowWord从字节中组合32位值时CInt强制转换不能省。运算在VB.NET里优先级和布尔运算不同不显式加括号很容易算出错误结果。调试时可以先写死一组已知数据比如PLC里D0100、D10确认拼接顺序对了再接入业务。4. 联调实操让VB上位机与Q系列PLC对上话的五个步骤4.1 通讯参数对照表联调前先做一次全面对表。常见错误是PLC侧已经是二进制4E帧上位机却还在发ASCII文本帧或者端口号不一致。下面这些参数必须一一对应。PLC侧设置项VB上位机对应项说明以太网IP地址App.config里的PlcIp必须同网段不能冲突端口号App.config里的PlcPort常见工程用5000但以PLC实际配置为准帧格式二进制/ASCII请求帧构造方式二进制4E帧以D0开头文本帧以STX开头通讯协议TCP/UDPTcpClient还是UdpClient源码名是TcpClient默认按TCP软元件地址格式起始地址参数D按十进制X/Y按十六进制App.config里建议把IP、端口、超时时间都拎出来不要写死在Form1.vb里。现场改连接时只改配置不改代码既能减少出错也方便复制给别的电脑用。4.2 有PLC现场按这套顺序排查第一步确认物理链路。电脑和PLC的以太网模块接在同一个交换机上电脑IP和PLC IP调整到同一网段。Ping一下目标IP但要注意很多PLC默认不回应ICMP包。Ping不通不要直接判定网络不通可以用网络调试工具往PLC端口发一段测试数据看有没有响应。第二步进入GX Works2确认PLC软元件的实际值。比如在D0里写入一个已知整数1234这样上位机读出来什么你心里有数。第三步修改App.config里的IP和端口启动VB程序点击“读取D0”观察调试输出窗口打印的原始十六进制字节。只要首字节是D0开头说明PLC已经回了正常帧如果收到的帧首字节是15或者F9基本可以判断请求帧有问题。第四步抓一次完整字节流对照第2章的BuildReadFrame方法逐字节核对。我见过最多的问题是访问路径里PLC号填错导致PLC一直返回负响应。第五步确认数值解析无误后再测写入、再测连续读写。不要把“能读一次”当成“联调完成”连续跑100次没有异常才算真正稳定。4.3 没PLC现场用模拟服务端验证请求帧没有实物PLC时不要干等。用网络调试工具在电脑本地开一个TCP Server监听同样的端口把VB工程连接地址改成127.0.0.1。先用“模拟响应”功能把一段典型响应帧原样返回验证上位机解析代码是否正常再反向验证请求帧是否符合协议。我一般会准备一组固定响应数据比如模拟D0D2三个寄存器值分别为100、200、300响应帧按正常格式拼接。这样不用去现场就能把“组帧”和“解析”两个环节先调到正确。到了现场只需要根据实际PLC设置微调访问路径和IP即可。5. 避坑记录和三菱Q系列PLC做数据通讯最容易踩的5个坑5.1 能连上端口读回来的数据却全是0现象TCP连接建立成功上位机也发了请求帧但返回的数据区全是0或PLC完全不回应。原因最常见是帧格式不对。PLC侧设置的帧格式是ASCII文本帧你发的是二进制4E帧TCP能握手但PLC解析不了命令。另一种原因是请求帧里的起始地址或软元件代码不对导致PLC返回了别的地址区域。解决先在GX Works2里查看以太网模块的“帧格式”设置确认是二进制还是ASCII。再打印发送帧和接收帧的原始字节核对命令字段和软元件代码。还有一个小技巧PLC不回应时把访问路径里PLC号改成FF再试一次很多模块默认站号就是255。5.2 点一下“读取”按钮界面就卡死现象程序运行时点击读取按钮整个窗口立刻无响应过几秒后恢复甚至直接提示“未响应”。原因按钮事件里直接调用了TcpClient.Connect和NetworkStream.Read。PLC不在线时Connect要等TCP超时Read要等接收超时两个超时叠加起来界面必然卡死。解决把所有阻塞操作放到后台线程用Task.Run或者Async方法。UI更新控件时需要Invoke不能在后台线程直接改TextBox.Text。另外ReveiveTimeout和SendTimeout不要设成0表示无限要设成明确数值比如2000毫秒。5.3 写寄存器成功了设备动作却不对现象用写入命令向D寄存器写入数值程序返回成功但现场设备不动作或者动作和预期不符。原因D寄存器是字软元件M是位软元件X/Y是输入输出映像。如果把位信号写进D区PLC程序读不对。地址进制也可能搞混D地址用十进制X和Y地址用十六进制X0到XF后下一组就是X10很多人从网上复制的地址习惯不一样。解决先确认你要操作的到底是一个字还是一个位。如果是控制电机启停通常需要写M线圈或Y输出用写软元件命令配合M/C等软元件代码。写之前先在GX Works2里监控一下地址确认该地址没有被程序其他地方占用。5.4 读到的32位数值和PLC监控画面对不上现象D0和D1组合成一个32位整数上位机读出来是负数或者数值比PLC监控画面大/小好几个数量级。原因32位数据在高位寄存器和低位寄存器的排列顺序上存在差异。有的PLC把D0作为低16位、D1作为高16位有的工程习惯相反。另外三菱PLC里带符号整数用二进制补码表示无符号和有符号解析结果完全不同。解决打印原始4字节先按无符号组合再按有符号组合对比PLC监控画面确认寄存器顺序。然后把顺序写死在一个公共方法里不要散落在业务代码各处否则后续维护时很容易改乱。5.5 通讯正常但每隔一段时间就超时一次现象程序刚启动时通讯正常持续读写一段时间后某次请求突然超时之后连接的通讯全部异常必须重启程序才能恢复。原因服务端PLC模块可能会在空闲一段时间后关闭连接或检测到异常帧后断开链路。上位机还在用旧连接读写自然超时。另一种可能是接收缓冲区里有残留数据下一次请求的响应和上一次没读完的数据混在一起解析错乱。解决每次接收前先清空NetworkStream缓冲区。捕获IOException和SocketException后不要继续使用旧连接直接重连。更强的做法是加心跳机制即使没有业务请求也每隔几秒发送一次监视请求或读取请求让链路保持活跃。6. 进阶把“能通”变成“稳定”封装、心跳与原始帧日志6.1 一个通用读写方法替换按钮里的临时代码源码里的按钮事件往往写得比较直观点击读取把结果显示到文本框。但直接这样写后续每个地址都要复制一份代码会越来越难维护。我会把所有操作收敛成一个类对外只暴露ReadWords、WriteWord这类方法内部做组帧、收发、超时重试。Public Function ReadWords(deviceCode As UShort, startAddr As Integer, points As UShort) As Integer() Dim request As Byte() BuildReadFrame(deviceCode, startAddr, points) Dim response As Byte() SendAndReceive(request) 这里检查结束代码再解析数据区 Dim values(points - 1) As Integer For i As Integer 0 To points - 1 Dim offset As Integer dataStartIndex i * 2 values(i) CInt(response(offset)) Or (CInt(response(offset 1)) 8) Next Return values End Function这个封装的价值不只是代码好看。它让“组帧格式”只出现在一个文件里将来换PLC型号或改协议字段时只改这一处业务层调接口看不懂协议也能跑通。6.2 原始帧日志是排障后悔药“偶发丢数据”是最难排查的。我会在每次收发时把方向和原始字节打到本地日志文件包含毫秒级时间戳。Private Sub AppendLog(direction As String, bytes As Byte()) Dim hex As String BitConverter.ToString(bytes).Replace(-, ) My.Computer.FileSystem.AppendAllText( plc_comm.log, ${DateTime.Now:yyyy-MM-dd HH:mm:ss.fff} {direction} {hex} vbCrLf, True) End Sub别小看这一行日志。现场设备出问题时有完整请求帧和响应帧记录能快速判断是上位机发错指令、PLC返回异常还是网络丢包。没有日志就只能靠猜。从那以后我每次接新PLC通讯项目都会先做两件事把通讯类封装好把原始帧日志跑起来然后才动业务界面。心跳和重连是稳定性的底线日志是排障的后悔药。希望帮到你。本文还有配套的精品资源点击获取

VB与三菱Q系列PLC通讯源码解析：从MC协议到稳定收发

相关推荐

AI辅助教材写作：从初稿到低查重的完整实操指南

AI编程智能体分级选型与全行业落地实践指南

无需训练即可评估神经网络架构：NASWOT原理与实践

更多资讯

QtXlsx在VS2019下的编译配置与Excel读写实战

六大开源Agent框架深度拆解：任务规划、工具调用与记忆管理选型指南

安全帽佩戴检测毕设全流程：从YOLO数据准备到部署答疑

NUMA架构下PHP-FPM性能优化：从原理到绑核实操全解析

8位单片机实现模糊控制洗衣机的工程实践

SpringBoot+Vue前后端分离：小区物业管理系统源码实战解析

今日更新

电商智能运营体系从0到1：架构设计、落地步骤与避坑指南

压缩空气储能与热网热惯性联合优化调度：热电联产系统建模与求解

若依框架AI代码生成不稳定？用Agent Skill三层结构+五步法搞定

本周精选

金融AI落地指南：从调研报告到技术选型与工程实践

大模型上下文成本与注意力优化技术深度解析——为何O(n²)平方复杂度无法被常规优化消除｜TaoToken 统一 Key 通道实测

基于GMM的语音识别系统原理与MATLAB实现详解

本月热门

我发现了一个新思路：用 Remotion + Claude Code 像写代码一样自动化生成短视频

Windows下 Codex 中 Chrome 和 Computer Use 插件不可用问题排查及解决参考方式：TaoToken 统一 Key 配置与验证

2026 大模型集体涨价：用 Python 做企业 Token 成本测算与选型避坑（附配置）

读完文章，想聊聊您的网站？