Question

VB读取串口数据的问题

请问高手下列这段VB有问题吗?为什么每次程序刚开始运行正常,能取到串口数据,但运行几分钟或十几分钟后显示: "连接控制错误,请重新检查控制箱是否打开！",好像断线了.重新启动程序还是如此.
Private Sub cxmenu_Click()
On Error GoTo errcancel
MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 1
MSComm1.RThreshold = 1
MSComm1.InputLen = 0
MSComm1.InputMode = 1
MSComm1.PortOpen = True
sendSj = Chr(4) & "01" & "P3" & Chr(5)
MSComm1.Output = sendSj
Timercom.Enabled = True
Exit Sub
errcancel:
MsgBox "连接控制错误,请重新检查控制箱是否打开！", vbOKOnly + vbCritical
Timercom.Enabled = False
Exit Sub
End Sub

Answer 1

你这个是 点击 按钮 cxmenu 才发送数据吧

第二次以后点击的话，中间 的 MSComm1.PortOpen = True 肯定出错，你不能 打开一个已经被打开的串口

或许你该把 串口设置 程序段放别的地方，如 form_load 里
MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 1
MSComm1.RThreshold = 1
MSComm1.InputLen = 0
MSComm1.InputMode = 1
MSComm1.PortOpen = True

追问

上断段只是整个程序中的一段,连接好数据线,打开程序显示已经取到数据了,为什么运行一段时间后才显示连不上,如何程序有错,应该立即无法运行才对,会不会通讯接口硬件有问题?我是485转285接入的, 郁闷