Beiträge von UEZ

Zitat von AspirinJunkie

Also im Grunde das ganze Jahresbrutto und auf der anderen Seite die tatsächlich geleisteten Arbeitssekunden - erst dann wird es wirklich vergleichbar.

Genau, ansonsten ist der Vergleich schwierig.

Zitat von AspirinJunkie

Ich z. B. bekomme weder Urlaubs- noch Weihnachtsgeld - das ist also durchaus freiwillig was der Arbeitgeber da macht.

Ich im Grunde genommen auch nicht. Ob ich 12 Gehälter habe oder 24, macht am Gesamtbrutto nichts aus, aber auf der Lohnabrechnung tauchen die Begriffe auf, obwohl dies nicht der Fall ist.

Ich habe eine leitende Position und kann sehen, was meine Mitarbeiter verdienen. Da ist mein Gehalt irgendwo in der Mitte, ohne die Schweizer...

Ich bin von Hessen und 261 Tagen im Jahr 2021 ausgegangen. Wir müssen hier (Hessen) i.d.R. mehr für die "Kohle" arbeiten, da man nicht nach einem Stundenlohn, sondern nach einem Jahresbrutto eingestellt wird und weniger Feiertage hat.

Letztendlich wird es je nach (Bundes-) Land anhand des Stundenlohn anders aussehen, wenn man nach der obigen Berechnung rechnet.

Edit: es sind wohl 255 für Hessen und nicht 261 (keine Ahnung, warum ich mit 261 gerechnet hatte), was am Ende ca. 73 k€ macht. Urlaubs-und Krankheitstage werden i.d.R. bezahlt, weswegen ich sie nicht abgezogen habe.

Ich habe ein Jahresbrutto Lohn, was durch 13.25 geteilt wird, sodass ich Urlaubs- und Weihnachtsgeld bekomme, was eigentlich keine freiwillige Leistung des Arbeitgebers ist.

Hatte ich fast vergessen - wer möchte kann sich hier kostenlos registrieren und mitmachen: WM 20022 Autoit Kick-Tipp

Start der WM: 20.11.22 17:00

Ich hoffe, dass viele mitmachen.

Viel Glück.

Edit:

WM22-Result.jpg

Herzlichen Glückwunsch an Pee für den Sieg !

Zitat von Alina

Ich habe gerade mal ausgerechnet, was ich Brutto pro Arbeitssekunde bekomme.

Bedigungen:
Abrechnungszeitraum: 01.01.2021 - 31.12.2021
Keine Sonderzahlungen ( 13. Gehalt / Weihnachtsgehalt , Urlaubsgeld, Prämien, usw.)
mit berechnet werden aber Überstunden und Pauschalen für Reisekosten (ab 12 Std. / ab 24 Std.)

Da komme ich auf 0,99869 Cent / Sekunde.

Viel oder wie sieht es bei Euch aus ?

Alles anzeigen

~75.000 € Brutto / Jahr ist ein ordentliches Jahresgehalt für Deutsche Verhältnisse.

Zitat von AspirinJunkie

Wie dir bekannt ist, tummeln sich in diesem Forum unheimlich viele Deutsche.
Dieser Menschenschlag besitzt die Eigenschaft ihr eigenes Gehalt wie ein Staatsgeheimnis zu behandeln.
In einem öffentlich einsehbaren Forum wie das Talk-Forum hier wirst du daher wohl nur wenige hinter dem Ofen vorlocken können.

Ansonsten: Brutto nützt mir nix - ist nur eine Zahl auf dem Papier.

Und dennoch: ich hab mehr raus...

Das ist das Problem, da sonst der Arbeitgeber in die Bredouille kommt, wenn Angestellte den gleichen Job ausüben, aber deutlich verschieden verdienen. Das hat sich in den Köpfen eingebrannt und wird gehütet wie ein Staatsgeheimnis.

Hier ist man relativ Anonym und könnte sein Sekundenlohn preisgeben, wenn man wollte....

Und jährlich grüßt das Murmeltier...

Wer Lust und Laune hat mit zu tippen, einfach https://www.kicktipp.de/autoit-bl kostenlos registrieren und lostippen. Die Teilnehmer vom letzten Kicktipp, die bis zum Ende durchgehalten haben, sind wieder automatisch dabei.

