funcionpara generar numeros aleatorios nunca iguales VB.NET

[domanion]

hola la funcion debe recibir un el rango osea el numero mas alto que puede regresar y un opcional si se desea que pueda regresar 0 o no

Código:

Private Function genera(ByVal max As Integer, Optional ByVal zero As Boolean = False) As Integer
if zero=true then
'algo pára que pueda regresar zero
else
'algo que genere un numero aleatorio que no se repita
end if

gracias

[meula]

Private Function genera(ByVal max As Integer, Optional ByVal zero As Boolean = False) As Integer
Dim randNumber as New Random(DateTime.Now.Millisecond)

if zero=true then return 0

return randNumber .Next(0, max)
end function

[Isdiar]

Meula ha usado la función DateTime, que es la adecuada para hacerlo, pues así siempre tomará una hora distinta (cuenta hasta en milisegundos) y te dará un random distinto! ;)

Salu2!