Modbusvb源程序(可以读写寄存器)剖析.docxVIP

modbus vb源程序 可以读写寄存器 自己的项目做完了，最近比较闲，就帮别人用VB写了一个很简单的modbus程序，可以实现实时数据采集显示，以及能对寄存器进行设置。程序很简单，想用的可以完善，现在只能实时采集显示一个地址的数据，只要修改一下，就可以实时采集多个地址的数据。现在也只能一次对一个寄存器进行设置，也可以更加完善。想用的朋友就自己改改吧。 下面是运行界面，采集的模块的地址为75，是一个温湿度采集模块。有3个寄存器，显示的数据上是温度，湿度，露点温度。 modbus Private Sub Command1_Click() 设置按钮 Dim bisend() As Byte Dim crc Dim btLoCRC As Byte, btHiCRC As Byte Dim Data As Integer If MSComm1.PortOpen = True Then If Combo5.ListIndex = 0 Then ReDim bisend(7) 重新定义数组长度 bisend(0) = h + Hex(Val(Text1.Text)) 地址码 bisend(1) = h + Hex(3) 功能码