vb中如何用mscomm控件读取RemoDAQ-8036的数据?
正在用vb做一个温度控制系统,但不知道vb中如何用mscomm控件读取RemoDAQ-8036的数据,跪求高手帮助,在线等待
专用设备的操作代码是很难在论坛中等到的,如果你有其它同类型设备的操作代码,就参考RemoDAQ-8031/8031D/8033/8033D/8036/8036A 用户手册,进行研究吧!
给你一段电子磅数据代码做参考吧!
If MSComm1.InBufferCount Then
Do While MSComm1.InBufferCount < 30 '等待接收全部数据
DoEvents
Loop
Buffer = MSComm1.Input
Else
Buffer = ""
End If
Text2.Text = StrConv(Buffer, vbUnicode)
mychar = Chr(2) ' 获取需要查找的字符串。
Where = InStr(Text1.Text, mychar) ' 在文本中查找字符串chr。
If Where > 0 Then ' 如果找到,
Text2 = Mid(Text1.Text, Where + 1, 7)
Text2.SelStart = 1 ' 设置选定的起始位置并file
Text2.SelLength = 7 ' 设置选定的长度。
Text1.Text = Text1.SelText
weight = Text2.SelText
'MsgBox ""
Else
Text1.Text = " 系统提示: 没有接收到格式数据!" ' 给出通知cstr
Text1.Refresh
'Exit Sub
End If