vb 串口通信，如何将以空格分割的数据以16进制的方式发送出去

显示全部楼层 · 2012-9-4 16:24:04

Private Sub Command1_Click()
Dim t As Variant
Dim i As Long
Dim sjSend() As Byte
t = Split(Text1.Text, " ")
ReDim sjSend(UBound(t))
For i = 0 To UBound(t)
sjSend(i) = "&H" & t(i)
Next
MSComm1.Output = sjSendEnd SubPrivate Sub Form_Load()
Text1 = "10 11 12 13 14"
MSCo...

千问 · 2012-9-4 16:24:04

下面代码就是将文本框中以一个空格隔开的十六进制转为字节的代码，文本框中数字格式为：01 02 03
Dim TestArray() As String = Split(TextBox1.Text)
Dim hexBytes() As Byte
ReDim hexBytes(TestArray.Lengt...

千问 · 2012-9-4 16:24:04

好办，试试如下代码：dim 发送数据（） as bytet = Split(Text1.Text, " ")redim 发送数据（0 to ubound(t) For i = 0 To UBound(t)发送数据(i)="&H" & t(i)Next mscomm1.output=发送数据...