fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Eisauswahl ohne GOTO

Uploader:	Sebastian
Datum/Zeit:	11.03.2014 20:42:59

ScreenRes 800, 600



Print "Sie können wählen zwischen Erdbeer und Vanille."



Dim Eingabe As String

Dim EingabeWarGueltig As Integer = 0



Do

    Input "Ihre Auswahl: ", Eingabe

    Select Case LCase(Eingabe)

    Case "erdbeer":

        Print "Fruchteis ist immer eine gute Wahl."

        EingabeWarGueltig = 1

    Case "vanille":

        Print "OK, also 1x mit ohne Geschmack."

        EingabeWarGueltig = 1

    Case "quit":

        ' Hier keine Ausgabe.

        EingabeWarGueltig = 1

    End Select

Loop Until EingabeWarGueltig



GetKey

End

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.