Home      Search

'NOTA INFORMATIVA: No nos puede llegar de min para el random el número cero, debido a que el array se inicializa con ceros y entraríamos en un bucle. 'El min debe ser: >=1 Private Sub NumAleaSinRep(ByVal min As Integer, ByVal max As Integer) Dim x As Integer Dim numale As Integer Dim controlde As Boolean Dim rnd As New Random() controlde = True While controlde = True controlde = False numale = rnd.Next(min, max) For x = 0 To numTotal ' La variable numTotal es el numero total de numeros que queremos obtener If numaleator(x) = numale Then controlde = True Exit For End If Next x End While numaleator(valorini) = numale valorini = valorini + 1 End Sub	Obtener aleatoriamente números sin repetir dentro de un rango especificado Uploaded on  7/4/2008 1:02:49 PM Programming Language: visualbasic.net By: Brujit0 See more code snippets of Brujit0 .net  aleatoriamente  aleatorio  random  vb.net
Public Function NumeroAleatorio(ByVal min As Integer, ByVal max As Integer) As Integer Dim rnd As New Random() NumeroAleatorio = rnd.Next(min, max) End Function	Obtener un número aleatorio dentro de un rango Uploaded on  7/4/2008 1:09:05 PM Programming Language: visualbasic.net By: Brujit0 See more code snippets of Brujit0 .net  aleatoriamente  aleatorio  random  vb.net
1