Sub Process_Globals
End Sub
Sub Globals
Dim name As String
Dim EditText1 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1") 'Load the layout file.
Dim number As Int
number = Rnd(1, 4) 'Choose a random number between 1 to 3
If number = 1 Then
name = "sophie"
Else If number = 2 Then
name = "nina"
Else If number = 3 Then
name = "angus"
End If
'another way:
' Dim names() As String
' names = Array As String("sophie", "nina", "angus")
' name = names(Rnd(0, 3))
End Sub
Sub Button1_Click
If EditText1.Text.ToLowerCase = name Then
ToastMessageShow("Well done.", True)
Else
ToastMessageShow("No thats not.", False)
End If
EditText1.SelectAll
End Sub