fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

CONTINUE DO

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

PRINT "Druecken Sie X zum Ueberspringen einer Textausgabe und"

PRINT "ESC zum Beenden des Programms."

PRINT



DIM TASTE AS STRING



DO

    PRINT TIME  ' Uhrzeit ausgeben



    SLEEP 500   ' 500 ms warten



    TASTE = INKEY    ' Gedrueckte Taste abfragen



    'Falls x oder X gedrueckt wurde, zurueck zum Schleifenbeginn!

    IF UCASE(TASTE) = "X" THEN CONTINUE DO



    'Das hier wird nur ausgefuehrt, wenn wir nicht vorhin durch Eingabe

    'von X wieder zum Schleifenanfang gesprungen sind:

    PRINT "Sie haben kein X gedrueckt..."



LOOP UNTIL TASTE = CHR(27)



PRINT "----"

PRINT "Ende"



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.