XProfan

Deutsch

###################################################################
MOUSOMETER
Ermittlung der genauen Strecke, die der Mauszeiger zurücklegt in
Zentimetern. Macht nicht wirklich Sinn, aber wen es interessiert...
Copyright Sven Bader 1999
Dieser Quelltext ist Freeware. Bei Verwendung bitte Quelle angeben.
Kritik und Anregungen an: info@svenbader.de
Für eventuell auftretende Schäden wird keine Haftung übernommen.
###################################################################
Def GetCursorPos(1) !"USER32","GetCursorPos"
Declare x1%,y1%,x2%,y2%     Altes und neues Koordinaten-Paar
Declare distance%,faktor!   Distanz und Faktor für die Umrechnung in Zentimeter
Declare Pos#
Dim Pos#,8
WindowStyle 24
WindowTitle "Mousometer"
Window (%MaxX / 2 - 100), (%MaxY / 2 - 50) - 200,100 Fenster in Bildschirmmitte anzeigen
Der Faktor um Pixel in Zentimeter umzurechnen ergibt sich aus der aktuellen Diagonale der Desktopauslösung
und der Bildschirmdiagonale.
faktor! = Sqrt(%MaxX^2 + %MaxY^2) / 43.18  17" = 43,18cm

While Neq(%scankey,27) Abbruch mit ESC

    Sleep 50             CPU entlasten
    GetCursorPos(Pos#)   absolute Mauskoordinaten erhalten
    x1% = Long(Pos#,0)
    y1% = Long(Pos#,4)
    distance% = distance% + Sqrt(abs(x1% - x2%) * abs(x1% - x2%) + abs(y1% - y2%) * abs(y1% - y2%))Satz des Pythagoras ;-)

    If (x2% <> x1%) | (y2% <> y1%) Nur bei Änderung den Text aktualisieren

        Locate 1,1
        Print add$("Pixel: ",Str$(distance%))
        Print add$("cm: ",Str$(Int(distance% / faktor!)))

    Endif

    x2% = x1%
    y2% = y1%

EndWhile

Dispose Pos#