Zahlenraten

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von thedarkside21986.

    Zahlenraten

    hi,

    es gibt zwar jede Menge dieser Programme. allerdings hab ich keines gefunden in dem die Eingaben gespeichert werden.
    Nun soll das Programm die Eingabe von bis zu 5 Zahlen erwarten. Nach jeder Eingabe sollen
    die bisher geratenen Zahlen sowie die Angabe, ob die gesuchte Zahl größer oder kleiner ist,
    angezeigt werden. Wird die Zahl erraten oder sind die 5 Versuche vorbei, soll eine Abfrage
    kommen, ob man noch einmal spielen oder das Programm beenden möchte.
    Beispiel:
    Bitte geben Sie eine Zahl zwischen 1 und 20 ein: 15
    Die gesuchte Zahl ist kleiner!
    Bisherige Zahlen: 9 15

    VB.NET-Quellcode

    1. Imports System.Console
    3. Module Module1
    4. Dim Zufallszahl As Integer
    5. Dim zahlen As New ArrayList
    6. Dim count As Int32 = 0
    8. Dim Zahl As Integer
    10. Dim Antwort As String
    13. Sub Main()
    14. Randomize(Timer)
    15. Zufallszahl = 1 + Int(Rnd(1) * 20)
    17. WriteLine("Bitte geben Sie die gesuchte Zahl ein")
    18. Zahl = ReadLine()
    19. For z = 1 To 5
    20. Try
    21. zahlen.Add(Int32.Parse(Zahl))
    22. Catch ex As FormatException
    23. If Not IsNumeric(zahlen) Then WriteLine("Bitte geben Sie eine gültige Zahl ein")
    24. WriteLine()
    26. End Try
    28. Select Case Zahl
    29. Case Is < Zufallszahl
    30. WriteLine("Gesuchté Zahl ist größer")
    31. WriteLine(z)
    32. Case Is > Zufallszahl
    33. WriteLine("Gesuchte Zahl ist kleiner")
    34. Case Else
    35. WriteLine("Richtig geraten")
    36. ReadLine()
    37. WriteLine("Neues Spiel? ...... ja oder nein?")
    38. Antwort = ReadLine()
    39. Select Case Antwort
    40. Case "ja"
    41. WriteLine()
    42. WriteLine()
    43. Main()
    44. Case "nein"
    45. Exit Sub
    46. Case Else
    47. WriteLine("Nur Eingabe ja und nein zulässig")
    48. End Select
    49. End Select
    51. Exit Sub
    55. ' Antwort = ReadLine()
    56. 'Select Case Antwort
    57. ' Case "ja"
    58. 'Main()
    59. ' Case "nein"
    60. 'Exit Sub
    61. ' Case Else
    62. 'WriteLine("Nur Eingabe ja und nein zulässig")
    63. 'End Select
    65. WriteLine()
    66. Next
    76. End Sub
    78. Function Prüfe(ByVal Zahleingaben As Integer) As Boolean
    79. End Function
    81. End Module


    ohne der Ausgabe - der bereits eingegeben Zahlen also wenn man den Befehl zahlen.Add(Int32.Parse(Zahl)) weglässt funktioniert das Programm.
    aber wie bekomme ich das mit der Ausgabe der bereits eingegeben Zahlen hin.

    zahlen.Add(Int32.Parse(Readline())) hab ich auch schon probiert. bringt mir auch keine andere Lösung.

    Bitte um Hilfe.

    In deiner VB-Umgebung hast du den Menüpunkt Einzelschritt. Dort kannst du Schritt für Schritt schauen, was dein Programm macht (das gilt auch für deinen anderen Thread). Zeile 14, 15: VB6-Anweisungen. Funktionieren zwar, sind aber nur mehr aus Kompatibilität dabei. Die Random-Klasse wird in diesem Forum zu Hauff erwähnt.

    aber wie bekomme ich das mit der Ausgabe der bereits eingegeben Zahlen hin.

    Wenn du eine Auflistung hast, dann hilft dir die For-Each-Anweisung weiter. Diese geht in einer Schleife jedes Element durch.

    der_Kurt schrieb:

    In deiner VB-Umgebung hast du den Menüpunkt Einzelschritt. Dort kannst du Schritt für Schritt schauen, was dein Programm macht (das gilt auch für deinen anderen Thread). Zeile 14, 15: VB6-Anweisungen. Funktionieren zwar, sind aber nur mehr aus Kompatibilität dabei. Die Random-Klasse wird in diesem Forum zu Hauff erwähnt.

    aber wie bekomme ich das mit der Ausgabe der bereits eingegeben Zahlen hin.

    Wenn du eine Auflistung hast, dann hilft dir die For-Each-Anweisung weiter. Diese geht in einer Schleife jedes Element durch.
    hallo die for each Schleife kenne ich schon ... (die gilt wenn die anzahl der Arrays unbestimmt ist)
    wenn ich aber sage ich hab ein festes Array von 5 Werten dann kann ich doch auch die
    for i = 1 to Myarray.Length verwenden oder ?

    Hallo,

    auch für einen normalen Array mit fester größe kannst du eine ForEach Schleife nehmen, außerdem wäre es eher For i = 0 To Myarray.length -1

    Mfg jvbsl
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Ich hab das mal umgesetzt, das was du wolltest.

    Ist es so, wie du es haben wolltest? Hast du Fragen zum Code? Gern melden.

    VB.NET-Quellcode

    1. Module Zahlenraten
    3. Public bisher As New List(Of Integer)
    5. Public eingabe As String = String.Empty
    7. Sub Main()
    9. bisher.Clear()
    11. Dim zufallszahl As Integer = New Random().Next(1, 20)
    13. Dim eingegeben As String = String.Empty
    15. ZahlAbfangen()
    17. Dim counter As Integer = 1
    19. Do
    21. bisher.Add(Integer.Parse(eingabe))
    23. eingegeben = EingegebeneZahlen()
    25. Select Case Integer.Parse(eingabe)
    27. Case Is < zufallszahl
    29. Console.WriteLine("Die gesuchte Zahl ist größer.")
    31. Console.WriteLine("Bisher folgende Zahlen benutzt: {0} - {1}. Versuch", eingegeben, counter)
    33. ZahlAbfangen()
    35. Case Is > zufallszahl
    37. Console.WriteLine("Die gesuchte Zahl ist kleiner.")
    39. Console.WriteLine("Bisher folgende Zahlen benutzt: {0} - {1}. Versuch", eingegeben, counter)
    41. ZahlAbfangen()
    43. Case Else
    45. Console.WriteLine("Richtig, die Zahl lautete {0} und Sie haben {1} Versuche gebraucht!", zufallszahl, counter)
    47. Abfragen()
    49. Exit Do
    51. End Select
    53. counter += 1
    55. Loop Until counter = 5
    57. Console.WriteLine("Sie haben leider all ihre Versuche verbraucht! Die Zahl lautete {0}.", zufallszahl)
    59. Abfragen()
    61. End Sub
    63. Private Function EingegebeneZahlen() As String
    65. Dim _zahlen As String = String.Empty
    67. For i As Integer = 0 To bisher.Count - 1
    69. _zahlen &= bisher(i).ToString() + ", "
    71. Next
    73. Return _zahlen.Remove(_zahlen.Length - 2, 2)
    75. End Function
    77. Private Sub Abfragen()
    79. Console.Write("Möchten Sie nochmal spielen? (Y|N): ")
    81. Dim antwort As String = Console.ReadLine()
    83. Do Until antwort.ToLower() = "y" Or antwort.ToLower() = "n"
    85. Console.Write("Falsche Eingabe - (Y|N): ")
    87. antwort = Console.ReadLine()
    89. Loop
    91. Select Case antwort.ToLower()
    93. Case "y"
    95. Main()
    97. Case Else
    99. End Select
    101. End Sub
    103. Private Sub ZahlAbfangen()
    105. Console.Write("Geben Sie die gesuchte Zahl ein: ")
    107. eingabe = Console.ReadLine()
    109. Do Until Integer.TryParse(eingabe, 0)
    111. Console.Write("Das war keine Zahl, bitte neu eingeben: ")
    113. eingabe = Console.ReadLine()
    115. Loop
    117. End Sub
    119. End Module


    MfG

    hi lapi. super herzlichen Dank für die Ausarbeitung. Ich wollte zwar keinen fertigen code aber trotzdem danke.
    ich muss jetzt suchen ob ich deine Vorlage mit einbauen kann.
    mein Gerüst sieht nun so aus....
    was mir noch fehlt die Ausgabe der bereits eingegeben Zahlen.

    VB.NET-Quellcode

    1. Imports System.Console
    3. Module Module1
    4. Dim Zufallszahl As Integer
    5. Dim MyArray() As Integer = {1, 2, 3, 4}
    6. 'Dim count As Int32 = 0
    7. Dim Zahl As Integer
    8. Dim Antwort As String
    9. Dim Versuche As Integer
    12. Sub Main()
    13. Randomize(Timer)
    14. Zufallszahl = 1 + Int(Rnd(1) * 20)
    15. Versuche = 0
    16. Do
    17. WriteLine()
    18. Write("Bitte geben Sie die gesuchte Zahl ein: ")
    19. Zahl = ReadLine()
    20. Versuche += 1
    21. Select Case Zahl
    22. Case Is < Zufallszahl
    23. WriteLine("Gesuchté Zahl ist größer")
    25. Case Is > Zufallszahl
    26. WriteLine("Gesuchte Zahl ist kleiner")
    27. Case Else
    28. WriteLine("Richtig geraten")
    29. ReadLine()
    30. WriteLine()
    31. End Select
    33. Loop Until Zahl = Zufallszahl Or Versuche = 5
    34. If Versuche = 5 Then WriteLine("Leider wurde die Zahl nicht erraten")
    35. Ende()
    37. End Sub
    39. Sub Ende()
    40. WriteLine("Neues Spiel? ...... ja oder nein?")
    41. Antwort = ReadLine()
    42. Select Case Antwort
    43. Case "ja"
    44. WriteLine()
    45. WriteLine()
    46. Main()
    47. Case "nein"
    48. Exit Sub
    49. Case Else
    50. WriteLine("Nur Eingabe ja und nein zulässig")
    51. End Select
    52. WriteLine()
    53. End Sub
    56. End Module

    Wenn der User eine Eingabe macht, musst du die Eingabe in eine Liste (Of Integer) oder (Of String) hinzufügen.

    Danach gehst du mit einer For Each- oder For-Schleife jeden Eintrag durch und fügst den entsprechenden Wert einem String zu (DeinString &= WERT).

    Das kannst du schöner gestalten, z.B. mit Kommatar.

    Schau dir dazu auch meine Funktion EingegebeneZahlen() an.

    VB.NET-Quellcode

    1. Private Function EingegebeneZahlen() As String
    3. Dim _zahlen As String = String.Empty
    5. For i As Integer = 0 To bisher.Count - 1
    7. _zahlen &= bisher(i).ToString() + ", "
    9. Next
    11. Return _zahlen.Remove(_zahlen.Length - 2, 2)
    13. End Function


    MfG

    hallo lapi :) danke für den code das ist genau das was ich haben wollte. allerdings will ich deinen code nicht komplett kopieren sondern versuchen in mein gerüst einzubauen. könnte also sein das ich noch die ein oder andere frage zu deiner funktion. bzw. ausgabe form habe.

    gruß tobias.

    VB.NET-Quellcode

    1. Imports System.Console
    3. Module Module1
    4. Dim Zufallszahl As Integer
    5. 'Dim zahlen As New ArrayList
    6. Public bisher As New List(Of Integer)
    7. Dim Eingabe As Integer
    8. 'Dim count As Int32 = 0
    9. Dim Zahl As Integer
    10. Dim Antwort As String
    11. Dim Versuche As Integer
    14. Sub Main()
    15. bisher.Clear()
    16. Dim eingegeben As String = String.Empty
    17. eingegeben = EingegebeneZahlen()
    18. Dim counter As Integer = 1
    21. Randomize(Timer)
    22. Zufallszahl = 1 + Int(Rnd(1) * 20)
    23. Versuche = 0
    25. Do
    26. bisher.Add(Integer.Parse(Zahl))
    27. WriteLine()
    28. Write("Bitte geben Sie die gesuchte Zahl ein: ")
    29. Zahl = ReadLine()
    30. Versuche += 1
    31. Select Case Zahl
    32. Case Is < Zufallszahl
    33. WriteLine("Gesuchté Zahl ist größer - " & Versuche & ". Versuch")
    34. Console.WriteLine("Bisher folgende Zahlen benutzt: {0} - {1}. Versuch", eingegeben, counter)
    38. Case Is > Zufallszahl
    39. WriteLine("Gesuchte Zahl ist kleiner" & Versuche)
    40. Case Else
    41. WriteLine("Richtig geraten" & Versuche)
    42. ReadLine()
    43. WriteLine()
    44. End Select
    45. counter += 1
    48. Loop Until counter = 5
    50. 'Loop Until Zahl = Zufallszahl Or Versuche = 5
    51. 'If Versuche = 5 Then WriteLine("Leider wurde die Zahl nicht erraten")
    52. Console.WriteLine("Sie haben leider all ihre Versuche verbraucht! Die Zahl lautete {0}.", Zufallszahl)
    54. Ende()
    58. End Sub
    60. Sub Ende()
    61. WriteLine("Neues Spiel? ...... ja oder nein?")
    62. Antwort = ReadLine()
    63. Select Case Antwort
    64. Case "ja"
    65. WriteLine()
    66. WriteLine()
    67. Main()
    68. Case "nein"
    69. Exit Sub
    70. Case Else
    71. WriteLine("Nur Eingabe ja und nein zulässig")
    72. End Select
    73. WriteLine()
    74. End Sub
    76. Private Function EingegebeneZahlen() As String
    78. Dim _zahlen As String = String.Empty
    80. For i As Integer = 0 To bisher.Count - 1
    82. _zahlen &= bisher(i).ToString() + ", "
    84. Next
    86. Return _zahlen.Remove(_zahlen.Length - 2, 2)
    87. Fehlermeldung:
    89. End Function
    93. End Module


    ich habe in der Do loop until schleife siehe meinen code oben die Überprüfungen und so weiter drin...

    wenn jetzt 5 Versuche vorbei sind. dann schreibt er mir
    die Zahl ist größer oder kleiner. Leider wurde die gewünschte Zahl nicht erraten.

    ich hätte aber gerne das er beim 5ten Fehlversuch die Auswertung Zahl größer oder kleiner überspringt und gleich Zahl wurde nicht erraten schreibt.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „thedarkside21986“ ()

Facebook
Telefonspende