如何用十六进制向串口发送数据
下面这段代码是以文本文式发送数据的,向MsComm1控件,请问可以改以用十六进制发送吗

dim tStr as string
tstr= "ff 48 49 4b 31 00 00 00 02 00 00 00 31 32 33 34 35 36 37 38 39 30 00 00 00 00 00 00 31 62 00 00 "
Sub send(txtin As String)
If MSComm1.PortOpen = True Then
MSComm1.Output = txtin
DoEvents
End If
DoEvents
End Sub

[解决办法]
用以下方法转换为十六进制数据:

dim tStr as string
tstr= "ff 48 49 4b 31 00 00 00 02 00 00 00 31 32 33 34 35 36 37 38 39 30 00 00 00 00 00 00 31 62 00 00 "
v = Split(tstr, " ")
Dim buffer() As Byte
ReDim buffer(UBound(v))

For i = 0 To UBound(v)
buffer(i) = "&H " & v(i)
Next
buffer 就是十六进制数组
[解决办法]
楼上的方法可行
[解决办法]
楼上上正解