Question

VB中如果向串口发送一个十六进制的数用奇校验怎么办？

比如说我要发30H，那发出去就是B0H，把数据中的1变为奇数个。但如果我要发40H，那发出去就是40H，数据中1的个数是一个，数据不变。

Answer 1

应该是你的转换格式不正确，下面代码就是将文本框中以一个空格隔开的十六进制转为字节的代码，文本框中数字格式为：01 02 03
Dim TestArray() As String = Split(TextBox1.Text)
Dim hexBytes() As Byte
ReDim hexBytes(TestArray.Length - 1)
Dim i As Integer
For i = 0 To TestArray.Length - 1
hexBytes(i) = Val("&h" & TestArray(i))
Next

SerialPort.Write(hexBytes, 0, hexBytes.Length