Randomize, RND, Timer() , (@Onur, Opawinni)

peter · 2024-05-08T17:16:08+00:00

Hallo Onur, Opawinni Mich hat diese ganze Thematik keine Ruhe gelassen und daher habe ich noch einige Versuche unternommen. Der wiederholte Aufruf von Randomize innerhalb einer Schleife ist nur dann problematisch , wenn die Abarbeitung sehr schnell geht. Auf meinem Rechner hat die Timer() Funktion eine Auflösung von 3,9 Millisekunden (auch wenn sie als Single defniert ist). Sub TestTimer() Dim c As Long Dim t As Single c = 0 t = Timer() Do c = c + 1 Loop Until (Timer() - t) > 0 Debug.Print c, (Timer() - t) End Sub Liefert als Ergebnis: 21504 3,90625E-03 Wobei die Anzahl der Durchläufe stark variert. Der wiederholte Aufruf von Randomize mit einem fixen Startwert liefert immer genau 256 unterschiedliche Werte für die RND Funktion. Dannach beginnt das Spiel von vorne. Sub testRandomize() Dim i As Long Dim z() As Long ReDim z(9999, 1) For i = 0 To 9999 Randomize 1 z(i, 0) = Int(Rnd * 1000) Next Range("A1").Resize(10000, 1) = z End Sub Hier scheint intern ein Zähler mitzulaufen. Wenn nun wie Opawinni's Beispiel die RND Funktion öfters als 256 mal innerhalb von 3.9 Millisekunden aufgerufen wird, kommt es zu diesen Wiederholungen. Das Thema ist zwar rein akademisch, eure Meinung dazu würde mich trotzdem interessieren. Peter

Hallo,

ich habe mal meine Versuche zur GUID herausgesucht und etwas getestet. Und was soll ich sagen, das Problem mit RND ist auch in der Version 2019 nicht behoben.

Ich habe 50000 GUIDs erstellt mit RND (einmal mit Randomize Timer bei jeder GUID und einmal bei jedem Byte) und es kommen mehrere Dubletten vor, egal wie oft Randomize ausgeführt wird.

Ich habe die Funktion ZUFALLSZAHL (RAND) verwendet und das Problem tritt nicht auf. Also ist die Arbeitsblattfunktion nicht identisch mit der VBA-Funktion. Mit RANDBETWEEN läuft das ganze dann auch noch ohne Dubletten und viel schneller.

Ihr könnt ja mal selber testen. Einfach mal alle Varianten laufen lassen und nach der GUID sortieren ... Hier mein Code:

Sub TestGUID()

    Dim a(1 To 50000, 1 To 1) As String

    Dim i As Long

    For i = 1 To 50000

        a(i, 1) = MyGUID_rand()

    Next

    Range("A2:A50001").Value = a

End Sub

Function MyGUID_rnd_einmal() As String

    j As Long

    Dim text As String

    Dim z As Byte

    Randomize Timer

        For j = 1 To 16

            z = Int(255 * Rnd + 1)

            Select Case j

                Case 7

                    z = (z And 15) Or 64

                Case 9

                    z = (z And 63) Or 128

            End Select

            text = text & WorksheetFunction.Dec2Hex(z, 2)

        Next

        MyGUID_rnd_einmal = Left(text, 8) & "-" & Mid(text, 9, 4) & "-" & Mid(text, 13, 4) & "-" & Mid(text, 17, 4) & "-" & Right(text, 12)

End Function

Function MyGUID_rnd_jedesmal() As String

    Dim j As Long

    Dim text As String

    Dim z As Byte

        For j = 1 To 16

            Randomize Timer

            z = Int(255 * Rnd + 1)

            Select Case j

                Case 7

                    z = (z And 15) Or 64

                Case 9

                    z = (z And 63) Or 128

            End Select

            text = text & WorksheetFunction.Dec2Hex(z, 2)

        Next

        MyGUID_rnd_jedesmal = Left(text, 8) & "-" & Mid(text, 9, 4) & "-" & Mid(text, 13, 4) & "-" & Mid(text, 17, 4) & "-" & Right(text, 12)

End Function

