So wird das bei mir auch berechnet, nur muss man seine Bildschirmdiagonale in Zoll angeben. So viel Arbeit ist das nicht, und ich finde man sollte von so einem Programm schon korrekte Werte erwarten können.
Maus-O-Meter wie viel Meter hat die Maus zurückgelegt? | Jetzt mit Speicherfunktion
-
campweb -
11. Februar 2011 um 21:55
-
-
- Offizieller Beitrag
Progandy hatte damals (für mein Bildschirm-Lineal) ein cooles Skript-Beispiel gepostet: Bildschirm-Lineal (mm/cm)
-
Sorry, natürlich :pinch: ... ich meinte natürlich das Lineal, nicht das Mausmeter... (ich glaub ich bekomm langsam wirklich Demenz)
-
_StringAddThousandsSep ???
-
Nicht nötig, das setzt nur die Tausenderpunkte bei einer Zahl, aus z.B. 100000 wird dann 100.000 .
-
Gibts aber nicht mehr...
-
- Offizieller Beitrag
Das habe ich mir damals archiviert:
Spoiler anzeigen
[autoit]
[/autoit]
; #FUNCTION# ====================================================================================================================
; Name...........: _StringAddThousandsSep
; Description ...: Returns the original numbered string with the Thousands delimiter inserted.
; Syntax.........: _StringAddThousandsSep($sString[, $sThousands = -1[, $sDecimal = -1]])
; Parameters ....: $sString - The string to be converted.
; $sThousands - Optional: The Thousands delimiter
; $sDecimal - Optional: The decimal delimiter
; Return values .: Success - The string with Thousands delimiter added.
; Author ........: SmOke_N (orignal _StringAddComma
; Modified.......: Valik (complete re-write, new function name)
; Remarks .......:
; Related .......:
; Link ..........;
; Example .......; Yes
; ===============================================================================================================================
Func _StringAddThousandsSep($sString, $sThousands = -1, $sDecimal = -1)
Local $sResult = "" ; Force string
Local $rKey = "HKCU\Control Panel\International"
If $sDecimal = -1 Then $sDecimal = RegRead($rKey, "sDecimal")
If $sThousands = -1 Then $sThousands = RegRead($rKey, "sThousand")
Local $aNumber = StringRegExp($sString, "(\D?\d+)\D?(\d*)", 1) ; This one works for negatives.
If UBound($aNumber) = 2 Then
Local $sLeft = $aNumber[0]
While StringLen($sLeft)
$sResult = $sThousands & StringRight($sLeft, 3) & $sResult
$sLeft = StringTrimRight($sLeft, 3)
WEnd
$sResult = StringTrimLeft($sResult, StringLen($sThousands)) ; Strip leading thousands separator
If $aNumber[1] <> "" Then $sResult &= $sDecimal & $aNumber[1]
EndIf
Return $sResult
EndFunc ;==>_StringAddThousandsSep -