Mega Code Archive

 

Categories / VB.Net / Development

 

Create Random class, using the specified seed value

Imports System Imports System.Globalization Public Class MainClass       Public Shared Sub Main()         Dim randomInstancesToCreate As Integer = 4         Dim randomEngines(randomInstancesToCreate - 1) As Random         For ctr As Integer = 0 To randomInstancesToCreate - 1            randomEngines(ctr) = New Random(CInt((DateTime.Now.Ticks >> 32) >> ctr))         Next    End Sub 'Main  End Class