Description of functions
AN3954
28/47
Doc ID022016 Rev 4
Where:
“00” is the status byte (see
“00” is the size of the answer
Returned value
:
lngStatus:
0: No error
5: CR95HF demonstration board not connected
2: Empty argument error
Source code example
Private Sub cmdSTCmd_RdReg_Click()
Dim strAnswer As String * 256
Dim lngStatus As Long
lngStatus = CR95HFDll_STCmd("010803620100", strAnswer)
If (lngStatus = 0) Then
txtSTCmd_RdReg.Text = strAnswer
Else
txtSTCmd_RdReg.Text = "Read register not executed properly"
End If
End Sub
Private Sub cmdSTCmd_ISO15693_Click()
Dim strAnswer As String * 256
Dim lngStatus As Long
lngStatus = CR95HFDll_STCmd("010202010D", strAnswer)
If (lngStatus = 0) Then
txtSTCmd_ISO15693.Text = strAnswer
Else
txtSTCmd_ISO15693.Text = " ISO15693 protocol not selected"
End If
End Sub
Private Sub cmdSTCmd_Idle_Click()
Dim strAnswer As String * 256
Dim lngStatus As Long
lngStatus = CR95HFDll_STCmd("01070E0B21007801180020606064743F01",
strAnswer)
If (lngStatus = 0) Then
txtSTCmd_Idle.Text = strAnswer
Else
txtSTCmd_Idle.Text = " No Idn returned from CR95HF IC "
End If
End Sub