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.
Assembly: mscorlib (in mscorlib.dll)
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.
| Exception | Condition |
|---|---|
| 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