Beiträge von autoBert

  • Kürzester Weg berechnen

    Zitat von Texos

    ich habe eine karte auf der man sich ingame fortbewegen kann.
    da ich nicht immer schauen will:wo muss ich als nächstes hin, was wäre der schnellste weg: , möchte ich dies errechnen.

    das es sich um ein Spiel handelt habe ich mir beibnahe gedacht,

    Zitat von AutoBert

    ...gerne zum Boten verwendet wird, glaube ich kaum, dass du hier weitrer Unterstützung bekommst.

    mfg (Auto)Bert

  • Autoit Konvertiert nicht?!?

    Hallo dtex,

    hier eine Lösung bei der du ohne konvertieren auskommst:

    Spoiler anzeigen
    [autoit]

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

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

    Global $gui, $pic1

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

    Dim $bilder = "http://ard.gedif.de/ard/46/chart.gfx?width=380&height=250&average=38&average=200&overTime=0&split=0&gridGlobalOff=0&highLow=1&fill=0&chartType=0&time=10000&symbol=543900&exchangeId=2&countryId=276"
    Dim $Savebild1 = @TempDir & "\banner2.gif"
    InetGet($bilder, $Savebild1, 1)
    ;----- Beispiel 3 wie das ganze auf mit PNG funktioniert (von Zedna) geht auch für Gif

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

    Global $hGUI, $hImage, $hGraphic, $hImage1

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

    ; GUI erstellen
    $hGUI = GUICreate("PNG zeigen", 250, 250)

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

    ; GIF Bild laden
    _GDIPlus_Startup()
    $hImage = _GDIPlus_ImageLoadFromFile(@TempDir & "\banner2.gif")
    $iWidth = _GDIPlus_ImageGetWidth($hImage)
    $iHeight = _GDIPlus_ImageGetHeight($hImage)
    $aWinPos = WinGetPos($hGUI)
    $aClient = WinGetClientSize($hGUI)
    WinMove($hGUI,"",$aWinPos[0],$aWinPos[1],$iWidth+$aWinPos[2]-$aClient[0],$iHeight+$aWinPos[3]-$aClient[1])
    $aClient = WinGetClientSize($hGUI)
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
    GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")
    GUISetState()

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

    ; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE

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

    ; Ressourcen aufräumen
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_Shutdown()

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

    ; PNG Bild zeichnen
    Func MY_WM_PAINT($hWnd, $msg, $wParam, $lParam)
    _WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_UPDATENOW)
    _GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 0, 0)
    _WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_VALIDATE)
    Return $GUI_RUNDEFMSG
    EndFunc ;==>MY_WM_PAINT

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

    diese habe ich dir aber bereits

    Zitat von ShoutBox

    25740 AutoBert : Dtex, http://autoit.pastebin.com/2Lx56EKm Heute, 04:02

    und

    Zitat

    26087 AutoBert : Dtex, http://autoit.pastebin.com/2Lx56EKm , weis nicht ob du das schon gelesen hast Heute, 14:13

    in die Shoutbox gestellt.

    Wenn dir jemand bei deinem neuen Lösungsweg helfen soll, solltest du wenigsten den Link zu janGraphics.dll einstellen,

    Edit: Hier eine Lösung mit konvertieren aber ohne janGraphics.dll :

    Spoiler anzeigen
    [autoit]

    ; *** Start added by AutoIt3Wrapper ***
    #include <StaticConstants.au3>
    ; *** End added by AutoIt3Wrapper ***
    #region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Add_Constants=n
    #endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GDIPlus.au3>
    #include <WinAPI.au3>

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

    Global $gui, $pic1

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

    If Not FileExists(@TempDir & "\banner2.gif") Then
    Dim $bilder = "http://ard.gedif.de/ard/46/chart.gfx?width=380&height=250&average=38&average=200&overTime=0&split=0&gridGlobalOff=0&highLow=1&fill=0&chartType=0&time=10000&symbol=543900&exchangeId=2&countryId=276"
    Dim $Savebild1 = @TempDir & "\banner2.gif"
    InetGet($bilder, $Savebild1, 1)

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

    Global $hImage, $hImage1

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

    ; GIF Bild laden
    _GDIPlus_Startup()
    $hImage = _GDIPlus_ImageLoadFromFile(@TempDir & "\banner2.gif")
    ; JPG Bild speichern
    _GDIPlus_ImageSaveToFile($hImage, @TempDir & "\banner2.jpg")

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

    ; Ressourcen aufräumen
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_Shutdown()
    EndIf
    $Form1 = GUICreate("Form1", 621, 445, 193, 125)
    $pic1 = GUICtrlCreatePic(@ScriptDir & "\banner2.jpg", 0, 0, 620, 444, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    [/autoit]

    mfg (Auto)Bert

  • Kürzester Weg berechnen

    Dafür eignet sich am besten der A-Star Algorythmus, da er aber gerne zum Boten verwendet wird, glaube ich kaum, dass du hier weitrer Unterstützung bekommst.
    Übrigens, wenn du bei a startest und nach b möchtest, würde dir auch dieser ALgorythmus dich dirket (ohne Umweg über h) nach b schicken, du solltest dein Problem also etwas genauer und ausführlicher erklären,

    mfg (Auto)Bert

  • Transparentes Hintergrundbild

    Zitat von AutoBert

    Genau wie jedes andere Bild auch, schaun dir dazu die Beispiele zu

    [autoit]

    GUICtrlCreatePic

    [/autoit]

    an, besonders das 3.

    [Anmerkung]im Originalpost war Farbe rot nicht gesetzt[/Anmerkung]Wenn es mit dem 3. Beispiel nicht klappen sollte, dann stelle bitte das Bild mit ein,

    mfg (Auto)Bert

  • Webbrowser Fragen

    Hallo eiscool32,

    wieso die Antwort ist doch bereits gegeben, siehe mein Beispiel. Wenn du es daraus bzw. der Hilfe zu

    [autoit]

    ObjEvent

    [/autoit]

    nicht erkennst/umsetzen kannst solltest du dir ein anderes Hobby suchen, denn wir sind hier kein Machmal-Forum.
    deswweiteren ist pushen nach nocht nicht einmal 3 Stunden hier gar nicht gern gesehen, übe dich also in Geduld und nütze die Zeit zum Hilfe lesen,

    mfg (Auto)Bert

  • Webbrowser Fragen

    wieso ist doch kommentiert Zeile 15

    [autoit]

    $SinkObject = ObjEvent($oIE, "IEEvent_", "DWebBrowserEvents2"
    .
    .
    $SinkObject = 0 ; IE Eventzuweisung aufheben
    .
    .
    Func IEEvent_ProgressChange($Progress, $ProgressMax)
    $percent = Int(($Progress * 100) / $ProgressMax)
    If $percent >= 0 And $percent <= 100 Then GUICtrlSetData($idProgress, $percent)
    EndFunc ;==>IEEvent_ProgressChange

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

    ) ; Ereignisse den UDFs zuweisen, beginnend mit IEEvent_

    [/autoit]

    ansonsten hilfe zu ObjEvent aufrufen,

    mfg (Auto)Bert

  • private krankenversicherung gesetzlich

    Zitat von davidkaut

    Bei beiden ist der versicherungsvergleich kostenlos und du bekommst sofort den für dich besten versicherer angezeigt.


    Falsch, man darf nur seine Wunschliste und danach persöliche Daten inkl. Adresse u. EMail Adresse angeben AGB's abnicken ansosnten kommt kein Angebot, siehe
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    [Edit1] von sofort kann auch keine Rede sein

    Zitat von Auszug AGB's der Seite

    7. Die Tarifcheck24 GmbH bietet Vergleichsangebote für Versicherungen für die Zielgruppe der Selbständige, Freiberufler und Beamte an. Zur Erstellung der Vergleichsangebote geben wir Ihre Anfragedaten weiter an unsere bundesweit vertretenen Kooperationspartner (Versicherungsmakler nach § 93 HGB), sofern Sie der Übermittlung zugestimmt haben.

    Für die Abwicklung der Sachversicherungen ist unsere Partnerfirma zuständig:

    [/Edit1]
    unter einem kostenlosen Vergleich stelle ich mir etwas anderes vor, daher

    MoD, vorhergehenden Beitrag bitte löschen da nicht im entferntesten AutoIt spezifisch und nur eine PR-Aktion, [Edit2]nicht dass solche AKtionen Schule machen und wir im Werbe-Müll ersticken[/Edit2]

    [Edit3] BugFix , danke für das entfernen der Links. Bild ausgetauscht (jetzt ohne URL) [Edit3]

    danke (Auto)Bert

  • Zip auslesen und verarbeiten

    Zitat von Faweyr

    hast du das kannst du wiederum mit der Funktion von UEZ als GDI+ -Image laden, welches dann mit einer weiteren Funktion in GUiCreatePic angezeight werden kann!


    GuiCtrlPic nimmt nur Filename entgegen, wäre aber trtzdem an dieser "weiteren" Funktion interessiert, kannst du die bitte posten, danke.

    Zitat von Faweyr

    Also ich weiß aber noch nicht mal wie ich das Verzeichnis finde

    BugFix hat in Skripte ein (UN-)Zipper veröffentlicht,

    mfg (Auto)Bert

  • Stadt, Land, Fluss -Generator

    @EM

    Zitat von EliteMattthias

    es gibt den Befehl

    [autoit]

    Chr()

    [/autoit]


    , der spart :D


    ja, aber dann kann man es nicht so leicht an diesen Wunsch anpassen

    Zitat von Oger-Lord

    Vieleicht könntest du noch die Buchstaben aus dem Alphabet entfernen, wenn sie schonmal dran waren.

    Spoiler anzeigen
    [autoit]

    #include <array.au3>

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

    GUICreate ("A-Z", 144, 35)
    GUISetState (@SW_SHOW)
    GUISetBkColor (0xAAAAAA)

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

    dim $array[26] = [ "a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z" ], $i, $y
    Global $AZ = GUICtrlCreateInput ("", 65, 5, 14)
    Global $Start = GUICtrlCreateButton ("Start", 5, 5, 60, 25)
    Global $Stopp = GUICtrlCreateButton ("Stopp", 79, 5, 60, 25)

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

    While 1
    $nMsg = GUIGetMsg ()
    if $nMsg = -3 Then Exit
    If $Start = $nMsg Then
    _AZ($AZ)
    EndIf
    WEnd

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

    Func _AZ($AZ)
    Do
    $nMsg = GUIGetMsg ()
    $y = Ubound($array)-1
    $i = Round(Random (0, $y))
    GUICtrlSetData ($AZ, $array[$i])
    Until $Stopp = $nMsg
    if $i > 0 Then
    _ArrayDelete($array,$i)
    Else
    MsgBox(0,"Ende","alle Buchstaben waren 1mal dran!",5)
    Exit
    EndIf
    EndFunc

    [/autoit]

    mfg (Auto)Bert

  • GUI mit Listview

    Hallo Areneas,

    vielleicht sucht du ja den Begriff TabItem, solche würden zu deinem Skript passen. Einfach einmal

    [autoit]

    GUICtrlCreateTabItem("1. Tab")
    GUICtrlCreateLabel("Ich bin ein Label auf Tab 1",520,20)
    GUICtrlCreateTabItem("2. Tab")
    GUICtrlCreateLabel("Ich bin ein Label auf Tab 2",520,20)

    [/autoit]

    zwischen Zeile 9 und 10 aus Post #1 einfügen, dann siehst du ja gleich ob du dass meinst.
    Es wäre hilfreich wenn du dein Projektvorhaben etwas genauer beschreiben könntest. Nach deinem 2. Post bin ich der Meinung es soll ein Navigationssystem mit zusätzlichen Angaben z.B. Spritkostenberechnung werden. Das dürfte aber für das 1. Projekt etwas zu schwierig sein.

    Hier noch eine Listview-Beispiel zum testen:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <GUIConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiListView.au3>
    #include <ListViewConstants.au3>
    #include <File.au3>

    [/autoit]

    ;#include <array.au3>

    Local $tZeit, $s1, $s2

    $main = GUICreate("Test Drag & Drop from LV1 to LV2 DblClick in LV1 with ContextMenu in LV1 (copies to ClipBoard", 600, 400)
    $listview = GUICtrlCreateListView("Gruppe1| BlubText", 10, 10, 200, 100, BitOR($LVS_REPORT, $LVS_SHOWSELALWAYS), BitOR($LVS_EX_FULLROWSELECT, $WS_EX_CLIENTEDGE))
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE) ; legt fest, dass Hintergrundfarbe wechselt
    GUICtrlSetBkColor(-1, 0xE6E6FA) ; Hintergrundfarbe 1


    $listview2 = GUICtrlCreateListView("Gruppe2 | BlubText", 230, 10, 200, 100, BitOR($LVS_REPORT, $LVS_SHOWSELALWAYS), BitOR($LVS_EX_FULLROWSELECT, $WS_EX_CLIENTEDGE))
    GUICtrlSetState($listview2, $GUI_DROPACCEPTED)
    $hbtnInfo = GUICtrlCreateButton("Info (LV1)", 10, 120, 100, 20)
    $hbtnSave = GUICtrlCreateButton("&Speichern (LV2)", 230, 120, 100, 20)
    $hbtnLoad = GUICtrlCreateButton("&Laden (LV2)", 230, 150, 100, 20)

    For $i = 1 To 9
    $listitem = GUICtrlCreateListViewItem("test" & $i & " |Blub " & Random(1, 9), $listview)
    If $i = 5 Then GUICtrlSetFont($listitem, 14, 800)
    GUICtrlSetBkColor(-1, 0xcccccc) ; Hintergrundfarbe 2
    Next
    $hEdit =GUICtrlCreateEdit("",5,180,390,200)
    $idContextmenu = GUICtrlCreateContextMenu($listview)
    $idClipmenu = GUICtrlCreateMenuItem("Selektierte ins ClipBoard", $idContextmenu)
    $idAllClipmenu = GUICtrlCreateMenuItem("Alle aus Splate 2 ins ClipBoard", $idContextmenu)
    $idDragmenu = GUICtrlCreateMenuItem("In LV 2", $idContextmenu)

    GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY") ;<=========================================== Bemachrichtigung Doppelklick
    GUISetState()
    $first = True
    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_DROPPED, $idDragmenu
    $ar = _GUICtrlListView_GetSelectedIndices($listview, True)
    ;_ArrayDisplay($ar)
    For $i = 1 To $ar[0]
    $sItem = _GUICtrlListView_GetItemTextString($listview, $ar[$i])
    GUICtrlCreateListViewItem($sItem, $listview2)
    Next
    Case $hbtnInfo
    $Wert = _GUICtrlListView_GetItemTextArray($listview)
    If $Wert[2] <> "" Then
    MsgBox(0, "Eintrag für " & $Wert[1], "ist: " & $Wert[2])
    Else
    MsgBox(0, "", "Kein Eintrag ausgewählt")
    EndIf
    Case $hbtnSave
    SaveLV(@ScriptDir & "\LV2.DAT")
    Case $hbtnLoad
    LoadLV(@ScriptDir & "\LV2.DAT")
    Case $idClipmenu
    $aItems = _GUICtrlListView_GetSelectedIndices($listview, True)
    $sItemText = ""
    For $i = 1 To $aItems[0]
    ;Schleifenbeginn 1 da $aItem[0] die Anzahl enhält
    $sItemText &= _GUICtrlListView_GetItemTextString($listview, $aItems[$i]) & @CRLF
    ;ConsoleWrite($sItemText & @CRLF)
    Next ;= > weiter mit For
    ClipPut($sItemText & @CRLF)
    MsgBox(0,"","Jetzt einfach einmal CRTL-V drücken")
    ControlFocus($main,"",$hedit)
    Case $idAllClipmenu
    $sToClip = ""
    For $i = 0 To _GUICtrlListView_GetItemCount($listview)
    $aItem = _GUICtrlListView_GetItemTextArray($listview, $i)
    $sToClip &= $aItem[2] & @CRLF
    Next
    ClipPut($sToClip)
    MsgBox(0,"","Jetzt einfach einmal CRTL-v drücken")
    ControlFocus($main,"",$hedit)
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    Func SaveLV($sFile)
    Local $hFileOut, $aItem
    $hFileOut = FileOpen($sFile, 2)
    For $j = 0 To _GUICtrlListView_GetItemCount($listview2) - 1
    $aItem = _GUICtrlListView_GetItemTextString($listview2, $j)
    FileWriteLine($hFileOut, $aItem)
    Next
    FileClose($hFileOut)
    EndFunc ;==>SaveLV

    Func LoadLV($sFile)
    Local $aItems
    If FileExists($sFile) Then
    _FileReadToArray($sFile, $aItems)
    If IsArray($aItems) Then
    _GUICtrlListView_DeleteAllItems($listview2)
    ;_ArrayDisplay($aItems)
    For $j = 1 To $aItems[0]
    GUICtrlCreateListViewItem($aItems[$j], $listview2)
    Next
    EndIf
    EndIf
    EndFunc ;==>LoadLV


    Func WM_NOTIFY($hWnd, $MsgID, $wParam, $lParam)
    Local $tagNMHDR, $event, $hwndFrom, $code
    $tagNMHDR = DllStructCreate("int;int;int", $lParam)
    If @error Then Return 0
    $code = DllStructGetData($tagNMHDR, 3)
    If $wParam = $listview Then
    ;ConsoleWrite($code & @CRLF)
    Switch $code
    ;case -2 ;Klick
    Case -3 ;Doppelklick
    If _GUICtrlListView_GetSelectedCount($listview) > 0 Then
    For $i = 0 To _GUICtrlListView_GetItemCount($listview)
    If _GUICtrlListView_GetItemSelected($listview, $i) Then
    $aItem = _GUICtrlListView_GetItemTextArray($listview, $i)
    MsgBox(0, "Doppel-Klick auf ", $aItem[1] & @CRLF & @CRLF & $aItem[2])
    EndIf
    Next
    EndIf
    EndSwitch
    EndIf
    Return $GUI_RUNDEFMSG
    EndFunc ;==>WM_NOTIFY

    [autoit][/autoit]

    mfg (Auto)Bert