Spanish Problema con varios List

reijox

Member
Licensed User
Hola a todos, no he encontrado la respuesta a mi siguiente problema:
Tengo 24 list con 5 datos distintos cada uno, quiero que aleatoriamente se elija uno de los 24 list y comprobar si su posicion 3 es un 1. Cuando se encuentre uno con posicion3 igual a 1 quiero cambiarla a posicion3 igual a 2.

Do Until ColorBlanco=True
P=Rnd(1,25)
Color=List&P.Get(3) <---------------------------------- me da error mal escrito
If Color=1 Then ColorBlanco=True
Loop

List&P.set(3,2)<---------------------------------- me da error mal escrito

muchas gracias de antemano
 

bgsoft

Well-Known Member
Licensed User
Hola


Estas intentando dar un nombre a un objeto (list) que ya has definido con un nombre concreto añadiendolo con el simbolo "&" por eso te da error de escritura. No puedes referirte a un objeto como si se tratara de un string.

Te doy una solución facil:

B4X:
' definelo en el Global y acuerdate que empieza en el 0 (cero) por eso si quieres de 1 a 25 dimensiona en 26 y 6 por el 5
Dim lista(26,6) As Int

ColorBlanco= false ' para que no este al ultimo valor que era True
Do Until ColorBlanco=True

P=Rnd(1,25)
Color=lista(P,3)
If Color=1 Then
  lista(P,3)= 2
  ColorBlanco=True
end if

Loop

Saludos
 

bgsoft

Well-Known Member
Licensed User
De nada Reijox, pero te lo agradeceran todos mas si cambias el nombre del Post y le añades [SOLUCIONADO] , si tienes un rato mírate estos dos links:



Indice de temas con [Solucionado] o de gran interés

http://www.basic4ppc.com/android/fo...emas-con-solucionado-o-de-gran-interés.44948/


Mejorar el foro “Spanish Forum”

http://www.basic4ppc.com/android/forum/threads/mejorar-el-foro-“spanish-forum”.39799/


y si tienes una sugerencia, mejor que mejor, asi haremos el foro mas facil para todos

Saludos
 
Top