Public Sub FtSendStr(ByVal sendstr As String, ByVal RS232 As IO.Ports.SerialPort)
Dim i As Integer
Dim sj() As Byte
ReDim sj(Len(sendstr) / 2 - 1)
For i = 0 To Len(sendstr) / 2 - 1
sj(i) = Val("&H" & Mid(sendstr, i * 2 + 1, 2)) '将字符串中对应的两个字符放入相应数组中;
Next
If RS232.IsOpen Then
RS232.Write(sj, 0, sj.Length)
Else
MsgBox("端口未打开或被占用!")
End If
End Sub
Dim i As Integer
Dim sj() As Byte
ReDim sj(Len(sendstr) / 2 - 1)
For i = 0 To Len(sendstr) / 2 - 1
sj(i) = Val("&H" & Mid(sendstr, i * 2 + 1, 2)) '将字符串中对应的两个字符放入相应数组中;
Next
If RS232.IsOpen Then
RS232.Write(sj, 0, sj.Length)
Else
MsgBox("端口未打开或被占用!")
End If
End Sub