XProfan

English

Sven
Bader

an not tidy working mouse can already nerves and the marketing knows almost only itself überschlagende DPI-numbers, thereby is the Abtastrate at least just as important. These gives on, How often - independent of the dissolution - The Mausposition quizzed becomes. in the principle sorgt a niedrige Abtastrate so too directly for a schlechtere dissolution the Mausbewegung.

i'm one Friends "schnellen" Mäusen, means of/ one high tuned Cursorgeschwindigkeit, which the trouble of/ one niedrigen Abtastrate unfortunately moreover intensifies.

to Validierung there Onlinetools, its but too in Profan simply umzusetzen. it functions integrally without API-functions (as long as one in the Window remaining) and can self in the Interpreter free from problems yet The 1.000 Hz of my mouse discern.

already beautiful, what with XProfan in 15 Lines zaubern can:

Compile Mark Separation

Cls
Declare timestart&, poll&, xold&, yold&

WhileNot iskey(27)

    If (%MouseX <> xOld&) OR (%MouseY <> yOld&)'Cursor moving

        inc poll&
        xold& = %MouseX
        yold& = %MouseY

    Endif

    If ((&gettickcount - timestart&) >= 1000)'a second past

        locate 1,1
        print "polling rate: " + st$(poll&) + " Hz    "
        timestart& = &gettickcount
        poll& = 0

    Endif

Endwhile