Hallo,
kennt jemand von euch villeicht eine Formel, mit der man aus der Pixelanzahl und dpi errechnen kann, wieviele Pixel einem Zentimeter auf einem Bildschirm entsprechen? Ich hab' mal gegoogelt, dort hab ich leider nur zahlreiche Umrechnungsprogramme gefunden, aber keine Formel!
Ich gebe bei Google "Pixel in cm" an, klicke auf den ersten link und was sehe ich?
Formel:
Größe in cm * Anzahl dpi / 2,54 = Maß in Pixel
Maß in Pixel * 2,54 / Anzahl dpi = Größe in cm
Das könnte auch helfen: [ offen ] "Maus-O-Meter"
Vielen Dank für eure Antworten 
Dazu hatte ich mal eine Funktion geschrieben:
$dpi = _GetLogPixels()
MsgBox(0, '', 'Monitorgröße (ca.): ' & Round(@DesktopWidth / ($dpi / 2.54), 2) & ' x ' & Round(@DesktopHeight / ($dpi / 2.54), 2) & ' cm²')
Func _GetLogPixels()
Local $LogPixels
Local $objWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')
Local $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_DisplayConfiguration', 'WQL', 0x30)
If IsObj($colItems) then
For $objItem In $colItems
$LogPixels = $objItem.LogPixels
Next
Return $LogPixels
Endif
Return SetError(1, 0, 0)
EndFunc
Edit: Ach herrje, was bin ich heute wieder langsam... 
Danke, das klappt auch super
Damit könnte man jetzt 'Wo Liegt Was?' von Schlag den Raab basteln 
schon nicht schlecht, doch ist zu bedenken das die pixeldichte vom monitor type abhängig ist, somit kann keine genaue cm zahl ermittelt werden, es sei denn die angaben des jeweiligen monitors und dessen lochmaske ist bekannt.
Gruß
Pretrojaner
Die dpi-Zahl wird doch ermittelt!
Ich hab' mal ein Mini-Maus-O-Meter daraus gemacht:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $c = 0
GUICreate("Mouse Meter", 300, 20, 852, 0, $WS_POPUPWINDOW, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
$Label1 = GUICtrlCreateLabel('Die Maus hat bisher 0 Zentimeter zurückgelegt!', 0, 0, 300, 20)
$dpi = _GetLogPixels()
Func _GetLogPixels()
Local $LogPixels
Local $objWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')
Local $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_DisplayConfiguration', 'WQL', 0x30)
If IsObj($colItems) Then
For $objItem In $colItems
$LogPixels = $objItem.LogPixels
Next
Return $LogPixels
EndIf
Return SetError(1, 0, 0)
EndFunc ;==>_GetLogPixels
GUISetState(@SW_SHOW)
AdlibEnable("MouseUpdate", 10)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
AdlibDisable()
Exit
EndSwitch
WEnd
Func MouseUpdate()
$pos = MouseGetPos()
$x1 = $pos[0]
$y1 = $pos[1]
Sleep(10)
$pos2 = MouseGetPos()
$x2 = $pos2[0]
$y2 = $pos2[1]
$a = Sqrt(($x2 - $x1) ^ 2 + ($y2 - $y1) ^ 2)
$b = Round($a, 0)
$c = $c + $b
$cm = Round($c / $dpi * 2.54, 0)
GUICtrlSetData($Label1, "Die Maus hat ungefähr " & $cm & " Zentimeter zurückgelegt!")
EndFunc ;==>MouseUpdate
Du lernst wirklich schnell.
Eine kleine Änderung an Deinem Script und das Flackern verschwindet:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $c = 0, $old = 0
GUICreate("Mouse Meter", 300, 20, 852, 0, $WS_POPUPWINDOW, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
$Label1 = GUICtrlCreateLabel('Die Maus hat bisher 0 Zentimeter zurückgelegt!', 0, 0, 300, 20)
$dpi = _GetLogPixels()
Func _GetLogPixels()
Local $LogPixels
Local $objWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')
Local $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_DisplayConfiguration', 'WQL', 0x30)
If IsObj($colItems) Then
For $objItem In $colItems
$LogPixels = $objItem.LogPixels
Next
Return $LogPixels
EndIf
Return SetError(1, 0, 0)
EndFunc ;==>_GetLogPixels
GUISetState(@SW_SHOW)
AdlibEnable("MouseUpdate", 10)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
AdlibDisable()
Exit
EndSwitch
WEnd
Func MouseUpdate()
$pos = MouseGetPos()
$x1 = $pos[0]
$y1 = $pos[1]
Sleep(10)
$pos2 = MouseGetPos()
$x2 = $pos2[0]
$y2 = $pos2[1]
$a = Sqrt(($x2 - $x1) ^ 2 + ($y2 - $y1) ^ 2)
$b = Round($a, 0)
$c = $c + $b
If $c = $old Then Return
$old = $c
$cm = Round($c / $dpi * 2.54, 0)
GUICtrlSetData($Label1, "Die Maus hat ungefähr " & $cm & " Zentimeter zurückgelegt!")
EndFunc ;==>MouseUpdate
