Einmalige Zufallszahl generieren

  • Allgemein

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von FatFire.

    Einmalige Zufallszahl generieren

    Hi

    Ich habe folgendes Problem:

    Ich brauche eine Funktion der ich zwei werte zuweisen kann einen "von" und einen "bis" Wert,
    die Funktion soll nun eine Zufallszahl erstellen, und sie zurückgeben,
    beim zweiten aufruf der Funktion, soll sie prüfen ob sie die Zufallszahl schon mal hatte, wenn nicht dann soll sie die Zahl zurückgeben, andernfalls eine neue Zahl generieren - prüfen, und das geht von vorne los :)

    Hoffe ihr könnt mir helfen :)

    Grüße

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Class FatRandom
    3. Private Random As Random
    5. Private mUpperBound As Integer
    6. Public ReadOnly Property UpperBound() As Integer
    7. Get
    8. Return mUpperBound
    9. End Get
    10. End Property
    12. Private mLowerBound As Integer
    13. Public ReadOnly Property LowerBound() As Integer
    14. Get
    15. Return mLowerBound
    16. End Get
    17. End Property
    19. Private NumberPool As List(Of Integer)
    20. Public ReadOnly Property NumbersLeft() As Integer()
    21. Get
    22. Return NumberPool.ToArray
    23. End Get
    24. End Property
    26. Public Sub New(ByVal LowerBound As Integer, ByVal UpperBound As Integer)
    27. mLowerBound = LowerBound
    28. mUpperBound = UpperBound
    29. Random = New Random
    30. CreateNumbers()
    31. End Sub
    33. Public Sub New(ByVal UpperBound As Integer)
    34. Me.New(0, UpperBound)
    35. End Sub
    37. Public Sub DropNumber(ByVal Number As Integer)
    38. Dim Position As Integer = NumberPool.IndexOf(Number)
    39. If Position > -1 Then _
    40. NumberPool.RemoveAt(Position)
    41. End Sub
    43. Public Function GetNumber() As Integer
    44. Dim Count As Integer = NumberPool.Count
    45. If Count < 1 Then Return Integer.MinValue
    46. Dim Position As Integer = Random.Next(Count)
    47. Return NumberPool(Position)
    48. End Function
    50. Public Function GetExclusiveNumber() As Integer
    51. Dim Count As Integer = NumberPool.Count
    52. If Count < 1 Then Return Integer.MinValue
    53. Dim Position As Integer = Random.Next(Count)
    54. Dim Number As Integer = NumberPool(Position)
    55. NumberPool.RemoveAt(Position)
    56. Return Number
    57. End Function
    59. Private Sub CreateNumbers()
    60. NumberPool = New List(Of Integer)(mUpperBound - mLowerBound)
    61. For i As Integer = mLowerBound To mUpperBound
    62. NumberPool.Add(i)
    63. Next
    64. End Sub
    66. End Class

    Die Klasse einbinden, dann kannst Du z.B. mit

    VB.NET-Quellcode

    1. Dim Rand As New FatRandom(0, 200)

    Einen Zufallsgenerator basteln, der Dir Zahlen zwischen 0 und 200 zurückgibt.

    VB.NET-Quellcode

    1. Rand.NumbersLeft

    Gibt Dir z.B. an welche Zahlen noch nicht gezogen wurden.
    Mit GetNumber kannst Du Dir eine noch nicht gezogene Zufallszahl zurückgeben lassen, mit GetExclusiveNumber erhältst Du auch eine noch nicht gezogene Zufallszahl und diese wird dann auch für zukünftige Abfragen gesperrt.

    Gruß FatFire

    Edit: PS: Bevor jemand rummosert, dass man das Ganze auch performanter und speicherschonender implementieren kann (von wegen BitArray nutzen und so): das weiß ich auch. Aber die Klasse hatte ich zufälligerweise noch rumfliegen.

    picoflop schrieb:

    "Ziehen ohne zurücklegen"?


    hä?

    na ok, ich erklärs mal neu:

    ich programmiere gerade an einem Quiz,
    das Quiz läd alle fragen (den Praf zu den Fragen) in eine listbox.
    nähmen wir mal an ich hätte 11 fragen

    nun soll sich mwin programm einen index aussuchen und die frage laden
    nur wie in jedem echten quiz kommt keine frage doppelt.
    wenn ich jetzt das normale random benutze könnte es möglich sein, das z.B. die frage nummer 5 zwei mal kommt :(

    Grüße

    Ich bin mal so lieb und geb dir eine fertige Funktion, auch wenn ich jetzt als C&P-Geber verschrien werde ;)

    VB.NET-Quellcode

    1. Dim rndFc As New Random()
    2. Dim lstBenutzt As New List(Of Integer)
    3. Function einmaligerZufall(ByVal intVon As Integer, ByVal intBis As Integer) As Integer
    4. Dim intZuf As Integer
    5. Do
    6. intZuf = rndFc.Next(intVon, intBis)
    7. Loop Until Not lstBenutzt.Contains(intZuf)
    8. lstBenutzt.Add(intZuf)
    9. Return intZuf
    10. End Function


    Ist jetzt ohne IDE geschrieben, könnte Fehler enthalten.

Facebook
Telefonspende