破案了，串口问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

3月20日我发帖说升级后，串口有问题

新版本升级后,串口出问题http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=147607&replyID=&skin=1

因为顾客在外地，一时找不到原因，今天终于被我找到原因了：

顾客的电脑是老实的台式机，有2个串口（com1，com2），我们开发用的电脑只有1个串口com1

Ports.Add("COM1")

With Ports("COM1")

肯定是没问题

但是顾客把客显插在了com2 上，难怪不显示。

现在问题来了，foxtable有没有办法检测顾客用了那个串口？

我估计难，因为客户显示器无需握手信号就可接受数据，所以我采用了笨办法遍历：

'打开串口

For Each SP As String In Ports.PortNames

Ports.Add(SP)

With Ports(SP)

.Close()

.Parity = Parity.None

.Handshake = Handshake.None

.StopBits = StopBits.One

.BaudRate = 2400

.DataBits = 8

.ReadBufferSize() = 2048

.WriteBufferSize() = 2048

.Open

End With

发送数据关闭串口都用同样的办法。缺点就是多占用了一个串口

各位大师还有没有更好的办法？

试试

Dim c1 As String

Dim cms() As String = {"COM1","COM2"}

For Each c As String In cms

Ports.Add(c)

For Each sp As String In Ports.PortNames

If sp c Then

c1 =c

Exit For

End If

If c1 > "" Then Exit For

End If

If c1 > ""

With Ports(c1)

.Close()

.Parity = Parity.None

.Handshake = Handshake.None

.StopBits = StopBits.One

.BaudRate = 2400

.DataBits = 8

.ReadBufferSize() = 2048

.WriteBufferSize() = 2048

.Open

End With

End If

还有2种情况要考虑: 1 有些电脑没有com口,这样写会不会报错? 2 有些电脑有COM3,COM4

[此贴子已经被作者于2020/3/26 14:09:34编辑过]

试试就知道了

Dim cms() As String = {"COM1","COM2","COM3","COM4"}

是这样吗：

Dim c1 As String

Dim cms() As String = {"COM1","COM2"}

For Each c As String In cms

Ports.Add(c)

For Each sp As String In Ports.PortNames

If sp = c Then

c1 =c

Exit For

End If

If c1 > "" Then Exit For

If c1 > ""

With Ports(c1)

.Close()

.Parity = Parity.None

.Handshake = Handshake.None

.StopBits = StopBits.One

.BaudRate = 2400

.DataBits = 8

.ReadBufferSize() = 2048

.WriteBufferSize() = 2048

.Open

End With

End If

试过了，不行，它好像只是找有哪些端口，并不能知道我用那个端口

那就没有办法了

主题：破案了， 串口问题

主题：破案了，串口问题