急：怎样通过VB串口控件发送16进制数据！

[asset]

各位大侠，帮帮忙吧！！谢谢啦。

[asset]

我这里就是要采用以组为单位发送，请问一下怎样对数组赋值？能不能举个例子！谢谢

[Sean918]

Dim vSend As Variant
Dim bSend(0 To 5) As Byte

bSend(0) = &H1
bSend(1) = &H2
bSend(2) = &H3
bSend(3) = &H4
bSend(4) = &H5
bSend(5) = &H6

vSend = bSend
If MSComm1.PortOpen Then
MSComm1.Output = vSend
Else
MSComm1.PortOpen = True
MSComm1.Output = vSend
End If
Do While (MSComm1.OutBufferCount <> 0)
Loop

[Sean918]

发送16进制数直接发送就可以

Dim vSend As Variant

vSend = &HEF

If MSComm1.PortOpen Then
MSComm1.Output = vSend
Else
MSComm1.PortOpen = True
MSComm1.Output = vSend
End If

Do While (MSComm1.OutBufferCount <> 0)
Loop

如果发送的数据是以组为单位，则定义一个 byte 数组。把数组赋值后，把数组头赋值给Variant变量发送就行