如何用VB实现Modbus串行通讯

作者：林小志525家 | 来源：互联网 | 2023-05-18 23:00

如何用VB实现Modbus串行通讯在一些应用中可能需要使用诸如VB来进行上位机监控程序的开发，而Modbus协议是这类应用中首选的通讯协议；Modbus协议以其简单易用，在工业领域里已广泛的为其他第

如何用VB实现Modbus串行通讯在一些应用中可能需要使用诸如VB来进行上位机监控程序的开发，而Modbus协议是这类应用中首选的通讯协议；Modbus协议以其简单易用，在工业领域里已广泛的为其他第三方设备所支持。这里对VB和Twido PLC间的通讯进行说明。
　　对于大部分应用，Twido PLC作为从站，它不需要编制通讯程序，只要把通讯口的参数设置好即可，例如下图表示此Twido通过编程口和上位机连接，其站号地址为2；波特率、数据位、校验、停止位和上位机设置保持一致。
　　
　　VB程序通过利用MSComm控件很容易就能够实现。
　　1．通讯口初始化： [复制到剪贴板]CODE: 　　 MSComm1.Settings = "9600,n,8,1"
　　 MSComm1.CommPort = 1
　　 MSComm1.SThreshold = 0
　　 If Not MSComm1.PortOpen Then MSComm1.PortOpen = True

2． CRC校验码的计算方法，如以下函数，可以得到字节数组变量cmdstring指向的字符串的CRC校验码。 [复制到剪贴板]CODE: 　　Function crc16_1(ByRef cmdstring() As Byte, ByVal j As Integer)
　　 Dim data As Integer
　　 Dim i As Integer
　　
　　
　　 Addressreg_crc = &HFFFF
　　 For i = 0 To j
　　 Addressreg_crc = Addressreg_crc Xor cmdstring(i)
　　 For j = 0 To 7
　　 data = Addressreg_crc And &H1
　　 If data Then
　　 Addressreg_crc = Int(Addressreg_crc / 2)
　　 Addressreg_crc = Addressreg_crc And &H7FFF
　　 Addressreg_crc = Addressreg_crc Xor &HA001
　　 Else
　　 Addressreg_crc = Addressreg_crc / 2
　　 Addressreg_crc = Addressreg_crc And &H7FFF
　　 End If
　　 Next j
　　 Next i
　　
　　 If Addressreg_crc <0 Then
　　 Addressreg_crc = Addressreg_crc - &HFFFF0000
　　 End If
　　
　　 HiByte = Addressreg_crc And &HFF
　　 LoByte = (Addressreg_crc And &HFF00) / &H100
　　End Function

3．读多个字的命令（本例是从2号站读%MW10起始的4个字）： [复制到剪贴板]CODE: 　　 Dim SendStr(7) As Byte
　　 Dim RcvStr() As Byte
　　 SendStr(0) = 2 ,从站号是2
　　 SendStr(1) = &H3 ,读多个字的命令代码
　　 SendStr(2) = 0 ,起始地址高字节
　　 SendStr(3) = 10,起始地址低字节
　　 SendStr(4) = &H0,数据长度高字节
　　 SendStr(5) = 4 ,数据长度低字节
　　
　　 Call crc16(SendStr(), 5) ,CRC计算
　　 SendStr(6) = HiByte
　　 SendStr(7) = LoByte
　　 ,读命令发送后,当接收 5 + SendStr(5) * 2 个字节时产生中断
　　 CmdLenth = 5 + SendStr(5) * 2
　　 MSComm1.RThreshold = CmdLenth
　　 MSComm1.Output = SendStr ,发送命令
　　

