Beiträge von Andy

  • TCP - Datei Laden

    funktioniert einwandfrei, allerdings muss der Rückgabestring gesplittet werden weil er einen header hat.

  • Lottozahlen vergleichen

    ....in einer GUI^^

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <Inet.au3>
    #include <String.au3>
    $body = _INetGetSource("http://www.lotto.de/gewinnzahlen_und_quoten.html")

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

    $filewr = FileOpen(@ScriptDir & "\lotto.txt", 2)

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

    $start = '<span class="zq17"><strong>'
    $end = '</strong></span></td>'

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

    $stringb = _StringBetween($body, $start, $end)
    ;msgbox(0,"Gewinnzahlen",$stringb[0])

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

    If IsArray($stringb) Then
    $stringb = $stringb[0]
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $stringb = ' & $stringb & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
    EndIf

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

    FileWriteLine($filewr, $stringb)

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

    $Zahlen = StringSplit($stringb, ",", 3)
    ;_ArrayDisplay($Zahlen)
    Dim $radio[50]

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

    $gui = GUICreate('Lottozahlen')

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

    $label1 = GUICtrlCreateLabel("Die aktuellen Lottozahlen sind: " & $stringb & @CRLF & "Bitte markieren Sie Ihre getippten Zahlen im unteren Feld:", 10, 10, 300, 70)
    $label2 = GUICtrlCreateLabel("Sie haben 0 Richtige!", 10, 370, 300, 50)
    For $x = 0 To 6
    For $y = 1 To 7
    $radio[$x * 7 + $y] = GUICtrlCreateCheckbox($x * 7 + $y, ($y - 1) * 40 + 10, $x * 40 + 60, 35, 35, $BS_pushlike)
    Next
    Next

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

    GUISetState()
    $anzahlrichtige = 0
    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $radio[1] To $radio[49]
    For $richtig In $Zahlen
    If $msg - $radio[1] + 1 = $richtig Then
    $anzahlrichtige += 1
    GUICtrlSetData($label2, "Sie haben " & $anzahlrichtige & " Richtige!")
    Sleep(100)
    EndIf
    Next
    EndSwitch
    WEnd
    #EndRegion

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

    ;~ sleep(600)
    ;~ $body2 = _INetGetSource ("http://www.lotto.de/gewinnzahlen_und_quoten.html")
    ;~ ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $body2 = ' & $body2 & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

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

    ;~ $filewr2 = FileOpen(@ScriptDir & "\lotto.txt", 1)

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

    ;~ $start2 = 'ZZ: '
    ;~ $end2 = ' '
    ;~ $stringb2 = _StringBetween($body2,$start2,$end2)
    ;~ ;msgbox(0,"Gewinnzahlen",$stringb2[0])

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

    ;~ If IsArray( $stringb2 ) Then
    ;~ $stringb2 = $stringb2[0]
    ;~ EndIf

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

    ;~ FileWriteLine( $filewr2, $stringb2 )
    ;~ ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $stringb2 = ' & $stringb2 & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

    [/autoit]

    /*EDIT*/ gespoilert und noch eine Frage, wie kann man die "gedrückten" checkbox"buttons" farblich ändern?

  • z.B. "mailto:" mit Script verlinken

    Zitat

    Dummerweise sind es andere Arrays, jenachdem, ob man IE oder FF benutzt.

    dann frag doch den Standardbrowser ab...

    [autoit]

    Func FindPathToDefaultBrowser() ;findet den vollen Pfad zum Standardbrowser
    Local $RegLocation = RegRead("HKEY_CLASSES_ROOT\" & ".html", "")
    Local $RegLoc = RegRead("HKEY_CLASSES_ROOT\" & $RegLocation & "\Shell\Open\command", "")
    $RegLoc = StringMid($RegLoc, 2, StringInStr($RegLoc, '"', 0, 2) - 2)
    If $RegLoc = "" Then
    MsgBox(262144, "Fehler!", "Der Pfad zum in Windows installierten Standardbrowser konnte nicht ermittelt werden!" & @CRLF & "Bitte installieren sie einen Browser oder teilen Sie dem System den Standardbrowser mit." & @CRLF & "Das Programm wird beendet!")
    _GUIClose()
    Else
    Return SetError(@error, 0, $RegLoc)
    EndIf
    EndFunc ;==>FindPathToDefaultBrowser

    [/autoit]

  • FTP Dateien auslesen

    [autoit]

    $dirlist = _FTPFilesListTo2DArray ($connection,0,0x80000000)

    [/autoit]

    Probiere das mal, mit dem so angegebenen 3. Parameter werden die Daten nicht aus dem Cache gelesen, sondern direkt vom Server angefordert. Bei Änderungen von Daten auf dem Server hat man so immer den aktuellen Stand.

    Zitat

    Also schafft er das For $i = 1 to UBound nicht. Warum?

    Weil du weder Fehler richtig abfragst noch richtig auswertest!

    [autoit]

    _FTPConnect($open,$server,$username,$password)

    [/autoit]

    Connectet und gibt dir einen Identifier zurück der aber nicht in eine Variable geschrieben wird......In der nächsten Zeile könntest du das abfangen, aber

    [autoit]

    if(@error) Then

    [/autoit]

    bringt nix, weil ....._FTPConnect() bei Erfolg ja keinen Fehler ausgibt.....
    Da du auch wahrscheinlich kein

    [autoit]


    Opt("MustDeclareVars", 1)

    [/autoit]

    in deinem Script hast (ansonsten hätte es eine Fehlermeldung wegen der noch nicht definierten Variable $connection bei _FTPFilesListToArray($connection) gegeben ;) ) , würde ich das nachholen.

    so sollte es hinhauen:

    [autoit]

    #include <FTP_Ex.au3>

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

    Case $connect
    If ($server = "" Or $username = "" Or $password = "") Then
    MsgBox(1, "Error", "Server, Username oder Password wurde nicht angegeben.")
    FileWriteLine($log, $uhrzeit & "Server, Username oder Password wurde nicht angegeben." & @CRLF)
    Else
    $connection = _FTPConnect($open, $server, $username, $password)
    If $connect = 0 Then
    FileWriteLine($log, $uhrzeit & "Bei der Verbindung zu " & $server & " trat der Fehler Nummer " & @error & " auf." & @CRLF)
    Else
    FileWriteLine($log, $uhrzeit & "Verbindung erfolgreich hergestellt zu " & $server & @CRLF)
    EndIf
    EndIf

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

    Local $dirlist = _FTPFilesListToArray($connection,0,0x80000000)
    If IsArray($dirlist) Then ;nur wenn Dateien/verzeichnisse gelesen wurden
    FileWriteLine($log, $uhrzeit & "Testeintrag nach $dirlist" & @CRLF)
    For $i = 1 To UBound($dirlist) - 1
    FileWriteLine($log, $uhrzeit & "Testeintrag nach For-Schleifenbeginn" & @CRLF)
    GUICtrlSetData($dateienserver[$i], $dirlist[$i] & "|")
    FileWriteLine($log, $uhrzeit & "Testeintrag nach Listeneintrag" & @CRLF)
    Next
    Else
    FileWriteLine($log, $uhrzeit & "Daten im angegebenen Verzeichnis nicht lesbar" & @CRLF)
    EndIf

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

    Wenn du Informationen zu den Rückgabewerten der Funktionen haben willst, dann schau sie dir doch einfach an! In Scite den Cursor auf den Funktionsnamen und dann CTRL+j und schon bist du in der UDF an der richtigen Stelle....mit CTRL+SHIFT+j gehts wieder zurück ins Script.
    Alternativ können Mausschubser auch im Extras-Menü nach "Jump to Function Prod" manövrieren und da draufklicken.

  • Warum geht das Nicht - Hat Autoit fehler?

    habs mal mit Ausgabe jeder Zeile durchlaufen lassen.....und bin dann drauf gekommen, daß deine Abfrage

    [autoit]

    If ($animator_array[$i][0] = $animator_array[$i][9]) Or ($animator_array[$i][3] = $animator_array[$i][9]) Then ; Wenn Start- oder Zielpunkt erreicht wurden.

    [/autoit]

    nur für pythagoräische Dreiecke (ganze Zahlen als Distanz) gilt. Um auch mal andere Vektoren zu testen, habe ich = durch >= und <= ersetzt.....und nun läuft es! Der "Fehler" wird zwar falsch angezeigt, aber schon im nächsten Schleifendurchgang "neutralisiert". Schaut es euch an.....

    [autoit]

    #include <Array.au3>
    #include <Misc.au3>

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

    Global $animator_array

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

    animator_add(0, 0, 0, 3, 4, 0, 2,True)
    ;animator_add(0, 0, 0, 12, 5, 0, 2,True) ;ersatzweise testen, distanz = 13
    ;animator_add(0, 0, 0, 5, 6, 0, 2,True) ;funktioniert auch......

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

    While True
    zeichne_particle()
    ; MouseMove($animator_array[0][9],$animator_array[0][10],100)
    Sleep(500)
    If _IsPressed(01) Then _ArrayDisplay($animator_array)
    If _IsPressed(02) Then Exit
    ToolTip($animator_array[0][9] & @LF & $animator_array[0][10] & @LF & $animator_array[0][11])
    WEnd

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

    Exit

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

    Func animator_add($x, $y, $z, $tx, $ty, $tz, $speed, $circle)

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

    Local $ubound = UBound($animator_array)

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

    If IsArray($animator_array) Then
    ReDim $animator_array[$ubound + 1][13]
    Else
    Dim $animator_array[$ubound + 1][13]
    EndIf

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

    $animator_array[$ubound][0] = $x ; X Startpunkt
    $animator_array[$ubound][1] = $y ; Y Startpunkt
    $animator_array[$ubound][2] = $z ; Z Startpunkt
    $animator_array[$ubound][3] = $tx ; X Zielpunkt
    $animator_array[$ubound][4] = $ty ; Y Zielpunkt
    $animator_array[$ubound][5] = $tz ; Z Zielpunkt
    Local $distanz = Sqrt(($tx-$x)*($tx-$x) + ($ty-$y)*($ty-$y) + ($tz-$z)*($tz-$z)) ; Distanz
    $animator_array[$ubound][6] = ($tx - $x) / $distanz ;X Vector
    $animator_array[$ubound][7] = ($ty - $y) / $distanz ;Y Vector
    $animator_array[$ubound][8] = ($tz - $z) / $distanz ;Z Vector
    $animator_array[$ubound][9] = $x ; X Position
    $animator_array[$ubound][10] = $y ; Y Position
    $animator_array[$ubound][11] = $z ; Z Position
    $animator_array[$ubound][12] = $circle

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

    Return $ubound

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

    EndFunc

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

    Func zeichne_particle()

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

    For $i = 0 To UBound($animator_array) - 1 Step 1

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

    $animator_array[$i][9] += $animator_array[$i][6] ; X Bewegung
    $animator_array[$i][10] += $animator_array[$i][7] ; Y Bewegung
    $animator_array[$i][11] += $animator_array[$i][8] ; Z Bewegung
    If ($animator_array[$i][0] >= $animator_array[$i][9]) Or ($animator_array[$i][3] <= $animator_array[$i][9]) Then ; Wenn Start- oder Zielpunkt erreicht wurden.
    If $animator_array[$i][12] = False Then
    MsgBox(0,"","")
    particle_delete_effect($i)
    $i -= 1
    Else
    MsgBox(0,"","")
    $animator_array[$i][6] = -$animator_array[$i][6]
    $animator_array[$i][7] = -$animator_array[$i][7]
    $animator_array[$i][8] = -$animator_array[$i][8]
    EndIf
    EndIf

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

    Next

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

    EndFunc

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

    Func particle_delete_effect($num)
    _ArrayDelete($animator_array, $num)
    EndFunc

    [/autoit]

  • c#(break:) in autoit?

    ahhhh, langsam wirds hell.....

    Zitat

    also ist es wohl doch nicht so unsinnig wie du glaubst

    Dein Script im Startpost hat das :BREAK an einer missverständlichen Position! Nicht umsonst sollte man die Einrückungen nutzen :D

    [autoit]

    While 1
    Switch $var
    Case 1
    ;blub
    Case 2
    ;blub
    ContinueCase ;soooooo ist das fein und verständlich dargestellt ;)
    ;blub 2 das ist wiederum völlig unverständlich.....
    case 3
    ;blup
    EndSwitch
    WEnd

    [/autoit]

    und wieder verstehe ich das blub2 nach dem continuecase nicht^^

    /*EDIT*/

    [autoit]

    While 1
    Switch $var
    Case 1
    ;blub
    Case 2
    ;blub
    If $x=True then ContinueCase ;soooooo ist das fein und verständlich dargestellt ;)
    ;blub 2 macht in dem Kontext dann auch wieder sinn ;)
    case 3
    ;blup
    EndSwitch
    WEnd

    [/autoit]

  • Variable Funktionen!?

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    Opt('GUIOnEventMode', 1)
    Dim $Blg[19]
    dim $b[19]
    $gui=guicreate("",300,300)

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

    $m=-1
    For $k = 0 to 18 Step + 1

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

    if $k <> 5 AND $k <> 9 AND $k <> 12 AND $k <> 14 Then
    $m+=1
    $Blg[$m] = GUICtrlCreateButton($b[$m], 40, 40 + $m * 14, 129, 15, $WS_GROUP)
    GUICtrlSetOnEvent(-1, "_do")
    GuiCtrlSetState(-1,$GUI_ONTOP)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    EndIf
    Next

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

    guisetstate()

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

    do
    until 0

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

    func _do()
    msgbox (0,@GUI_CtrlId,"button nr. "&@GUI_CtrlId-$blg[0])
    endfunc

    [/autoit]

    so?

  • c#(break:) in autoit?

    Hallo,
    bei dieser Frage fehlt mir ehrlich gesagt der tiefere Sinn...
    a) genanntes Scriptbeispiel: völlig unsinnig, denn da der letzte Ausdruck sowieso nie erreicht werden soll, lässt man ihn gleich ganz weg.
    b) Abfangen mitten in der Case-Sequenz: wenn mitten in der Sequenz der Rest übersprungen werden soll, dann ist das Script so wie a) s.o.
    Ergo ist die Abfrage an sich unsinnig. Was allerdings Sinn macht ist ein Case else, wenn das nicht hilft, dann sollte man sich grundlegend fragen ob Switch die richtige Funktion ist um die Bedingungen abzufragen. Da gibts ja glücklicherweise noch mehr :D

  • Variable Funktionen!?

    schau mal hier, so kann man es lösen. Ich schreibe ggf zu diesen variablen Sequenzen (Array of Buttons/Radios usw) gerne mal ein TUT.

    nur zur kurzen Erklärung, der Ausdruck ($i>10) liefert für alle $i>10 EINS und ansonsten NULL

    für 2 Spalten a 15 Checkboxen

    [autoit]

    For $i = 1 To 30
    $pc[$i] = GUICtrlCreateCheckbox($i, 10 + (($i > 15) * 40), 30 + ($i - (($i > 15) * 15)) * 20)
    Next

    [/autoit]


    für 3 Spalten a 10 Checkboxen

    [autoit]

    For $i = 1 To 30
    $pc[$i] = GUICtrlCreateCheckbox($i, 10 + ((($i > 10)+($i>20)) * 40), 30 + ($i - (($i > (($i>20)+1)*10) * (($i>20)+1)*10)) * 20)
    Next

    [/autoit]


    nicht vergessen DIM anzupassen

  • Automatische Variablennamen

    Nur ein Beispiel, wie man eine Variable Anzahl Buttons verwalten kann. Alternativ über die GUICtrlSetOnEvent-Funktion und die Verwendung von @Gui_CtrlID

    Spoiler anzeigen
    [autoit]


    $numberofbuttons = 24 ;number from 1 to 30
    Dim $buttoncontrolID[$numberofbuttons + 1]

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

    GUICreate("test")
    For $i = 1 To $numberofbuttons ;we make an array of buttons
    $buttoncontrolID[$i] = GUICtrlCreateButton(" Button " & $i, 10 + ((($i > 10) + ($i > 20)) * 100), 30 + ($i - (($i > (($i > 20) + 1) * 10) * (($i > 20) + 1) * 10)) * 30,85,30)
    Next
    $somethingbutton=guictrlcreatebutton("do something ",310,30,80,30 )

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

    ;here you could give the buttons an other text or color
    guictrlsetdata($buttoncontrolID[1] ,"Push!")
    GUICtrlSetColor($buttoncontrolID[1],0xFF00FF)
    guictrlsetdata($buttoncontrolID[13],"Push ME!")
    GUICtrlSetColor($buttoncontrolID[13],0x000FFF)
    guictrlsetdata($buttoncontrolID[17],"Push ME TOO!")
    GUICtrlSetColor($buttoncontrolID[17],0xFF0000)

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

    GUISetState()

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

    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case -3 ;exit is pressed
    Exit
    case $somethingbutton
    Msgbox (0,"","Button do something is pressed")

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

    Case $buttoncontrolID[1] To $buttoncontrolID[$numberofbuttons] ;one of the "array"-Buttons is pressed
    call ("_arraybutton_"&($numberofbuttons-($buttoncontrolID[$numberofbuttons]-$msg))) ;names oft the functions are _arraybutton_1() _arraybutton_2().....
    If @error = 0xDEAD And @extended = 0xBEEF Then MsgBox(4096, "ERROR", "Function "&"_arraybutton_"&($numberofbuttons-($buttoncontrolID[$numberofbuttons]-$msg))&" does not exist!")
    EndSwitch
    WEnd

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

    ;*******************functions********************************
    func _arraybutton_1()
    msgbox(0,"_arraybutton_"&($numberofbuttons-($buttoncontrolID[$numberofbuttons]-$msg)),"arraybutton pressed: "&GUICtrlRead($msg))
    endfunc
    ;
    ; here are the funcs of the buttons
    ;
    ;
    func _arraybutton_13()
    msgbox(0,"_arraybutton_"&($numberofbuttons-($buttoncontrolID[$numberofbuttons]-$msg)),"arraybutton pressed: "&GUICtrlRead($msg))
    endfunc

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

    func _arraybutton_17()
    msgbox(0,"_arraybutton_"&($numberofbuttons-($buttoncontrolID[$numberofbuttons]-$msg)),"arraybutton pressed: "&GUICtrlRead($msg))
    endfunc

    [/autoit]

  • String durchsuchen

    Zitat

    Soweit ich das verstanden habe, wird sie solange ausgeführt bis $element im $array vorkommt? Mit der Ergebnis, einer Ausführung der MsgBox?

    Klick mal auf das "FOR" im Script, und dann statt auf das FOR...TO auf FOR..IN Da stehts recht ausführlich.
    Es wird das gesamte Array Element für Element durchgegangen. Man könnte schreiben

    [autoit]

    For $i=0 to ubound($array)-1
    $element=$array[$i]
    if stringinstr($element,$suche1) or stringinstr($element,$suche2) then msgbox(0,"Gefunden",$element)
    next

    [/autoit]

  • Automatische Variablennamen

    [autoit]

    $Button[$j]

    [/autoit]

    Das ist ein Array^^. Aber der Ansatz ist ja genu richtig. Wenn du schon vorher weisst wieviele Buttons du erstellen willst, dann ist das auch kein Problem

    [autoit]

    $sektionen = IniReadSectionNames(@MyDocumentsDir & "\versionswitcher.ini")

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

    $k = 0
    dim $button[$sektionen[0]+1]
    For $j = 1 To $sektionen[0]
    $Button[$j] = GUICtrlCreateButton($sektionen[$j], ($i-1)*96, 56, 89, 25, 0)
    Next

    [/autoit]

    /*EDIT*/ wieder mal der langsamste, dafür hat SEuBo falsch DIMensioniert :P

  • String durchsuchen

    Zitat

    da dieser zwischen "USER" und "USER" zwischen zwei Usern festhängt.

    Das ist doch optimal, alles was zwischen User1 und User2 steht kannst du nach deinem Suchstring durchsuchen.

    [autoit]

    #include <Array.au3>

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

    $suche1="Applikation_B"
    $suche2="Applikation_X"

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

    $file=fileopen("user.txt",0)

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

    $data=fileread($file)
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $data = ' & $data & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

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

    $array=stringsplit($data,"User:",3)
    _arraydisplay($array)

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

    for $element in $array
    if stringinstr($element,$suche1) or stringinstr($element,$suche2) then msgbox(0,"Gefunden",$element)
    next

    [/autoit]

    folgende Datei "user.txt" wurde verwendet.

    Spoiler anzeigen


    Soll das das Ergebnis sein?
    Natürlich kannst du die Ausgabe noch verfeinern, aber mir gings erstmal darum ob das Problem so gelöst wurde...

  • Formeln lösen per Autoit?

    Spoiler anzeigen
    [autoit]

    ; Utilty that utilizes Newton's method to find solutions to equations
    ; See http://en.wikipedia.org/wiki/Newton%27s_method for an explanation of the math.
    ; by Diego Hernandez < d (dot) hernandez 0 9 at g mail >

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

    #include <Array.au3>
    #include <String.au3>

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

    HotKeySet ("{ESC}", "Terminate") ; press ESC to emergency-exit

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

    Local $expression = InputBox ("Enter equation", "E.g. x^2=16", "x^2=16") ; make sure you use * to multiply
    If @error Then Exit

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

    $expression = "&" & $expression & "&"
    $right_side = _StringBetween ($expression, "=", "&")
    $left_side = _StringBetween ($expression, "&", "=")
    $expression = $left_side[0] & " - (" & $right_side[0] & ")" ; one side of the equation is now 0; now apply Newton's method.

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

    Local $x_guesses_array[2] ; every 2000 iterations (this is more than enough in many cases) the program will compare
    ; the values for the root and if it has converged enough, it will display the answer in a MsgBox.
    $x_guess = Number(InputBox ("Enter approximation for root", "Enter a guess reasonably close to the root so Newton's method can converge properly. Thank you!","1"))
    ; The program will find the root closest to your initial guess. If it is complex, it will enter into an infinite cycle.
    $c = 0

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

    While 1
    $x_guess = $x_guess - (_Fx($expression, $x_guess)/_SlopeOfTangent($expression, $x_guess))
    ; see http://en.wikipedia.org/wiki/Newton%27s_method for an explanation of the math behind Newton's method
    $c +=1
    If IsInt ($c/1000) = 1 and IsInt ($c/2000) = 0 Then
    $x_guesses_array[0] = $x_guess
    $x_guesses_array[1] = 0
    EndIf
    If IsInt ($c/2000) Then
    ; every 2000 iterations, the program will compare its current x value with the x-value stored from the previous 1000th iteration.
    ; if they are close enough, the root has been sufficiently determined. It will ExitLoop and display the root.
    $x_guesses_array[1] = $x_guess
    ; _ArrayDisplay ($x_guesses_array)
    If Abs($x_guesses_array[1] - $x_guesses_array[0]) < 0.001 Then ExitLoop
    EndIf
    If $c >= 10000 Then
    MsgBox (0, "Message", "You have reached a complex root or other weird occurrence. Please try again with a different initial guess. Thank you!")
    Exit ; I have tried to make it user-friendly
    EndIf
    WEnd

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

    MsgBox (0, "Solution", Round($x_guess, 4))

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

    Func Terminate ()
    Exit
    EndFunc

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

    Func _SlopeOfTangent($expr, $at_point, $var = "x", $places=4)
    Local $dx = 0.00000001
    Local $x = $at_point
    Local $y = $x + $dx
    Local $slope = Execute(StringReplace($expr,$var,"$y")) - Execute(StringReplace($expr,$var,"$x"))
    Return Round($slope/$dx,$places)
    EndFunc ;_SlopeOfTangent()==>

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

    Func _Fx ($expr, $at_point)
    Return Execute (StringReplace($expr, "x", "$at_point"))
    EndFunc

    [/autoit]

    gefunden im englischen forum....