Question

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

我要用串口发送一组十六进制的数据 一个起始的十六进制 ef 后面跟着三个10进制变量的a1 a2 a3 先把 三个十进制的变量转换成十六进制数据 然后在发送出去。例如 a1为256 a2为33 a3为16 转换到十六进制后分别为FF 21 10 则串口发送的数据为EF FF21 10.请各位VB高手们来帮忙一下 新手 努力学习中 谢谢了
希望能来个源码啊

Answer 1

私人小组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

Answer 2

尺寸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

Answer 3

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