Hallo zusammen! Folgendes Problem:

Bei unten stehendem Code geschehen (für mich) seltsame Dinge. Was ich mit dem Programm erreichen will, sollte ja ersichtlich sein. Wenn ich nun "g" eingebe, um die Größe des Winkels im Gradmaß einzugeben funktioniert alles wunderbar. Sobald ich nun aber "b" oder einen anderen Buchstaben (sollte die else-Anweisung abfangen) eingeben will, muss ich immer diesen Buchstaben eintippen, enter drücken.. nichts passiert. Nochmals den Buchstaben eingeben, Enter drücken -> alles geschieht, wie es geschehen sollte.

Nun also die Frage: Warum braucht er immer zuerst eine Leerzeile bzw. Non-sense-Zeile, bevor er alle Buchstaben, außer g, "erkennt"?
Ich hoffe ich habe mich verständlich ausgedrückt und es kann mir dabei jemand weiterhelfen.

Gruß und vielen Dank im Voraus

   Spoiler

Quellcode

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Imports System.Math Module Sinuswert Sub Main() Const pi As Double = Math.PI Dim y As Single Dim x As Single begin: Console.WriteLine("Bitte wählen sie aus, ob sie die Größe des Winkels in Grad- oder Bogenmaß angeben wollen") Console.WriteLine("b = Bogenmaß / g = Gradmaß") If Console.ReadLine() = "g" Then Console.WriteLine("gewählt: Gradmaß") Console.WriteLine("Bitte die Gradzahl des Winkels x im Gradmaß eingeben") y = Console.ReadLine() x = 2 * pi * (y / 360) x = Sin(x) ElseIf Console.ReadLine() = "b" Then Console.WriteLine("gewählt: Bogenmaß") Console.WriteLine("Bitte die Graduzahl des Winkels x im Bogenmaß eingeben") x = Console.ReadLine() x = Sin(x) Else Console.WriteLine("ungültige Auswahl, bitte erneut auswählen") GoTo begin End If Console.WriteLine("sin(x) beträgt:") Console.Write(x) Console.ReadKey() End Sub End Module

externer Link

Weil es halt einfach klar war, dass es wieder so ein "dummer Fehler" war..

Vielen Dank für deine Hilfe, nun läuft es wie geschmiert