Hola, soy nuevo, encantado de estar en este foro ^^. Bueno, vamos al grano, mirar, quiero hacer un juego en el el qual se asigna una palabra a una variable aleatoria y me gustaria hacer que si esa palabra ya ha salido pues que no pueda volver a salir a la vez, no se si me explico, os enseño lo que he intentado (sin exito), no os metais mucho conmigo que soy nuevecillo :P:
For k = 0 To 8
Randomize
h(k) = Rnd() * 9
Select Case k
Case 1
If h(1) = h(0) Then k = k - 1
Case 2
If h(k) = h(0) Or h(k) = h(1) Then k = k - 1
Case 3
If h(k) = h(0) Or h(k) = h(1) Or h(k) = h(2) Then k = k - 1
Case 4
If h(k) = h(0) Or h(k) = h(1) Or h(k) = h(2) Or h(k) = h(3) Then k = k - 1
Case 5
If h(k) = h(0) Or h(k) = h(1) Or h(k) = h(2) Or h(k) = h(3) Or h(k) = h(4) Then k = k - 1
Case 6
If h(k) = h(0) Or h(k) = h(1) Or h(k) = h(2) Or h(k) = h(3) Or h(k) = h(4) Or h(k) = h(5) Then k = k - 1
Case 7
If h(k) = h(0) Or h(k) = h(1) Or h(k) = h(2) Or h(k) = h(3) Or h(k) = h(4) Or h(k) = h(5) Or h(k) = h(6) Then k = k - 1
Case 8
If h(k) = h(0) Or h(k) = h(1) Or h(k) = h(2) Or h(k) = h(3) Or h(k) = h(4) Or h(k) = h(5) Or h(k) = h(6) Or h(k) = h(7) Then k = k - 1
Case 9
If h(k) = h(0) Or h(k) = h(1) Or h(k) = h(2) Or h(k) = h(3) Or h(k) = h(4) Or h(k) = h(5) Or h(k) = h(6) Or h(k) = h(7) Or h(k) = h(8) Then k = k - 1
End Select
Next k
Yo habia pensado que en caso de que fueran iguales diera un paso hacia atras y repitiera el proceso hasta que le saliera un numero diferente, pero he hecho algo mal, si me podeis ayudar os lo agredeceria, si no pos nada xD. Nos vemos!
Mira este ejemplo: http://www.lawebdelprogramador.com/codigo/enlace.php?idp=1166&id=93&texto=Visual+Basic
Aquí tienes otros ejemplos:
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/167-numeros-aleatorios-no-repetidos.htm
gracias a los dos, voy a provar y os cuento ^^
EDITO: gracias, ya lo consegui, gracias a ambos ^^