7,763
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Dim i As Integer
Private Sub Command1_Click()
Dim progm As String
Dim pbn As String
Dim strData As String
Dim sj() As Byte
Dim ml As String
progm = "849"
pbn = "01"
strData = progm & pbn
For i = 1 To Len(strData)
ml = ml & Hex(Asc(Mid(strData, i, 1)))
Next
ml = "024B" & ml & "03"
Print ml
ReDim sj(Len(ml) / 2 - 1)
For i = 0 To Len(ml) - 1 Step 2
sj(i / 2) = Val("&H" & Mid(ml, i + 1, 2))
Next
MSComm1.Output = sj
End Sub