Beiträge von UEZ

  • Feuerrad

    Wenn man sich die Verteilung der Felder genauer betrachtet, so stellt man fest, dass Felder mit niedrigen Punkten häufiger vorhanden sind, als mit hohen Punkten.
    Ich habe es fast hinbekommen 5x hintereinander 100 Punkte zu bekommen, da ich immer versucht habe, genau den gleichen "Drehimpuls" zu geben.

    Deswegen sollten die Drehungen ruhig mehr Zufall sein, wobei die Wahrscheinlichkeit gleich bleibt, aber man weniger Einfluss hat.


    Gruß,
    UEZ

  • Feuerrad

    Ist klasse geworden. :thumbup:

    Zitat

    Die Randomwerte etwas "entschärft"...

    Für die Drehung des Rades würde ich bisschen mehr Zufall hinein bringen, sogar noch "schärfer" als zuvor, da man ansonsten relativ einfach die Felder bestimmen kann.

    Gruß,
    UEZ

  • Dezimalzahl in (gekürzten) Bruch umwandeln (UDF)

    Du kannst auch Brüche durch den größten gemeinsamen Teiler kürzen.

    Beispiel:

    [autoit]


    ConsoleWrite("18.8 = " & Float2Frac(18.8) & @LF)
    ConsoleWrite("0.75 = " & Float2Frac(0.75) & @LF)

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    Func Float2Frac($fFloat)
    $iDec = StringLen(StringRegExpReplace($fFloat, "\d+\.(\d*)", "\1"))
    $iZaehler = $fFloat * 10^$iDec
    $iNenner = 10^$iDec
    $iGGT = ggT($iZaehler, $iNenner)
    Return $iZaehler / $iGGT & " / " & $iNenner / $iGGT
    EndFunc

    [/autoit][autoit][/autoit][autoit]

    Func ggT($a, $b) ;coded by UEZ 2012
    If Not IsInt($a) Then Return SetError(1, 0, 0)
    If Not IsInt($b) Then Return SetError(2, 0, 0)
    If $a = $b Then Return Abs($a)
    If Not $a And $b Then Return Abs($a)
    If $a And Not $b Then Return Abs($b)
    If ($a And $b = 1) Or ($a = 1 And $b) Then Return 1
    Local $iMod
    Do
    $iMod = Mod($a, $b)
    If Not $iMod Then ExitLoop
    $a = $b
    $b = $iMod
    Until False
    Return $b
    EndFunc

    [/autoit]

    Gruß,
    UEZ

  • Feuerrad

    Ist sehr gut geworden. :thumbup:

    Nur den Zeiger würde ich in einer anderen Farbe wählen, da er kaum auffällt.

    Hast du das Drehrad selbst erstellt?

    Ach ja, eine Highscore wäre auch nicht schlecht.

    Gruß,
    UEZ

  • ImageListView Bilder aus Internet

    Probiere es mal damit (benötigt AutoIt Version 3.3.10.x:(

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <WinAPI.au3>
    #include <GuiListView.au3>
    #include <GuiImageList.au3>
    #include <WindowsConstants.au3>
    #include <GDIPlus.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Example()

    [/autoit] [autoit][/autoit] [autoit]

    Func Example()
    Local $listview, $hImageList, $hBitmap, $hHBitmap, $hBmp, $i

    [/autoit] [autoit][/autoit] [autoit]

    GUICreate("ImageList AddBitmap", 400, 200)
    $listview = GUICtrlCreateListView("", 2, 2, 396, 196, BitOR($LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER, $LVS_REPORT))
    _GUICtrlListView_SetExtendedListViewStyle($listview, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $LVS_EX_DOUBLEBUFFER))
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    Local $aURLs[3][2] = [["http://www.autoit.de/wcf/images/avatars/avatar-2014.png", "Facemix"], ["http://www.autoit.de/wcf/images/avatars/avatar-1529.jpg", "Andy"], ["http://www.autoit.de/wcf/images/avatars/avatar-865.png", "UEZ"]]
    ; Load images
    _GDIPlus_Startup()
    $hImageList = _GUIImageList_Create(32, 32)

    [/autoit] [autoit][/autoit] [autoit]

    ; Add columns
    _GUICtrlListView_AddColumn($listview, "Avatars", 50)
    _GUICtrlListView_AddColumn($listview, "Users", 100)

    [/autoit] [autoit][/autoit] [autoit]

    For $i = 0 To UBound($aURLs) - 1
    $hBmp = _GDIPlus_BitmapCreateFromMemory(InetRead($aURLs[$i][0]))
    $hBitmap = _GDIPlus_ImageResize($hBmp, 32, 32)
    $hHBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap)
    _GUIImageList_Add($hImageList, $hHBitmap, 0)
    _GDIPlus_BitmapDispose($hBmp)
    _GDIPlus_BitmapDispose($hBitmap)
    _WinAPI_DeleteObject($hHBitmap)
    ; Add items
    _GUICtrlListView_AddItem($listview, "", $i)
    _GUICtrlListView_AddSubItem($listview, $i, $aURLs[$i][1], 1)
    Next
    _GUICtrlListView_SetImageList($listview, $hImageList, 1)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ; Loop until the user exits.
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
    GUIDelete()
    EndFunc ;==>Example

    [/autoit]

    Gruß,
    UEZ

  • Image to Hex-String

    Der Bereich 0, 0 mit Breite und Höhe = 10 wird fotografiert und als JPG mit der Qualität 80 komprimert. Das Resultat wird als Binärstring in $bImage zurückgegeben.

    Spoiler anzeigen
    [autoit]


    ;Coded by UEZ 2013 -> This program requires AutoIt version 3.3.9.21 or higher!

    [/autoit] [autoit][/autoit] [autoit]

    #include <Screencapture.au3>
    #include <Memory.au3>

    [/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_Startup()
    Global $hHBitmap = _ScreenCapture_Capture("", 0, 0, 10, 10)
    Global $hBitmap = _GDIPlus_BitmapCreateFromHBITMAP($hHBitmap)
    Global $bImage = _GDIPlus_StreamImage2BinaryString($hBitmap)
    ConsoleWrite("Error: " & @error & @LF)
    MsgBox(0, "Binary", $bImage)
    _GDIPlus_BitmapDispose($hBitmap)
    _WinAPI_DeleteObject($hHBitmap)
    _GDIPlus_Shutdown()

    [/autoit] [autoit][/autoit] [autoit]

    Func _GDIPlus_StreamImage2BinaryString($hBitmap, $sFormat = "JPG", $iQuality = 80, $bSave = False, $sFilename = "Converted.jpg") ;coded by UEZ 2013 build 2013-09-14
    Local $sImgCLSID, $tGUID, $tParams
    Switch $sFormat
    Case "JPG"
    $sImgCLSID = _GDIPlus_EncodersGetCLSID($sFormat)
    $tGUID = _WinAPI_GUIDFromString($sImgCLSID)
    Local $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)
    _GDIPlus_BitmapDispose($hBitmap)
    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/…3(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

    [/autoit]

    Speicherst du den Binärstring in eine Datei, so erhälst du logischerweise ein JPG Bild.

    Gruß,
    UEZ

  • mp3-Dateien mit "Zufall" neu sortieren

    Ich hatte ein ähnliches Anliegen. Ich wollte auf eine SD Karte MP3s kopieren, aber habe keine Lust gehabt, mir Titel auszusuchen, und deshalb habe ich mir ein Tool gebastelt, das zufällig Lieder auf die SD Karte kopiert.

    Wer Interesse hat, kann ja mir bescheid geben.

    Gruß,
    UEZ