我在将以下十六进制代码 0x01 0x03 0x00 0x00 0x00 0x01 0x0a 0x84 发送到串行设备(电压传感器)时遇到了一些麻烦,该设备将使用 Python 和 pyserial 返回当前电压的 int。我的代码如下:
import serial
import time
ser = serial.Serial(
port=1,
baudrate=38400,
parity=serial.PARITY_NONE,
stopbits=serial.STOPBITS_TWO,
bytesize=serial.EIGHTBITS,
timeout=0,
xonxoff=0,
rtscts=0)
ByteStringToSend = "\x01\x03\x00\x00\x00\x01\x0a\x84"
ser.write(ByteStringToSend)
time.sleep(1)
RecievedData = ""
while ser.inWaiting() > 0:
RecievedData = ser.read(1)
return RecievedData
问题是 Python 似乎将每个字节作为单独的数据包发送,请参见下图来自串行监视器
见图片http://www.centralinfo.com.au/images/SerialOutput.png
前 8 个字节(00 - 07)来自 python 应用程序(注意不同数据包的交替颜色)接下来的 8 个字节(08 - 0f)是一个 VB.net 应用程序,它发送相同的工作数据。
我的问题是如何根据 vb.net 应用程序发送上面的 8 个十六进制字节,使其位于一个数据包(Modbus 协议)中?
VB代码对比:
' open the serial port if it is closed
If Me.SerialPort1.IsOpen = False Then
Me.SerialPort1.PortName = ComPort
Me.SerialPort1.BaudRate = "38400" 'Set Baud rate
Me.SerialPort1.RtsEnable = False ' Set RTS
Me.SerialPort1.DtrEnable = False ' Set DTR
Me.SerialPort1.Parity = IO.Ports.Parity.None
Me.SerialPort1.StopBits = IO.Ports.StopBits.Two
Me.SerialPort1.DataBits = 8 ' Set data length
Me.SerialPort1.Handshake = Handshake.XOnXOff
Me.SerialPort1.ReadTimeout = 10000
Me.SerialPort1.WriteTimeout = 10000
Me.SerialPort1.Open()
End If
Try
Dim CommandBlock(7) As Byte
CommandBlock(0) = &H1
CommandBlock(1) = &H3
CommandBlock(2) = &H0
CommandBlock(3) = &H0
CommandBlock(4) = &H0
CommandBlock(5) = &H1
CommandBlock(6) = &HA
CommandBlock(7) = &H84
Me.SerialPort1.Write(CommandBlock, 0, CommandBlock.Length)
Thread.Sleep(100)
Return True
Catch ex As Exception
Return False
End Try
提前感谢您的宝贵时间克里斯