Visual Basic - como puedo hacer para que los numeros no se repitan

Life is soft - evento anual de software empresarial
 
Vista:

como puedo hacer para que los numeros no se repitan

Publicado por Marlon Ortiz (1 intervención) el 08/08/2013 03:09:23
hola, que tal nose si me puedan ayudar o modificar mi proyecto es codificado en visual basic el proyecto consistes en hacer una tabla de bingo eso ya lo tengo hecho el punto hacer es que los numeros nose repitan en ninguna de las filas:


Private Sub filaI()
Text1(5).Text = Int(Rnd() * 15) + 16
Text1(6).Text = Int(Rnd() * 15) + 16
Text1(7).Text = Int(Rnd() * 15) + 16
Text1(8).Text = Int(Rnd() * 15) + 16
Text1(9).Text = Int(Rnd() * 15) + 16
End Sub
Private Sub filaN()
Text1(10).Text = Int(Rnd() * 15) + 31
Text1(11).Text = Int(Rnd() * 15) + 31
Text1(12).Text = Int(Rnd() * 15) + 31
Text1(13).Text = Int(Rnd() * 15) + 31
End Sub
Private Sub filaG()
Text1(14).Text = Int(Rnd() * 15) + 46
Text1(15).Text = Int(Rnd() * 15) + 46
Text1(16).Text = Int(Rnd() * 15) + 46
Text1(17).Text = Int(Rnd() * 15) + 46
Text1(18).Text = Int(Rnd() * 15) + 46
End Sub
Private Sub filaO()
Text1(19).Text = Int(Rnd() * 15) + 61
Text1(20).Text = Int(Rnd() * 15) + 61
Text1(21).Text = Int(Rnd() * 15) + 61
Text1(22).Text = Int(Rnd() * 15) + 61
Text1(23).Text = Int(Rnd() * 15) + 61
End Sub
Private Sub Form_Load()
Randomize
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

como puedo hacer para que los numeros no se repitan

Publicado por Antoni Masana (558 intervenciones) el 08/08/2013 13:18:41
Podria ser algo asi

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command1_Click()
    For a = 5 To 23
        Select Case a
           Case Is =  5: s = 16
           Case Is = 10: s = 31
           Case Is = 14: s = 46
           Case Is = 19: s = 61
        End Select
 
        Do
           Num = Int(Rnd() * 15) + s
           Ok = 0
           For b = 5 To a - 1
               If Text1(b).Text = Num Then Ok = 1: Exit For
           Next
        Loop While Ok = 1
 
        Text1(a).Text = Num
        Text1(a).Refresh
    Next
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de A.H.H

como puedo hacer para que los numeros no se repitan

Publicado por A.H.H (116 intervenciones) el 08/08/2013 18:54:58
Hola prueba poniendo el Randomize dentro de cada subrutina filaI....filaG......filaN....

asi cada vez que lllames de nuevo a Rnd vuelve a generar nuevos números.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar