Question

VB怎么在文本中发送16个16进制数

要求数据以空格间隔 如 e1 01 3 4 5 6 7 8 9 10 11 12 13 14 15 ea 且数据可变 发给单片机 用mscomm控件 求高手告诉我VB代码怎么写 STC的串口助手我会的 只是想学VB 万分感谢

Answer 1

Private Sub Command1_Click()
    Dim sj() As String
    Dim i As Long
    sj = Split(Text1, " ")
    Dim sjByt() As Byte
    ReDim sjByt(UBound(sj))
    For i = 0 To UBound(sj)
        sjByt(i) = Val("&H" & sj(i))
    Next
    MSComm1.Output = sjByt
End Sub

Private Sub Form_Load()
    Text1 = "e1 01 3 4 5 6 7 8 9 10 11 12 13 14 15 ea"
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.PortOpen = True
End Sub