Hex2Str = strRet
End Function
Private Sub btnOpen_Click()
On Error Resume Next
With mscCom
.CommPort = 1
.Settings = "9600,n,8,1"
.InputMode = comInputModeBinary
.PortOpen = True
End With
If Err.Number = 0 Then
MsgBox "Comm Port Opened!", vbInformation
Else
MsgBox "Comm Port Open Failed!", vbExclamation
End If
End Sub
Private Sub btnTest_Click()
On Error GoTo errHandle
Dim b() As Byte
Dim v As Variant
Dim i As Integer
Dim b1 As Byte
For i = 0 To 2 + Combo1.ItemData(Combo1.ListIndex)
txtSend.Text = txtSend.Text & Hex2Str(b(i)) & " "
Next i
txtSend.Text = txtSend.Text & vbNewLine
End With
Exit Sub
errHandle:
MsgBox Err.Description, vbExclamation
End Sub
Private Sub Command1_Click()
On Error GoTo errHandle
Dim b() As Byte
Dim v As Variant
Dim i As Integer
With mscCom
.InputLen = 0
ReDim b(2)
b(0) = &HC3
b(1) = 0
b(2) = 0
v = b
.Output = v
For i = 0 To 2
txtSend.Text = txtSend.Text & Hex2Str(b(i)) & " "
Next i
txtSend.Text = txtSend.Text & vbNewLine
End With
Exit Sub
errHandle:
MsgBox Err.Description, vbExclamation
End Sub
Private Sub Command2_Click()
On Error GoTo errHandle
Dim b() As Byte
Dim v As Variant
Dim i As Integer
Dim b1 As Byte
Dim s As String