Beiträge von nuts

  • ChampionsLeage Finale-Wer gewinnt?

    Inter kommt 2 mal gefährlich vors Tor und macht 2 Tore.
    Bayern insgesamt sehr harmlos und unverständlich unsicher.
    Inter nur defensiv ...
    Taktisch nichts tolles, spielerisch ne Katastrophe und wohl das körperloseste Finale der letzten 10 Jahre.
    Und dazu 2 Trainer die völlig daneben sind - für mich keine Werbung für den Sport. :thumbdown:

  • GDI+ Domino-Zelda

    Bezüglich includes und Konstanten gibt es unterschiedliche Meinungen.
    Die benötigten Funktionen aus den includes kopieren und die Konstanten ersetzen mache ich immer ganz zum Schluss und auch nur wenn es nötig ist.
    Das macht das Skript lesbar und spart Entwicklungszeit.

    In der Downloadversion kann man um unnötigen Traffic zu vermeiden das Skript natürlich optimieren, gerade für die "kompilierte" Version.

  • Fenster Drag & Drop

    Oder so:

    Spoiler anzeigen
    [autoit]


    #include <WindowsConstants.au3>
    #include <Misc.au3>
    HotKeySet('{F3}', '_Exit')
    $x=100
    $y=100
    Global $hWnd = GUICreate('Untitled', $x, $y, Default, Default, -$WS_POPUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUISetState(@SW_SHOW)
    While 1
    Sleep(100)
    _WinMove($hWnd)
    WEnd
    Func _Exit()
    Exit
    EndFunc

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

    Func _WinMove($hWnd, $sMCode = 01)
    Global $aMPos, $aWPos, $aMPosOld = MouseGetPos(), $acursorinfo
    While _IsPressed(01)
    $aMPos = MouseGetPos()
    $aWPos = WinGetPos(WinGetTitle($hWnd, ""))
    $acursorinfo=GUIGetCursorInfo($hWnd)
    if $acursorinfo[0] < $x and $acursorinfo[1] < $y then
    WinMove(WinGetTitle($hWnd, ""), "", $aWPos[0] - ($aMPosOld[0] - $aMPos[0]), $aWPos[1] - ($aMPosOld[1] - $aMPos[1]), $aWPos[2], $aWPos[3])
    EndIf
    $aMPosOld = $aMPos
    WEnd
    EndFunc

    [/autoit]

  • _GUICtrlListView_AddArray Error!

    Ich hab die Aufgabe anders verstanden, ein 2D Array kann ganz einfach so zu einem Listview hinzugefügt werden:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <GuiListView.au3>
    #include <WindowsConstants.au3>
    #include <Array.au3>
    #include <File.au3>

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

    global $2DArray[10][2]
    for $i=0 to 9
    for $x=0 to 1
    $2DArray[$i][$x]="Test " & Random(1,100)
    Next
    Next
    _ArrayDisplay($2DArray)

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

    $Form1 = GUICreate("2D Array to Listview - Beispiel", 700, 500, -1, -1)
    $ListView1 = GUICtrlCreateListView("", 20, 20, 660, 350)
    $hlistview = GUICtrlGetHandle($ListView1)

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

    _GUICtrlListView_AddColumn($hlistview, "1", 300)
    _GUICtrlListView_AddColumn($hlistview, "2", 450)

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

    GUISetState(@SW_SHOW)

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

    _2DArray_to_Listview($hlistview, $2DArray)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

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

    Func _2DArray_to_Listview($hwnd, ByRef $array)
    local $additem
    local $spaltenanzahl=UBound($array,2)
    local $zeilenanzahl=UBound($array,1)
    If _GUICtrlListView_GetColumnCount($hwnd) > $spaltenanzahl then Return SetError(1,0,1)

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

    For $i=0 to $zeilenanzahl-1
    $additem = _GUICtrlListView_AddItem($hwnd,$array[$i][0])
    for $x=1 to $spaltenanzahl-1
    _GUICtrlListView_AddSubItem($hwnd, $additem, $array[$i][$x],$x)
    next
    next
    endfunc

    [/autoit]

  • _GUICtrlListView_AddArray Error!

    Hier liegt das Problem:

    Spoiler anzeigen
    [autoit]


    Func _SearchDoubles(ByRef $sSearchPath, ByRef $sSearchPattern)
    ToolTip('Bitte warten...', Default, Default, 'Doppelte Dateien werden gesucht und eingelesen!', 1, 3)
    Local $SearchPattern
    Local $sSavePath = @ScriptDir & '\Doppelte.txt'
    If $sSearchPath = "" Or $sSearchPath = "Search Path" Then
    MsgBox(16, "", "No Path")
    Exit
    EndIf
    Switch $sSearchPattern
    Case "Text-Files"
    ConsoleWrite("@@ (001) :(" & @MIN & ':' & @SEC & ") Switch, $sSearchPattern" & " = " & " Text-Files" & @CR)
    $sSearchPattern = '*.txt'
    Case "Log-Files"
    ConsoleWrite("@@ (002) :(" & @MIN & ':' & @SEC & ") Switch $sSearchPattern" & " = " & " Log-Files" & @CR)
    $sSearchPattern = '*.log'
    Case "Windows-Media-Files"
    ConsoleWrite("@@ (003) :(" & @MIN & ':' & @SEC & ") Switch $sSearchPattern" & " = " & " Windows-Media-Files" & @CR)
    $sSearchPattern = '*.wma'
    Case "JPEG"
    ConsoleWrite("@@ (004) :(" & @MIN & ':' & @SEC & ") Switch $sSearchPattern" & " = " & " JPEG" & @CR)
    $sSearchPattern = '*.jpeg'
    Case "MP3"
    ConsoleWrite("@@ (005) :(" & @MIN & ':' & @SEC & ") Switch $sSearchPattern" & " = " & " MP3" & @CR)
    $sSearchPattern = '*.mp3'
    EndSwitch
    ConsoleWrite($sSearchPath & ' ' & $SearchPattern & @CRLF) ;debug
    Global $aFiles = _FileListToArrayEx($sSearchPath, $sSearchPattern)
    if not IsArray($aFiles) then ;errorhandling
    ConsoleWrite("$aFiles ist kein Array" & @CRLF)
    Return
    endif
    Global $sExists = '|', $sFilename = '', $sDouble = '', $iPos = 0
    For $i = 1 To $aFiles[0]
    $sFilename = StringRegExpReplace($aFiles[$i], '.+\\(.+)', '$1')
    $iPos = StringInStr($sExists, '\' & $sFilename)
    If $iPos Then
    $iStart = StringInStr($sExists, '|', 0, -1, $iPos)
    $iEnd = StringInStr($sExists, '|', 0, 1, $iPos)
    $sDouble &= StringMid($sExists, $iStart, $iEnd - $iStart) & '|'
    $sDouble &= $aFiles[$i] & '|'
    EndIf
    $sExists &= $aFiles[$i] & '|'
    Next
    $hFile = FileOpen($sSavePath, 2)
    FileWrite($hFile, StringReplace($sDouble, '|', @CRLF))
    FileClose($hFile)
    ToolTip("")
    EndFunc ;==>_SearchDoubles

    [/autoit]


    Hab mal eine Debug-Abfrage und das Errorhandling hinzugefügt.

    edit \ Naja das ist eines der Probleme :D
    Am besten auch nochmal die Hilfe zu _GUICtrlListView_AddArray bemühen. Dein Array entspricht nicht dem was dort erwartet wird.

  • Hilfe bei Videowiedergabe..

    mini Videoplayer
    Hier gibts eine Directshow UDF und die zweite Möglichkeit über den WMP ist auch angesprochen.

    Mein Tipp: Vergiss das, baue eine schöne Oberfläche um die Videodateien darzustellen und starte die Videos mit einem vernünftigen Player.
    MPC-HC würde sich da z.B. anbieten, da sind echte Profis am Werk die lange Erfahrung mit der Videowiedergabe unter windows haben.

  • Zufallszahlen

    Zitat von AspirinJunkie


    Ich hab mal von einer Möglichkeit gehört bei der das Hintergrundrauschen der Soundkarte für die Erzeugung von Zufallszahlen genommen wurde.
    Das Rauschen dort entspricht in der Regel einem weißen Rauschen.
    Also einem Mischsignal bei dem jede Frequenz mit der selben Häufigkeit auftritt.
    Das wär dann schon eher als reine Zufallszahl zu bezeichnen.


    Und dadurch wäre das Kriterium "unabhängig" erfüllt?
    Ich meine nein, allerdings lässt sich wahrscheinlich eine sehr gute (gleiche) Häufigkeitsverteilung erzielen.

    P.S. Ist jetzt schon mehr ein akademisches Problem ;)