使用 SerialPort 将整数发送到 COM1

Question

我在将整数发送到串行端口时遇到困难...我正在尝试这样的东西，它运行良好，但我没有在端口上拾取任何东西。

Private Sub fireToPort()
    Dim sPort As New SerialPort("COM1", 56000, Parity.None, 8, StopBits.One)
    sPort.Open()
    sPort.Write(New Byte() {Hex(1), 255}, 0, 0)
    sPort.Close()
End Sub

有什么建议吗？

Answer 1

sPort.Write 的最后一个参数不应该是您要发送的字节数吗？

例如

  sPort.Write(New Byte() {Hex(1), 255}, 0, 2)

Answer 2

获取Mark Russinovich（前 SysInternals）的 PortMon。

这将帮助您确认端口是否已打开、正确配置并写入。
您应该会看到进程执行 IRP_MJ_WRITE 操作，结果为 SUCCESS。

如果一切正常，那么问题可能是您连接到 COM1 的任何内容都需要不同的波特率。

Answer 3

试试这个

    'I looped my serial port on COM5
    Dim sPort As New IO.Ports.SerialPort("COM5", 57600, IO.Ports.Parity.None, _
                                         8, IO.Ports.StopBits.One)

    sPort.Handshake = IO.Ports.Handshake.None '<<< pick the correct one

    sPort.Open()
    Dim b() As Byte = New Byte() {1, 255, 0, 0}
    sPort.Write(b, 0, b.Length)
    sPort.BaseStream.Flush()

    'because I looped the port I should be able to read it
    Dim b1(3) As Byte
    sPort.Read(b1, 0, 4)
    sPort.Close()

Answer 4

sPort.Write(New Byte() {Hex(1), 255}, 0, 0)

最后一个参数应该是255，这是您将发送的数据的长度。