GoGreen PC Tune-Up™
Learn More

this is how ssl encrypt our websites
MTNCOMP | List View | Table View | myBlog (1747 Entries)
myBlog Home


check randomness function

by Mountain Computers Inc., Publication Date: Thursday, December 20, 2018

View Count: 1011, Keywords: random, function, vb.net, Hashtags: #random #function #vb.net

i was trying to randomly walk a 156GB database and randomly go through millions and millions of records, so I decided to see if you this randomness function would work without salting the rnd generator, it worked... , given an upper bound, my upper bound row id was 1526763840.. so try this.. 
        'check randomness function
        Debug.Print("randomness function test")
        Dim r
        Dim x
        For x = 1 To 1000
            r = CInt(Math.Ceiling(Rnd() * 1526763840) + 1)
            Debug.Print(x & vbTab & r)
 correction: use this in place of the r = line above
            'r = CInt(Math.Ceiling(Rnd() * maxDBrecords) + 1)
            Static Generator As System.Random = New System.Random()
            r = Generator.Next(1, maxDBrecords)
            'as long as r is within bounds
more to come.

if you found this article helpful, consider contributing $10, 20 an Andrew Jackson or so..to the author. more authors coming soon
FYI we use paypal or patreon, patreon has 3x the transaction fees, so we don't, not yet.

© 2024 myBlog™ v1.1 All rights reserved. We count views as reads, so let's not over think it.