4．写多个字的命令（本例是写2号站%MW20起始的3个字）： [复制到剪贴板]CODE: 　　 Dim WriteStr() As Byte
　　 k = 6 ,写6个字节
　　 ReDim WriteStr(8 + k)
　　
　　 WriteStr(0) = 2 ,从站号是2
　　 WriteStr(1) = &H10 ,写多个字的命令代码
　　 WriteStr(2) = 0 ,起始地址高字节
　　 WriteStr(3) = 20 ,起始地址低字节
　　 WriteStr(4) = &H0 ,数据长度高字节<字的个数>
　　 WriteStr(5) = k / 2 ,数据长度低字节<字的个数>
　　
　　 WriteStr(6) = k ,数据长度<字节的个数>
　　 WriteStr(7) = &H12,写的第1个字的高字节
　　 WriteStr(8) = &H34,写的第1个字的低字节
　　 WriteStr(9) = &H56,写的第2个字的高字节
　　 WriteStr(10) = &H78,写的第2个字的低字节
　　 WriteStr(11) = &H9A,写的第3个字的高字节
　　 WriteStr(12) = &HBC,写的第3个字的低字节
　　
　　 Call crc16(WriteStr(), 6 + k)
　　 WriteStr(9 + (k / 2 - 1) * 2) = HiByte
　　 WriteStr(10 + (k / 2 - 1) * 2) = LoByte
　　
　　 MSComm1.InBufferCount = 0
　　 MSComm1.Output = WriteStr
　　 ,写命令发送后,当接收到8个字节时中断
　　 CmdLenth = 8
　　 MSComm1.RThreshold = CmdLenth

5．通讯事件中断产生时的数据处理： [复制到剪贴板]CODE: 　　Private Sub MSComm1_OnComm()
　　 Dim inx() As Byte
　　 Select Case MSComm1.CommEvent
　　 Case comEvReceive ,判断为接收事件
　　 MSComm1.InputLen = CmdLenth ,接收数据的长度
　　 inx = MSComm1.Input ,接收数据
　　 MSComm1.InBufferCount = 0
　　
　　 For k = 3 To CmdLenth - 3
　　 tmpstr = tmpstr & "/" & Hex(inx(k))
　　 Next
　　 Text1.Text = tmpstr ,以十六进制显示所接收长度的数据
　　
　　
　　 Beep
　　 End Select
　　End Sub

推荐阅读

cmd
C#生成随机数的三种方法及其问题分析

本文介绍了C#中生成随机数的三种方法，并分析了其中存在的问题。首先介绍了使用Random类生成随机数的默认方法，但在高并发情况下可能会出现重复的情况。接着通过循环生成了一系列随机数，进一步突显了这个问题。文章指出，随机数生成在任何编程语言中都是必备的功能，但Random类生成的随机数并不可靠。最后，提出了需要寻找其他可靠的随机数生成方法的建议。 ... [详细]

蜡笔小新 2023-12-14 14:15:30
string
Java中包装类的设计原因以及操作方法

本文主要介绍了Java中设计包装类的原因以及操作方法。在Java中，除了对象类型，还有八大基本类型，为了将基本类型转换成对象，Java引入了包装类。文章通过介绍包装类的定义和实现，解答了为什么需要包装类的问题，并提供了简单易用的操作方法。通过本文的学习，读者可以更好地理解和应用Java中的包装类。 ... [详细]

蜡笔小新 2023-12-12 15:48:10
stream
Swing组件及其用法，图标接口的定义和创建方法

本文介绍了Swing组件的用法，重点讲解了图标接口的定义和创建方法。图标接口用来将图标与各种组件相关联，可以是简单的绘画或使用磁盘上的GIF格式图像。文章详细介绍了图标接口的属性和绘制方法，并给出了一个菱形图标的实现示例。该示例可以配置图标的尺寸、颜色和填充状态。 ... [详细]

蜡笔小新 2023-12-11 21:03:59
string
使用C++编写程序实现增加或删除桌面的右键列表项

本文介绍了使用C++编写程序实现增加或删除桌面的右键列表项的方法。首先通过操作注册表来实现增加或删除右键列表项的目的，然后使用管理注册表的函数来编写程序。文章详细介绍了使用的五种函数：RegCreateKey、RegSetValueEx、RegOpenKeyEx、RegDeleteKey和RegCloseKey，并给出了增加一项的函数写法。通过本文的方法，可以方便地自定义桌面的右键列表项。 ... [详细]

