Beiträge von BugFix

  • problem mit switch

    [OT]

    Zitat von vivus

    dann ist da noch das leerzeichen zwischen sleep und der klammer ..

    und es fehlt noch das endswitch ..

    und die Formatierung ist auch kacke ..


    Bitte unterlaß solch sinnlose Posts!
    1. Du kannst soviele Leerzeichen zwischen Funktionsname und Klammer schreiben, wie du Lust hast! Hättest du je einen Blick in die Hilfe geworfen, wäre dir aufgefallen, dass in sehr vielen Bsp. immer ein Leerzeichen zwischen Funktionsname und Klammer steht!
    2. Es ist unschwer erkennbar, dass dies hier der Ausschnitt aus einem Skript ist. Beim Kopieren ist EndSwitch nicht mit erwischt worden. - Ist dir sicher noch nie passiert.
    3. Auch du hast sicher schon mal Code statt im Tab "Quellcode", im Tab "Editor" gepostet. Und schon ist die ganze Formatierung futsch.

    Melde dich bitte, wenn du etwas zur Sache zu sagen hast! Aber ein offensichtlich bereits beantwortetes Thema vollzuspamen kannst du dir schenken.
    [/OT]

  • Desktopplatz "reservieren"

    Die Message heißt übrigens WM_SIZING (da hatte ich mich vertan).
    Das Problem ist zu Lösen mit "_WinAPI_SetWindowLong", allerdings will ich dir nicht dein Skript schreiben. Probier erst mal selbst.

    Na gut - hier mal ein Bsp., wie mit der Funktion gearbeitet wird. Das Anpassen für WM_SIZING kannst du ja dann selbst probieren.

    Spoiler anzeigen
    [autoit]

    #include <GuiImageList.au3>
    #include <GuiListView.au3>
    #include <ListViewConstants.au3>
    #include <StructureConstants.au3>
    #include <WinAPI.au3>
    #include <WindowsConstants.au3>

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

    Local Const $GWL_WNDPROC = -4

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

    $hGui = GUICreate("Test", 400, 400)
    $hListView = _GUICtrlListView_Create($hGui, "Listview", 10, 10, 380, 380)
    _GUICtrlListView_SetExtendedListViewStyle($hListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES))

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

    ; Load images
    $hImage = _GUIImageList_Create()
    _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0xFF0000, 16, 16))
    _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x00FF00, 16, 16))
    _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x0000FF, 16, 16))
    _GUICtrlListView_SetImageList($hListView, $hImage, 1)

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

    ; Add columns
    _GUICtrlListView_InsertColumn($hListView, 0, "Column 1", 100)
    _GUICtrlListView_InsertColumn($hListView, 1, "Column 2", 100)
    _GUICtrlListView_InsertColumn($hListView, 2, "Column 3", 100)

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

    ; Add items
    _GUICtrlListView_AddItem($hListView, "Row 1: Col 1", 0)
    _GUICtrlListView_AddSubItem($hListView, 0, "Row 1: Col 2", 1)
    _GUICtrlListView_AddSubItem($hListView, 0, "Row 1: Col 3", 2)
    _GUICtrlListView_AddItem($hListView, "Row 2: Col 1", 1)
    _GUICtrlListView_AddSubItem($hListView, 1, "Row 2: Col 2", 1)
    _GUICtrlListView_AddItem($hListView, "Row 3: Col 1", 2)
    GUISetState()

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

    ;
    $hProc = DllCallbackRegister('_WinProc', 'ptr', 'hwnd;uint;wparam;lparam')
    $hHook = _WinAPI_SetWindowLong($hGui, $GWL_WNDPROC, DllCallbackGetPtr($hProc))

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

    GUIRegisterMsg($WM_NOTIFY, 'WM_NOTIFY')

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

    While GUIGetMsg() <> -3
    Sleep(10)
    WEnd

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

    _WinAPI_SetWindowLong($hGui, $GWL_WNDPROC, $hHook) ; original WinProc wiederherstellen

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

    Func _WinProc($hWnd, $iMsg, $iwParam, $ilParam)
    ; wenn nicht die gewünschte Msg kommt - Rückgabe an System
    If $iMsg <> $WM_NOTIFY Then Return _WinAPI_CallWindowProc($hHook, $hWnd, $iMsg, $iwParam, $ilParam)

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

    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $tInfo
    $hWndListView = $hListView
    If Not IsHWnd($hListView) Then $hWndListView = GUICtrlGetHandle($hListView)

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

    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
    Case $hWndListView
    Switch $iCode
    Case $LVN_COLUMNCLICK ; A column was clicked
    $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
    ConsoleWrite('MyProc: $LVN_COLUMNCLICK -->Column: ' & DllStructGetData($tInfo, "SubItem") & @CRLF)
    Return 0 ; <== Nachricht wird jetzt verworfen und kann über GUIRegisterMsg nicht verwertet werden

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

    Case $NM_CLICK ; Sent by a list-view control when the user clicks an item with the left mouse button
    $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
    ConsoleWrite("MyProc: $NM_CLICK " & "-->Index: " & DllStructGetData($tInfo, "Index") & _
    " -->SubItem: " & DllStructGetData($tInfo, "SubItem") & @CRLF)
    EndSwitch
    EndSwitch
    ; jetzt wird die normale WinProc aufgerufen, die man mit GuiRegisterMsg auswerten kann
    Return _WinAPI_CallWindowProc($hHook, $hWnd, $iMsg, $iwParam, $ilParam)
    EndFunc ;==>_WinProc

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

    Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView
    $hWndListView = $hListView
    If Not IsHWnd($hListView) Then $hWndListView = GUICtrlGetHandle($hListView)
    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
    Case $hWndListView
    Switch $iCode
    Case $LVN_COLUMNCLICK ; A column was clicked <== Diese Nachricht erreicht die Funktion nicht mehr
    Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
    ConsoleWrite('GUIRegisterMsg: $LVN_COLUMNCLICK -->Column: ' & DllStructGetData($tInfo, "SubItem") & @CRLF)
    Case $NM_CLICK ; Sent by a list-view control when the user clicks an item with the left mouse button
    Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
    ConsoleWrite("GUIRegisterMsg: $NM_CLICK " & "-->Index: " & DllStructGetData($tInfo, "Index") & _
    " -->SubItem: " & DllStructGetData($tInfo, "SubItem") & @CRLF)
    EndSwitch
    EndSwitch
    Return 0
    EndFunc ;==>WM_NOTIFY

    [/autoit]

  • Verzeichnis bereinigen, letzte Version/Datei behalten

    Man kann es auch noch etwas kürzen, die Prüfung auf Dateityp und evtl. vorzeitiges Verlassen der Schleife bringt eigentlich keinen Vorteil:

    Spoiler anzeigen
    [autoit]

    Func _GetHighestVer(ByRef $a)
    Local $name, $ver
    Local $oFileVer = ObjCreate('Scripting.Dictionary')
    For $i = 1 To $a[0]
    $name = StringLeft($a[$i], StringInStr($a[$i], '.', 1, -1))
    $ver = StringTrimLeft($a[$i], StringInStr($a[$i], '.', 1, -1))
    If $oFileVer.Exists($name) Then
    If $ver > $oFileVer.Item($name) Then $oFileVer.Item($name) = $ver
    Else
    $oFileVer.Add($name, $ver)
    EndIf
    Next
    If $oFileVer.Count > 0 Then
    Local $aOut[$oFileVer.Count]
    Local $strKey, $colKeys = $oFileVer.Keys, $i = 0
    For $strKey In $colKeys
    $aOut[$i] = $strKey & $oFileVer.Item($strKey)
    $i += 1
    Next
    Return $aOut
    EndIf
    EndFunc

    [/autoit]

  • Verzeichnis bereinigen, letzte Version/Datei behalten

    Dann sollte das hier passen:

    Spoiler anzeigen
    [autoit]

    ; == das hier simuliert ein mit _FileReadToArray eingelesenes Verzeichnis
    Local $aRead[12] = [11, _
    '7777_0000.asm.1', _
    '7777_0000.asm.2', _
    '7777_0000.asm.3', _
    '7777_0016.prt.29', _
    '7777_0016.prt.30', _
    '7777_0016.prt.31', _
    '7777_0016.drw.55', _
    '7777_0016.drw.56', _
    '7777_0016.drw.57', _
    '7777_0017.drw.11', _
    '7777_0018.drw.12']

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

    $aRet = _GetHighestVer($aRead)
    For $i = 0 To UBound($aRet) -1
    ConsoleWrite($aRet[$i] & @CRLF)
    Next

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

    Func _GetHighestVer(ByRef $a)
    Local $aType[3] = ['asm','prt','drw'], $ver
    Local $oFileVer = ObjCreate('Scripting.Dictionary')
    For $i = 1 To $a[0]
    For $j = 0 To 2
    If StringInStr($a[$i], $aType[$j]) Then
    $name = StringLeft($a[$i], StringInStr($a[$i], '.', 1, -1))
    $ver = StringTrimLeft($a[$i], StringInStr($a[$i], '.', 1, -1))
    If $oFileVer.Exists($name) Then
    If $ver > $oFileVer.Item($name) Then $oFileVer.Item($name) = $ver
    Else
    $oFileVer.Add($name, $ver)
    EndIf
    ExitLoop
    EndIf
    Next
    Next
    If $oFileVer.Count > 0 Then
    Local $aOut[$oFileVer.Count]
    Local $strKey, $colKeys = $oFileVer.Keys, $i = 0
    For $strKey In $colKeys
    $aOut[$i] = $strKey & $oFileVer.Item($strKey)
    $i += 1
    Next
    Return $aOut
    EndIf
    EndFunc

    [/autoit]

  • _Self() -- Speichern/Verarbeiten eines Ausdrucks als Selbstbezug

    Ich kanns einfach nicht lassen - immer wieder überkommen mich neue Ideen. :D

    Also, grundsätzlich kann man das Folgende natürlich mit einer Globalen Variablen im Skript genausogut erledigen.
    Folgende Überlegung:
    - eine Berechnung liefert einen Wert
    - diesen möchte ich mehrfach nutzen
    - in Vergleichsoperationen und/oder Rechenoperationen
    Nun kann ich den Wert natürlich in eine Globale Variable packen und dann skriptweit damit weitermachen.
    Anstelle der Zuweisung zu einer Variablen rufe ich nun die Funktion _Self() auf.
    Der Name ist gut zu merken ;) und das Speichern erfolgt in einer Lokalen Variable.

    Und so sieht es aus:

    Spoiler anzeigen
    [autoit]

    Local $a = 100, $b = 200, $c = 3

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

    _Self($a + $b) ; == initialisieren
    ConsoleWrite('Wert von _self ' & _Self('', 'val') & @CRLF)
    ConsoleWrite('_self < $c ' & _Self($c, '<') & @CRLF)
    ConsoleWrite('_self > $c ' & _Self($c, '>') & @CRLF)
    ConsoleWrite('_self / $c ' & _Self($c, '/') & @CRLF)
    ConsoleWrite('_self * $c ' & _Self($c, '*') & @CRLF)
    ConsoleWrite('_self + $c ' & _Self($c, '+') & @CRLF)
    ConsoleWrite('_self - $c ' & _Self($c, '-') & @CRLF)
    ConsoleWrite('Quadratwurzel aus _self ' & _Self($c, '1/2') & @CRLF)
    ConsoleWrite('Kubikwurzel aus _self ' & _Self($c, '1/3') & @CRLF)
    ConsoleWrite('_self hoch $c ' & _Self($c, '^') & @CRLF)
    _Self(0, 0) ; == entladen (oder mit neuem Wert initialisieren)

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

    ;===============================================================================
    ; Function Name....: _Self
    ; Description......: Statisches Speichern eines numerischen Wertes, Vergleichs- u. Rechenoperationen mehrfach damit
    ; Parameter(s).....: $iVar Beim Initialisieren der zu speichernde Wert, sonst der Wert für die Operation mit dem hinterlegten Wert
    ; $sOp String der festlegt, welche Operation ausgeführt wird
    ; -1 übergebenen Wert initialisieren (Standard)
    ; 0 Wert entladen
    ; '< > = <> <= >=' Vergleichsoperationen ausführen
    ; '+ - * / ^' Rechenoperationen ausführen
    ; '1/2 1/3' Quadrat-, Kubikwurzel ziehen
    ; 'val' gespeicherten Wert zurückgeben
    ; Return Value(s)..: Ergebnis der Operation, gespeicherter Wert, (bei $sOp -1 u. 0 -- nichts)
    ; Author(s)........: BugFix ( [email='bugfix@autoit.de'][/email] )
    ;===============================================================================
    Func _Self($iVar, $sOp=-1)
    Local Static $iSelf =''
    Switch String($sOp)
    Case '-1' ; == $iVar als Basiswert initialisieren
    $iSelf = $iVar
    Case '0' ; == Basiswert entladen
    $iSelf = ''
    Case '<', '>', '=', '<>', '<=', '>=' ; == Vergleichsoperation ausführen
    Return Execute(String($iSelf & ' ' & $sOP & ' ' & $iVar))
    Case '+','-', '*', '/', '^' ; == Rechenoperationen ausführen
    Return Execute('(' & $iSelf & ') ' & $sOp & ' (' & $iVar & ')')
    Case '1/2', '1/3' ; == Quadrat-, Kubikwurzel
    Return Execute('(' & $iSelf & ') ^ (' & $sOp & ')')
    Case 'val'
    Return $iSelf
    EndSwitch
    EndFunc ;==>_Self

    [/autoit]


    Inwiefern es tatsächlich sinnvoll einzusetzen ist, mag jeder für sich bewerten. Aber mir ist das grad so durch den Kopf gerauscht und ihr müßt es ertragen. :rofl:

  • Error in Expression

    Du bist hier in AutoIt, "&&" gibt es hier nicht.
    Das logische und ist: AND und du kannst den Wert nicht fortlaufend vergleichen, sondern mußt diesen explizit jedesmal anführen, z.B. so:

    [autoit]

    If ($a > $b) AND ($a < $x) AND ($a > $y) Then

    [/autoit]

  • Datenbank Oscar (Listview)

    Zitat von Ilse

    .verstehe noch nicht so ganz was angepasst werden muß


    Genau das, was dir die Fehlermeldung sagt. Ich habe dort einfach Variablen erfunden mit verständlichem Namen, damit du verstehst, wozu sie zu verwenden sind. Natürlich mußt du diese im Skript noch deklarieren - warum tust du es nicht, wenn die Fehlermeldung dir sagt, dass die (neu hinzugefügte) Variable nicht deklariert ist?
    - Vergleich die von mir eingesetzten ID/Handle, ob es auch das richtige Listview betrifft. Gegebenenfalls halt anpassen.
    - Setze für $subItem den korrekten SpaltenIndex ein.
    LIES meine Kommentare - da stand das bereits drin.

  • Mausbewegungsrichtung ändern

    Zitat von chip

    BugFix Das soll jetzt nicht beleidigend sein, aber hast du verkrüppelte Hände wenn die so abgewinkelt zum Unterarm sind?


    Nein - aber große Hände - und die Maus paßt ergonomisch halt in die Handfläche am Besten diagonal. Sollte das bei dir nicht der Fall sein, wäre es interessant zu wissen, ob deine Anatomie von der menschlichen abweicht (Position Mittelhandknochen).

  • Datenbank Oscar (Listview)

    Zitat von Ilse

    erhalte aber Fehler.


    Verrätst du auch welcher Fehler kommt?
    Hast du die Listviewbezeichnungen korrekt angepaßt? Ich sehe auch nicht, dass du versuchst den ausgelesenen Wert (Variable $inhalt) weiterzuverarbeiten oder zumindest zum Test in die Konsole zu schreiben.
    Ich habe dir den Weg gezeigt - anpassen an deine Skripterfordernisse mußt du es schon selbst.

  • Datenbank Oscar (Listview)

    Möglichkeiten gibt es mehrere, aber ich denke am einfachsten ist folgende Variante (einfach in die Event-Abfrage-Schleife einfügen und anpassen):

    [autoit]

    Case $GUI_EVENT_PRIMARYUP ; == primäre Maustaste losgelassen
    $aCursor = GUIGetCursorInfo()
    If $aCursor[4] = $hSearchListView Then ; == ID des Listview in das geklickt wurde
    $index = _GUICtrlListView_GetSelectedIndices($hSearchLVHandle)
    If $index > -1 Then
    ; == den inhalt auslesen und weiterverarbeiten
    $inhalt = _GUICtrlListView_GetItemText($hSearchLVHandle, $index, $subItem) ; $subItem - die Spalte, deren Wert du willst (0, 1 ...)
    EndIf
    EndIf

    [/autoit]

  • Mausbewegungsrichtung ändern

    Ich denke, ich verschaffe mal etwas Klarheit,mit einem kleinen Bildchen.
    Ich kenne keine Maus, die tatsächlich ergonomisch ist. Ich hatte auch schon überlegt, die Maus mal in ein der Handform angepassten Gehäuse unterzubringen. Dadurch kippt aber die X/Y-Achse.
    Links im Bild die standardmäßige, nicht der Handform angepaßte Mausführung - rechts, wie es eigentlich sinnvoll wäre.

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Das hat absolut nichts mit Spaßprogramm zu tun, sondern ist ein Problem für alle, die keine Klein-Mädchen-Hände haben. ;)

  • Auto ID erzeugen

    Zitat von Schnitzel

    Statt deiner Stringrightbastelei wäre übrigens Stringformat die "normale" Methode gewesen


    Also ich würde StringFormat nicht als 'normale' Methode bezeichnen. Aufgrund der nicht gerade angenehmen Syntax setze ich es z.B. nur ein, wenn nicht irgendwie vermeidbar. Btw. ist die "Stringbastelei" auch die schnellere Methode. ;)

  • Schachprogramm Fritz7 Schnellstart/Beenden Script

    Zitat von General Kaboom

    gewöhne dir doch an, deinen Code IMMER zu kommentieren


    Ich habe bereits mehrfach diese Bemerkung von dir gesehen. Grundsätzlich richtig, jedoch sollte man so etwas nur anmahnen, wo es notwendig ist. In einem Skript, dass sich in all seinen Befehlen eindeutig selbst erklärt, ist dieser Hinweis fehl am Platz.
    Solltest du Probleme haben, das Skript zu verstehen, bist du möglicherweise noch nicht erfahren genug dabei Hilfe zu leisten. ;)