Das deutsche QBasic- und FreeBASIC-Forum

[A_Gerry]

Hallo

Ich möchte gerne ein wenig mit der Programmierung beschäftigen.

Jetzt habe ich das Einsteiger Buch ca. bis Seite 60 durch und mal ein kleines Programm zum Üben geschrieben. Aber leider will es nicht so ganz wie es soll.

Es Funktioniert so auch. Nur ist es leider so dass es nach der ersten Rechnung das Menü überspringt, man noch mal die Zahlen eingeben muss, die vorher ausgewählte Rechnung ausgeführt wird und erst dann das Menü wieder angezeigt wird.
Was mache ich das Falsch?

Hier der Code.

Dim As Integer auswahl, zahl1, zahl2

' Rücksprung für neu Start

auswahl = 0
zahl1 = 0
zahl2 = 0

START:


Cls
Print "1 Addieren"
Print "2 Subtrahiern"
Print "3 Multiplizieren"
Print "4 Dividieren"
Print "5 Ende"
Locate 6,1
Print "Für die Auswahl eine Zahl von 1 bis 5 eingeben";
Input; auswahl
If auswahl = 5 Then GoTo Ende
Cls
Input "Geben sie die erste Zahl ein "; zahl1
Input "Geben sie die zweite Zahl ein "; zahl2

If auswahl = 1 Then GoTo PLUS' Sprung zum Addieren
If auswahl = 2 Then GoTo MINUS' Sprung zum Subtrahieren
If auswahl = 3 Then GoTo MAL ' Sprung zum Multiplizieren
If auswahl = 4 Then GoTo TEILEN ' Sprung zum Dividieren

GoTo START

PLUS:
Cls
Print zahl1; " Addiert mit ";zahl2;" ist "; zahl1 + zahl2
Print: Print "Drücken sie eine Taste, um in das Menü zurückzukehren"
Sleep
GoTo START

MINUS:
Cls
Print zahl1; " Minus ";zahl2;" ist "; zahl1 - zahl2
Print: Print "Drücken sie eine Taste, um in das Menü zurückzukehren"
Sleep
GoTo START

MAL:
Cls
Print zahl1; " Multipliziert mit ";zahl2;" ist "; zahl1*zahl2
Print: Print "Drücken sie eine Taste, um in das Menü zurückzukehren"
Sleep
GoTo START

TEILEN:
Cls
Print zahl1; " Dividiert durch ";zahl2;" ist ";zahl1/zahl2
Print: Print "Drücken sie eine Taste, um in das Menü zurückzukehren"
Sleep
GoTo START


ENDE: ' Programm Ende
End

[hhr]

Versuch mal 'Sleep' durch 'Getkey' zu ersetzen. Getkey leert den Tastaturpuffer.

[A_Gerry]

Danke, jetzt klappt es