Am 29.07.22 um 18:00 Uhr ( 2. Spieltag in Kicktipp) geht's mit den DFB Pokal Spielen los. Bonus Fragen nicht vergessen.

Die WM Katar 2022 Tipprunde werde ich im November separat erstellen!

Was bekommt der Tipp Sieger? Ruhm und Ehre.

Viel Spaß und viel Glück!

Edit:

Autoit-BL2022-23.png

Meine SciTE Version:

32-bit
Version 4.4.6 
    Mar 16 2021 13:51:55
by Neil Hodgson.
 Updated by Jos

Hi BugFix,

ich habe lexer.errorlist.escape.sequences=1 in SciTEUser.properties hinzugefügt und das Skript test_color_out.au3 laufen lassen -> keine Farben in der Console, nur dies:

\27[31mList \27[36mof \27[34;1mcolors\27[35;1m!\27[0m
\27[31mRED\27[0m
\27[31;1mREDBOLD\27[0m
\27[32mGREEN\27[0m
\27[32;1mGREENBOLD\27[0m
\27[33mYELLOW\27[0m
\27[33;1mYELLOWBOLD\27[0m
\27[34mBLUE\27[0m
\27[34;1mBLUEBOLD\27[0m
\27[35mPINK\27[0m
\27[35;1mPINKBOLD\27[0m
\27[36mCYAN\27[0m
\27[36;1mCYANBOLD\27[0m
\27[37mWHITE\27[0m
\27[37;1mWHITEBOLD\27[0m

Neue Version -> siehe Beitrag #1:

• Advanced Encoding hinzugefügt
• WebP Advanced Encoder GUI

Dekodierung von WebP Animationen ist ein bissl komplizierter als ich dachte...

Zitat von Bitnugger

Path2DLL... warum nicht als Einzeiler?

AutoIt

Func Path2DLL($sPath2DLL)
    Return $sPath2DLL ? $sPath2DLL : @ScriptDir & (@AutoItX64 ? "\_WebP_x64.dll" : "\_WebP_x86.dll")
EndFunc   ;==>Path2DLL

Danke, hab's geändert.

Es gibt eine neue Version -> siehe Beitrag #1:

• WebP_CreateWebPLossySimpleFromBitmap
• WebP_CreateWebPLosslessSimpleFromBitmap

hinzugefügt. Man kann jetzt Bilder als WebP speichern (keine Animationen!). "Advanced" Version mit mehr Einstellmöglichkeiten kommt noch...

Ich bin dran die Encoder Funktionen einzubauen. Das Decodieren von WebP Animationen steht auch auf der Liste, nur wird es noch eine Weile dauern, da ich momentan nicht viel Zeit habe.

Kleines Update: das von der DLL zurückgegebene GDI+ Bitmap Handle war korrupt, sodass es immer zum Absturz kam, sobald man damit weiter arbeiten wollte.

Zitat von Andy

UEZ

Klasse Arbeit!!

Hast du die *.h-Files nach Freebasic transferiert und dann mit den *.lib Dateien gelinkt?

Hi Andy,

nur einige Teile von der decode.h. Die *.lib funzen nicht, musste die libwebp_x??.a nehmen. Primär wollte ich einfach die WebP Bilder in Autoit benutzen können und habe mich deshalb nur auf das Wesentliche beschränkt.

Ob sich der Aufwand lohnt alle Funktion in die DLL zu packen, weiß ich noch nicht.

Danke für dein Feedback.

Off-Topic: dieses Jahr waren die Beiträge in der revision echt mau...

Ich habe das Ganze mal in eine UDF mit Beispielen gepackt -> siehe Beitrag #1

Momentan werden nur Bilder decodiert, keine animierten Bilder und kein Encoding in das WebP Format.

Danke für euer Feeback!

funkey: danke für den Link.

Das Thema

Thema

Bilder im webp Format in GUI anzeigen

Moin,

gibt es eine Möglichkeit das webp Bildformat in einer AutoIt-GUI anzeigen zu lassen?

Beispielbilder findet man unter https://developers.google.com/speed/webp/gallery1, z.B.

https://www.gstatic.com/webp/gallery/1.webp

Ich vermute es würde mit einem eingebetteten IE gehen, aber eventuell gibt es ja auch eine einfachere Methode.

Dabei gibt es ja wie bei GIF auch die Möglichkeit animierte webp-Bilder zu erstellen, Beispiel: https://mathiasbynens.be/demo/animated-webp

Ich habe schon ein wenig…

BLinz

15. April 2022 um 11:57

hat mich neugierig gemacht, und deshalb habe ich eine kleine DLL gebastelt, die WebP Bilder in GDI+ / GDI umwandelt, sodass man sie direkt in Autoit benutzen kann.

Das Archiv beinhaltet u.a. die DLLs (x86 / x64), die zum Umwandeln benötigt werden.

WebP Advanced Encoder GUI.au3:

WAE-GUI.png

Bitte mal testen, ob's bei euch auch funzt.

Btw, die DLL ist in Freebasic geschrieben.

Mehr zum Thema WebP API kann hier eingesehen werden: https://developers.google.com/speed/webp/docs/api.

Download der neusten Version auf meinem 1Drv: WebP

Glückwunsch an Mars für die beste Komprimierung

AspirinJunkie für die auch sehr gute und sehr schnelle Komprimierung

Hier mal das Resultat mit externen Tools / DLLs:

Da ich nicht das Rad neu erfinden wollte, denn seit es Computer gibt, wird an der Komprimierung geforscht, habe ich mich zu dieser Lösung entschieden, die aber laut den Regeln nicht erlaubt ist. Deshalb poste ich hier den Code direkt:

;Coded by UEZ build 2022-03-05 proof-of-concept version
#include <GDIPlus.au3>
#include <Memory.au3>

Func _GDIPlus_StreamImage2BinaryString($hBitmap, $sFormat = "PNG", $iQuality = 80, $bSave = False, $sFilename = @ScriptDir & "\Converted.jpg") ;coded by UEZ 2013 build 2014-01-25 (based on the code by Andreik)
    Local $sImgCLSID, $tGUID, $tParams, $tData
    Switch $sFormat
        Case "JPG"
            $sImgCLSID = _GDIPlus_EncodersGetCLSID($sFormat)
            $tGUID = _WinAPI_GUIDFromString($sImgCLSID)
            $tData = DllStructCreate("int Quality")
            DllStructSetData($tData, "Quality", $iQuality) ;quality 0-100
            Local $pData = DllStructGetPtr($tData)
            $tParams = _GDIPlus_ParamInit(1)
            _GDIPlus_ParamAdd($tParams, $GDIP_EPGQUALITY, 1, $GDIP_EPTLONG, $pData)
        Case "PNG", "BMP", "GIF", "TIF"
            $sImgCLSID = _GDIPlus_EncodersGetCLSID($sFormat)
            $tGUID = _WinAPI_GUIDFromString($sImgCLSID)
        Case Else
            Return SetError(1, 0, 0)
    EndSwitch
    Local $hStream = _WinAPI_CreateStreamOnHGlobal() ;http://msdn.microsoft.com/en-us/library/ms864401.aspx
    If @error Then Return SetError(2, 0, 0)
    _GDIPlus_ImageSaveToStream($hBitmap, $hStream, DllStructGetPtr($tGUID), DllStructGetPtr($tParams))
    If @error Then Return SetError(3, 0, 0)

    Local $hMemory = _WinAPI_GetHGlobalFromStream($hStream) ;http://msdn.microsoft.com/en-us/library/aa911736.aspx
    If @error Then Return SetError(4, 0, 0)
    Local $iMemSize = _MemGlobalSize($hMemory)
    If Not $iMemSize Then Return SetError(5, 0, 0)
    Local $pMem = _MemGlobalLock($hMemory)
    $tData = DllStructCreate("byte[" & $iMemSize & "]", $pMem)
    Local $bData = DllStructGetData($tData, 1)
    _WinAPI_ReleaseStream($hStream) ;http://msdn.microsoft.com/en-us/library/windows/desktop/ms221473(v=vs.85).aspx
    _MemGlobalFree($hMemory)
    If $bSave Then
        Local $hFile = FileOpen($sFilename, 18)
        If @error Then Return SetError(6, 0, $bData)
        FileWrite($hFile, $bData)
        FileClose($hFile)
    EndIf
    Return $bData
EndFunc   ;==>_GDIPlus_StreamImage2BinaryString

Func _StringCompress($sString)
    If StringLen($sString) < 24 Then Return SetError(1, 0, 0)
    _GDIPlus_Startup()
    Local $iLen = StringLen($sString), $iMemSize = Mod($iLen, 8) ? ($iLen + 8 - Mod($iLen, 8)) * 4 : $iLen * 4, $i
    Local $tPixelData = DllStructCreate("ubyte scan0[" & $iMemSize & "];"), $iW = Mod($iLen, 4)  ? Int($iLen / 4) + 1 : $iLen / 4
    If $iW > 65535 Then Return SetError(2, 0, 0)
    Local $hImage = _GDIPlus_BitmapCreateFromScan0($iW, 1, $GDIP_PXF32ARGB, $iMemSize, $tPixelData)
    If Not $hImage Then
        _GDIPlus_Shutdown()
        Return SetError(3, 0, 0)
    EndIf
    For $i = 1 To $iLen
        $tPixelData.Scan0(($i)) = Asc(StringMid($sString, $i, 1))
    Next
    Local $binData = _GDIPlus_StreamImage2BinaryString($hImage)
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_Shutdown()
    Return $binData
EndFunc

Func _StringDecompress($vCompress)
    If BinaryLen($vCompress) < 5 Then Return SetError(1, 0, 0)
    _GDIPlus_Startup()
    Local $sString, $hImage = _GDIPlus_BitmapCreateFromMemory($vCompress)
    If Not $hImage Then
        _GDIPlus_Shutdown()
        Return SetError(2, 0, 0)
    EndIf

    Local $binBMP = _GDIPlus_StreamImage2BinaryString($hImage, "BMP"), $iLen = BinaryLen($binBMP), $iSize =  _GDIPlus_ImageGetWidth($hImage) * 4 - 3
    $sString = BinaryToString(BinaryMid($binBMP, 55, $iSize))
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_Shutdown()
    $binBMP = 0
    Return $sString
EndFunc

Global $sUsername = "UEZ"

#Region Achtung! Diese Region darf nicht veraendert werden!
Global $hFile = FileOpen(@ScriptDir & '\original.txt', 128)
If $hFile = -1 Then Exit
Global $sOriginal = FileRead($hFile)
FileClose($hFile)
Global $iOriginalLen = StringLen($sOriginal)

Global $iTimer = TimerInit()
Global $vCompressed = _StringCompress($sOriginal)
Global $iTimeDiffComp = TimerDiff($iTimer)
;Global $iCompressedLen = StringLen($vCompressed)
Global $iCompressedLen = BinaryLen($vCompressed)

Global $iTimer = TimerInit()
Global $sDecompressed = _StringDecompress($vCompressed)
Global $iTimeDiffDecomp = TimerDiff($iTimer)
Global $iDecompressedLen = StringLen($sDecompressed)

ConsoleWrite('============================================================' & @CRLF)
ConsoleWrite(StringFormat('Result for "%s"\r\n', $sUsername))
ConsoleWrite('============================================================' & @CRLF)
ConsoleWrite(StringFormat('Decompressed = Original: %s\r\n', $sOriginal == $sDecompressed))
ConsoleWrite(StringFormat('Length Original: %i\r\n', $iOriginalLen))
ConsoleWrite(StringFormat('Length compressed: %i\r\n', $iCompressedLen))
ConsoleWrite(StringFormat('Length decompressed: %i\r\n', $iDecompressedLen))
ConsoleWrite(StringFormat('Compress-Ratio: %s %%\r\n', Round(100 - (100 / $iOriginalLen * $iCompressedLen), 3)))
ConsoleWrite(StringFormat('Time compressed: %i ms\r\n', $iTimeDiffComp))
ConsoleWrite(StringFormat('Time decompressed: %i ms\r\n', $iTimeDiffDecomp))
ConsoleWrite('============================================================' & @CRLF)
#EndRegion Achtung! Diese Region darf nicht veraendert werden!

Das Resultat auf meinem Notebook:

============================================================
Result for "UEZ"
============================================================
Decompressed = Original: True
Length Original: 6033
Length compressed: 3473
Length decompressed: 6033
Compress-Ratio: 42.433 %
Time compressed: 42 ms
Time decompressed: 13 ms
============================================================

In meinem Freebasic Programm "FB File2Bas Code Generator", das Pendant zu "File to Base64 String Code Generator", benutze ich u.a. ein Build-in LZMAT Kompressionsalgorithmus, aber wie Andy bereits geschrieben hat, wollte ich den Code nicht zu Autoit portieren, wäre aber Interessant gewesen, da die Portierung, denke ich zumindest, nicht ganz einfach ist.

Zitat von Oscar

keine externen Library

Hi Oscar,

nette Idee.

Eine Frage, was sind externe Libraries - sprich zählen dazu auch Windows Libs, wie z.B. GDI+, User32, etc.?

Coole Analyse Andy ! Die Tatsache der Spiegelung ist definitiv ein Booster bezgl. Performance (keine Impfung ). Mir kam intuitiv die Rekursion als Lösung in den Kopf, aber das Ganze grafisch darzustellen, war mit nicht eingefallen.

Und RegEx ist langsamer als die StringSplit Funktion.

Benchmark nach der Reihenfolge der Beiträge:

#Region UEZ
Func HN($n, $iDepth = 0)
    If $n = 0 Or $n = 2 Or $n = 4 Or $n = 20 Or $n = 42 Or $n = 145 Or $iDepth > 12 Then Return 0
    If $n = 1 Then Return 1
    Local $i, $a = StringRegExp($n, "\d", 3), $sum = 0
    For $i = 0 To UBound($a) - 1
        $sum += $a[$i] * $a[$i]
    Next
    If $sum = 1 Then Return 1
    Return HN($sum, $iDepth + 1)
EndFunc
#EndRegion

#Region chesstiger
Func happy($iNum)
    ;$iNum is an integer from 1 to 100
    If $iNum = 1 Then Return 1
    If $iNum = 20 Then Return 0
    Local $aNum = StringSplit(String($iNum), "", 3)
    Local $i, $iSum = 0
    For $i = 0 To UBound($aNum) - 1
        $iSum += Int($aNum[$i])^2
    Next
    Return happy($iSum)
EndFunc
#EndRegion

#Region SOLVE-SMART
Func _isHappyNumbers($iNumber)
    Local $iIterationsToCheck = 15

    For $i = 1 To $iIterationsToCheck Step 1
        Local $iResult = _getSumOfDigitsSquares($iNumber)

        If $iResult == 1 Then
            Return True
        EndIf

        $iNumber = $iResult
    Next

    Return False
EndFunc

Func _getSumOfDigitsSquares($iNumber)
    Local $iDigitsCount = StringLen($iNumber)
    Local $iSum

    For $j = 1 To $iDigitsCount Step 1
        $iSum += _getSquare($iNumber, $j)
    Next

    Return $iSum
EndFunc

Func _getSquare($iNumber, $iStart)
    Return StringMid($iNumber, $iStart, 1) ^ 2
EndFunc
#EndRegion

#Region Yjuq
Func isHappy($n)
    Local $r, $s, $x = $n

    While ($x <> 1) And ($x <> 4)
        $s = 0
        $n = $x

        While $n > 0
            $r = Mod($n, 10)
            $s += $r ^ 2
            $n = Floor($n / 10)
        WEnd

        $x = $s
    WEnd

    Return $x = 1
EndFunc
#EndRegion

Global $t = TimerInit(), $e, $durchlauf = 75000
ConsoleWrite("Starte jeweils " & $durchlauf & " Durchläufe..." & @CRLF)

For $i = 1 To $durchlauf
    HN($i)
Next
$e = TimerDiff($t)
ConsoleWrite("UEZ Laufzeit: " & $e & " ms" & @CRLF)

 $t = TimerInit()
For $i = 1 To $durchlauf
    happy($i)
Next
$e = TimerDiff($t)
ConsoleWrite("chesstiger Laufzeit: " & $e & " ms" & @CRLF)

 $t = TimerInit()
For $i = 1 To $durchlauf
    _isHappyNumbers($i)
Next
$e = TimerDiff($t)
ConsoleWrite("SOLVE-SMART Laufzeit: " & $e & " ms" & @CRLF)

 $t = TimerInit()
For $i = 1 To $durchlauf
    isHappy($i)
Next
$e = TimerDiff($t)
ConsoleWrite("Yjuq Laufzeit: " & $e & " ms" & @CRLF)

Rekursionen sind i.d.R. einfacher zu implementieren -> kürzerer Code, aber langsamer.