Question

VB6.0 串口通信 怎么在程序运行时就能读仪表数据？是在form里应该用什么语句写读数据？？

form里代码：
Call chushihua
Timer1.Enabled = True
testflag = True
MSComm1.PortOpen = True

Answer 1

根据通信协议和数据约定，在MSComm控件的OnComm事件中读取。
写数据用MSComm控件的Output属性。

追问

我写 MSComm1.Output=x
也还是不对 怎么弄？？

追答

写数据也得依据通信协议和数据约定。
你那样写只是发出一个变量x所代表的字符串指令.

Answer 2

使用事件
Private Sub MSComm1_OnComm()
Dim ThisBuffer As Variant
MSComm1.RThreshold = 0
Select Case MSComm1.CommEvent
Case comEvReceive
ThisBuffer = MSComm1.Input
....
Case 其他的类别
End select
end sub

追问

还是不行 我应该怎么改？

追答

首先你要确认通讯端口的参数设置是否准确，如果一切正确，当控件收到数据后，会触发OnComm事件。你不妨跟踪一下有否执行到Private Sub MSComm1_OnComm()过程。
你的代码中，没看到你设置串口号、波特率等参数。

追问

Private Sub chushihua()
On Error GoTo ErrLine
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.RThreshold = 10
MSComm1.InputMode = comInputModeBinary
Exit Sub

追答

MSComm1.InBufferSize定义缓冲
MSComm1.InputLen定义一次读入的长度
MSComm1.InputMode = comInputModeBinary你确认是二进制方式发送过来的吗
MSComm1.RThreshold = 10事件触发阈值定义为10，要是发送到串口的数据不足10，则不能引发事件，建议你改为1试试看先。

追问

现在我仪表地址设置为1，MSComm1.RThreshold等于1或10、MSComm1_OnComm里有没有MSComm1.InputLen = 0都能正确读取仪表温度值，但仪表地址改成别的就不行了，是怎么回事？怎么弄？？我确认是二进制发送进来的

追答

仪表地址是什么意思？跟本问题无关吧！

追问

晕 读取数据就要按不同的仪表地址来读取不同的数据赋给label或text的，读取时要设置仪表地址是多少，我设置1运行时能读取，其它就不能读取了