fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Schleife unterbrechen, bis Taste gedrückt wird

Uploader:	Sebastian
Datum/Zeit:	09.08.2013 15:16:02

PRINT "Dieses Programm wird nur verlassen wenn Sie die ESC-Taste druecken."

PRINT "Die ESCape-Taste hat den ASCII-Code 27, daher wird auf CHR(27) getestet."

PRINT



DIM TASTE AS STRING



DO

    PRINT TIME   ' Uhrzeit ausgeben



    PRINT "Um die Uhrzeitanzeige fortzusetzen, muessen Sie PFEIL-HOCH druecken."

    DO

        SLEEP 100

        TASTE = INKEY

    LOOP UNTIL (TASTE = CHR(255, 72)) OR (TASTE = CHR(27))



LOOP UNTIL TASTE = CHR(27)



PRINT "----"

PRINT "Aha, Sie haben ESC gedrueckt. Hoeren wir also auf."



SLEEP

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.