Números aleatorios no repetidos en un textbox usando un array
Publicado por Pedro (38 intervenciones) el 13/04/2017 20:04:35
Hola
soy novato, necesito generar 3 números aleatorios entre 1 y 10 , estos 3 números tienen que ser distintos y mostrarse en 3 textbox, creo que estoy cerca pero me sigue repitiendo números de vez en cuando, ¿podrían ayudarme sin modificar mucho mi código? tengo claro que el error esta en la función "mostrar_resultados()", Gracias!
soy novato, necesito generar 3 números aleatorios entre 1 y 10 , estos 3 números tienen que ser distintos y mostrarse en 3 textbox, creo que estoy cerca pero me sigue repitiendo números de vez en cuando, ¿podrían ayudarme sin modificar mucho mi código? tengo claro que el error esta en la función "mostrar_resultados()", Gracias!
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
' Creo un array de 3 campos y 3 variables
Dim numeros(2) As Array
Dim numero1, numero2, numero3 As Integer
' Creo la función que genera un numero aleatorio del 1 al 3 y lo almacena en su variable
Public Function generar_resultados()
numero1 = Int(-10 * Rnd() + 11)
numero2 = Int(-10 * Rnd() + 11)
numero3 = Int(-10 * Rnd() + 11)
End Function
' Creo la función que comprueba que los numeros no sean aleatorios y en caso afirmativo lo muestra en en textbox.
Public Function mostrar_resultados()
Do While numero1 And numero2 And numero3 A = numero1 And numero2 And numero3generar_resultados()
Loop
TBNumeroAl1.Text = numero1
TBNumeroAl2.Text = numero2
TBNumeroAl3.Text = numero3
End Function
' llamo a la función que genera los números y la que comprueba que no sean repetidos mediante un botón.
Private Sub Bt_generador_Click(sender As Object, e As EventArgs) Handles Bt_generador.Click
generar_resultados()
mostrar_resultados()
End Sub
Valora esta pregunta
0
