EU-Camioneros

'Activity module
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

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.
    'Componentes
    Dim Button1 As Button
    Dim Button2 As Button
    Dim EditText1 As EditText
    Dim EditText2 As EditText
    Dim EditText3 As EditText
    Dim respuesta_sistema_lbl As Label
    'Variables
    Dim finalizar As Boolean = False
    Dim Diccionario()
    Dim pregunta, respuesta As String
    Dim pregunta_en_aleman As Boolean
    Dim aleatorio As Int
    Dim repetir_pregunta As Boolean = False
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Cargamos el Layout donde estaran los componentes
    'de otra manera, no aparecera nada
    Activity.LoadLayout("deutsch2spanish")
    'Inicio el diccionario
    Dim semaforo As Spanish_Deutsch
    semaforo.setDeutsch("ampel")
    semaforo.setSpain("semaforo")
    Diccionario.Add(semaforo)

    Dim freno As Spanish_Deutsch
    freno.setDeutsch("bremse")
    freno.setSpain("freno")
    Diccionario.Add(freno)

    Run()
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button2_Click
    Exit
End Sub
Sub Button1_Click
    If (EditText2.Text.Equals(respuesta)) Then
        respuesta_sistema_lbl.Text = "Correcto"
        repetir_pregunta = False
        Run()
    Else
        respuesta_sistema_lbl.Text = "Incorrecto." + Chr(13) + "La respuesta es " + respuesta + ", ahora usted."
        repetir_pregunta = True
    End If
End Sub
Sub Run()
    If (repetir_pregunta = False) Then
        aleatorio = Rnd(0,Diccionario.Count)    'Funciona como el de PHP, no como VBasic
        pregunta_en_aleman = Rnd(0,2)           'pero el 2º parametro es excluyente (max-1)
        Dim s As Spanish_Deutsch
        s = Diccionario.Item(aleatorio)
        If (pregunta_en_aleman = 0) Then
            pregunta = s.getSpanish
            respuesta = s.getdeutsch
        Else
            pregunta = s.getdeutsch
            respuesta = s.getSpanish
        End If
        EditText1.Text = pregunta
    End If
End Sub