使用的SerialPort

Question

我有困難發送到串行端口的整數發送到COM1整數...我想這樣的東西，它運行良好，但我不能在港口撿東西了。

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

獲取PortMon By Mark Russinovich (formerly of SysInternals)。

這將幫助你確認端口被打開，正確配置和寫入。 您應該看到您的流程進行了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這是你將發送數據的長度。