fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

PRINT-Beispiel für hocki

Uploader:	Sebastian
Datum/Zeit:	11.10.2007 12:03:09

DIM adiff AS DOUBLE, ati1 AS DOUBLE

DIM iMM AS INTEGER, iX AS INTEGER, iY AS INTEGER



CONST SleepFaktor = 1000 '<= Bei der Compilierung mit

                         '   QB auf 0 setzen.



SCREEN 17,4 '<= Setzen Sie zur Compilierung mit QB

            '   ein ' oder REM vor diese Zeile!



CLS

ati1 = TIMER

FOR iMM = 1 TO 5

    iX = 1

    FOR iX = 1 TO 70 STEP 1

        FOR iY = 1 TO 23

            LOCATE iY, iX: PRINT STRING(9, "#")

        NEXT iY

    NEXT iX

NEXT iMM



adiff = TIMER - ati1

PRINT adiff

SLEEP (10 * SleepFaktor)

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.