蜡笔小新 2023-12-10 10:08:46
string
流数据流和IO流的使用及应用

本文介绍了流数据流和IO流的基本概念和用法，包括输入流、输出流、字节流、字符流、缓冲区等。同时还介绍了异常处理和常用的流类，如FileReader、FileWriter、FileInputStream、FileOutputStream、OutputStreamWriter、InputStreamReader、BufferedReader、BufferedWriter等。此外，还介绍了系统流和标准流的使用。 ... [详细]

蜡笔小新 2023-12-09 09:12:53
usb
STM32 IO口模拟串口通讯

转自：http:ziye334.blog.163.comblogstatic224306191201452833850647前阵子，调项目时需要用到低波 ... [详细]

蜡笔小新 2023-10-17 19:54:28
string
fzu 1715 Ball and Box n个不同的求放到m个不同的盒子中方法的个数

1715BallandBoxAccept:120Submit:288TimeLimit:1000mSecMemoryLimit:32768KBProblem ... [详细]

蜡笔小新 2023-10-11 17:39:14
string
[线段树|平衡树|树状数组]LightOJ - 1087 - Diablo

1087-DiabloPDF(English)StatisticsForum ... [详细]

蜡笔小新 2023-10-10 09:22:06
string
这是我在四天内听完陈老师讲的java基础加强后的总结

一、MyEclipse中的一些常用的快捷键：ctrl+shift+x大写ctrl+shift+y小写alt+内容提示写住方法的时候可以先写main然后按alt+就可以了ctrl+1 ... [详细]

蜡笔小新 2023-09-18 22:37:50
string
Java实现大数乘法（分治算法）

本文介绍了使用Java实现大数乘法的分治算法，包括输入数据的处理、普通大数乘法的结果和Karatsuba大数乘法的结果。通过改变long类型可以适应不同范围的大数乘法计算。 ... [详细]

蜡笔小新 2023-12-14 15:43:50
string
力扣leetcode 1584. 连接所有点的最小费用

给定一个二维平面上的一些点，通过计算曼哈顿距离，求连接所有点的最小总费用。只有任意两点之间有且仅有一条简单路径时，才认为所有点都已连接。给出了几个示例并给出了对应的输出。 ... [详细]

蜡笔小新 2023-12-14 12:55:48
string
如何在有序字符序列中插入新字符并保持有序

本文介绍了如何在给定的有序字符序列中插入新字符，并保持序列的有序性。通过示例代码演示了插入过程，以及插入后的字符序列。 ... [详细]

蜡笔小新 2023-12-14 11:16:33
string
C语言指针的应用与价值探讨与阐述

本文探讨了C语言中指针的应用与价值，指针在C语言中具有灵活性和可变性，通过指针可以操作系统内存和控制外部I/O端口。文章介绍了指针变量和指针的指向变量的含义和用法，以及判断变量数据类型和指向变量或成员变量的类型的方法。还讨论了指针访问数组元素和下标法数组元素的等价关系，以及指针作为函数参数可以改变主调函数变量的值的特点。此外，文章还提到了指针在动态存储分配、链表创建和相关操作中的应用，以及类成员指针与外部变量的区分方法。通过本文的阐述，读者可以更好地理解和应用C语言中的指针。 ... [详细]

蜡笔小新 2023-12-13 15:02:30
string
2015年九月八日js学习总结及相关知识点

本文介绍了2015年九月八日的js学习总结及相关知识点，包括参考书《javaScript Dom编程的艺术》、js简史、Dom、DHTML、解释型程序设计和编译型程序设计等内容。同时还提到了最佳实践是将标签放到HTML文档的最后，并且对语句和注释的使用进行了说明。 ... [详细]

蜡笔小新 2023-12-10 11:10:08
string
VB中用API实现字体公用对话框例子

PrivateConstLF_FACESIZE32PrivateConstCF_PRINTERFONTS&H2PrivateConstCF_SCREENFONTS ... [详细]

蜡笔小新 2023-09-13 16:20:39

林小志525家

这个家伙很懒，什么也没留下！

Tags | 热门标签

RankList | 热门文章