UC知道请VB高手帮我写几句mscomm程序
来源：百度知道 编辑：UC知道 时间：2024/09/24 10:16:21
我有个仪器，发送帧的协议如下：
每秒输出一帧测量信息，每帧由18个ASCii码字符组成，每个字符间隔20mS,数据格式如下：
FCMxxxxAVxxxxxTxx{CR}
前三个FCM是字头，4-7即xxxx为瞬时值，其中一位是小数,10-14即xxxxx为平均值,其中两位是小数；倒第二和第三是平均时间N（秒），{CR}是回车。
我想把瞬时值和平均值读出来，弄了半天，也没读出来。我用如下一句：
text1.text=mscomm1.input读，结果text1中是. ^ ? 3 还有一个不认识的汉字。
请高手帮忙啊。
每秒输出一帧测量信息，每帧由18个ASCii码字符组成，每个字符间隔20mS,数据格式如下：
FCMxxxxAVxxxxxTxx{CR}
前三个FCM是字头，4-7即xxxx为瞬时值，其中一位是小数,10-14即xxxxx为平均值,其中两位是小数；倒第二和第三是平均时间N（秒），{CR}是回车。
我想把瞬时值和平均值读出来，弄了半天，也没读出来。我用如下一句：
text1.text=mscomm1.input读，结果text1中是. ^ ? 3 还有一个不认识的汉字。
请高手帮忙啊。
MSComm1.RThreshold = 18
Dim byIn() As string ' 数组
Dim i%
byIn = MSComm1.Input
For i = LBound(byIn) To UBound(byIn)
Next i
If i = 17 Then
If byIn(0) = f And byIn(1) = c And byIn(5) = m and ...
Then
text1.text=byin(3)&byin(4)&byin(5)&byin(6) '瞬时值
End If
End If
end