'Activity module
Sub Process_Globals
Dim CurrentActivity As String
End Sub
Sub Globals
Dim objNFC As NFC
End Sub
Sub Activity_Create(FirstTime As Boolean)
End Sub
Sub Activity_Resume
Log("ActivityNFCHandler Started")
If objNFC.IsNdefIntent( Activity.GetStartingIntent) Then
Dim records As List = objNFC.GetNdefRecords(Activity.GetStartingIntent)
If records.Size>0 Then
Dim r As NdefRecord = records.Get(0)
Dim value As String = r.GetAsTextType
Select Case CurrentActivity
Case "Main" : CallSubDelayed2(Main,"NFCScan",value)
Case "ActivityRoutineAdmin" : CallSubDelayed2(ActivityRoutineAdmin,"NFCScan",value)
End Select
CurrentActivity = ""
Activity.Finish()
End If
End If
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub