Beiträge von autoBert

  • GDI+ - Neu zeichnen

    Hallo Leroox,

    ich habe dein Skript hier eingestellt:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WIndowsConstants.au3>
    #include <GDIPlus.au3>
    #Include <Misc.au3>
    #include <Color.au3>
    #include <WinAPI.au3>
    #include <Misc.au3>

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

    Opt('MustDeclareVars', 1)

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

    Global $hGUI, $hBitmap, $hGraphic, $hBuffer, $hColorPicker

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

    _Main()

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

    Func _Main()
    Opt("GUIOnEventMode", 1)

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

    $hGUI = GUICreate("GDI+ Test", 400, 400)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Events")
    GUISetOnEvent($GUI_EVENT_MINIMIZE, "_Events")
    GUISetOnEvent($GUI_EVENT_RESTORE, "_Events")

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

    GUISetOnEvent($GUI_EVENT_RESTORE, "WM_PAINT")
    GUIRegisterMsg($WM_PAINT, "WM_PAINT")

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

    GUISetState()

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

    _GDIPlus_Startup()
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
    $hBitmap = _GDIPlus_BitmapCreateFromGraphics(24, 24, $hGraphic)
    $hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    _GDIPlus_GraphicsSetSmoothingMode($hBuffer, 2)

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

    $hColorPicker = _GDIPlus_ImageLoadFromFile("ui-color-picker.png")

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

    _ReDraw()

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

    While 1
    Sleep(10)
    _ReDraw()
    WEnd
    EndFunc

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

    Func _ReDraw()
    _GDIPlus_GraphicsDrawImageRect($hBuffer, $hColorPicker, 0, 0, 24, 24)
    EndFunc

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

    Func WM_PAINT()
    _GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, 24, 24)
    EndFunc

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

    Func _Events()
    Select
    Case @GUI_CtrlId = $GUI_EVENT_CLOSE
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_GraphicsDispose($hBuffer)
    _GDIPlus_BitmapDispose($hBitmap)
    _GDIPlus_ImageDispose($hColorPicker)
    _GDIPlus_Shutdown()
    Exit
    EndSelect
    EndFunc

    [/autoit]

    da du damit evtl. mehr Helfer erreichst. Bei mir wird dein Bild erst gar nicht angezeigt. schau dir am besten das 3. Beispiel zu GuiCtrlCreatePic an,

    mfg autoBert

  • Zeit Steuerung! Brauche viel Hilfe :-/

    Hallo M3tzl3r,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinen Fragen:

    Zitat von M3tzl3r

    Ich habe unten ein Bild angehängt was ich bis jetzt gebastelt habe, und möchte die Combo Boxen austauschen gegen die Frei einstellbaren zeiten, wie im Bild Zeit einstellung! Das sollte leichter zu Programmieren sein oder?

    Macht keinen grossen Unterschied, du ersparst dir nur das zusammenstringen des jeweiligen Prüfdatums.

    Zitat von M3tzl3r

    Leider weiss ich nicht wie ich so eine Box auswerte, das sie um bei einer eingestellten uhrzeit auch was ausführt.

    du musst in der Endlosschleife immer wieder überprüfen ob eines der Daten erreicht ist, wenn du Arrays verwendest sparst du dir Tipparbeit.

    mfg autoBert

  • ImageSearch Frage von einem Anfänger

    Hallo tz2010,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinem Problem. Das Skript selbst ist in Ordnung, aber ImageSearch selbst ist leider etwas ungenau. Beschreibe bitte genau was du damit bezwecken willst, denn meist gibt es bessere Lösungen,

    mfg autoBert

  • Anfänger

    Hallo Ensiferuum,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und hier die Lösung z deiner Frage:

    [autoit]

    MsgBox(0, "Mein erstes Script!", "Halloo :D, führe die Anweisungen durch!")
    $alter = InputBox("Los gehts!", "Gib dein Alter ein!", 4)
    If $alter < 15 Then
    MsgBox(0, $alter, "Du musst über 14 sein!")
    Else
    MsgBox(0, $alter, "1.Test:")
    $zahl = InputBox("", "1 + 1 =", 4)
    If $zahl = 2 Then
    MsgBox(0, "", "Richtig!")
    $try = InputBox("nächste Frage", "Wie heisst frau merkel mit vornamen?", 4)
    If $try = "angela" Then MsgBox(0, "", "richtig!")
    EndIf
    EndIf

    [/autoit]

    mfg autoBert

  • listeneinträge speichern / abrufen

    Hallo Zombie36,

    hier dein geändertes Skript:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <GUIListBox.au3>
    #include <ListBoxConstants.au3>
    #include <GuiConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <File.au3>

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

    Global $sFileName = @ScriptDir & "\list.log"
    ;Pfad zur Datei
    ;damit ist sichergestellt dass überall die gleiche Datei verwendet wird

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

    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Fishlist", 224, 254, 332, 154)
    $List1 = GUICtrlCreateList("", 0, 0, 129, 253, $LBS_SORT)
    $Button1 = GUICtrlCreateButton("Add Player", 136, 8, 81, 25, 0)
    $Button2 = GUICtrlCreateButton("Delete", 136, 40, 81, 25, 0)
    $Button3 = GUICtrlCreateButton("Search", 136, 200, 81, 41, 0)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

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

    _getList() ;füllt $list1 mit informationen aus list.log

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    _Exit()
    Case $Button1
    _add()
    Case $Button2
    _delete()
    EndSwitch
    WEnd

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

    Func _add() ;fügt der liste ein item hinzu (getestet & läuft)
    $temp = InputBox("Add Player", "Gib den Spielernamen an", "", "", 100, 40)
    If @error = 0 Then
    _GUICtrlListBox_AddString($List1, $temp)
    EndIf
    EndFunc ;==>_add

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

    Func _delete() ;löscht das markierte item (getestet & läuft)
    $name = GUICtrlRead($List1)
    $temp = _GUICtrlListBox_FindString($List1, $name)
    If MsgBox(4, "Delete", $name & " löschen?") = 6 Then
    _GUICtrlListBox_DeleteString($List1, $temp)
    EndIf
    EndFunc ;==>_delete

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

    Func _getList() ;hier liegt das problem
    $j = _FileCountLines($sFileName)
    ;Anzahl der Zeilen ermitteln funktioniert nicht bei geöffneter Datei
    $file = FileOpen($sFileName, 0)
    For $i = 1 To $j ;für jede zeile im logfile-
    $text = FileReadLine($file, $i) ;wird die zeile ausgelesen
    ;hier muss wenn FileOpen verwendet wird auch das zurückgegebne Handle verwendet werden
    ConsoleWrite($i & ":" & $text & @CRLF)
    _GUICtrlListBox_AddString($List1, $text) ;und der liste hinzugefügt (hier liegt das problem glaub ich
    ;_GUICtrlListVIEW_AddString war verwendet
    Next
    FileClose($file)
    EndFunc ;==>_getList

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

    Func _saveList() ;speichert den content der liste in list.log, 1 item / zeile (getestet & läuft)
    $log = FileOpen($sFileName, 2)
    For $i = 0 To _GUICtrlListBox_GetCount($List1) - 1
    FileWriteLine($log, _GUICtrlListBox_GetText($List1, $i))
    Next
    FileClose($log)
    EndFunc ;==>_saveList

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

    Func _exit()
    _saveList()
    Exit
    EndFunc ;==>_exit

    [/autoit]

    ich habe meine Änderungen mit Kommentaren versehen, damit du den Fehler erkennst.
    Hier noch eine alternative zu deiner Funktion:

    [autoit]

    Func _getList() ;hier liegt das problem
    Local $afile[1]
    _FileReadToArray(@ScriptDir & "\list.log",$afile)
    If IsArray($afile) Then
    For $i = 1 To $afile[0]
    _GUICtrlListBox_AddString($List1,$afile[$i]) ;und der liste hinzugefügt
    Next
    EndIf
    EndFunc ;==>_getList

    [/autoit]

    LÄUFT bei grossen Textdateien deutlich schneller;

    mfg autoBert

  • Listbox in .txt Datei speichern / automatisches scrollen einer textbox

    zombie36,

    du hast dieses Programm in dieser Form nicht einmal getestet, denn sonst wäre dir aufgefallen dss es nicht lauffähig ist:

    sprich die Includes fehlen. In Zeile 16 rufsr du eine Func auf die es in deinem Skript nicht gibt, poste also das komplette Skript, am besten in einem eigenen Thread, da dieser hier zu unübersichtlich wird,

    mfg autoBert