如何在VB中往串口发送一组十六进制的数据

私人小组Command1_Click（）
尺寸B（）字节，S作为字符串
'B到串行的头发是一个字节数组
B = STRCONV（右（串（6，0）和十六进制（文本），6），vbFromUnicode）

验证
对于i = 0要UBound函数（二）
S = S＆十六进制（B（I））

Debug.Print小号

以下是减少
=格式（VAL（“＆H”，vbUnicode STRCONV（B）） ，
Debug.Print小号

END SUB

私人小组Form_Load（）
文本1。文本字符串（“0”））=“ 000042
END SUB

尺寸B Command1_Click（）（）个字节，S为一个字符串

'B的串行头发是一个字节数组

B = STRCONV（右（字符串（6 0）和十六进制（文本），6），vbFromUnicode）

验证

对于i = 0 UBound函数（二）

S = S＆十六进制（B（I））

Debug.Print小号

减少

=格式（VAL（“＆H”，：vbUnicode STRCONV（B）），

Debug.Print小号

END SUB

私人小组Form_Load（）文本中的文本字符串（“0”））= 000042
END SUB

Dim SendHex As String
SendHex = "EE " & Hex(a1) & " " & Hex(a2) & " " & Hex(a3)