Question

How to use the clock as a random generator seed in VB.NET

Answer 1

Imports System

Class Program
	Public Shared Sub Main()
		' Environment.TickCount - Gets the number of milliseconds elapsed since the system started.
        Dim seed As Integer = Environment.TickCount
        
		Dim random As Random = New Random(seed)
		
        Dim randomNumber As Integer = random.Next()

        Console.WriteLine("Random Number: " & randomNumber)
    End Sub
End Class


' run:
'
' Random Number: 919582032
'

 

Learn SQL from A to Z at LearnSQL.com

Answer 2

Imports System

Class Program
	Public Shared Sub Main()
        Dim seed As Integer = CInt((DateTime.Now.Ticks Mod Integer.MaxValue))
		
        Dim rng As Random = New Random(seed)
        Dim randomNumber As Integer = rng.Next()

        Console.WriteLine("Random number: " & randomNumber)
    End Sub
End Class



' run:
'
' Random number: 1968917653
'

 

Learn SQL from A to Z at LearnSQL.com