VB如何用串口發送壹組ASCII碼數據,所有發送或接收的數字都以ASCII代碼來表示

Dim b() As Byte, s As String

'b是妳要往串口發的字節數組

b = StrConv(Right(String(6, "0") & Hex(Text1), 6), vbFromUnicode)

'以下是驗證

For i = 0 To UBound(b)

s = s & Hex(b(i))

Next

Debug.Print s

'以下是還原

s = Format(Val("&H" & StrConv(b, vbUnicode)), String(6, "0"))

Debug.Print s

End Sub

Private Sub Form_Load()

Text1.Text = "000042"

End Sub