Beiträge von Andy

  • AutoItObject - OOP für AutoIt

    Hi,

    [autoit]

    Local Static $vStatic

    [/autoit]

    Habe den Thread im engl. Forum bzgl. der statischen Variablen nicht mehr weiter verfolgt, aber soweit ich mich erinnere, sind lt. den Dev´s statische Variablen in AuoIt auch in Zukunft nicht vorgesehen. Kann man nun statische Variablen nutzen ohne die OO-Funktionen einzusetzen (Einbindung der "AutoitObject.au3" vorausgesetzt) ?

  • Größer als 8

    Hallo!
    Das ist wieder mal ein wunderschönes Beispiel für "Usability" in einer GUI, wie sie NICHT sein sollte.
    Wieso gehst du nicht hin und machst eine "Standard"-Größenabfrage, wie sie für Schriften üblich ist?

    Spoiler anzeigen
    [autoit]

    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    $Form1 = GUICreate("Auswahl")
    $Combo1 = GUICtrlCreateCombo("Schriftgröße ", 40, 32, 90, 25)
    GUICtrlSetData(-1, "7 Punkt|6 Punkt|5 Punkt|4 Punkt|3 Punkt|2 Punkt|1 Punkt", "")
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    case $Combo1
    $a=stringleft(guictrlread($combo1),1)
    Msgbox(0,"Schriftgröße",$a,1)

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

    EndSwitch

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

    WEnd

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

  • 3D Rollenspiel

    Zitat

    Hatte mal irrlicht überblickt, aber da scheinen ja kaum funktionen in autoit zu gehen

    Also das was ich in Irrlicht "überblickt" habe (die Demos an sich sind absolut beeindruckend) funktioniert das schonmal ziemlich gut, also ist die "Umgebung" incl aller 3D-Effekte ist nur noch eine Fleißsache oder einfaches copy/paste.
    Wahrscheinlich bist du dir nicht im klaren darüber, daß auch relativ "einfache" MMORPGs mehrere hunderte bis tausende Mannjahre Entwicklung (Grafik & Engines, Story, Texturen usw) beinhalten. Ohne fertige Funktionen, wie sie z.B. Irrlicht bereitstellen, brauchst du garnicht anzufangen, selbst mit 4-5 Leuten siehst du brauchbare Ergebnisse frühestens erst in einigen Monaten.
    Allerdings gibt es doch fix-und fertige Programme, die genau auf deine Anforderungen passen, incl Entwicklungsumgebung und allem drum und dran.
    Als Stichwort werfe ich mal "yofrankie" in dem Raum, damit solltest du fündig werden....

  • Funktionssammlung OpenOffice Calc

    Update der Funktionen, Kleinigkeiten geändert, einige Funktionen hinzugefügt. Demo automatisch ablaufend.
    Kurze Anfrage:
    Sollte man das schon "UDF"-mäßig ausbauen (entsprechende Header und das ganze Fehlerabfang-Brimborium ?)
    Ich würde dann auch die Funktionen noch so ändern, daß die globalen Variablen vermieden werden usw. ggf noch gewünschte Funktionen einbauen.

  • Bitmap versenden

    Hi,
    das handle zur Bitmap bringt dir nichts, du willst doch die Bilddaten übertragen.
    Allerdings hast du ein Problem, und das ist die Datenübertragungsrate deines Netzwerks. Die Übertragung von unkomprimierten Bitmaps (das ist das windowsinterne Format) dauert wesentlich länger als die Speicherung und Übertragung des Screens im (kleineren) JPG-Format!
    Die Größe und Qualität der JPG-Datei kannst beeinflussen mittels

    [autoit]

    _ScreenCapture_SetJPGQuality ()

    [/autoit]

  • Einfacher Einstieg?

    Zitat

    ALso wenn etwas nicht geklappt hat (egal was ) darf es nicht ignoriert weren.

    Probleme löst man nicht, Probleme beseitigt man! Ab ins Nul-Device damit^^

    Spass beiseite, alle internen AutoIt-Funktionen geben in

    [autoit]

    @error

    [/autoit]

    den Status des erfolgreichen Funktionsaufrufs zurück.In der Regel sollte nach jeder Funktion dieser Status abgefragt werden. In deinen eigenen erstellten Funktionen kannst (solltest) du das natürlich auch verwenden!

    [autoit]

    fileread("grmblfx.dat",0)
    if @error then msgbox(0,"Fehler","Datei konnte nicht geöffnet werden!")

    [/autoit]

  • String nach zeichen durchsuchen

    Hi,
    habe einen Vergleich von AutoIt-Funktionen und auch externen dll´s gemacht.
    Die Boyer-Moore.dll (freundlicherweise von einem hiesigen Forenmitglied Namens AspirinJunkie :thumbup: in C erstellt) und die Funktion Findbytes() aus der prospeed.dll sind auch am Start.

    Spoiler anzeigen
    [autoit]

    $post = "Die Vögel singen im Wald abcdefghijklmnopqrstuvwxyz"
    $Pattern = $post
    $pre = ""
    $string = ""
    $hDll = DllOpen("Boyer-Moore.dll")
    $S_DLL = DllOpen("prospeed.dll")

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

    ConsoleWrite(" Stringlänge Suchzeit Boyer-Moore StringInstr FindBytes StringRegExp Stringreplace" & @CRLF)
    For $i = 1 To 18

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

    For $s = 1 To 100
    $string &= Chr(Random(35, 127, 1))
    Next
    $string = StringReplace($string, $post, "") ; $post löschen
    $string &= $string & $post ;string aufpumpen und den $post und ans ende bringen

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

    $t = TimerInit()
    $a1 = BoyerMoore($string, $Pattern, $hDll) ;Boyer-Moore by AspirinJunkie
    $m1 = TimerDiff($t)

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

    $t = TimerInit()
    $a2 = StringInStr($string, $Pattern)
    $m2 = TimerDiff($t)

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

    $t = TimerInit()
    $a3 = _findbytes($string, $Pattern, 0) ;Assemblercode by Frank Abbing
    $m3 = TimerDiff($t)

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

    $t = TimerInit()
    $a = StringRegExp($string, $Pattern)
    $m4 = TimerDiff($t)

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

    $t = TimerInit()
    StringReplace($string, $Pattern, "", 1, 2)
    if @extended then $x=true
    $m5 = TimerDiff($t)

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

    ConsoleWrite(StringFormat(" %10.10s ", StringLen($string)) & _
    StringFormat(" %5.10s ", $m1) & _
    StringFormat(" %5.10s ", $m2) & _
    StringFormat(" %5.10s ", $m3) & _
    StringFormat(" %5.10s ", $m4) & _
    StringFormat(" %5.10s ", $m5) & @CRLF)
    Next

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

    Func BoyerMoore(ByRef $sString, ByRef $sPattern, $hDll = 0)
    Local $aRet = DllCall($hDll, "str", "boyerMoore", "str", $sPattern, "str", $sString)
    If @error Then Return SetError(2, @error, '')
    Return $aRet[0]
    EndFunc ;==>BoyerMoore

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

    Func _findbytes($string_1, $string_2, $count)
    $struct_1 = DllStructCreate("ubyte[" & StringLen($string_1) & "]")
    $struct_2 = DllStructCreate("ubyte[" & StringLen($string_2) & "]")
    DllStructSetData($struct_1, 1, $string_1)
    DllStructSetData($struct_2, 1, $string_2)
    $pos = FindBytes(DllStructGetPtr($struct_1), $count, DllStructGetSize($struct_1), DllStructGetPtr($struct_2), DllStructGetSize($struct_2)) + 1
    ;MsgBox(262144,'Debug line ~' & @ScriptLineNumber,'Selection:' & @lf & '$pos' & @lf & @lf & 'Return:' & @lf & $pos) ;### Debug MSGBOX
    $struct_1 = 0
    $struct_2 = 0
    If $pos = -1 Or $pos = StringLen($string_1) + 1 Then Return 0
    Return $pos
    EndFunc ;==>_findbytes

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

    Func FindBytes($B,$O,$A,$S,$L) ;auszug aus der prospeed.au3
    $S_FindBytes = DllCall($S_DLL, "long", "FindBytes", _
    "long", $B, _
    "long", $O, _
    "long", $A, _
    "long", $S, _
    "long", $L)
    Return $S_FindBytes[0]
    EndFunc

    [/autoit]

    die beiden benötigten dll´s Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    das ganze sieht dann so aus:

    Spoiler anzeigen

    Was man sehr deutlich sieht ist die vernachlässigbar minimale Abweichung der unterschiedlichen Verfahren bei "kleinen" Strings. Ich verwende sehr gerne StringInstr() und überhaupt die AutoIt-Stringbefehle, bin nicht so der RegExp-Fuzzi^^
    Aber bei der Suche in vielen (sehr) großen Dateien ist es ein Unterschied, ob man 10 Minuten auf ein Ergebnis wartet oder nur 1.5 Minuten. Übrigens ist das "alte" DOS-Programm FIND.EXE nur sehr schwer zu toppen (i love it^^)

    AspirinJunkie
    Btw, deine dll bzw der Algorithmus an sich profitiert von der Länge des Suchstrings, je länger der Suchstring, desto schneller.Ein Bekannter von mir sucht große Muster in sehr großen Dateien, ich soll dir bestellen, deine dll sei absolute Spitze und wenn du mal zufällig in Rheinhessen auf einem Weinfest einschlagen solltest sag vorher Bescheid, dann brauchst du dir über die Getränkeversorgung keine Gedanken mehr machen :o)
    In Anlehnung an Beerware haben wir bei uns die SpätleseWare eingeführt, ein sehr gefälliges Lizenzmodell....:)


    /EDIt/ natürlich sieht es anders aus, wenn casesensitiv gesucht wird! Dann ist stringinstr() nicht zu schlagen....

    [autoit]

    StringInStr($string, $Pattern,1) ;Groß- und Kleinschreibung wird berücksichtigt!

    [/autoit]

  • String nach zeichen durchsuchen

    Zitat

    StringReplace könnte interessant werden, wenn man zusätzlich die genau Anzahl der ! im String benötigt

    erstens das und weil es auch die wesentlich schnellere Variante ist.( bei großen Strings bis zu 7x schneller)

    Zitat

    und vor allem weil StringInStr beim ersten Vorkommen die Suche abbricht

    aber nur, wenn man das auch vorschreibt ;)

    [autoit]

    stringinstr($string,"!",0,1)

    [/autoit]