Kosole gibt eine der STring Variablen zufällig wieder

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Eddy.

    Kosole gibt eine der STring Variablen zufällig wieder

    Hallo

    ich möchte wissen wie ich mit der Konsole von unterschiedlichen String-Variablen mir eine zufällig ausgeben kann.(random.next funktion)
    Habe es bis jetzt nur mit verschiedenen Variablen versucht, aber das kann ich ja so nicht in die random funktion einbauen.
    Dann habe ich noch versucht ein array zu erstellen, der aus string variablen besteht, aber das führt irgendwie alles ins leere.
    Letzendlich habe ich so viel rumgewurschtelt, das ein gematsche entstanden ist, wo ich 0 weiß, was sache ist:


    VB.NET-Quellcode

    1. Dim a001 As String
    2. Dim a002 As String
    3. Dim a003 As String
    4. Dim textanzahl As Integer = 0
    5. Console.WriteLine("Die Texte gehen von 1-3.." )
    6. Console.WriteLine("Bitte den ersten text eingeben")
    7. a001 = Console.ReadLine
    8. If Not zufallsliste.Contains(a001) Then
    9. zufallsliste.Add(a001)
    10. End If
    11. Console.WriteLine("Bitte den zweiten text eingeben")
    12. a002 = Console.ReadLine
    13. If Not zufallsliste.Contains(a002) Then
    14. zufallsliste.Add(a002)
    15. End If
    16. Console.WriteLine("Bitte den dritten text eingeben")
    17. a003 = Console.ReadLine
    18. If Not zufallsliste.Contains(a003) Then
    19. zufallsliste.Add(a003)
    20. End If
    21. For Each zeile As String In zufallsliste
    22. textanzahl += 1
    23. Next
    24. Console.WriteLine("Jetzt wird eine der String Variable Zufällig ausgegeben")
    25. '......

    Moin,

    so etwas triviales sollte nach 2+ Jahren aber aus dem FF kommen!

    VB.NET-Quellcode

    1. Module Module1
    2. Private strings() As String = {"eins", "zwei", "drei", "vier", "fuenf"}
    3. Private rnd As New Random
    4. Public Sub Main()
    5. For i As Integer = 0 To 9
    6. Console.WriteLine(strings(rnd.Next(0, strings.Length)))
    7. Next
    8. Console.ReadKey()
    9. End Sub
    10. End Module
    And i think to myself... what a wonderfuL World!