SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: Can3lita en Domingo 26 de Junio de 2005, 18:21

Título: Generar Randómicos
Publicado por: Can3lita en Domingo 26 de Junio de 2005, 18:21
Alguien puede ayudarme con esto?
Necesito generar la sumatoria de 12 números aleatorios :/

Código: Text
  1.  Private Function generarZ() As Double
  2.  
  3.         Dim moRandom As New Random
  4.         Dim sumaRandomicos As Double
  5.         Dim acumulador As Double
  6.  
  7.         For intContadorRandomicos As Integer = 1 To 12
  8.             acumulador = acumulador + Math.Round(moRandom.NextDouble, 2)
  9.  
  10.         Next
  11.  
  12.         sumaRandomicos = acumulador
  13.         Return sumaRandomicos
  14.  
  15.     End Function
  16.  

 :blink:  :unsure:

[/b][/color][/size]
Título: Re: Generar Randómicos
Publicado por: senzao18 en Lunes 27 de Junio de 2005, 17:39
random.netxtdouble devuelve un número aleatorio entre 0.0 y 1.0.

usa con .next u otra de sus variantes.