fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

FPS Messung

Uploader:	max06
Datum/Zeit:	22.03.2008 20:39:30

DIM AS INTEGER Timer1, FPS,FCount  'Definitionen der Variablen

timer1=TIMER+1                     'Start-TIMER festlegen



ScreenRes 800, 600, 24



Do while InKey<>Chr(27)

    ScreenLock

        Cls

        FCount +=1                         'Frames zählen

        IF TIMER >= timer1 THEN            'Wenn 1 Sekunde vergangen ist

           FPS=Fcount                      'werden die Zählvorgänge gespeichert

           FCount=0                        'der Zähler zurückgesetzt

           Timer1=TIMER+1                  'und der TIMER neu gesetzt

        ENDIF

        Print "Hallo"

        print "FPS :";FPS

    ScreenUnLock

    Sleep 1

Loop

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.