M mandias Member Aug 16, 2016 #1 Hola, llevo un rato largo intentando pasar el siguiente fragmento que escribí en su dia en Java a Basic, pero no soy capaz. Por un lado un String con varias frases. B4X: String lista[]={ "Frase Numero 1", "Frase Numero 2", "Frase Numero 3", "Frase Numero 4", "Frase Numero 5" }; Y por otro un Random que selecciona aleatoriamente una frase B4X: int numero=(int) Math.round((Math.random()*4)); TextView resultado = (TextView)findViewById(R.id.fullscreen_content); resultado.setText(lista[numero]); A ver si alguien puedo echarme un cable. Gracias de antemano. Last edited: Aug 16, 2016
Hola, llevo un rato largo intentando pasar el siguiente fragmento que escribí en su dia en Java a Basic, pero no soy capaz. Por un lado un String con varias frases. B4X: String lista[]={ "Frase Numero 1", "Frase Numero 2", "Frase Numero 3", "Frase Numero 4", "Frase Numero 5" }; Y por otro un Random que selecciona aleatoriamente una frase B4X: int numero=(int) Math.round((Math.random()*4)); TextView resultado = (TextView)findViewById(R.id.fullscreen_content); resultado.setText(lista[numero]); A ver si alguien puedo echarme un cable. Gracias de antemano.
Descartex Well-Known Member Licensed User Longtime User Aug 16, 2016 #2 Muy buenas. Como decia Jack el Destripador, vayamos por partes Por un lado un String con varias frases. Click to expand... Sería algo asi: B4X: Dim Lista() as String Lista= Array as String("Frase Numero 1", "Frase Numero 2", "Frase Numero 3", "Frase Numero 4", "Frase Numero 5") Y por otro un Random que selecciona aleatoriamente una frase Click to expand... Sería algo asi: B4X: Dim r as Int = Rnd(0,5) Dim Resultado as EditText Resultado.Text= Lista(r) Ten en cuenta que la funcion Rnd devuelve un entero aleatorio entre el limite inferior (inlusive) y el superior (excluido). Un saludo.
Muy buenas. Como decia Jack el Destripador, vayamos por partes Por un lado un String con varias frases. Click to expand... Sería algo asi: B4X: Dim Lista() as String Lista= Array as String("Frase Numero 1", "Frase Numero 2", "Frase Numero 3", "Frase Numero 4", "Frase Numero 5") Y por otro un Random que selecciona aleatoriamente una frase Click to expand... Sería algo asi: B4X: Dim r as Int = Rnd(0,5) Dim Resultado as EditText Resultado.Text= Lista(r) Ten en cuenta que la funcion Rnd devuelve un entero aleatorio entre el limite inferior (inlusive) y el superior (excluido). Un saludo.