Código fuente serial vs.

Por ejemplo, envíe hexadecimal: 01 02 03.

Solo agrega antes del 01 02 03. Lo haré.

dim TestArray()As String = Split(" 01 02 03 ")

Dim hexBytes() As Bytes

ReDim hexBytes(TestArray. Longitud - 1 )

Anote I como un número entero

Para i = 0 en TestArray. Longitud - 1

bytes hexadecimales(I) = Val(matriz de prueba de amplificador "&H"(I))

Luego

Puerto serie. escribir(hexBytes, 0, hexBytes. longitud)