Hello. Ich habe ein Problem mit der Schleife.
Das nein funktioniert, aber wenn ich ja auswähle wird die ganze Zeit die Frage wiederholt
Danke im Vorraus.
*Formatierung bearbeitet* ~NoFear23m @Michelleisback bitte den Thread-Text nicht innerhalb des codes als Kommentar verpacken, ist bereits das zweite mal soweit ich weis.
Das nein funktioniert, aber wenn ich ja auswähle wird die ganze Zeit die Frage wiederholt
Danke im Vorraus.
VB.NET-Quellcode
- Sub Main()
- Dim AktuelleZahl As Integer
- Dim zahl As Integer
- Dim WeiterRechnen As Boolean = False
- Dim Rechenzeichen As Char
- Dim Frage As String
- Frage = "Willst du weiter rechnen? ja oder nein?"
- Console.WriteLine("Taschenrechner (+, -, /, *, % (Modulo), Wurzel und Quadrat)")
- Console.WriteLine("Erste Zahl eingeben")
- AktuelleZahl = CInt(Console.ReadLine())
- Console.WriteLine("nächste Zahl eingeben")
- zahl = CInt(Console.ReadLine())
- Console.WriteLine("Rechenzeichen eingeben")
- Rechenzeichen = CChar(Console.ReadLine())
- Do
- If Rechenzeichen = ("+") Then
- AktuelleZahl = AktuelleZahl + zahl
- ElseIf Rechenzeichen = ("-") Then
- AktuelleZahl = AktuelleZahl - zahl
- ElseIf Rechenzeichen = ("/") Then
- AktuelleZahl = CInt(AktuelleZahl / zahl)
- ElseIf Rechenzeichen = ("*") Then
- AktuelleZahl = AktuelleZahl * zahl
- ElseIf Rechenzeichen = ("%") Then
- AktuelleZahl = AktuelleZahl Mod zahl
- ElseIf Rechenzeichen = ("Wurzel") Then
- AktuelleZahl = CInt(Math.Sqrt(AktuelleZahl))
- ElseIf Rechenzeichen = ("Quadrat") Then
- AktuelleZahl = CInt(Math.Pow(AktuelleZahl, 2))
- End If
- Console.WriteLine(Frage)
- If Console.ReadLine = "ja" Then
- WeiterRechnen = True
- ElseIf Console.ReadLine = "nein" Then
- WeiterRechnen = False
- End If
- Loop While (WeiterRechnen = True)
- Console.WriteLine(AktuelleZahl)
- Console.ReadLine()
- End Sub
*Formatierung bearbeitet* ~NoFear23m @Michelleisback bitte den Thread-Text nicht innerhalb des codes als Kommentar verpacken, ist bereits das zweite mal soweit ich weis.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Nofear23m“ ()