Loop in Konsolenanwendung

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von TGenius.

    Loop in Konsolenanwendung

    Hallo,

    ich habe da eine Frage. Ich arbeite gerade an einem Projekt mit einer Konsolenanwendung. In dieser Konsolenanwendung funzt aber irgendwie das

    VB.NET-Quellcode

    1. Do
    2. ....
    3. Loop

    nicht :( :thumbdown:

    Ich habs auch schon mit ner Const versucht und dann mit While. Funzt aber auch nicht :(

    Habt ihr ne Idee wie ich das hinkriegen kann :?:

    Danke im Vorraus für eure Antworten

    Mfg TGenius

    Was funktioniert denn da nicht?
    Was hast du mit einer Const versucht? Eine Schleife oO

    Generell brauchst du bei Schleifen Abbruchbedingungen...
    zB:

    VB.NET-Quellcode

    1. Do While true
    4. Loop
    5. 'oder
    7. Do
    9. Loop Until 1=2


    Du hast also die Wahlt: kopf/fussgesteuert und Until(Bis)/While(Solange)...
    Das funktioniert in Konsolenandwendungen genauso wie in Formsanwendungen...
    Das ist meine Signatur und sie wird wunderbar sein!

    Spoiler anzeigen


    VB.NET-Quellcode

    1. Module Module1
    3. Public holz As Integer
    4. Public stein As Integer
    5. Public level As Integer = 10
    6. Public nahrung As Integer = 30
    7. Public gold As Integer = 10
    8. Public spitz, axt As Boolean
    9. Public Const forloop As Boolean = True
    11. Sub Main()
    12. Console.Title = "Textadventure"
    14. Do While forloop = True
    17. Console.WriteLine()
    18. Console.WriteLine("Was willst du nun tun?")
    20. Select Case Console.ReadLine
    21. Case "Shop"
    22. Dim laden As New shop(level)
    23. laden.menu()
    24. Case "Arbeiten"
    25. Dim arb As New Arbeiten
    26. arb.arbeiten(level)
    27. Case "Abbauen"
    28. Dim res As New Ressourcen
    29. Console.WriteLine()
    30. Console.WriteLine("Was willst du abbauen?")
    31. Select Case Console.ReadLine
    32. Case "Holz"
    33. res.fällen(axt)
    34. Case "Stein"
    35. res.steineabb(spitz)
    36. End Select
    37. Case "Gold suchen"
    38. Dim gres As New Ressourcen
    39. gres.gold()
    40. End Select
    45. nahrung -= 5
    46. If nahrung < 10 Then
    47. Console.WriteLine()
    48. Console.ForegroundColor = ConsoleColor.Yellow
    49. Console.WriteLine("Achte auf deine Nahrung!")
    50. Console.ForegroundColor = ConsoleColor.Black
    51. End If
    52. If nahrung <= 0 Then
    53. Console.WriteLine()
    54. Console.ForegroundColor = ConsoleColor.Red
    55. Console.WriteLine("Du hast KEINE Nahrung mehr")
    56. Console.WriteLine("Du hast verloren!")
    57. Console.ReadLine()
    58. End
    59. End If
    61. Console.ReadLine()
    63. Loop
    64. End Sub
    66. End Module




    Eigentlich soll man wenn man eines dieser Sachen gemacht hat wieder was willst du machen da stehen. Stattdessen ist dort nur noch eine leere Konsole. Und ich kann irgendwelche tasten drücken :thumbdown: :thumbdown: :thumbdown:

    Du hast am Ende des Loops noch ein Console.ReadLine(). Bist du dir sicher, dass du nicht nur vergisst, Enter zu drücken?
    Ansonten probier mal schrittweises Debuggen.

    Loop scheint wieder zu funktionieren (kp wieso :| )

    Dafür kann ich jetzt an einigen Stellen nichts eintippen bzw dort wo Console.writeline steht , gibt er manchmal keinen text aus.

    (F*** :cursing: )

    Hat jemand ne Ahnung?

    please help me


    Mfg TGenius

    Zeile 58 => "End" : Warum?
    Zeile 50: "Console.ForegroundColor = ConsoleColor.Black " : Warum? Schwarz auf Schwarz?
    Zeile 61: "Console.ReadLine" : Wurde schon angesprochen

    Wo ist deine Abbruchbedingung?

    VB.NET-Quellcode

    1. Public Const forloop As Boolean = True
    3. Do While forloop = True

    Wird nie funktionieren, weil eine Konstante nur initialisiert werden kann und dannach nicht mehr verändert. (Du versuchst es gleichwohl auch nicht im Code, wie mir aufgefallen ist)

    Allgemeinwissen:

    VB.NET-Quellcode

    1. if blubb = True then
    2. ' do something
    3. end if
    5. if blubb
    6. ' do something
    7. end if

    If prüft auf True, sprich if blubb = true prüft, ob blubb = wahr ist und ob diese aussage wahr ist...
    if blubb: ist blubb wahr?

    Also das selbe, nur im Compiler einige Schritte weniger und sauberer, auch zu lesen... und (unmerklich) schneller...

    Soweit ich weiß opitmiert der Compiler Zeug wie If Bool = True Then.
    Allerdings ergibt's keinen Sinn. Wenn man das Ganze mal schrittweise einsetzt:

    VB.NET-Quellcode

    1. Dim Variable As Boolean = True
    3. If Variable = True Then
    4. If True = True Then
    5. If True Then
    7. If Variable Then
    8. If True Then

    Gibt ja noch einige Schlaumeier, die das hier schreiben:

    VB.NET-Quellcode

    1. Dim Text As String = "Hallo!"
    3. If Text = "Hallo" = True Then

    Das End in Zeile 58 ist Spielende, vorher steht, dass man verloren hat.
    Schwarz auf Schwarz in Zeile 50 war sicher nur ein versehen, die Schriftfarbe wurde ja vorher geändert.
    Console.Readline in Zeile 61 soll eine Art Wait-Befehl sein.

    So sehe ich das jedenfalls
    Eine Pizza auf einer Pizza sind 2 Pizzen

    Eine Lasagne auf einer Lasagne ergibt 1 große Lasagne

Facebook
Telefonspende