Generar números aleatorios

Artículo por Club Developers · 09 mayo 2006

2054 vistas

La clase System.Random permite generar números aleatorios. De hecho, son número psedo-aleatorios, debido a que la secuencia generada depende de la inicialización.



vbnet
  1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  2.  
  3.     ' Para generar siempre la misma secuencÃa, 
  4.     ' pasaremos el mismo valor al constructor.
  5.     ' Dim rnd As New Random(100) 
  6.  
  7.     ' La inicialización por defecto se base en el tiempo. 
  8.     ' La secuencia es diferente cada vez.
  9.     Dim rnd As New Random  
  10.  
  11.     ' Generación de 15 números aleatorios entre 0 y 255
  12.     Dim rndNumbers As Byte() = New Byte(14) {}
  13.     rnd.NextBytes(rndNumbers)
  14.     ListBox1.Items.Clear()
  15.     For i As Byte = 0 To 14
  16.         ListBox1.Items.Add(rndNumbers(i))
  17.         ' también podemos hacer un control para que sean de 0 a 100        ListBox2.Items.Add(IIf(rndNumbers(i) > 100, rndNumbers(i) Mod 100, rndNumbers(i)))
  18.     Next
  19.  
  20.     ' Para generar números aleatorios de tipo Integer
  21.     Dim i As Integer = rnd.Next()
  22.     Dim j As Integer = rnd.Next(500, 1000) 'j estará entre 500 y 1000
  23.  
  24.     ' Para generar números aleatorios de tipo Double
  25.     ' d estará entre 0,0 y 1,0. 
  26.     ' Tendremos que combinar esta llamada con Next() 
  27.     ' para obtener doubles superiores a 1,0
  28.     Dim d As Double = rnd.NextDouble()  
  29. End Sub