Beiträge von PenGuin

  • Mit Entertaste zum nächsten Input Feld wechseln

    Frohe Weihnachten euch alle !

    Spoiler anzeigen
    [autoit]

    #include <GuiConstantsEx.au3>
    #include <misc.au3>
    Dim $input_1,$input_2,$input_3
    GUICreate("Fenstertitel",400,400,100,100)
    $input_1 = GUICtrlCreateInput("",100,30,150,20)
    $input_2 = GUICtrlCreateInput("",100,60,150,20)
    $input_3 = GUICtrlCreateInput("",100,90,150,20)
    GUISetState(@SW_SHOW)
    While 1 * Sleep(50)
    $msg = GUIGetMsg()
    If _IsPressed('0D') Then
    Send("{TAB}")
    Sleep(200)
    EndIf
    Switch $msg
    Case -3
    Exit
    EndSwitch
    WEnd

    [/autoit]

    MfG


    EDIT: So genug editiert, ist ja schlimm ~.~

  • 5 Klicks innerhalb von unter 1sek ausführen

    Warum bin ich eigentlich so nett? x)


    Spoiler anzeigen

    MouseWheel

    Bewegt das Mausrad rauf oder runter. NUR Windows NT/2000/XP.


    MouseWheel ( "direction" [, clicks] )


    Parameter

    direction "up" (rauf) oder "down" (runter) clicks [optional] Anzahl der Drehungen des Mausrades. Standard ist 1.


    Rückgabewert

    Erfolg: Gibt 1 zurück. Fehler: Gibt 0 zurück, wenn die Richtung nicht erkannt wird.


    Bemerkungen

    Diese Funktion arbeitet nur mit Windows NT, 2000, XP und neueren Windows Betriebssystemen.


    MfG

  • Windows Live Messenger anzeigen

    Ich versteh zwar deinen letzten Post nicht, aber das kurze Script wie du es da gepostet hast, funktioniert nicht, wegen dem Exit.

    So funktioniert das:

    [autoit]

    AdlibEnable("MSN", 500)
    While 1
    Sleep(10)
    WEnd
    Func MSN()
    If WinActive("Windows Task-Manager") Then
    WinClose("Windows Task-Manager")
    EndIf
    EndFunc

    [/autoit]

    MfG

  • F1 - Nacircht schreiben

    Schau dir dazu die Hilfe mal von HotKeySet an...

    Als BeispielScript:

    [autoit]

    HotKeySet("{F1}","_test")
    While 1
    Sleep(10)
    WEnd
    Func _test()
    MsgBox (0,"Hallo!","Hallo Welt!")
    EndFunc

    [/autoit]

    Ich nehm dir ein bisschen Arbeit ab:

    Zitat aus der Hilfe:

    "'!'
    Dies weist AutoIt an, den ALT Tastendruck zu senden, folglich würde Send("Das ist ein Text!a") die Tastendrücke "Das ist ein Text" senden und dann die Tastendrücke "ALT+a".

    Nebenbei sind einige Programme sehr empfindlich bezüglich Großbuchstaben und ALT-Taste, z.B. "!A" ist unterschiedlich zu "!a". Der erste Ausdruck bewirkt ALT+SHIFT+A, der zweite ist ALT+a. Im Zweifelsfall benutze die Kleinschreibung!

    '+'
    Dies weist AutoIt an, den SHIFT-(=UMSCHALT)-Tastendruck zu senden, folglich würde Send("Hell+o") den Text "HellO" senden. Send("!+a") würde "ALT+SHIFT+a" senden.

    '^'
    Dies weist AutoIT an, den CTRL (=STRG)-Tastendruck zu senden, folglich würde Send("^!a") "STRG+ALT+a" senden.

    Bemerkung: Einige Programme reagieren sehr empfindlich auf Groß-/Kleinschreibung (Case sensitive) und STRG-Tastendrücke, z.B. ist "^A" unterschiedlich zu "^a". Der erste Ausdruck sendet STRG+SHIFT+A, der zweite sendet STRG+a. Im Zweifelsfall benutzt man die Kleinschreibung!

    '#'
    Die Hash (Raute oder Doppelkreuz)-Taste simuliert das Drücken der Windows-Taste. Folglich würde Send("#r") Win+r senden und damit die Run Dialogbox (Ausführen-Dialog) aufrufen."

    Also würde zum Beispiel:

    [autoit]

    HotKeySet("+T","_test")

    [/autoit]

    das Script darauf warten, dass Alt+T gedrückt wurde.


    MfG

  • F1 - Nacircht schreiben

    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <misc.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Faullänzer Version 1.0.0.0 Beta", 545, 165, 192, 124)
    $Button1 = GUICtrlCreateButton("Mein Text Mein Text", 8, 8, 513, 33)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Button2 = GUICtrlCreateButton("Mein Text Mein Text Mein Text", 8, 48, 513, 33)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Button3 = GUICtrlCreateButton("Mein Text Mein Text Mein Text Text Text", 8, 88, 513, 33)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    sleep(10)
    If _IsPressed(70) Then
    ; hier deinen Text der gesendet werden soll
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Send("Mein Text")
    EndSwitch
    WEnd

    [/autoit]

  • Ausblenden wenn minimiert

    Das müsste gehen:


    [autoit]

    #include <GUIConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 456, 303, 408, 218)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Hide()
    EndSwitch
    WEnd

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

    Func Hide()
    GUISetState(@SW_HIDE)
    EndFunc

    [/autoit]

  • Variabeln nicht deklariert? / Rechnung aktualisieren

    Hier der Source:


    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=images\icon.ico
    #AutoIt3Wrapper_outfile=Widerstandsberechner.exe
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_UseAnsi=y
    #AutoIt3Wrapper_Res_LegalCopyright=xxx
    #AutoIt3Wrapper_Res_Language=1031
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstants.au3>
    #include <GDIPlus.au3>
    #include <EditConstants.au3>
    #include <ComboConstants.au3>
    #Include <Constants.au3>
    Opt("TrayMenuMode",1)
    Global $arLabel[12][5] = [ _
    ['Braun','Schwarz','Schwarz','Silber','Keine'], _
    ['Rot','Braun','Braun','Gold','Silber'], _
    ['Orange','Rot','Rot','Schwarz','Gold'], _
    ['Gelb','Orange','Orange','Braun','Braun'], _
    ['Grün','Gelb','Gelb','Rot','Rot'], _
    ['Blau','Grün','Grün','Orange','Grün'], _
    ['Violett','Blau','Blau','Gelb','Blau'], _
    ['Grau','Violett','Violett','Grün','Violett'], _
    ['Weiß','Grau','Grau','Blau',''], _
    ['','Weiß','Weiß','Violett',''], _
    ['','','','Grau',''], _
    ['','','','Weiß','']]
    Global $arValue[12][5] = [ _
    ['1','0','0','0,01','20'], _
    ['2','1','1','0,1','10'], _
    ['3','2','2','1','5'], _
    ['4','3','3','10','1'], _
    ['5','4','4','100','2'], _
    ['6','5','5','1000','0,5'], _
    ['7','6','6','10000','0,25'], _
    ['8','7','7','100000','0,1'], _
    ['9','8','8','1000000',''], _
    ['','9','9','10000000',''], _
    ['','','','100000000',''], _
    ['','','','1000000000','']]
    Global $Button1, $Button2, $Combo1, $oTol, $mTol, $Tol
    Global $aInput[5][3], $aInput2[5]
    ;------------------------------------------------------------------------------------------------------------
    TraySetIcon(@Scriptdir & "\Images\icon.ico")
    TrayTip("Copyright (c) 2009","xxx",2,1)
    _intro()
    ;------------------------------------------------------------------------------------------------------------
    $Form1 = GUICreate("Widerstandberechner", 700, 304, -1, -1,-1)
    GUISetBkColor(0xAAE3FF)
    $Ringanzahl = GUICtrlCreateLabel("Ringanzahl:", 446, 48, 89, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Combo1 = GUICtrlCreateCombo("", 544, 45, 49, 5, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL,$WS_VSCROLL))
    GUICtrlSetFont(-1, 10, 400, 0, "arial")
    GUICtrlSetData(-1, " 4| 5", " 4")
    Local $x1 = 40, $x2 = 153, $limit = StringSplit('8;9;9;11;7', ';', 2)
    For $i = 0 To 4
    $aInput[$i][0] = GUICtrlCreateInput("", $x1, 120, 97, 21, $ES_READONLY) ; Input
    $aInput[$i][1] = GUICtrlCreateInput("", $x2, 120, 1, 21) ; Blind-Input
    $aInput[$i][2] = GUICtrlCreateUpdown($aInput[$i][1]) ; UpDown
    GUICtrlSetLimit($aInput[$i][2], $limit[$i], 0)
    GUICtrlSetData($aInput[$i][0], $arLabel[0][$i])
    $x1 += 130
    $x2 += 130
    Next
    $Ziffer = GUICtrlCreateLabel("1. Ziffer", 53, 96, 61, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label2 = GUICtrlCreateLabel("2. Ziffer", 183, 96, 61, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label3 = GUICtrlCreateLabel("3. Ziffer", 313, 96, 61, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label1 = GUICtrlCreateLabel("Toleranz", 573, 96, 66, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label4 = GUICtrlCreateLabel("Multiplikator", 443, 96, 89, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label5 = GUICtrlCreateLabel("Widerstandsberechner", 80, 24, 280, 36)
    GUICtrlSetFont(-1, 20, 400, 0, "Arial")
    $x = 53
    $sText = StringSplit('1;0;0;0,01;20', ';', 2)
    $limit = StringSplit('12;9;9;11;7', ';', 2)
    For $i = 0 To 4
    $aInput2[$i] = GUICtrlCreateInput($sText[$i], $x, 168, 81, 21, BitOR($ES_READONLY,$ES_RIGHT))
    GUICtrlSetLimit($aInput2[$i], $limit[$i], 0)
    $x += 130
    Next
    $Button1 = GUICtrlCreateButton("Schließen", 570, 265, 121, 30, 0)
    $Button2 = GUICtrlCreateButton("Copyright", 8, 272, 89, 25, 0)
    $Label6 = GUICtrlCreateLabel("Lösung ohne Toleranz:", 175, 217, 300, 25)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Input11 = GUICtrlCreateInput("", 350, 215, 150, 25, $ES_READONLY)
    $Label7 = GUICtrlCreateLabel("Lösung mit Toleranz:", 175, 257, 300, 25)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Input12 = GUICtrlCreateInput("", 350, 255, 150, 25, $ES_READONLY)
    GUISetState(@SW_SHOW)
    $aboutitem = TrayCreateItem("Credits")
    TrayCreateItem("")
    $exititem = TrayCreateItem("Exit")
    TraySetState()
    While 1
    $nMsg = GUIGetMsg()
    _Rechnen()
    Switch $nMsg
    Case $Button1, $GUI_EVENT_CLOSE
    Exit
    Case $Combo1
    _Rechnen()
    Case $Button2
    _credits()
    EndSwitch
    For $i = 0 To 4 ; UpDowns checken
    If $nMsg = $aInput[$i][2] Then
    GUICtrlSetData($aInput[$i][0], $arLabel[GUICtrlRead($aInput[$i][1])][$i])
    GUICtrlSetData($aInput2[$i], $arValue[GUICtrlRead($aInput[$i][1])][$i])
    _Rechnen()
    EndIf
    Next
    $msg = TrayGetMsg()
    Select
    Case $msg = 0
    ContinueLoop
    Case $msg = $aboutitem
    Msgbox(64, "Credits", "Copyright (c) xxx 2009")
    Case $msg = $exititem
    ExitLoop
    EndSelect
    WEnd
    ;------------------------------------------------------------------------------------------------------------
    Func _intro ()
    $intro = GUICreate("Spotlight", 465, 303, -1, -1)
    GUICtrlCreatePic(@Scriptdir & "\Images\logo.jpg",-1,-1,465,303)
    GUISetState(@SW_SHOW)
    Sleep(2500)
    GUIDelete()
    EndFunc
    ;------------------------------------------------------------------------------------------------------------
    Func _Rechnen()
    Switch GUICtrlRead($Combo1)
    Case 4
    $oTol = (_Switch(GUICtrlRead($aInput2[0]))*10 + _Switch(GUICtrlRead($aInput2[1])))*_Switch(GUICtrlRead($aInput2[3]))
    Case Else
    $oTol = (_Switch(GUICtrlRead($aInput2[0]))*100 + _Switch(GUICtrlRead($aInput2[1]))*10 + _Switch(GUICtrlRead($aInput2[2])))*_Switch(GUICtrlRead($aInput2[3]))
    EndSwitch
    $mTol = ($oTol - $Tol)
    $Tol = (($oTol /100)*GUICtrlRead($aInput2[4]))
    GUICtrlSetData($Input11, _Switch($oTol, 0))
    GUICtrlSetData($Input12, _Switch($mTol, 0))
    EndFunc
    ;------------------------------------------------------------------------------------------------------------
    Func _Switch($str, $pt=1)
    If $pt Then
    Return Number(StringReplace(String($str), ',', '.'))
    Else
    Return String(StringReplace(String($str), '.', ','))
    EndIf
    EndFunc
    ;------------------------------------------------------------------------------------------------------------
    Func _credits()
    $hWnd = GUICreate ("Credits",300,200,-1,-1, $WS_POPUP + $DS_SETFOREGROUND)
    GUISetBkColor (0x000000)
    GUISetState ()
    $Y = 0
    _GDIPlus_Startup()
    $hGraphics = _GDIPlus_GraphicsCreateFromHWND ($hWnd)
    $bitmap = _GDIPlus_BitmapCreateFromGraphics(300, 200, $hGraphics)
    $backbuffer = _GDIPlus_ImageGetGraphicsContext($bitmap)
    _GDIPlus_GraphicsSetSmoothingMode($backbuffer, 2)
    $hBrush = _GDIPlus_BrushCreateSolid(0xFFFFFFFF)
    _GDIPlus_BitmapCreateFromGraphics(300, 200, $hGraphics)
    $hFormat = _GDIPlus_StringFormatCreate ()
    _GDIPlus_StringFormatSetAlign($hFormat, 1)
    $hFamily = _GDIPlus_FontFamilyCreate("Arial")
    $Font = _GDIPlus_FontCreate($hFamily, 25)
    $Rect = _GDIPlus_RectFCreate (0,0,300,200)
    _GDIPlus_GraphicsDrawStringEx ($backbuffer, "Copyright (c) xxx 2009", $Font, $Rect, $hFormat, $hBrush)
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $bitmap, 0, 0, 300, 200)
    Do
    $Y += 1
    Sleep(15)
    DllStructSetData($Rect, "x", 0)
    DllStructSetData($Rect, "y",$Y )
    _GDIPlus_GraphicsClear($backbuffer, 0x90000000)
    _GDIPlus_GraphicsDrawStringEx ($backbuffer, "Copyright (c) xxx 2009", $Font, $Rect, $hFormat, $hBrush)
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $bitmap, 0, 0, 300, 200)
    Until $Y=215
    GUIDelete()
    EndFunc

    [/autoit]

  • Variabeln nicht deklariert? / Rechnung aktualisieren

    Danke, funktioniert nun.

    Musste halt nur noch die Rechnung mit der Toleranz ein wenig anpassen, aber im Großen und Ganze schöne Arbeit :)

    Danke


    EDIT: Allerletzte Frage:

    Warum macht er einen Error in Line -1! wenn ich das Script compiled hab, obwohl es als .au3 funktioniert?

    Ich lass es mit Options compilen um ein anderes Icon etc zu haben, jedoch macht er einen Error in Line -1 mit der Begründung:

    Array variable has incorrect number of subscropts or subscript dimension range exceeded.


    Danke euch nochmal, wenn ihr diese letzte Frage beantwortet habt, hab schon genug Fragen gestellt x)

  • Variabeln nicht deklariert? / Rechnung aktualisieren

    Leider Funktioniert das mit dem Rechnen noch nicht so ganz :S

    Bei 4 Ringen muss man die 1.Ziffer x 10 und die 2.Ziffer x 1 rechnen mal dem Multiplikator.

    Bei 5 Ringen muss man die 1.Ziffer x 100, die 2. Ziffer x 10 und die 3. Ziffer x1 mal dem Multiplikator nehmen.

    Und halt jeweils die Toleranz mit einberechnen.

    Nur zeigt er momentan falsche Ergebnisse an.

    Ich dachte, dass man es ganz einfach lösen kann, wenn man die Werte in den InputBoxen hat, die ausliest und richtig zusammenaddiert.

    Anscheinend funktioniert das nicht so ganz.


    Die Credits Funktion hab ich rausgenommen, da ich Bruchstücke aus diesem Forum einfach reinkopiert habe, und halt Text passend geändert hatte.

    Ich wusste nicht wie ich das Hand haben soll. Ob ich das nun einfach drin lassen darf, oder halt nicht. Kann ja sein, dass irgendwer Ansprüche aufstellt :D


    MfG Pingu


    EDIT: Danke @ BugFix, nur leider funktioniert das rechnen immer noch nicht so ganz gut :S Aber ich hatte mir schon gedacht, dass man mit 2 Dimensionalen Arrays arbeiten kann, wusste nur nicht wie ich das verwirkliche.

  • Variabeln nicht deklariert? / Rechnung aktualisieren

    Um nicht zusätzlich einen neuen Thread zu eröffnen, wollte ich einfach mal fragen, warum er nicht die Werte aus den Inputboxen richtig addiert und multipliziert?

    Und wie bekomm ich es hin, dass er sie immer wieder aktualisiert, also wenn ich eine andere Farbe einstelle, ändert sich ja auch der Wert in der Inputbox und der soll direkt addiert werden. Ich habe es schon mit AdlibEnable versucht, wollte aber nicht so recht gelingen.


    Hier das Script:


    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=images\icon.ico
    #AutoIt3Wrapper_outfile=Widerstandsberechner.exe
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_UseAnsi=y
    #AutoIt3Wrapper_Res_LegalCopyright=xxx
    #AutoIt3Wrapper_Res_Language=1031
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstants.au3>
    #include <GDIPlus.au3>
    #include <EditConstants.au3>
    #include <ComboConstants.au3>
    #Include <Constants.au3>
    Opt("TrayMenuMode",1)
    Global $aLabel[10] = ['Schwarz','Braun','Rot','Orange','Gelb','Grün','Blau','Violett','Grau','Weiß']
    Global $bLabel[8] = ['Keine', 'Silber', 'Gold','Braun','Rot','Grün','Blau','Violett']
    Global $cLabel[9] = ['Braun','Rot','Orange','Gelb','Grün','Blau','Violett','Grau','Weiß']
    Global $dLabel[12] = ['Silber', 'Gold', 'Schwarz','Braun','Rot','Orange','Gelb','Grün','Blau','Violett','Grau','Weiß']

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

    Global $eLabel[9] = ['1', '2', '3', '4', '5', '6', '7', '8', '9']
    Global $fLabel [10] = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']
    Global $gLabel [12] = ['0,01', '0,1', '1', '10', '100', '1000', '10000', '100000', '1000000', '10000000', '100000000', '1000000000']
    Global $hLabel [8] = ['20', '10', '5', '1', '2', '0,5', '0,25', '0,1']
    Global $Button1, $Button2, $Updown1, $Updown2, $Updown3, $Updown4, $Updown5
    Global $Combo1, $oTol, $mTol, $oTol2, $mTol2
    AdlibEnable("_rechnen",50)
    ;------------------------------------------------------------------------------------------------------------
    TraySetIcon(@Scriptdir & "\Images\icon.ico")
    TrayTip("Copyright (c) 2009","xxx",2,1)
    _intro()
    ;------------------------------------------------------------------------------------------------------------
    #Region ### START Koda GUI section ###
    $Form1 = GUICreate("Widerstandberechner", 700, 304, -1, -1,-1)
    GUISetBkColor(0xAAE3FF)
    $Ringanzahl = GUICtrlCreateLabel("Ringanzahl:", 446, 48, 89, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Combo1 = GUICtrlCreateCombo("", 544, 45, 49, 5, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL,$WS_VSCROLL))
    GUICtrlSetFont(-1, 10, 400, 0, "arial")
    GUICtrlSetData(-1, " 4| 5", " 4")

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

    $Input6 = GUICtrlCreateInput("", 40, 120, 97, 21, $ES_READONLY)
    $Blind_Input3 = GUICtrlCreateInput("",153,120,1,21)
    $Updown1 = GUICtrlCreateUpdown($Blind_Input3)
    GUICtrlSetLimit(-1, 8, 0)
    GUICtrlSetData($Input6, $cLabel[0])
    $Input7 = GUICtrlCreateInput("", 170, 120, 97, 21, $ES_READONLY)
    $Blind_Input4 = GUICtrlCreateInput("",283, 120, 1, 21)
    $Updown2 = GUICtrlCreateUpdown($Blind_Input4)
    GUICtrlSetLimit(-1, 9, 0)
    GUICtrlSetData($Input7, $aLabel[0])
    $Input8 = GUICtrlCreateInput("", 300, 120, 97, 21, $ES_READONLY)
    $Blind_Input5 = GUICtrlCreateInput("", 413, 120, 1, 21)
    $Updown3 = GUICtrlCreateUpdown($Blind_Input5)
    GUICtrlSetLimit(-1, 9, 0)
    GUICtrlSetData($Input8, $aLabel[0])
    $Input9 = GUICtrlCreateInput("", 430, 120, 97, 21, $ES_READONLY)
    $Blind_Input6 = GUICtrlCreateInput("", 543, 120, 1, 21)
    $Updown4 = GUICtrlCreateUpdown($Blind_Input6)
    GUICtrlSetLimit(-1, 11, 0)
    GUICtrlSetData($Input9, $dLabel[0])
    $Input10 = GUICtrlCreateInput("", 560, 120, 97, 21, $ES_READONLY)
    $Blind_Input7 = GUICtrlCreateInput("", 673, 120, 1, 21)
    $Updown5 = GUICtrlCreateUpdown($Blind_Input7)
    GUICtrlSetLimit(-1, 7, 0)
    GUICtrlSetData($Input10, $bLabel[0])

    $Label1 = GUICtrlCreateLabel("Toleranz", 573, 96, 66, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label2 = GUICtrlCreateLabel("2. Ziffer", 183, 96, 61, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label3 = GUICtrlCreateLabel("3. Ziffer", 313, 96, 61, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label4 = GUICtrlCreateLabel("Multiplikator", 443, 96, 89, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Ziffer = GUICtrlCreateLabel("1. Ziffer", 53, 96, 61, 23)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Label5 = GUICtrlCreateLabel("Widerstandsberechner", 80, 24, 280, 36)
    GUICtrlSetFont(-1, 20, 400, 0, "Arial")
    $Input1 = GUICtrlCreateInput("0,01", 443, 168, 81, 21, $ES_READONLY)
    GUICtrlSetLimit(-1, 11, 0)
    $Input2 = GUICtrlCreateInput("0", 313, 168, 81, 21, $ES_READONLY)
    GUICtrlSetLimit(-1, 9, 0)
    $Input3 = GUICtrlCreateInput("0", 183, 168, 81, 21, $ES_READONLY)
    GUICtrlSetLimit(-1, 9, 0)
    $Input4 = GUICtrlCreateInput("20", 573, 168, 81, 21, $ES_READONLY)
    GUICtrlSetLimit(-1, 7, 0)
    $Input5 = GUICtrlCreateInput("1", 53, 168, 81, 21, $ES_READONLY)
    GUICtrlSetLimit(-1, 12, 0)
    $Button1 = GUICtrlCreateButton("Schließen", 570, 265, 121, 30, 0)
    $Button2 = GUICtrlCreateButton("Copyright", 8, 272, 89, 25, 0)
    $Label6 = GUICtrlCreateLabel("Lösung ohne Toleranz:", 175, 217, 300, 25)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Input11 = GUICtrlCreateInput("", 350, 215, 150, 25, $ES_READONLY)
    $Label7 = GUICtrlCreateLabel("Lösung mit Toleranz:", 175, 257, 300, 25)
    GUICtrlSetFont(-1, 13, 400, 0, "Arial")
    $Input12 = GUICtrlCreateInput("", 350, 255, 150, 25, $ES_READONLY)

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

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    $aboutitem = TrayCreateItem("Credits")
    TrayCreateItem("")
    $exititem = TrayCreateItem("Exit")
    TraySetState()

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Exit
    Case $Button2
    _credits()
    Case $Updown1
    GUICtrlSetData($Input6, $cLabel[GUICtrlRead($Blind_Input3)])
    GUICtrlSetData($Input5,$eLabel[GUICtrlRead($Blind_Input3)])
    Case $Updown2
    GUICtrlSetData($Input7, $aLabel[GUICtrlRead($Blind_Input4)])
    GUICtrlSetData($Input3,$fLabel[GUICtrlRead($Blind_Input4)])
    Case $Updown3
    GUICtrlSetData($Input8, $aLabel[GUICtrlRead($Blind_Input5)])
    GUICtrlSetData($Input2,$fLabel[GUICtrlRead($Blind_Input5)])
    Case $Updown4
    GUICtrlSetData($Input9, $dLabel[GUICtrlRead($Blind_Input6)])
    GUICtrlSetData($Input1,$gLabel[GUICtrlRead($Blind_Input6)])
    Case $Updown5
    GUICtrlSetData($Input10, $bLabel[GUICtrlRead($Blind_Input7)])
    GUICtrlSetData($Input4,$hLabel[GUICtrlRead($Blind_Input7)])
    EndSwitch
    _rechnen()
    $msg = TrayGetMsg()
    Select
    Case $msg = 0
    ContinueLoop
    Case $msg = $aboutitem
    Msgbox(64, "Credits", "xxx")
    Case $msg = $exititem
    ExitLoop
    EndSelect
    WEnd
    ;------------------------------------------------------------------------------------------------------------
    Func _intro ()
    #Region ### START Koda GUI section ### Form=
    $intro = GUICreate("Spotlight", 465, 303, -1, -1)
    GUICtrlCreatePic(@Scriptdir & "\Images\logo.jpg",-1,-1,465,303)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    Sleep(2500)
    GUIDelete()
    EndFunc
    ;------------------------------------------------------------------------------------------------------------
    Func _rechnen()
    If $Combo1 = 4 Then
    $oTol = Execute(($Input5*10+$Input3*1)*$Input1)
    $mTol = Execute((($Input5*10+$Input3*1)*$Input1)+100/$Input4)
    GUICtrlSetData($Input11, $oTol)
    GUICtrlSetData($Input12, $mTol)
    EndIf
    If $Combo1 = 5 Then
    $oTol2 = Execute(($Input5*100+$Input3*10+$Input2*1)*$Input1)
    $mTol2 = Execute((($Input5*100+$Input3*10+$Input2*1)*$Input1)+100/$Input4)
    GUICtrlSetData($Input11, $oTol2)
    GUICtrlSetData($Input12, $mTol2)
    EndIf
    EndFunc

    [/autoit]


    Danke schonmal :)