Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim L As List
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")
L.Initialize
End Sub
Sub Random As Int
Dim N As Int = (Rnd (0,30) +1) ' Numerber range 1-30
If l.Size<30 Then
Do While L.IndexOf(N)>-1
N = (Rnd (0,30) +1) ' Numerber range 1-30
Loop
Else
' All number find, restart
L.Clear
End If
L.Add(N)
Return N
End Sub