Random Constructor (Int32)
Collapse the table of content
Expand the table of content

Random Constructor (Int32)

[ This article is for Windows Phone 8 developers. If you’re developing for Windows 10, see the latest documentation. ]

Initializes a new instance of the Random class, using the specified seed value.

Namespace:  System
Assembly:  mscorlib (in mscorlib.dll)

'Declaration
Public Sub New ( _
	Seed As Integer _
)

Parameters

Seed
Type: System.Int32
A number used to calculate a starting value for the pseudo-random number sequence. If a negative number is specified, the absolute value of the number is used.

ExceptionCondition
OverflowException

Seed is Int32.MinValue, which causes an overflow when its absolute value is calculated.

Providing an identical seed value to different Random objects causes each instance to produce identical sequences of random numbers.

If your application requires different random number sequences, invoke this constructor repeatedly with different seed values. One way to produce a unique seed value is to make it time-dependent. For example, derive the seed value from the system clock. However, the system clock might not have sufficient resolution to provide different invocations of this constructor with a different seed value. In that case, apply an algorithm to differentiate the seed value in each invocation. For example, the following code uses the right-shift operator to generate different seed values for a number of Random objects (between 1 and approximately 28 objects) that might be initialized with the same time value.


Imports System.Threading

Module Example
   Public Sub Demo(ByVal outputBlock As System.Windows.Controls.TextBlock)
      Dim rand1 As New Random()
      Dim rand2 As New Random()
      Thread.Sleep(2000)
      Dim rand3 As New Random()
      ShowExample(outputBlock, rand1)
      ShowExample(outputBlock, rand2)
      ShowExample(outputBlock, rand3)
   End Sub

   Private Sub ShowExample(ByVal outputBlock As System.Windows.Controls.TextBlock, ByVal rand As Random)
      outputBlock.Text &= vbCrLf
      Dim values(4) As Byte
      rand.NextBytes(values)
      For Each value As Byte In values
         outputBlock.Text += String.Format("{0, 5}", value)
      Next
      outputBlock.Text &= vbCrLf
   End Sub
End Module
' The example displays the following output:
'       28   35  133  224   58
'    
'       28   35  133  224   58
'    
'       32  222   43  251   49


The following code example creates Random objects with the class constructor that takes a seed parameter and generates a sequence of random integers and doubles. The example illustrates that the same sequence is generated when the Random object is created again with the constructor and seed parameter.


' Example of the Random class constructors and Random.NextDouble( ) 
' method.
Imports System.Threading

Module Example
   ' Generate random numbers from the specified Random object.
   Sub RunIntNDoubleRandoms(ByVal outputBlock As System.Windows.Controls.TextBlock, _
                            ByVal randObj As Random)

      ' Generate the first six random integers.
      Dim j As Integer
      For j = 0 To 5
         outputBlock.Text &= String.Format(" {0,10} ", randObj.Next())
      Next j
      outputBlock.Text &= vbCrLf

      ' Generate the first six random doubles.
      For j = 0 To 5
         outputBlock.Text &= String.Format(" {0:F8} ", randObj.NextDouble())
      Next j
      outputBlock.Text &= vbCrLf
   End Sub

   ' Create a Random object with the specified seed.
   Sub FixedSeedRandoms(ByVal outputBlock As System.Windows.Controls.TextBlock, ByVal seed As Integer)

      outputBlock.Text &= String.Format(vbCrLf & _
          "Random numbers from a Random object with " & _
          "seed = {0}:", seed) & vbCrLf
      Dim fixRand As New Random(seed)

      RunIntNDoubleRandoms(outputBlock, fixRand)
   End Sub

   ' Create a random object with a timer-generated seed.
   Sub AutoSeedRandoms(ByVal outputBlock As System.Windows.Controls.TextBlock)

      ' Wait to allow the timer to advance.
      Thread.Sleep(1)

      outputBlock.Text &= String.Format(vbCrLf & _
          "Random numbers from a Random object " & _
          "with an auto-generated seed:") & vbCrLf
      Dim autoRand As New Random()

      RunIntNDoubleRandoms(outputBlock, autoRand)
   End Sub

   Public Sub Demo(ByVal outputBlock As System.Windows.Controls.TextBlock)
      outputBlock.Text &= String.Format( _
          "This example of the Random class constructors " & _
          "and Random.NextDouble( ) " & vbCrLf & _
          "generates the following output." & vbCrLf) & vbCrLf
      outputBlock.Text &= String.Format("Create Random " & _
          "objects, and then generate and display six " & _
          "integers and " & vbCrLf & "six doubles from each.") & vbCrLf

      FixedSeedRandoms(outputBlock, 123)
      FixedSeedRandoms(outputBlock, 123)

      FixedSeedRandoms(outputBlock, 456)
      FixedSeedRandoms(outputBlock, 456)

      AutoSeedRandoms(outputBlock)
      AutoSeedRandoms(outputBlock)
      AutoSeedRandoms(outputBlock)
   End Sub
End Module

' This example of the Random class constructors and Random.NextDouble( )
' generates the following output.
' 
' Create Random objects, and then generate and display six integers and
' six doubles from each.
' 
' Random numbers from a Random object with seed = 123:
'  2114319875  1949518561  1596751841  1742987178  1586516133   103755708
'  0.01700087  0.14935942  0.19470390  0.63008947  0.90976122  0.49519146
' 
' Random numbers from a Random object with seed = 123:
'  2114319875  1949518561  1596751841  1742987178  1586516133   103755708
'  0.01700087  0.14935942  0.19470390  0.63008947  0.90976122  0.49519146
' 
' Random numbers from a Random object with seed = 456:
'  2044805024  1323311594  1087799997  1907260840   179380355   120870348
'  0.21988117  0.21026556  0.39236514  0.42420498  0.24102703  0.47310170
' 
' Random numbers from a Random object with seed = 456:
'  2044805024  1323311594  1087799997  1907260840   179380355   120870348
'  0.21988117  0.21026556  0.39236514  0.42420498  0.24102703  0.47310170
' 
' Random numbers from a Random object with an auto-generated seed:
'  1920831619  1346865774  2006582766  1968819760   332463652   110770792
'  0.71326689  0.50383335  0.50446082  0.66312569  0.94517193  0.58059287
' 
' Random numbers from a Random object with an auto-generated seed:
'   254927927  1205531663  1984850027   110020849  1438111494  1697714106
'  0.19383387  0.52067738  0.74162783  0.35063667  0.31247720  0.38773733
' 
' Random numbers from a Random object with an auto-generated seed:
'   736507882  1064197552  1963117288   398705585   396275689  1137173773
'  0.67440084  0.53752140  0.97879483  0.03814764  0.67978248  0.19488178


Windows Phone OS

Supported in: 8.1, 8.0, 7.1, 7.0

Windows Phone

Show:
© 2017 Microsoft