Numeros sin repeticion
Hola, estoy enviando este post, porque estoy haciedo un programa (en realidad un juego) que es un simulador de cartas. un juego familiar llamado "BURACO", ok, ya tengo la forma de hacer la reparticion de las cartas, cree todas las imagenes y les coloque un numero quedando por ejemplo el as de corazones como 1.jpg, ahora necesito saber como hago para que cada numero no se repita mas de 2 veces; porque cuando hago el randomize, el las repite siempre. agradezco su atencion, disculpen el testamento, y gracias de antemano
--------------
existen solo 10 tipos de personas, los que entienden los numeros binarios, y los que no!
--------------
existen solo 10 tipos de personas, los que entienden los numeros binarios, y los que no!
Hola
Bueno lo que te voy a colocar en seguida no se si funciona porque no tenia el VB a mano para probarlo pero puede ser una idea
Recuerda que debes usar el Randomize Timer como para que si salgan numeros aleatorios y debes colocarlo antes de donde utilizas el Rnd.
Para lo ded que no se repita los numero puedes crear un Vector en el que guardes los numeros Dim Numeros(10) As byte
cada vez que generes un numero deberas comparar con los otros numeros que has generado
For x=1 to 10
repetido=false
While Repetido<>true
repetido=false
numero=int(rnd *10)
for y=1 to 10
if numero(y)=NAleatorio then Repetido=true
next
Wend
Numero(x)=NAleatorio
next
Todo lo anterior que hace genera un numero aleatorio inicia un ciclo For para comparar con todas las posiciones del Vector para mirar si existe si no existe lo agrego al Vector pero si existe genero otro numero y repito el ciclo para comparar.
Espero esto te de una idea si no funcioan Recuerda no tenia el VB para probarlo pero la idea es ESA
Saludos
www.theemulator.tk
Bueno lo que te voy a colocar en seguida no se si funciona porque no tenia el VB a mano para probarlo pero puede ser una idea
Recuerda que debes usar el Randomize Timer como para que si salgan numeros aleatorios y debes colocarlo antes de donde utilizas el Rnd.
Para lo ded que no se repita los numero puedes crear un Vector en el que guardes los numeros Dim Numeros(10) As byte
cada vez que generes un numero deberas comparar con los otros numeros que has generado
For x=1 to 10
repetido=false
While Repetido<>true
repetido=false
numero=int(rnd *10)
for y=1 to 10
if numero(y)=NAleatorio then Repetido=true
next
Wend
Numero(x)=NAleatorio
next
Todo lo anterior que hace genera un numero aleatorio inicia un ciclo For para comparar con todas las posiciones del Vector para mirar si existe si no existe lo agrego al Vector pero si existe genero otro numero y repito el ciclo para comparar.
Espero esto te de una idea si no funcioan Recuerda no tenia el VB para probarlo pero la idea es ESA
Saludos
www.theemulator.tk