Function MyGUID_rand() As String

    Dim j As Long

    Dim text As String

    Dim z As Byte

        For j = 1 To 16

            z = Int(255 * Evaluate("Rand()") + 1)

            Select Case j

                Case 7

                    z = (z And 15) Or 64

                Case 9

                    z = (z And 63) Or 128

            End Select

            text = text & WorksheetFunction.Dec2Hex(z, 2)

        Next

        MyGUID_rand = Left(text, 8) & "-" & Mid(text, 9, 4) & "-" & Mid(text, 13, 4) & "-" & Mid(text, 17, 4) & "-" & Right(text, 12)

End Function

Function MyGUID_randbetween() As String

    Dim j As Long

    Dim text As String

    Dim z As Byte

        For j = 1 To 16

            z = WorksheetFunction.RandBetween(0, 255)

            Select Case j

                Case 7

                    z = (z And 15) Or 64

                Case 9

                    z = (z And 63) Or 128

            End Select

            text = text & WorksheetFunction.Dec2Hex(z, 2)

        Next

        MyGUID_randbetween = Left(text, 8) & "-" & Mid(text, 9, 4) & "-" & Mid(text, 13, 4) & "-" & Mid(text, 17, 4) & "-" & Right(text, 12)

End Function

Ich hab mal spaßeshalber versucht den Wichmann-Hill 2006 zu programmieren, ist ja nicht viel,
Nur wie das mit der Initialisierung genau laufen soll, naja, jedenfalls soll der ne Periode von 2^121 haben,
einige statistische Test bestanden haben und.... schneller als Randbetween wär das immer noch:



Option Explicit



Dim glngWHSeed(3) As Long

Dim gblnWHinit As Boolean





Public Function RndWH2() As Double

    

    Dim R As Double

    

    If Not gblnWHinit Then

        Dim Seed As Long

        Seed = Int(Timer) + 1

        glngWHSeed(0) = 11600 * (Seed Mod 185127) - 10379 * (Seed / 185127)

        If (glngWHSeed(0)  0) Then glngWHSeed(0) = glngWHSeed(0) + 2147483579

        glngWHSeed(1) = 47003 * (Seed Mod 45688) - 10479 * (Seed / 45688)

        If (glngWHSeed(1)  0) Then glngWHSeed(1) = glngWHSeed(1) + 2147483543

        glngWHSeed(2) = 23000 * (Seed Mod 93368) - 19423 * (Seed / 93368)

        If (glngWHSeed(2)  0) Then glngWHSeed(2) = glngWHSeed(2) + 2147483423

        glngWHSeed(3) = 33000 * (Seed Mod 65075) - 8123 * (Seed / 65075)

        If (glngWHSeed(3)  0) Then glngWHSeed(3) = glngWHSeed(3) + 2147483123

        gblnWHinit = True

    End If

        

    glngWHSeed(0) = 11600 * (glngWHSeed(0) Mod 185127) - 10379 * (glngWHSeed(0) / 185127)

    If (glngWHSeed(0)  0) Then glngWHSeed(0) = glngWHSeed(0) + 2147483579

    glngWHSeed(1) = 47003 * (glngWHSeed(1) Mod 45688) - 10479 * (glngWHSeed(1) / 45688)

    If (glngWHSeed(1)  0) Then glngWHSeed(1) = glngWHSeed(1) + 2147483543

    glngWHSeed(2) = 23000 * (glngWHSeed(2) Mod 93368) - 19423 * (glngWHSeed(2) / 93368)

    If (glngWHSeed(2)  0) Then glngWHSeed(2) = glngWHSeed(2) + 2147483423

    glngWHSeed(3) = 33000 * (glngWHSeed(3) Mod 65075) - 8123 * (glngWHSeed(3) / 65075)

    If (glngWHSeed(3)  0) Then glngWHSeed(3) = glngWHSeed(3) + 2147483123

    

    R = (glngWHSeed(0) * 1#) / 2147483579# + (glngWHSeed(1) * 1#) / 2147483543# + _

        (glngWHSeed(2) * 1#) / 2147483423# + (glngWHSeed(3) * 1#) / 2147483123#

    

    RndWH2 = R - Int(R)

    

End Function

Randomize, RND, Timer() , (@Onur, Opawinni)

Forumthread: Randomize, RND, Timer() , (@Onur, Opawinni)

34
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Randomize, RND, Timer() , (@Onur, Opawinni)

Forumthread: Randomize, RND, Timer() , (@Onur, Opawinni)

34 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

34
Beiträge zum Forumthread

Beiträge zu diesem Forumthread