我要用串口发送一组十六进制的数据 一个起始的十六进制 ef 后面跟着三个10进制变量的a1 a2 a3 先把 三个十进制的变量转换成十六进制数据 然后在发送出去。例如 a1为256 a2为33 a3为16 转换到十六进制后分别为FF 21 10 则串口发送的数据为EF FF21 10.请各位VB高手们来帮忙一下 新手 努力学习中 谢谢了
希望能来个源码啊
第1个回答 2013-03-15
尺寸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
'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
第2个回答 2013-02-27
Dim SendHex As String
SendHex = "EE " & Hex(a1) & " " & Hex(a2) & " " & Hex(a3)
SendHex = "EE " & Hex(a1) & " " & Hex(a2) & " " & Hex(a3)
