vb.net查找可用串口 vb串口接收数据

vb.net串口类程序,串口打不开

1、检查串口是否正确vb.net查找可用串口，比如COM1，COM2，COM3等vb.net查找可用串口；

2、检查波特率是否正确，比如9600，115200等vb.net查找可用串口；

3、检查数据位、停止位、校验位是否正确，比如8位数据位、1位停止位、无校验位等；

4、检查串口线是否接好；

5、检查串口是否被其他程序占用，可以使用串口调试助手查看；

6、检查串口驱动是否安装正确，可以在设备管理器中查看；

7、检查程序代码是否正确，可以使用串口调试助手查看。

相关问答

Q1: VB与VB.NET串口及以太网通迅

关于串口通讯的问题：

很明显，你还不知道（不会、不习惯）使用事件驱动的方式接收数据。

建议你仔细看看串口组件（无论VB6还是VB.net）的OnComm事件，你的问题很容易解决。

关于以太网通讯：

在TCP通讯中端口确实可以重用，你百度一下“TCP端口重用”能查到很多示例。

但绝大多数情况下不推荐端口重用，而应该采取服务器端建立连接池的方法。

或者，干脆不用TCP，用UDP解决也可以。

Q2: 怎样在vb中自动检测到可用串口号

没有任何办法单独检测串口是否连接你只能实时向串口发送测试数据，这个测试数据必须要能够被串口连接的设备识别并且有返回数据才行。如果上面的工作你都没问题，那么每个时间间隔，你都发送测试数据，如果你能接收到正确的返回值，自然就连接了，如果不能接收正确的返回值，那说明没连接设备。当然，如果你发送些无效的不能被串口已经连接的设备所理解并能给你回送数据的东西，也不会得到任何回应。

Q3: 怎样在vb中自动检测到可用串口号的具体程序代码？

j = 0\x0d\x0aFor i = 1 To 16 Step 1\x0d\x0aIf comISP.PortOpen = True Then '先关闭串口\x0d\x0acomISP.PortOpen = False\x0d\x0aEnd If\x0d\x0a\x0d\x0acomISP.CommPort = i\x0d\x0aOn Error Resume Next '说明当一个运行时错误发生时vb.net查找可用串口，控件转到紧接着发生错误vb.net查找可用串口的语句之后vb.net查找可用串口的语句vb.net查找可用串口，并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。\x0d\x0acomISP.PortOpen = True\x0d\x0aIf Err.Number 8002 Then '无效的串口号。这样可以检测到虚拟串口vb.net查找可用串口，如果用Err.Number = 0的话检测不到虚拟串口\x0d\x0aIf j = 0 Then\x0d\x0aj = i\x0d\x0aEnd If\x0d\x0acboPort.AddItem "COM" i '生成串口选择列表\x0d\x0aEnd If\x0d\x0acomISP.PortOpen = False\x0d\x0aNext i\x0d\x0a\x0d\x0aIf j = 1 Then\x0d\x0acboPort.Text = "COM" j '自动打开可用的最小串口号\x0d\x0acomISP.CommPort = j\x0d\x0acomISP.PortOpen = True\x0d\x0acmdOpenCom.Caption = "关闭串口"\x0d\x0ashpCOM.FillColor = vbGreen\x0d\x0aIf Err.Number = 8005 Then '串口已打开,vbExclamation '\x0d\x0acomISP.PortOpen = False\x0d\x0acboPort.Text = ""\x0d\x0acmdOpenCom.Caption = "打开串口"\x0d\x0ashpCOM.FillColor = vbRed\x0d\x0aEnd If\x0d\x0aEnd If

Q4: 怎样在vb中自动检测到可用串口号的具体程序代码

j = 0

For i = 1 To 16 Step 1

If comISP.PortOpen = True Then '先关闭串口

comISP.PortOpen = False

End If

comISP.CommPort = i

On Error Resume Next '说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。

comISP.PortOpen = True

If Err.Number 8002 Then '无效的串口号。这样可以检测到虚拟串口，如果用Err.Number = 0的话检测不到虚拟串口

If j = 0 Then

j = i

End If

cboPort.AddItem "COM" i '生成串口选择列表

End If

comISP.PortOpen = False

Next i

If j = 1 Then

cboPort.Text = "COM" j '自动打开可用的最小串口号

comISP.CommPort = j

comISP.PortOpen = True

cmdOpenCom.Caption = "关闭串口"

shpCOM.FillColor = vbGreen

If Err.Number = 8005 Then '串口已打开,vbExclamation '

comISP.PortOpen = False

cboPort.Text = ""

cmdOpenCom.Caption = "打开串口"

shpCOM.FillColor = vbRed

End If

End If

vb.net查找可用串口的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb串口接收数据、vb.net查找可用串口的信息别忘了在本站进行查找喔。