Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Type Task (S As String, a() As Object)
Dim TaskList As List
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
TaskList.Initialize
Dim T As Task
T.S = "TaskA"
T.a = Array As Object(1)
TaskList.Add(T)
Dim T As Task
T.S = "TaskB"
T.a = Array As Object(2,"MySelf")
TaskList.Add(T)
Dim T As Task
T.S = "TaskC"
T.a = Array As Object(1.5,1,"YourSelf")
TaskList.Add(T)
End Sub
Sub Activity_Resume
Log(DoSeveralTasks)
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub DoSeveralTasks As Boolean
Dim jo As JavaObject = Me
For Each T As Task In TaskList
Dim result As Boolean = jo.RunMethod("_"&T.S.ToLowerCase,T.a)
If result = False Then Return False
Next
Return True
End Sub
Sub TaskA(n As Int) As Boolean
Log("TaskA")
If n = 1 Then Return True
Return False
End Sub
Sub TaskB(n As Int, s As String) As Boolean
Log("TaskB")
If n = 1 AND s = "MySelf" Then Return True
Return False
End Sub
Sub TaskC(d As Double, n As Int, s As String) As Boolean
Log("TaskC")
If d > 1.0 AND n = 1 AND s = "YourSelf" Then Return True
Return False
End Sub