Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click ' 直接发送文本框的十六进制字符串

Try

' Dim Send_Flag As Boolean

Dim A As String

Dim C As String

Dim B() As String

C = TextBox1.Text

A = "00," & C

B = A.Split(",")

Dim i As Integer

For i = 0 To B.Length - 1

Send_Hex(B(i))

Next

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub Send_Hex(hexString As String) '16进制字符串转16进制数据

'*********************** 文本string 转 hex ********************

' SerialPort.Write(TextBox1.Text)

Dim TestArray() As String = Split(hexString)

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)

'****************** End *******************************

End Sub