Spanish Problema con varios List

reijox

Member
Licensed User
Longtime 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
Longtime 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
Longtime 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.b4x.com/android/forum/threads/indice-de-temas-con-solucionado-o-de-gran-interés.44948/


Mejorar el foro “Spanish Forum”

http://www.b4x.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
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…