VB485多机通讯数组怎么定义

来源：百度知道 编辑：UC知道 时间：2024/06/06 01:28:31
本人做流量积算仪课题，现在能做到单机通信，多机就不知道发送的数组怎么定义（发送数据长度6位，其中地址2位不定），接受数据怎么按地址分配，还有发送时间间隔也不知道怎么写
具体要求：主要是对下位机进行实时信号采集，其中主要包括流量 温度 压力， 精度不用很高 采用MSCOMM控件，发送接收都是十六进制，没有命令按钮

以下代码供参考:
Option Explicit
Dim strData As String
Private Sub Command1_Click()
Dim Senddat(5) As Byte
Dim i As Integer
For i = 1 To 12 Step 2 '从发送文本框txtSend获取发送数据
Senddat((i - 1) / 2) = "&H" & Mid(txtSend.Text, i, 2)
Next i
MSComm1.Output = Senddat '发送数据
End Sub

Private Sub Form_Load()
txtRcv.Text = ""
txtSend.Text = "123456789013" '注意修改为你实际指令
MSComm1.CommPort = 1 '设置端口号为1
MSComm1.Settings = "9600,N,8,1" '设置波特率等通 ′信协议
MSComm1.InputLen = 0 '设置一次从串口读取6个字节
MSComm1.RThreshold = 6
MSComm1.PortOpen = True '打开串行口
MSComm1.InputMode = comInputModeBinary '从串口读取二进制数据
End Sub

Private Sub MSComm1_OnComm()
Dim Rcvdat() As Byte
Dim dattemp As Variant
Dim i As Integer
Select Case MSComm1.CommEvent
Case 2<