Basic4Android - Preguntas y respuestas

'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 Label3 As Label
    Dim Label4 As Label
    'Variables
    Dim Diccionario As List                 'En lugar de ArrayList
    Diccionario.Initialize                  'Inicializa una lista vacia
    Dim pregunta, respuesta As String
    Dim pregunta_en_aleman As Int
    Dim aleatorio As Int
    Dim repetir_pregunta As Boolean = False

    'Pijadas
    Dim aciertos As Int = 0
    Dim fallos As Int = 0
    Dim promedio As Double = 0.0
    Dim preguntas_hechas As Int = 0
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("die Ampel")
    semaforo.setSpain("el semaforo")
    Diccionario.Add(semaforo)

    Dim freno As Spanish_Deutsch
    freno.setDeutsch("die Bremse")
    freno.setSpain("el freno")
    Diccionario.Add(freno)

    Dim entrada As Spanish_Deutsch
    entrada.setDeutsch("der Eingang")
    entrada.setSpain("la entrada")
    Diccionario.Add(entrada)

    Dim conductor As Spanish_Deutsch
    entrada.setDeutsch("der Fahrer")
    entrada.setSpain("el conductor")
    Diccionario.Add(entrada)

    Dim despues As Spanish_Deutsch
    despues.setDeutsch("gleich")
    despues.setSpain("despues")
    Diccionario.Add(despues)

    Dim parada As Spanish_Deutsch
    parada.setDeutsch("die Haltestelle")
    parada.setSpain("la parada")
    Diccionario.Add(parada)

    Dim siempre As Spanish_Deutsch
    siempre.setDeutsch("immer")
    siempre.setSpain("siempre")
    Diccionario.Add(siempre)

    Dim si As Spanish_Deutsch
    si.setDeutsch("ja")
    si.setSpain("si")
    Diccionario.Add(si)

    Dim kilometro As Spanish_Deutsch
    kilometro.setDeutsch("der Kilometer")
    kilometro.setSpain("el kilometro")
    Diccionario.Add(kilometro)

    Dim lineaurbana As Spanish_Deutsch
    lineaurbana.setDeutsch("der Linienverkehr")
    lineaurbana.setSpain("la linea urbana")
    Diccionario.Add(lineaurbana)

    Dim el_mediodia As Spanish_Deutsch
    el_mediodia.setDeutsch("der Mittag")
    el_mediodia.setSpain("el mediodia")
    Diccionario.Add(el_mediodia)

    Dim no_negacion As Spanish_Deutsch
    no_negacion.setDeutsch("nein")
    no_negacion.setSpain("no")
    Diccionario.Add(no_negacion)

    Dim abierto As Spanish_Deutsch
    abierto.setDeutsch("offen")
    abierto.setSpain("abierto")
    Diccionario.Add(abierto)

    Dim aparcamiento As Spanish_Deutsch
    aparcamiento.setDeutsch("der Parkplatze")
    aparcamiento.setSpain("el aparcamiento")
    Diccionario.Add(aparcamiento)

    Dim cualificar As Spanish_Deutsch
    cualificar.setDeutsch("qualifizieren")
    cualificar.setSpain("cualificar")
    Diccionario.Add(cualificar)

    Dim neumatico As Spanish_Deutsch
    neumatico.setDeutsch("der Reifen")
    neumatico.setSpain("el neumatico")
    Diccionario.Add(neumatico)

    Dim calle As Spanish_Deutsch
    calle.setDeutsch("die Strasse")
    calle.setSpain("la calle")
    Diccionario.Add(calle)

    Dim escalera As Spanish_Deutsch
    escalera.setDeutsch("die Treppe")
    escalera.setSpain("la escalera")
    Diccionario.Add(escalera)

    Dim alojamiento As Spanish_Deutsch
    alojamiento.setDeutsch("die Unterkunft")
    alojamiento.setSpain("el alojamiento")
    Diccionario.Add(alojamiento)

    Dim a_lo_mejor As Spanish_Deutsch
    a_lo_mejor.setDeutsch("vielleicht")
    a_lo_mejor.setSpain("a lo mejor")
    Diccionario.Add(a_lo_mejor)

    Dim invierno As Spanish_Deutsch
    invierno.setDeutsch("der Winter")
    invierno.setSpain("el invierno")
    Diccionario.Add(invierno)

    Dim la_cuenta As Spanish_Deutsch
    la_cuenta.setDeutsch("die Zhalen")
    la_cuenta.setSpain("la cuenta")
    Diccionario.Add(la_cuenta)

    Dim por_encima As Spanish_Deutsch
    por_encima.setDeutsch("über")
    por_encima.setSpain("por encima")
    Diccionario.Add(por_encima)

    Dim manzana As Spanish_Deutsch
    manzana.setDeutsch("die Äpfel")
    manzana.setSpain("la manzana")
    Diccionario.Add(manzana)

    Dim buenos_dias As Spanish_Deutsch
    buenos_dias.setDeutsch("guten Morgen")
    buenos_dias.setSpain("buenos dias")
    Diccionario.Add(buenos_dias)

    Dim la_madrugada As Spanish_Deutsch
    la_madrugada.setDeutsch("der Morgen")
    la_madrugada.setSpain("la madrugada")
    Diccionario.Add(la_madrugada)

    Dim buenas_tardes As Spanish_Deutsch
    buenas_tardes.setDeutsch("guten Tag")
    buenas_tardes.setSpain("buenas tardes")
    Diccionario.Add(buenas_tardes)

    Dim amanecer As Spanish_Deutsch
    amanecer.setDeutsch("der Tag")
    amanecer.setSpain("amanecer")
    Diccionario.Add(amanecer)

    Dim buenas_noches As Spanish_Deutsch
    buenas_noches.setDeutsch("guten Abend")
    buenas_noches.setSpain("buenas noches")
    buenas_noches.setFormal("Sin ir a dormir")
    Diccionario.Add(buenas_noches)

    Dim la_noche As Spanish_Deutsch
    la_noche.setDeutsch("der Abend")
    la_noche.setSpain("la noche")
    Diccionario.Add(la_noche)

    Dim buenas_noches_dormir As Spanish_Deutsch
    buenas_noches_dormir.setDeutsch("guten Nacht")
    buenas_noches_dormir.setSpain("buenas noches")
    buenas_noches_dormir.setFormal("ir a dormir")
    Diccionario.Add(buenas_noches_dormir)

    Dim la_noche_f As Spanish_Deutsch
    la_noche_f.setDeutsch("die Nacht")
    la_noche_f.setSpain("la noche")
    la_noche_f.setFormal("")
    Diccionario.Add(la_noche_f)

    Dim adios As Spanish_Deutsch
    adios.setDeutsch("tschüss")
    adios.setSpain("adios")
    Diccionario.Add(adios)

    Dim adios_f As Spanish_Deutsch
    adios_f.setDeutsch("auf wiedersehen")
    adios_f.setSpain("adios")
    adios_f.setFormal("")
    Diccionario.Add(adios_f)

    Dim hasta_manana As Spanish_Deutsch
    hasta_manana.setDeutsch("bis Morgen")
    hasta_manana.setSpain("hasta mañana")
    Diccionario.Add(hasta_manana)


    Dim yo_me_llamo As Spanish_Deutsch
    yo_me_llamo.setDeutsch("ich heisse")
    yo_me_llamo.setSpain("yo me llamo")
    Diccionario.Add(yo_me_llamo)

    Dim tu_te_llamas As Spanish_Deutsch
    tu_te_llamas.setDeutsch("du heisst")
    tu_te_llamas.setSpain("tu te llamas")
    Diccionario.Add(tu_te_llamas)

    Dim el_se_llama As Spanish_Deutsch
    el_se_llama.setDeutsch("er heist")
    el_se_llama.setSpain("el se llama")
    Diccionario.Add(el_se_llama)

    Dim ella_se_llama As Spanish_Deutsch
    ella_se_llama.setDeutsch("sie heisst")
    ella_se_llama.setSpain("ella se llama")
    Diccionario.Add(ella_se_llama)

    Dim nosotros_nos_llamamos As Spanish_Deutsch
    nosotros_nos_llamamos.setDeutsch("wir heissen")
    nosotros_nos_llamamos.setSpain("nosotros nos llamamos")
    Diccionario.Add(nosotros_nos_llamamos)

    Dim vosotros_os_llamais As Spanish_Deutsch
    vosotros_os_llamais.setDeutsch("ihr heisst")
    vosotros_os_llamais.setSpain("vosotros os llamais")
    Diccionario.Add(vosotros_os_llamais)

    Dim ellos_se_llaman As Spanish_Deutsch
    ellos_se_llaman.setDeutsch("sie heissen")
    ellos_se_llaman.setSpain("ellos se llaman")
    Diccionario.Add(ellos_se_llaman)


    Dim yo_conduzco As Spanish_Deutsch
    yo_conduzco.setDeutsch("ich fahre")
    yo_conduzco.setSpain("yo conduzco")
    Diccionario.Add(yo_conduzco)

    Dim tu_conduces As Spanish_Deutsch
    tu_conduces.setDeutsch("du fährst")
    tu_conduces.setSpain("tu conduces")
    Diccionario.Add(tu_conduces)

    Dim el_conduce As Spanish_Deutsch
    el_conduce.setDeutsch("er fëhrt")
    el_conduce.setSpain("el conduce")
    Diccionario.Add(el_conduce)

    Dim ella_conduce As Spanish_Deutsch
    ella_conduce.setDeutsch("sie fëhrt")
    ella_conduce.setSpain("ella conduce")
    Diccionario.Add(ella_conduce)

    Dim nosotros_conducimos As Spanish_Deutsch
    nosotros_conducimos.setDeutsch("wir fahren")
    nosotros_conducimos.setSpain("nosotros conducimos")
    Diccionario.Add(nosotros_conducimos)

    Dim vosotros_conducis As Spanish_Deutsch
    vosotros_conducis.setDeutsch("ihr fahrt")
    vosotros_conducis.setSpain("vosotros conducis")
    Diccionario.Add(vosotros_conducis)

    Dim ellos_conducen As Spanish_Deutsch
    ellos_conducen.setDeutsch("sie fahren")
    ellos_conducen.setSpain("ellos conducen")
    Diccionario.Add(ellos_conducen)


    Dim yo_necesito As Spanish_Deutsch
    yo_necesito.setDeutsch("ich brauche")
    yo_necesito.setSpain("yo necesito")
    Diccionario.Add(yo_necesito)

    Dim tu_necesitas As Spanish_Deutsch
    tu_necesitas.setDeutsch("du brauchst")
    tu_necesitas.setSpain("tu necesitas")
    Diccionario.Add(tu_necesitas)

    Dim el_necesita As Spanish_Deutsch
    el_necesita.setDeutsch("er braucht")
    el_necesita.setSpain("el necesita")
    Diccionario.Add(el_necesita)

    Dim ella_necesita As Spanish_Deutsch
    ella_necesita.setDeutsch("sie braucht")
    ella_necesita.setSpain("ella necesita")
    Diccionario.Add(ella_necesita)

    Dim nosotros_necesitamos As Spanish_Deutsch
    nosotros_necesitamos.setDeutsch("wir brauchen")
    nosotros_necesitamos.setSpain("nosotros necesitamos")
    Diccionario.Add(nosotros_necesitamos)

    Dim vosotros_necesitais As Spanish_Deutsch
    vosotros_necesitais.setDeutsch("ihr braucht")
    vosotros_necesitais.setSpain("vosotros necesitais")
    Diccionario.Add(vosotros_necesitais)

    Dim ellos_necesitan As Spanish_Deutsch
    ellos_necesitan.setDeutsch("sie brauchen")
    ellos_necesitan.setSpain("ellos necesitan")
    Diccionario.Add(ellos_necesitan)


    Dim yo_tengo_que As Spanish_Deutsch
    yo_tengo_que.setDeutsch("ich muss")
    yo_tengo_que.setSpain("yo tengo que")
    Diccionario.Add(yo_tengo_que)

    Dim tu_tienes_que As Spanish_Deutsch
    tu_tienes_que.setDeutsch("du musst")
    tu_tienes_que.setSpain("tu tienes que")
    Diccionario.Add(tu_tienes_que)

    Dim el_tiene_que As Spanish_Deutsch
    el_tiene_que.setDeutsch("er muss")
    el_tiene_que.setSpain("el tiene que")
    Diccionario.Add(el_tiene_que)

    Dim ella_tiene_que As Spanish_Deutsch
    ella_tiene_que.setDeutsch("sie muss")
    ella_tiene_que.setSpain("ella tiene que")
    Diccionario.Add(ella_tiene_que)

    Dim nosotros_tenemos_que As Spanish_Deutsch
    nosotros_tenemos_que.setDeutsch("wir müssen")
    nosotros_tenemos_que.setSpain("nosotros tenemos que")
    Diccionario.Add(nosotros_tenemos_que)

    Dim vosotros_teneis_que As Spanish_Deutsch
    vosotros_teneis_que.setDeutsch("ihr müsst")
    vosotros_teneis_que.setSpain("vosotros teneis que")
    Diccionario.Add(vosotros_teneis_que)

    Dim ellos_tienen_que As Spanish_Deutsch
    ellos_tienen_que.setDeutsch("sie müssen")
    ellos_tienen_que.setSpain("ellos tienen que")
    Diccionario.Add(ellos_tienen_que)


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

    Dim tu_frenas As Spanish_Deutsch
    tu_frenas.setDeutsch("du bremst")
    tu_frenas.setSpain("tu frenas")
    Diccionario.Add(tu_frenas)

    Dim el_frena As Spanish_Deutsch
    el_frena.setDeutsch("er bremst")
    el_frena.setSpain("el frena")
    Diccionario.Add(el_frena)

    Dim ella_frena As Spanish_Deutsch
    ella_frena.setDeutsch("sie bremst")
    ella_frena.setSpain("ella frena")
    Diccionario.Add(ella_frena)

    Dim nosotros_frenamos As Spanish_Deutsch
    nosotros_frenamos.setDeutsch("wir bremsen")
    nosotros_frenamos.setSpain("nosotros frenamos")
    Diccionario.Add(nosotros_frenamos)

    Dim vosotros_frenais As Spanish_Deutsch
    vosotros_frenais.setDeutsch("ihr bremst")
    vosotros_frenais.setSpain("vosotros frenais")
    Diccionario.Add(vosotros_frenais)

    Dim ellos_frenan As Spanish_Deutsch
    ellos_frenan.setDeutsch("sie bremsen")
    ellos_frenan.setSpain("ellos frenan")
    Diccionario.Add(ellos_frenan)


    Dim yo_cojo As Spanish_Deutsch
    yo_cojo.setDeutsch("ich nehme")
    yo_cojo.setSpain("yo cojo")
    Diccionario.Add(yo_cojo)

    Dim tu_coges As Spanish_Deutsch
    tu_coges.setDeutsch("du nimmst")
    tu_coges.setSpain("tu coges")
    Diccionario.Add(tu_coges)

    Dim el_coge As Spanish_Deutsch
    el_coge.setDeutsch("er nimmt")
    el_coge.setSpain("el coge")
    Diccionario.Add(el_coge)

    Dim ella_coge As Spanish_Deutsch
    ella_coge.setDeutsch("sie nimmt")
    ella_coge.setSpain("ella coge")
    Diccionario.Add(ella_coge)

    Dim nosotros_cojemos As Spanish_Deutsch
    nosotros_cojemos.setDeutsch("wir nehmen")
    nosotros_cojemos.setSpain("nosotros cogemos")
    Diccionario.Add(nosotros_cojemos)

    Dim vosotros_cogeis As Spanish_Deutsch
    vosotros_cogeis.setDeutsch("ihr nehmt")
    vosotros_cogeis.setSpain("vosotros cogeis")
    Diccionario.Add(vosotros_cogeis)

    Dim ellos_cogen As Spanish_Deutsch
    ellos_cogen.setDeutsch("sie nehmen")
    ellos_cogen.setSpain("ellos cogen")
    Diccionario.Add(ellos_cogen)


    Dim yo_quiero As Spanish_Deutsch
    yo_quiero.setDeutsch("ich möchte")
    yo_quiero.setSpain("yo quiero")
    Diccionario.Add(yo_quiero)

    Dim tu_quieres As Spanish_Deutsch
    tu_quieres.setDeutsch("du möchtest")
    tu_quieres.setSpain("tu quieres")
    Diccionario.Add(tu_quieres)

    Dim el_quiere As Spanish_Deutsch
    el_quiere.setDeutsch("er möchte")
    el_quiere.setSpain("el quiere")
    Diccionario.Add(el_quiere)

    Dim ella_quiere As Spanish_Deutsch
    ella_quiere.setDeutsch("sie möchte")
    ella_quiere.setSpain("ella quiere")
    Diccionario.Add(ella_quiere)

    Dim nosotros_queremos As Spanish_Deutsch
    nosotros_queremos.setDeutsch("wir möchten")
    nosotros_queremos.setSpain("nosotros queremos")
    Diccionario.Add(nosotros_queremos)

    Dim vosotros_quereis As Spanish_Deutsch
    vosotros_quereis.setDeutsch("ihr möchtet")
    vosotros_quereis.setSpain("vosotros quereis")
    Diccionario.Add(vosotros_quereis)

    Dim ellos_quieren As Spanish_Deutsch
    ellos_quieren.setDeutsch("sie möchten")
    ellos_quieren.setSpain("ellos cogen")
    Diccionario.Add(ellos_quieren)


    Dim yo_bebo As Spanish_Deutsch
    yo_bebo.setDeutsch("ich trinke")
    yo_bebo.setSpain("yo bebo")
    Diccionario.Add(yo_bebo)

    Dim tu_bebes As Spanish_Deutsch
    tu_bebes.setDeutsch("du trinkst")
    tu_bebes.setSpain("tu bebes")
    Diccionario.Add(tu_bebes)

    Dim el_bebe As Spanish_Deutsch
    el_bebe.setDeutsch("er trinkt")
    el_bebe.setSpain("el bebe")
    Diccionario.Add(el_bebe)

    Dim ella_bebe As Spanish_Deutsch
    ella_bebe.setDeutsch("sie trinkt")
    ella_bebe.setSpain("ella bebe")
    Diccionario.Add(ella_bebe)

    Dim nosotros_bebemos As Spanish_Deutsch
    nosotros_bebemos.setDeutsch("wir trinken")
    nosotros_bebemos.setSpain("nosotros bebemos")
    Diccionario.Add(nosotros_bebemos)

    Dim vosotros_bebeis As Spanish_Deutsch
    vosotros_bebeis.setDeutsch("ihr trinkt")
    vosotros_bebeis.setSpain("vosotros bebeis")
    Diccionario.Add(vosotros_bebeis)

    Dim ellos_beben As Spanish_Deutsch
    ellos_beben.setDeutsch("sie trinken")
    ellos_beben.setSpain("ellos beben")
    Diccionario.Add(ellos_beben)


    Dim yo_como As Spanish_Deutsch
    yo_como.setDeutsch("ich esse")
    yo_como.setSpain("yo como")
    Diccionario.Add(yo_como)

    Dim tu_comes As Spanish_Deutsch
    tu_comes.setDeutsch("du isst")
    tu_comes.setSpain("tu comes")
    Diccionario.Add(tu_comes)

    Dim el_come As Spanish_Deutsch
    el_come.setDeutsch("er isst")
    el_come.setSpain("el come")
    Diccionario.Add(el_come)

    Dim ella_come As Spanish_Deutsch
    ella_come.setDeutsch("sie isst")
    ella_come.setSpain("ella come")
    Diccionario.Add(ella_come)

    Dim nosotros_comemos As Spanish_Deutsch
    nosotros_comemos.setDeutsch("wir essen")
    nosotros_comemos.setSpain("nosotros comemos")
    Diccionario.Add(nosotros_comemos)

    Dim vosotros_comeis As Spanish_Deutsch
    vosotros_comeis.setDeutsch("ihr esst")
    vosotros_comeis.setSpain("vosotros comeis")
    Diccionario.Add(vosotros_comeis)

    Dim ellos_comen As Spanish_Deutsch
    ellos_comen.setDeutsch("sie essen")
    ellos_comen.setSpain("ellos comen")
    Diccionario.Add(ellos_comen)


    Dim yo_puedo As Spanish_Deutsch
    yo_puedo.setDeutsch("ich kann")
    yo_puedo.setSpain("yo puedo")
    Diccionario.Add(yo_puedo)

    Dim tu_puedes As Spanish_Deutsch
    tu_puedes.setDeutsch("du kanst")
    tu_puedes.setSpain("tu puedes")
    Diccionario.Add(tu_puedes)

    Dim el_puede As Spanish_Deutsch
    el_puede.setDeutsch("er kann")
    el_puede.setSpain("el puede")
    Diccionario.Add(el_puede)

    Dim ella_puede As Spanish_Deutsch
    ella_puede.setDeutsch("sie kann")
    ella_puede.setSpain("ella come")
    Diccionario.Add(ella_puede)

    Dim nosotros_podemos As Spanish_Deutsch
    nosotros_podemos.setDeutsch("wir können")
    nosotros_podemos.setSpain("nosotros podemos")
    Diccionario.Add(nosotros_podemos)

    Dim vosotros_podeis As Spanish_Deutsch
    vosotros_podeis.setDeutsch("ihr könnt")
    vosotros_podeis.setSpain("vosotros podeis")
    Diccionario.Add(vosotros_podeis)

    Dim ellos_pueden As Spanish_Deutsch
    ellos_pueden.setDeutsch("sie können")
    ellos_pueden.setSpain("ellos pueden")
    Diccionario.Add(ellos_pueden)


    Dim yo_puedo_con_permiso As Spanish_Deutsch
    yo_puedo_con_permiso.setDeutsch("ich darft")
    yo_puedo_con_permiso.setSpain("yo puedo")
    yo_puedo_con_permiso.setFormal("Con permiso.")
    Diccionario.Add(yo_puedo_con_permiso)

    Dim tu_puedes_con_permiso As Spanish_Deutsch
    tu_puedes_con_permiso.setDeutsch("du darfts")
    tu_puedes_con_permiso.setSpain("tu puedes")
    tu_puedes_con_permiso.setFormal("Con permiso.")
    Diccionario.Add(tu_puedes_con_permiso)

    Dim el_puede_con_permiso As Spanish_Deutsch
    el_puede_con_permiso.setDeutsch("er darf")
    el_puede_con_permiso.setSpain("el puede")
    el_puede_con_permiso.setFormal("Con permiso.")
    Diccionario.Add(el_puede_con_permiso)

    Dim ella_puede_con_permiso As Spanish_Deutsch
    ella_puede_con_permiso.setDeutsch("sie darf")
    ella_puede_con_permiso.setSpain("ella come")
    ella_puede_con_permiso.setFormal("Con permiso.")
    Diccionario.Add(ella_puede_con_permiso)

    Dim nosotros_podemos_con_permiso As Spanish_Deutsch
    nosotros_podemos_con_permiso.setDeutsch("wir dürfen")
    nosotros_podemos_con_permiso.setSpain("nosotros podemos")
    nosotros_podemos_con_permiso.setFormal("Con permiso.")
    Diccionario.Add(nosotros_podemos_con_permiso)

    Dim vosotros_podeis_con_permiso As Spanish_Deutsch
    vosotros_podeis_con_permiso.setDeutsch("ihr dürft")
    vosotros_podeis_con_permiso.setSpain("vosotros podeis")
    vosotros_podeis_con_permiso.setFormal("Con permiso.")
    Diccionario.Add(vosotros_podeis_con_permiso)

    Dim ellos_pueden_con_permiso As Spanish_Deutsch
    ellos_pueden_con_permiso.setDeutsch("sie dürfen")
    ellos_pueden_con_permiso.setSpain("ellos pueden")
    ellos_pueden_con_permiso.setFormal("Con permiso.")
    Diccionario.Add(ellos_pueden_con_permiso)


    Dim yo_soy As Spanish_Deutsch
    yo_soy.setDeutsch("ich bin")
    yo_soy.setSpain("yo soy")
    Diccionario.Add(yo_soy)

    Dim tu_eres As Spanish_Deutsch
    tu_eres.setDeutsch("du bist")
    tu_eres.setSpain("tu eres")
    Diccionario.Add(tu_eres)

    Dim el_es As Spanish_Deutsch
    el_es.setDeutsch("er ist")
    el_es.setSpain("el es")
    Diccionario.Add(el_es)

    Dim ella_es As Spanish_Deutsch
    ella_es.setDeutsch("sie ist")
    ella_es.setSpain("ella es")
    Diccionario.Add(ella_es)

    Dim nosotros_somos As Spanish_Deutsch
    nosotros_somos.setDeutsch("wir sind")
    nosotros_somos.setSpain("nosotros somos")
    Diccionario.Add(nosotros_somos)

    Dim vosotros_sois As Spanish_Deutsch
    vosotros_sois.setDeutsch("ihr seid")
    vosotros_sois.setSpain("vosotros sois")
    Diccionario.Add(vosotros_sois)

    Dim ellos_son As Spanish_Deutsch
    ellos_son.setDeutsch("sie sind")
    ellos_son.setSpain("ellos son")
    Diccionario.Add(ellos_son)


    Dim yo_escribo As Spanish_Deutsch
    yo_escribo.setDeutsch("ich schreibe")
    yo_escribo.setSpain("yo escribo")
    Diccionario.Add(yo_escribo)

    Dim tu_escribes As Spanish_Deutsch
    tu_escribes.setDeutsch("du schreibst")
    tu_escribes.setSpain("tu escribes")
    Diccionario.Add(tu_escribes)

    Dim el_escribe As Spanish_Deutsch
    el_escribe.setDeutsch("er schreibt")
    el_escribe.setSpain("el escribe")
    Diccionario.Add(el_escribe)

    Dim ella_escribe As Spanish_Deutsch
    ella_escribe.setDeutsch("sie schreibt")
    ella_escribe.setSpain("ella escribe")
    Diccionario.Add(ella_escribe)

    Dim nosotros_escribimos As Spanish_Deutsch
    nosotros_escribimos.setDeutsch("wir schreiben")
    nosotros_escribimos.setSpain("nosotros escribimos")
    Diccionario.Add(nosotros_escribimos)

    Dim vosotros_escribis As Spanish_Deutsch
    vosotros_escribis.setDeutsch("ihr schreibt")
    vosotros_escribis.setSpain("vosotros escribis")
    Diccionario.Add(vosotros_escribis)

    Dim ellos_escriben As Spanish_Deutsch
    ellos_escriben.setDeutsch("sie schreiben")
    ellos_escriben.setSpain("ellos escriben")
    Diccionario.Add(ellos_escriben)


    Dim yo_firmo As Spanish_Deutsch
    yo_firmo.setDeutsch("ich unterschreibe")
    yo_firmo.setSpain("yo firmo")
    Diccionario.Add(yo_firmo)

    Dim tu_firmas As Spanish_Deutsch
    tu_firmas.setDeutsch("du unterschreibst")
    tu_firmas.setSpain("tu firmas")
    Diccionario.Add(tu_firmas)

    Dim el_firma As Spanish_Deutsch
    el_firma.setDeutsch("er unterschreibt")
    el_firma.setSpain("el firma")
    Diccionario.Add(el_firma)

    Dim ella_firma As Spanish_Deutsch
    ella_firma.setDeutsch("sie unterschreibt")
    ella_firma.setSpain("ella firma")
    Diccionario.Add(ella_firma)

    Dim nosotros_firmamos As Spanish_Deutsch
    nosotros_firmamos.setDeutsch("wir unterschreiben")
    nosotros_firmamos.setSpain("nosotros firmamos")
    Diccionario.Add(nosotros_firmamos)

    Dim vosotros_firmais As Spanish_Deutsch
    vosotros_firmais.setDeutsch("ihr unterschreibt")
    vosotros_firmais.setSpain("vosotros firmais")
    Diccionario.Add(vosotros_firmais)

    Dim ellos_firman As Spanish_Deutsch
    ellos_firman.setDeutsch("sie unterschreiben")
    ellos_firman.setSpain("ellos firman")
    Diccionario.Add(ellos_firman)


    Dim yo_comprendo As Spanish_Deutsch
    yo_comprendo.setDeutsch("ich verstehe")
    yo_comprendo.setSpain("yo comprendo")
    Diccionario.Add(yo_comprendo)

    Dim tu_comprendes As Spanish_Deutsch
    tu_comprendes.setDeutsch("du verstehst")
    tu_comprendes.setSpain("tu comprendes")
    Diccionario.Add(tu_comprendes)

    Dim el_comprende As Spanish_Deutsch
    el_comprende.setDeutsch("er versteht")
    el_comprende.setSpain("el comprende")
    Diccionario.Add(el_comprende)

    Dim ella_comprende As Spanish_Deutsch
    ella_comprende.setDeutsch("sie versteht")
    ella_comprende.setSpain("ella comprende")
    Diccionario.Add(ella_comprende)

    Dim nosotros_comprendemos As Spanish_Deutsch
    nosotros_comprendemos.setDeutsch("wir vertehen")
    nosotros_comprendemos.setSpain("nosotros compredemos")
    Diccionario.Add(nosotros_comprendemos)

    Dim vosotros_comprendeis As Spanish_Deutsch
    vosotros_comprendeis.setDeutsch("ihr versteht")
    vosotros_comprendeis.setSpain("vosotros comprendeis")
    Diccionario.Add(vosotros_comprendeis)

    Dim ellos_comprenden As Spanish_Deutsch
    ellos_comprenden.setDeutsch("sie verstehen")
    ellos_comprenden.setSpain("ellos comprenden")
    Diccionario.Add(ellos_comprenden)


    Dim yo_trabajo As Spanish_Deutsch
    yo_trabajo.setDeutsch("ich arbeite")
    yo_trabajo.setSpain("yo trababajo")
    Diccionario.Add(yo_trabajo)

    Dim tu_trabajas As Spanish_Deutsch
    tu_trabajas.setDeutsch("du arbeitest")
    tu_trabajas.setSpain("tu trabajas")
    Diccionario.Add(tu_trabajas)

    Dim el_trabaja As Spanish_Deutsch
    el_trabaja.setDeutsch("er arbeitet")
    el_trabaja.setSpain("el trabaja")
    Diccionario.Add(el_trabaja)

    Dim ella_trabaja As Spanish_Deutsch
    ella_trabaja.setDeutsch("sie arbeitet")
    ella_trabaja.setSpain("ella trabaja")
    Diccionario.Add(ella_trabaja)

    Dim nosotros_trabajamos As Spanish_Deutsch
    nosotros_trabajamos.setDeutsch("wir arbeiten")
    nosotros_trabajamos.setSpain("nosotros trabajamos")
    Diccionario.Add(nosotros_trabajamos)

    Dim vosotros_trabajais As Spanish_Deutsch
    vosotros_trabajais.setDeutsch("ihr arbeitet")
    vosotros_trabajais.setSpain("vosotros trabajais")
    Diccionario.Add(vosotros_trabajais)

    Dim ellos_trabajan As Spanish_Deutsch
    ellos_trabajan.setDeutsch("sie arbeiten")
    ellos_trabajan.setSpain("ellos trabajan")
    Diccionario.Add(ellos_trabajan)


    Dim yo_lavo As Spanish_Deutsch
    yo_lavo.setDeutsch("ich wasche")
    yo_lavo.setSpain("yo lavo")
    Diccionario.Add(yo_lavo)

    Dim tu_lavas As Spanish_Deutsch
    tu_lavas.setDeutsch("du wäschst")
    tu_lavas.setSpain("tu lavas")
    Diccionario.Add(tu_lavas)

    Dim el_lava As Spanish_Deutsch
    el_lava.setDeutsch("er wäscht")
    el_lava.setSpain("el trabaja")
    Diccionario.Add(el_lava)

    Dim ella_lava As Spanish_Deutsch
    ella_lava.setDeutsch("sie wäscht")
    ella_lava.setSpain("ella lava")
    Diccionario.Add(ella_lava)

    Dim nosotros_lavamos As Spanish_Deutsch
    nosotros_lavamos.setDeutsch("wir waschen")
    nosotros_lavamos.setSpain("nosotros lavamos")
    Diccionario.Add(nosotros_lavamos)

    Dim vosotros_lavais As Spanish_Deutsch
    vosotros_lavais.setDeutsch("ihr wascht")
    vosotros_lavais.setSpain("vosotros lavais")
    Diccionario.Add(vosotros_lavais)

    Dim ellos_lavan As Spanish_Deutsch
    ellos_lavan.setDeutsch("sie waschen")
    ellos_lavan.setSpain("ellos lavan")
    Diccionario.Add(ellos_lavan)


    Dim yo_tengo As Spanish_Deutsch
    yo_tengo.setDeutsch("ich habe")
    yo_tengo.setSpain("yo tengo")
    Diccionario.Add(yo_tengo)

    Dim tu_tienes As Spanish_Deutsch
    tu_tienes.setDeutsch("du habst")
    tu_tienes.setSpain("tu tienes")
    Diccionario.Add(tu_tienes)

    Dim el_tiene As Spanish_Deutsch
    el_tiene.setDeutsch("er habt")
    el_tiene.setSpain("el tiene")
    Diccionario.Add(el_tiene)

    Dim ella_tiene As Spanish_Deutsch
    ella_tiene.setDeutsch("sie habt")
    ella_tiene.setSpain("ella tiene")
    Diccionario.Add(ella_tiene)

    Dim nosotros_tenemos As Spanish_Deutsch
    nosotros_tenemos.setDeutsch("wir haben")
    nosotros_tenemos.setSpain("nosotros tenemos")
    Diccionario.Add(nosotros_tenemos)

    Dim vosotros_teneis As Spanish_Deutsch
    vosotros_teneis.setDeutsch("ihr habt")
    vosotros_teneis.setSpain("vosotros teneis")
    Diccionario.Add(vosotros_teneis)

    Dim ellos_tienen As Spanish_Deutsch
    ellos_tienen.setDeutsch("sie haben")
    ellos_tienen.setSpain("ellos tienen")
    Diccionario.Add(ellos_tienen)


    Dim yo_hago As Spanish_Deutsch
    yo_hago.setDeutsch("ich mache")
    yo_hago.setSpain("yo hago")
    Diccionario.Add(yo_hago)

    Dim tu_haces As Spanish_Deutsch
    tu_haces.setDeutsch("du machst")
    tu_haces.setSpain("tu haces")
    Diccionario.Add(tu_haces)

    Dim el_hace As Spanish_Deutsch
    el_hace.setDeutsch("er macht")
    el_hace.setSpain("el hace")
    Diccionario.Add(el_hace)

    Dim ella_hace As Spanish_Deutsch
    ella_hace.setDeutsch("sie macht")
    ella_hace.setSpain("ella hace")
    Diccionario.Add(ella_hace)

    Dim nosotros_hacemos As Spanish_Deutsch
    nosotros_hacemos.setDeutsch("wir machen")
    nosotros_hacemos.setSpain("nosotros hacemos")
    Diccionario.Add(nosotros_hacemos)

    Dim vosotros_haceis As Spanish_Deutsch
    vosotros_haceis.setDeutsch("ihr macht")
    vosotros_haceis.setSpain("vosotros haceis")
    Diccionario.Add(vosotros_haceis)

    Dim ellos_hacen As Spanish_Deutsch
    ellos_hacen.setDeutsch("sie machen")
    ellos_hacen.setSpain("ellos hacen")
    Diccionario.Add(ellos_hacen)


    Dim yo_voy As Spanish_Deutsch
    yo_voy.setDeutsch("ich gehe")
    yo_voy.setSpain("yo voy")
    Diccionario.Add(yo_voy)

    Dim tu_vas As Spanish_Deutsch
    tu_vas.setDeutsch("du gehst")
    tu_vas.setSpain("tu vas")
    Diccionario.Add(tu_vas)

    Dim el_va As Spanish_Deutsch
    el_va.setDeutsch("er geht")
    el_va.setSpain("el va")
    Diccionario.Add(el_va)

    Dim ella_va As Spanish_Deutsch
    ella_va.setDeutsch("sie geht")
    ella_va.setSpain("ella va")
    Diccionario.Add(ella_va)

    Dim nosotros_vamos As Spanish_Deutsch
    nosotros_vamos.setDeutsch("wir gehen")
    nosotros_vamos.setSpain("nosotros vamos")
    Diccionario.Add(nosotros_vamos)

    Dim vosotros_vais As Spanish_Deutsch
    vosotros_vais.setDeutsch("ihr geht")
    vosotros_vais.setSpain("vosotros vais")
    Diccionario.Add(vosotros_vais)

    Dim ellos_van As Spanish_Deutsch
    ellos_van.setDeutsch("sie gehen ")
    ellos_van.setSpain("ellos van")
    Diccionario.Add(ellos_van)


    Dim yo_aprendo As Spanish_Deutsch
    yo_aprendo.setDeutsch("ich lerne")
    yo_aprendo.setSpain("yo aprendo")
    Diccionario.Add(yo_aprendo)

    Dim tu_aprendes As Spanish_Deutsch
    tu_aprendes.setDeutsch("du lernst")
    tu_aprendes.setSpain("tu aprendes")
    Diccionario.Add(tu_aprendes)

    Dim el_aprende As Spanish_Deutsch
    el_aprende.setDeutsch("er lernt")
    el_aprende.setSpain("el aprende")
    Diccionario.Add(el_aprende)

    Dim ella_aprende As Spanish_Deutsch
    ella_aprende.setDeutsch("sie lernt")
    ella_aprende.setSpain("ella aprende")
    Diccionario.Add(ella_aprende)

    Dim nosotros_aprendemos As Spanish_Deutsch
    nosotros_aprendemos.setDeutsch("wir lernen")
    nosotros_aprendemos.setSpain("nosotros aprendemos")
    Diccionario.Add(nosotros_aprendemos)

    Dim vosotros_aprendeis As Spanish_Deutsch
    vosotros_aprendeis.setDeutsch("ihr lernt")
    vosotros_aprendeis.setSpain("vosotros aprendeis")
    Diccionario.Add(vosotros_aprendeis)

    Dim ellos_aprenden As Spanish_Deutsch
    ellos_aprenden.setDeutsch("sie lernen ")
    ellos_aprenden.setSpain("ellos aprenden")
    Diccionario.Add(ellos_aprenden)


    Dim yo_hablo As Spanish_Deutsch
    yo_hablo.setDeutsch("ich spreche")
    yo_hablo.setSpain("yo hablo")
    Diccionario.Add(yo_hablo)

    Dim tu_hablas As Spanish_Deutsch
    tu_hablas.setDeutsch("du sprichst")
    tu_hablas.setSpain("tu hablas")
    Diccionario.Add(tu_hablas)

    Dim el_habla As Spanish_Deutsch
    el_habla.setDeutsch("er lernt")
    el_habla.setSpain("el habla")
    Diccionario.Add(el_habla)

    Dim ella_habla As Spanish_Deutsch
    ella_habla.setDeutsch("sie spricht")
    ella_habla.setSpain("ella habla")
    Diccionario.Add(ella_habla)

    Dim nosotros_hablamos As Spanish_Deutsch
    nosotros_hablamos.setDeutsch("wir sprechen")
    nosotros_hablamos.setSpain("nosotros hablamos")
    Diccionario.Add(nosotros_hablamos)

    Dim vosotros_hablais As Spanish_Deutsch
    vosotros_hablais.setDeutsch("ihr sprecht")
    vosotros_hablais.setSpain("vosotros hablais")
    Diccionario.Add(vosotros_hablais)

    Dim ellos_hablan As Spanish_Deutsch
    ellos_hablan.setDeutsch("sie sprechen ")
    ellos_hablan.setSpain("ellos hablan")
    Diccionario.Add(ellos_hablan)


    Dim yo_espero As Spanish_Deutsch
    yo_espero.setDeutsch("ich warte")
    yo_espero.setSpain("yo espero")
    Diccionario.Add(yo_espero)

    Dim tu_esperas As Spanish_Deutsch
    tu_esperas.setDeutsch("du wartest")
    tu_esperas.setSpain("tu esperas")
    Diccionario.Add(tu_esperas)

    Dim el_espera As Spanish_Deutsch
    el_espera.setDeutsch("er wartet")
    el_espera.setSpain("el espera")
    Diccionario.Add(el_espera)

    Dim ella_espera As Spanish_Deutsch
    ella_espera.setDeutsch("sie wartet")
    ella_espera.setSpain("ella espera")
    Diccionario.Add(ella_espera)

    Dim nosotros_esperamos As Spanish_Deutsch
    nosotros_esperamos.setDeutsch("wir warten")
    nosotros_esperamos.setSpain("nosotros esperamos")
    Diccionario.Add(nosotros_esperamos)

    Dim vosotros_esperais As Spanish_Deutsch
    vosotros_esperais.setDeutsch("ihr wartet")
    vosotros_esperais.setSpain("vosotros esperais")
    Diccionario.Add(vosotros_esperais)

    Dim ellos_esperan As Spanish_Deutsch
    ellos_esperan.setDeutsch("sie warten ")
    ellos_esperan.setSpain("ellos esperan")
    Diccionario.Add(ellos_esperan)


    Dim yo_se As Spanish_Deutsch
    yo_se.setDeutsch("ich weiss")
    yo_se.setSpain("yo se")
    Diccionario.Add(yo_se)

    Dim tu_sabes As Spanish_Deutsch
    tu_sabes.setDeutsch("du waisst")
    tu_sabes.setSpain("tu sabes")
    Diccionario.Add(tu_sabes)

    Dim el_sabe As Spanish_Deutsch
    el_sabe.setDeutsch("er waiss")
    el_sabe.setSpain("el sabe")
    Diccionario.Add(el_sabe)

    Dim ella_sabe As Spanish_Deutsch
    ella_sabe.setDeutsch("sie waiss")
    ella_sabe.setSpain("ella sabe")
    Diccionario.Add(ella_sabe)

    Dim nosotros_sabemos As Spanish_Deutsch
    nosotros_sabemos.setDeutsch("wir wissen")
    nosotros_sabemos.setSpain("nosotros sabemos")
    Diccionario.Add(nosotros_sabemos)

    Dim vosotros_sabeis As Spanish_Deutsch
    vosotros_sabeis.setDeutsch("ihr wisst")
    vosotros_sabeis.setSpain("vosotros sabeis")
    Diccionario.Add(vosotros_sabeis)

    Dim ellos_saben As Spanish_Deutsch
    ellos_saben.setDeutsch("sie wissen")
    ellos_saben.setSpain("ellos saben")
    Diccionario.Add(ellos_saben)


    Dim yo_vengo As Spanish_Deutsch
    yo_vengo.setDeutsch("ich komme")
    yo_vengo.setSpain("yo vengo")
    Diccionario.Add(yo_vengo)

    Dim tu_vienes As Spanish_Deutsch
    tu_vienes.setDeutsch("du kommst")
    tu_vienes.setSpain("tu vienes")
    Diccionario.Add(tu_vienes)

    Dim el_viene As Spanish_Deutsch
    el_viene.setDeutsch("er kommt")
    el_viene.setSpain("el viene")
    Diccionario.Add(el_viene)

    Dim ella_viene As Spanish_Deutsch
    ella_viene.setDeutsch("sie kommt")
    ella_viene.setSpain("ella viene")
    Diccionario.Add(ella_viene)

    Dim nosotros_venimos As Spanish_Deutsch
    nosotros_venimos.setDeutsch("wir kommen")
    nosotros_venimos.setSpain("nosotros venimos")
    Diccionario.Add(nosotros_venimos)

    Dim vosotros_venis As Spanish_Deutsch
    vosotros_venis.setDeutsch("ihr kommt")
    vosotros_venis.setSpain("vosotros venis")
    Diccionario.Add(vosotros_venis)

    Dim ellos_vienen As Spanish_Deutsch
    ellos_vienen.setDeutsch("sie kommen")
    ellos_vienen.setSpain("ellos vienen")
    Diccionario.Add(ellos_vienen)


    Dim hoy As Spanish_Deutsch
    hoy.setDeutsch("heute")
    hoy.setSpain("hoy")
    Diccionario.Add(hoy)

    Dim el_hoy As Spanish_Deutsch
    el_hoy.setDeutsch("das heute")
    el_hoy.setSpain("el dia de hoy")
    Diccionario.Add(el_hoy)

    Dim manana_por_la_manana As Spanish_Deutsch
    manana_por_la_manana.setDeutsch("den morgen")
    manana_por_la_manana.setSpain("la mañana")
    manana_por_la_manana.setFormal("De 8 a 12 del mediodia.")
    Diccionario.Add(manana_por_la_manana)


    Dim mio As Spanish_Deutsch
    mio.setDeutsch("mein")
    mio.setSpain("mio")
    Diccionario.Add(mio)

    Dim mia_mios_mias As Spanish_Deutsch
    mia_mios_mias.setDeutsch("meine")
    mia_mios_mias.setSpain("mia mios mias")
    Diccionario.Add(mia_mios_mias)

    Dim tuyo As Spanish_Deutsch
    tuyo.setDeutsch("dein")
    tuyo.setSpain("tuyo")
    Diccionario.Add(tuyo)

    Dim tuya_tuyos_tuyas As Spanish_Deutsch
    tuya_tuyos_tuyas.setDeutsch("dein")
    tuya_tuyos_tuyas.setSpain("tuya tuyos tuyas")
    Diccionario.Add(tuya_tuyos_tuyas)

    Dim suyo As Spanish_Deutsch
    suyo.setDeutsch("sein")
    suyo.setSpain("suyo")
    Diccionario.Add(suyo)

    Dim suya As Spanish_Deutsch
    suya.setDeutsch("ihr")
    suya.setSpain("suya")
    Diccionario.Add(suya)

    Dim nuestro As Spanish_Deutsch
    nuestro.setDeutsch("unser")
    nuestro.setSpain("nuestro")
    Diccionario.Add(nuestro)

    Dim nuestra As Spanish_Deutsch
    nuestra.setDeutsch("unsere")
    nuestra.setSpain("nuestra")
    Diccionario.Add(nuestra)

    Dim vuestro As Spanish_Deutsch
    vuestro.setDeutsch("euer")
    vuestro.setSpain("vuestro")
    Diccionario.Add(vuestro)

    Dim vuestra As Spanish_Deutsch
    vuestra.setDeutsch("euere")
    vuestra.setSpain("vuestra")
    Diccionario.Add(vuestra)

    Dim el As Spanish_Deutsch
    el.setDeutsch("der")
    el.setSpain("el")
    Diccionario.Add(el)

    Dim la_los_las As Spanish_Deutsch
    la_los_las.setDeutsch("die")
    la_los_las.setSpain("la los las")
    Diccionario.Add(la_los_las)

    Dim ello As Spanish_Deutsch
    ello.setDeutsch("das")
    ello.setSpain("ello")
    ello.setFormal("Articulo neutro")
    Diccionario.Add(ello)

    ' Preguntas abiertas
    Dim quien As Spanish_Deutsch
    quien.setDeutsch("wer")
    quien.setSpain("quien")
    Diccionario.Add(quien)

    Dim como As Spanish_Deutsch
    como.setDeutsch("wie")
    como.setSpain("como")
    Diccionario.Add(como)

    Dim como As Spanish_Deutsch
    como.setDeutsch("wie")
    como.setSpain("como")
    Diccionario.Add(como)

    Dim que As Spanish_Deutsch
    que.setDeutsch("was")
    que.setSpain("que")
    Diccionario.Add(que)

    Dim por_que As Spanish_Deutsch
    por_que.setDeutsch("wieso")
    por_que.setSpain("por que")
    por_que.setFormal("Escriba la palabra que termina en o.")
    Diccionario.Add(por_que)

    Dim por_que_2 As Spanish_Deutsch
    por_que_2.setDeutsch("weshalb")
    por_que_2.setSpain("por que")
    por_que_2.setFormal("Escriba la palabra de 7 letras.")
    Diccionario.Add(por_que_2)

    Dim por_que_3 As Spanish_Deutsch
    por_que_3.setDeutsch("warum")
    por_que_3.setSpain("por que")
    por_que_3.setFormal("Escriba la palabra que termina en m.")
    Diccionario.Add(por_que_3)

    Dim donde As Spanish_Deutsch
    donde.setDeutsch("wo")
    donde.setSpain("donde")
    Diccionario.Add(donde)

    Dim cuando As Spanish_Deutsch
    cuando.setDeutsch("wann")
    cuando.setSpain("cuando")
    Diccionario.Add(cuando)

    Dim de_donde As Spanish_Deutsch
    de_donde.setDeutsch("wohin")
    de_donde.setSpain("de donde")
    Diccionario.Add(de_donde)

    Dim cuantos As Spanish_Deutsch
    cuantos.setDeutsch("wohin")
    cuantos.setSpain("wie viele")
    Diccionario.Add(cuantos)

    Dim cuales As Spanish_Deutsch
    cuales.setDeutsch("welche")
    cuales.setSpain("cuales")
    Diccionario.Add(cuales)



    Runme
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button1_Click
    If (EditText2.Text.EqualsIgnoreCase(respuesta)) Then
        EditText3.Text = "Correcto"
        If (repetir_pregunta<>True) Then
            aciertos = aciertos + 1
        End If
        repetir_pregunta = False
        EditText2.Text = ""
        Runme
    Else
        EditText3.Text = "Incorrecto." & CRLF & "La respuesta es, '" & respuesta & "', ahora usted."
        If (repetir_pregunta<>True) Then
            fallos = fallos + 1
        End If
        repetir_pregunta = True
        EditText2.Text = ""
    End If
    Label4.Text = "Preguntas hechas: " & preguntas_hechas & " Aciertos: " & aciertos & " Fallos: " & fallos & " Promedio aciertos: " & (aciertos * 100 / (aciertos + fallos)) & "%"
End Sub
Public Sub Runme
    If (repetir_pregunta = False) Then
        aleatorio = Rnd(0,Diccionario.Size)     '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.Get(aleatorio)          'En lugar de Item
        If (pregunta_en_aleman = 0) Then
            pregunta = s.getSpanish
            respuesta = s.getdeutsch
        Else
            pregunta = s.getdeutsch
            respuesta = s.getSpanish
        End If
        EditText3.Text = s.getFormal
        EditText1.Text = pregunta
        preguntas_hechas = preguntas_hechas + 1
    End If

End Sub















'Class module
Sub Class_Globals
    Dim deutsch As String
    Dim spanish As String
    Dim formal As String = ""
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize

End Sub

Public Sub setSpain(entrada As String)
    spanish = entrada
End Sub

Public Sub setDeutsch(entrada As String)
    deutsch = entrada
End Sub

Public Sub getdeutsch As String
    Return deutsch
End Sub

Public Sub getSpanish As String
    Return spanish
End Sub

Public Sub setFormal (texto As String)
    If (texto="") Then
        formal = "(formal)"
    Else
        formal = texto
    End If
End Sub

Public Sub getFormal As String
    Return formal
End Sub