Schleife neu starten!?

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Alteran.

    Schleife neu starten!?

    Tach alle! :D

    Hab schon die SuFu verwendet, hat mir aber leider nix geliefert..Auch nicht bei Google ^^
    Meine Frage kurz und bündig:

    Wie kann man eine Schleife (Do Schleife) von neuem starten lassen, wenn bei Console.ReadLine eine bestimmte Eingabe statt findet!?

    (Mein BSP: Wenn "J", dann Schleife neu starten, bei "N" Programm beenden..)

    Grüße #7

    ahoi,

    nun du könntest die schleife in eine sub auslagern und diese dann bei der eingabe aufrufen
    Grüße Manu

    Was Gott dem Menschen erspart hat, kann der Computer.
    Billy ©, (*1932), Schweizer Aphoristiker
    Quelle: www.Aphorismen.de

    hmm..
    Ich hab das jetzt mal ausprobiert. Da ich mich aber noch nicht sooo super in VB auskenne, ist das leider nix geworden.
    Ich zeig euch mal meinen Code, wie ich mir das vorgestellt hatte..

    VB.NET-Quellcode

    1. Module Module1
    3. Sub Main()
    5. Dim echteZahl As Integer
    6. Dim rateZahl As Integer
    7. Dim zufallsZahl As New Random()
    8. Dim counter As New Integer
    9. 'Dim antwort As Char
    11. 'Do
    14. Console.WriteLine("Bitte geben Sie eine Zahl zwischen 0 und 100 ein: ")
    15. echteZahl = zufallsZahl.Next(0, 101)
    17. rateZahl = Console.ReadLine()
    19. counter = 1
    21. Do Until rateZahl = echteZahl
    23. If rateZahl < echteZahl Then
    24. Console.WriteLine("Größer")
    25. rateZahl = Console.ReadLine()
    26. counter += 1
    27. ElseIf rateZahl > echteZahl Then
    28. Console.WriteLine("Kleiner")
    29. rateZahl = Console.ReadLine()
    30. counter += 1
    31. End If
    33. Loop
    34. Console.WriteLine("Richtig!")
    35. Console.WriteLine("Sie haben {0} Versuche benötigt...", counter)
    37. If counter < 5 Then
    38. Console.WriteLine("Wow, sie sind fast so gut wie ich!")
    39. ElseIf counter < 10 Then
    40. Console.WriteLine("Sie sollten noch ein bisschen üben!")
    41. ElseIf counter > 10 Then
    42. Console.WriteLine("An ihrer Stelle würde ich meinen PC verkaufen!")
    43. End If
    47. 'Console.WriteLine("Wollen Sie noch einmal spielen (J/N)?")
    48. 'antwort = Console.ReadLine()
    50. 'If antwort = "j" Or "J" Then
    51. ' DoSchleife Neu Starten?!
    52. 'ElseIf antwort = "n" Or "N" Then
    53. ' Exit Do
    54. 'End If
    56. 'Loop Until antwort = "n" Or "N"
    58. End Sub
    60. End Module

    Kann man das mit dem "Neu Spielen" nicht auch einfacher hinbekommen?

    VB.NET-Quellcode

    1. Module Module1
    3. Sub Main()
    5. Dim antwort As Char
    7. Do
    9. Dim echteZahl As Integer
    10. Dim rateZahl As Integer
    11. Dim zufallsZahl As New Random()
    12. Dim counter As New Integer
    15. Console.WriteLine("Bitte geben Sie eine Zahl zwischen 0 und 100 ein: ")
    16. echteZahl = zufallsZahl.Next(0, 101)
    18. rateZahl = Console.ReadLine()
    20. counter = 1
    22. Do Until rateZahl = echteZahl
    24. If rateZahl < echteZahl Then
    25. Console.WriteLine("Größer")
    26. rateZahl = Console.ReadLine()
    27. counter += 1
    28. ElseIf rateZahl > echteZahl Then
    29. Console.WriteLine("Kleiner")
    30. rateZahl = Console.ReadLine()
    31. counter += 1
    32. End If
    34. Loop
    35. Console.WriteLine("Richtig!")
    36. Console.WriteLine("Sie haben {0} Versuche benötigt...", counter)
    38. If counter < 5 Then
    39. Console.WriteLine("Wow, sie sind fast so gut wie ich!")
    40. ElseIf counter < 10 Then
    41. Console.WriteLine("Sie sollten noch ein bisschen üben!")
    42. ElseIf counter > 10 Then
    43. Console.WriteLine("An ihrer Stelle würde ich meinen PC verkaufen!")
    44. End If
    48. Console.WriteLine("Wollen Sie noch einmal spielen (J/N)?")
    49. antwort = Console.ReadLine()
    51. 'If antwort = "j" Or "J" Then
    52. ' DoSchleife Neu Starten?!
    53. 'ElseIf antwort = "n" Or "N" Then
    54. ' Exit Do
    55. 'End If
    57. Loop Until antwort = "n" Or antwort = "N"
    59. End Sub
    61. End Module


    Probiers mal so!
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

    So.. jetzt habt ihrs geschafft xD
    Es funzt.. danke! Aber ich weiß nicht warum. Kannst du mir mal erklären warum die Var antwort jetzt auserhalb steht?
    Und wieso funzt das mit dem J/N, wenns auskommentiert ist?! ^^
    Ich blick gar nicht mehr durch...

    Freut mich.. so, nun zur Erklärung:

    Wenn die Variable antwort in der do schleife drin deklariert wird, dann ist sie auch NUR(!) INNERHALB der Do Schleife gültig.
    Du kannst sie also von außen nicht ansprechen.
    Deswegen wurde sie außerhalb der Do - Schleife deklariert und ich konnte es auch abfragen.

    Zu der anderen Frage:

    Es funktioniert, weil ich in der Do - Loop Schleife nur nach "N" bzw. "n", also Nein abfrage.

    VB.NET-Quellcode

    1. Do
    2. 'dein code
    3. Loop Until antwort = "n" Or antwort = "N"


    Hier wird befohlen: Mach(Do) "dein Code", BIS(UNTIL) antwort N oder n ist (Solange antwort nicht N ist klingt besser).
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

Facebook
Telefonspende