Question

vb给串口发送数据

我这有一个vb写的给串口发送数据的程序，给笔记本的usb转串口可以发送，通过软件虚拟串口也可以发送，但在台式机上的pci转串口上面发送就不成功，用串口助手测试这些转接出来的串口没有问题，在该台式机上虚拟串口也可以，但程序直接给转接的串口就是不行，帮我看看吧
Option Explicit
Dim i As Integer

Private Sub Comm()
Dim a(0 To 20) As Byte
Dim s As String

a(0) = &H48
a(1) = &H45
a(2) = &H4C
a(3) = &H4C
a(4) = &H4F
a(4) = &H49

MSComm1.Output = a
End Sub

Private Sub Form_Load()

MSComm1.CommPort = 1 '"选用com1串行口

MSComm1.Settings = "9600,n,8,1" '"波特率9600，无奇偶校验位，8位数据位1位停止位

MSComm1.InputLen = 1 '"读取input接收缓冲区全部字节

MSComm1.InBufferSize = 1024 '"设置接收缓冲区的字节长度

MSComm1.InBufferCount = 0 '"清除发送缓冲区数据

MSComm1.OutBufferCount = 0 '"清除接收缓冲区数据

MSComm1.InputMode = 1 '"输入模式为binary

MSComm1.RThreshold = 1 '"控件收到数据时将触发OnComm事件

MSComm1.Handshaking = 2

MSComm1.PortOpen = True

End Sub

Private Sub Timer1_Timer()
i = i + 1
Comm
If i = 3 Then Timer1.Enabled = False: End '3次关闭自动发送
End Sub

若以下回答无法解决问题，邀请你更新回答

Answer 1

你要看清楚了，你程序用的是COM1，台式机上的pci转串口是不是转换出来的串口也是COM1？

追问

串口号不会错的，我已经看了，台式机上的也是1 没有问题，

追答

比较一下串口的设置。看看I/O端口是否占用，资源是否冲突等等。应该不是代码的问题，因为在别的环境可以正常运行。

追问

还是 不行啊，我程序有问题吗，帮我看看啊

追答

看过了，程序没问题，你要不还是找个USB转串口，插在台式机上用。

追问

我用的多啊 8个呢usb 太浪费了

追答

哦，你用的是多串口卡，也许和系统兼容性有点问题，要不换台机器试试，或者重装XP系统