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
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


0