Zufallsgenerator, doppelte Zahlen vermeiden

  • VB.NET

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

    Zufallsgenerator, doppelte Zahlen vermeiden

    Hallo :) ,

    also ich habe ein Programm geschrieben was besteht aus:
    einem Timer, 6 Textboxen und einem Zufallsgenerator.

    In einer Sekunde läuft der Zufallsgenerator und fängt bei Textbox1 an den Wert reinzuschreiben, das ganze geht dann bis Textbox6 und läuft 6 Sekunden.

    Sieht toll aus und funktioniert. Nur manchmal erscheinen halt Zahlen doppelt. Aber jede der sechs Zahlen darf nur einmal vorkommen.

    Ich denke für die meisten erfahrenen Benutzer hier ist der Code sowieso nicht optimal. Gibt es dennoch eine Möglichkeit das noch zu ändern ohne groß umschreiben zu müssen?

    Danke :)


    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim zufallsgenerator As New Random
    3. Dim lottozahl As Integer
    4. Dim zeit As Integer = 6
    8. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    12. If zeit = 6 Then
    13. lottozahl = zufallsgenerator.Next(1, 50)
    14. TextBox1.Text = lottozahl
    15. zeit = zeit - 1
    16. ElseIf zeit = 5 Then
    17. lottozahl = zufallsgenerator.Next(1, 50)
    18. TextBox2.Text = lottozahl
    19. zeit = zeit - 1
    20. ElseIf zeit = 4 Then
    21. lottozahl = zufallsgenerator.Next(1, 50)
    22. TextBox3.Text = lottozahl
    23. zeit = zeit - 1
    24. ElseIf zeit = 3 Then
    25. lottozahl = zufallsgenerator.Next(1, 50)
    26. TextBox4.Text = lottozahl
    27. zeit = zeit - 1
    28. ElseIf zeit = 2 Then
    29. lottozahl = zufallsgenerator.Next(1, 50)
    30. TextBox5.Text = lottozahl
    31. zeit = zeit - 1
    32. ElseIf zeit = 1 Then
    33. lottozahl = zufallsgenerator.Next(1, 50)
    34. TextBox6.Text = lottozahl
    35. zeit = zeit - 1
    36. Else
    37. Timer1.Enabled = False
    41. End If
    42. End Sub
    44. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    45. Timer1.Enabled = True
    46. End Sub

    ich habe grad keine zeit und habe mir nur die Überschrift angeguckt .. Wenn du doppelte Zahlen vermeiden willst,
    machste einfach ne Liste ala int bzw. float und wenn eine zahl generiert wurde setzte die darein...
    Und bei jedem generieren überprüfst du ob die Zahl bereits existiert ... Wenn ja, dann ne neue machen und reinschreiben in die Liste, wenn nein gleich reinschreiben

    Hey,

    hier mal ein Beispiel mit Ganzzahlen.

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Random
    3. Module Module1
    5. Dim rand As New Random
    7. Sub Main()
    8. For b As Integer = 0 To 200 ' 200 Zahlen generieren
    9. Gen()
    10. Next
    11. Console.ReadLine()
    12. End Sub
    14. Private Sub Gen()
    15. Dim generated As New List(Of Integer)
    16. Dim Zahl As Integer = rand.Next(1, 2000000) ' 1 ist in diesem Fall die kleinste generierbare Zahl und 2.000.000 die größt generierbare. Kannste natürlich anpassen.
    17. If Not generated.Contains(Zahl) Then
    18. generated.Add(Zahl)
    19. Console.WriteLine(Zahl)
    20. Else
    21. Console.WriteLine(">> Zahl bereits einmal generiert! Generiere nun neue.")
    22. Gen()
    23. End If
    24. End Sub
    26. End Module

    Die Frage hatten wir schon des öfteren und wie üblich sind die bislang gegebenen Antworten [censored]

    Im Prinzip ist es ein Einzeiler:

    dim r = from p in ienumerable.range(1,6) order by new system.guid select p

    Man kanns auch "schöner" machen, aber beide obigen Ansätze sind natürlich Quark

    Mach es so:

    VB.NET-Quellcode

    1. Dim rr As New Random
    2. Dim a() As Integer = {0, 1, 2, 3, 4, 5}
    3. Dim b(5) As Integer
    4. For i As Integer = 0 To 5
    5. b(i) = rr.Next(10000)
    6. Next
    7. Array.Sort(b, a)
    a ist ein sortiertes Feld, b ist ein zufälliges Feld.
    Wenn b sortiert wird, wird a mit sortiert, woraus dann eine zufällige Reihenfolge folgt.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!