fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Beispiel für "not else" in case-blöcken

Uploader:	The_Muh
Datum/Zeit:	29.01.2009 16:41:36

dim key as string

dim valid as integer = -1

do

    do : sleep 1 : key = inkey : loop while key = ""

    valid = -1

    select case key

    case "a"

        Print "Taste a gedrückt"

    case "b"

        Print "Taste b gedrückt"

    case "c"

        Print "Taste c gedrückt"

    case "d"

        Print "Taste d gedrückt"

    case else

        valid = 0

    end select

    if valid then print "Valide Taste gedrückt"

    if not valid then print "Unvalide Taste gedrückt"

loop until key = chr(27)

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.