Autor
|
Tema: Ayuda numero aletorio no repetirse (Leído 7,270 veces)
|
x64core
Desconectado
Mensajes: 1.908
|
generas el numero en primera medida...y la guardas en una variable termporal...en una iteracion recorres el vector si esta salis de la iteracion y generas de nuevo...y si esta lo guardas y lo mostras
amigo si ese era error en mi code q no salia del for le agrege exit for pero luego no encontre lo demas :/ @XXX-ZERO-XXX gracias XXX-ZERO-XXX se te agradece mucho si funciona exactamente!
|
|
« Última modificación: 23 Mayo 2011, 03:08 am por raul338 »
|
En línea
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
Fijate bien como hace, aunque si bien hay otras formas de hacerlo Se me ocurre hacer un array del 1 al 10 con respectivos valores, y despues con un bucle ir devolviendolos en forma desordenada siempre y cuando el valor a devolver no sea 0, controlandolo con un contador de los numeros devueltos. Seria buen ejercicio
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
. Me se ocurre aplicar el dicho Divide y Vencerás xP. NumerosAleatorios (Numero Inicio, Numero Final, Array de valores a no considerar) { MatrixRangos() = Realizar una búsqueda de valores para verificar si alguno de los numeros del array estan entre el valor de Inicio o el valor del Final: (un For Next bastara) , y generamos cortes de array's por ejemplo ( Inicio=0 final=10 array={5,8} este paso genera 3 array que son: {0,4},{6,7},{9,10} ) iIndice = Generamos un numero aleatorio desde Lbound(MatrixRangos()) hasta Ubound(MatrixRangos()) Retornamos el numero que se genera un numero aleatorio según los rangos que indique MatrixRangos( iIndice )(0) y MatrixRangos( iIndice )(1) }
@XXX-ZERO-XXX Function Existe(m As Integer, a() As Integer) As Boolean Dim num For Each num In a() If (m = num) Then Existe = True: exit for ' // no tiene caso seguir en el for Each si ya se encontro. Next End Function
P.D.: No hice el codigo por que me tengo que ir a bañar xP ya lo hago. Temibles Lunas!¡. .
|
|
« Última modificación: 23 Mayo 2011, 06:52 am por BlackZeroX▓▓▒▒░░ »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
amigo si ese era error en mi code q no salia del for le agrege exit for pero luego no encontre lo demas :/ @XXX-ZERO-XXX gracias XXX-ZERO-XXX se te agradece mucho si funciona exactamente! Bueno pero lee el codigo, entendelo, fijate que use for-next, foreach-next, do-loop while, aprendelos bien. Y black.. si.. se me paso eso pero si el codigo lo hice rapido, no pretendia optimizar velocidad xD Pero es buen consejo para el que pregunta
|
|
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! xxxZEROxxx, Indesta el codigo, se lee mejor asi, y no es necesario un Do loop, se puede hacer con for, editando el valor de las variables del for XD. Raul100, viendo tu manera de pensar, arme este codigo que funciona con tu estructura: Dim A(9) As Long Dim X As Long Dim Y As Long Randomize For X = 0 To 9 A(X) = Int(Rnd() * 10) + 1 For Y = 0 To 9 If A(X) = A(Y) And Y <> X Then X = X - 1: Exit For Next Next
GRACIAS POR LEER!!!
|
|
« Última modificación: 23 Mayo 2011, 13:53 pm por 79137913 »
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
Otro que me corrige.. yo se que son muchos mejores ustedes pero dejenme contestar una aunquesea que siempre me ganan de mano jaja, con lo que yo le puse entenderá bien y aprendera esos bucles que se ve que no los conocia.
|
|
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! Otro que me corrige.. yo se que son muchos mejores ustedes pero dejenme contestar una aunquesea que siempre me ganan de mano jaja, con lo que yo le puse entenderá bien y aprendera esos bucles que se ve que no los conocia.
Sorry, no quise molestar GRACIAS POR LEER!!!
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
|
x64core
Desconectado
Mensajes: 1.908
|
HOLA!!! Sorry, no quise molestar GRACIAS POR LEER!!! :O :O :O muy buen codigo panaa y muy simplificado gracias!!
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Guardar contenido de un textbox en un archivo .txt con nombre aletorio
Programación Visual Basic
|
hepy_92
|
2
|
4,226
|
15 Abril 2007, 20:15 pm
por hepy_92
|
|
|
[RETO] Comprobar si un numero dado es un numero de la suerte
« 1 2 ... 5 6 »
Programación Visual Basic
|
Karcrack
|
53
|
23,559
|
17 Agosto 2010, 23:58 pm
por Dessa
|
|
|
Ayuda numero de serie
« 1 2 »
Ingeniería Inversa
|
wconejo
|
11
|
13,160
|
11 Octubre 2010, 18:19 pm
por wconejo
|
|
|
Ayuda con número de dígitos.
Programación C/C++
|
Jaraysedal
|
1
|
3,201
|
2 Noviembre 2010, 20:32 pm
por Littlehorse
|
|
|
AYUDA CON UN FOR DE NUMERO
Desarrollo Web
|
daniel010
|
1
|
1,967
|
13 Septiembre 2013, 00:25 am
por #!drvy
|
|