1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Wambo

Beiträge von Wambo

  • [C“ 2013] The winners!

    • Wambo
    • 3. März 2013 um 20:29

    Freut mich, dass euch meine Idee gefallen hat. ;)

    Ich dachte mir schon, dass es vielleicht zu Problemen kommen kann wenn die Fensterbreite des Editors zu gering ist oder irgendetwas nicht den Standardeinstellungen entspricht.

    Das Icon-Ninja Spiel find ich ziemlich gut und Tetris hat mich auch überzeugt. Ich hatte keinerlei Probleme beim Ausführen, lief alles super.

    mfg Wambo

  • Der von nebenan stellt sich vor ^^

    • Wambo
    • 20. Januar 2012 um 17:41
    Zitat von morphesus

    chip :: Keine Sorge, ich wurde gesperrt, weil ich mich an die Forumsregeln gehalten habe ;)

    Wenn du das sagst, dann isses so!

    Lg morph 8)

    Ich weis, dass es eine recht lange Vorgeschichte gab. Mir nun aber hinterrücks vorzuwerfen ich hätte völlig grundlos eingegriffen finde ich unverschämt.
    Du weist selbst am besten, was du geschrieben hast.

    Das wollte ich nur noch gesagt haben!

  • Der von nebenan stellt sich vor ^^

    • Wambo
    • 20. Januar 2012 um 02:30

    Hi Morph,

    ich hoffe du hast hier mehr Glück und wünsche dir auf jeden Fall viel Spaß und Glück in deinem weiteren Leben.
    Morph ist echt ein netter, und es hat mich gefreut mit dir an Projekten wie Albion gearbeitet zu haben.

    liebste Grüße,
    Wambo (der Admin des Forums, um das es hier geht)

    PS: Und das war nun keineswegs ironisch gemeint!

  • Verbot von werbung für bot Foren

    • Wambo
    • 4. Juli 2008 um 15:14

    Ich melde mich hier auch mal zu Wort,

    1. Ich respektiere es, dass ihr euch gegen Bots ausgesprochen habt und habe deshalb auch nachdem peethebee mich angesprochen hat, den Link entfernt.
    2. Man könnte hier evtl. falsch verstehen, nämlich sind Bots erst bei Benutzung in Spielen die es per AGB (o.ä) verbieten, verboten.
    3. Will durch mein Projekt keinen Streit bzw. Verfeindung zwischen AutoIt - Mitgliedern und AutoItBot - Mitgliedern anzetteln, hoffe ihr seht das hier genauso.

  • Groupbox - Textfarbe ändern

    • Wambo
    • 3. Juli 2008 um 17:49

    Starte mal das Script... man verändert die Farbe zwar aber sobald man es gestartet hat ist die Farbe immernoch blau.

  • Groupbox - Textfarbe ändern

    • Wambo
    • 3. Juli 2008 um 17:45

    Hmm, ja du hast Recht. Das bleibt bei mir auch immernoch blau. ?(

  • Mit dem Computer reden xDD

    • Wambo
    • 2. Juli 2008 um 00:07

    Ich denke mal so in der Art muss das aussehen mit _IsPressed:

    Spoiler anzeigen
    [autoit]

    While 1
    Sleep(80)
    If _IsPressed(41) Then
    _LogKeyPress("a")
    EndIf

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

    If _IsPressed(42) Then
    _LogKeyPress("b")
    EndIf

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

    If _IsPressed(43) Then
    _LogKeyPress("c")
    EndIf

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

    If _IsPressed(44) Then
    _LogKeyPress("d")
    EndIf

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

    If _IsPressed(45) Then
    _LogKeyPress("e")
    EndIf

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

    If _IsPressed(46) Then
    _LogKeyPress("f")
    EndIf

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

    If _IsPressed(47) Then
    _LogKeyPress("g")
    EndIf

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

    If _IsPressed(48) Then
    _LogKeyPress("h")
    EndIf

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

    If _IsPressed(49) Then
    _LogKeyPress("i")
    EndIf

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

    If _IsPressed('4a') Then
    _LogKeyPress("j")
    EndIf

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

    If _IsPressed('4b') Then
    _LogKeyPress("k")
    EndIf

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

    If _IsPressed('4c') Then
    _LogKeyPress("l")
    EndIf

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

    If _IsPressed('4d') Then
    _LogKeyPress("m")
    EndIf

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

    If _IsPressed('4e') = 1 Then
    _LogKeyPress("n")
    EndIf

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

    If _IsPressed('4f') Then
    _LogKeyPress("o")
    EndIf

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

    If _IsPressed(50) Then
    _LogKeyPress("p")
    EndIf

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

    If _IsPressed(51) Then
    _LogKeyPress("q")
    EndIf

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

    If _IsPressed(52) Then
    _LogKeyPress("r")
    EndIf

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

    If _IsPressed(53) Then
    _LogKeyPress("s")
    EndIf

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

    If _IsPressed(54) Then
    _LogKeyPress("t")
    EndIf

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

    If _IsPressed(55) Then
    _LogKeyPress("u")
    EndIf

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

    If _IsPressed(56) Then
    _LogKeyPress("v")
    EndIf

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

    If _IsPressed(57) Then
    _LogKeyPress("w")
    EndIf

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

    If _IsPressed(58) Then
    _LogKeyPress("x")
    EndIf

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

    If _IsPressed(59) Then
    _LogKeyPress("y")
    EndIf

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

    If _IsPressed('5a') Then
    _LogKeyPress("z")
    EndIf

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

    If _IsPressed('01') Then
    _LogKeyPress("|LeftMouse|")
    EndIf

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

    If _IsPressed('02') Then
    _LogKeyPress("|RightMouse|")
    EndIf

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

    If _IsPressed('08') Then
    _LogKeyPress("|BackSpace|")
    EndIf

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

    If _IsPressed('09') Then
    _LogKeyPress("|Tab|")
    EndIf

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

    If _IsPressed('0d') Then
    _LogKeyPress("|Enter|")
    EndIf

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

    If _IsPressed('10') Then
    _LogKeyPress("|Shift|")
    EndIf

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

    If _IsPressed('11') Then
    _LogKeyPress("|STRG|")
    EndIf

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

    If _IsPressed('12') Then
    _LogKeyPress("|ALT|")
    EndIf

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

    If _IsPressed('13') Then
    _LogKeyPress("|Pause|")
    EndIf

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

    If _IsPressed('14') Then
    _LogKeyPress("|Capslock|")
    EndIf

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

    If _IsPressed('1b') Then
    _LogKeyPress("|Escape|")
    EndIf

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

    If _IsPressed('20') Then
    _LogKeyPress("|Leertaste|")
    EndIf

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

    If _IsPressed('21') Then
    _LogKeyPress("|PageUp|")
    EndIf

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

    If _IsPressed('22') Then
    _LogKeyPress("|PageDown|")
    EndIf

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

    If _IsPressed('23') Then
    _LogKeyPress("|End|")
    EndIf

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

    If _IsPressed('24') Then
    _LogKeyPress("|Home|")
    EndIf

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

    If _IsPressed('25') Then
    _LogKeyPress("|Pfeil-links|")
    EndIf

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

    If _IsPressed('26') Then
    _LogKeyPress("|Pfeil-hoch|")
    EndIf

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

    If _IsPressed('27') Then
    _LogKeyPress("|Pfeil-rechts")
    EndIf

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

    If _IsPressed('28') Then
    _LogKeyPress("|Pfeil-runter|")
    EndIf

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

    If _IsPressed('2c') Then
    _LogKeyPress("|PrintScreen|")
    EndIf

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

    If _IsPressed('2d') Then
    _LogKeyPress("|Insert|")
    EndIf

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

    If _IsPressed('2e') Then
    _LogKeyPress("|DEL|")
    EndIf

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

    If _IsPressed('30') Then
    _LogKeyPress("0")
    EndIf

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

    If _IsPressed('31') Then
    _LogKeyPress("1")
    EndIf

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

    If _IsPressed('32') Then
    _LogKeyPress("2")
    EndIf

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

    If _IsPressed('33') Then
    _LogKeyPress("3")
    EndIf

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

    If _IsPressed('34') Then
    _LogKeyPress("4")
    EndIf

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

    If _IsPressed('35') Then
    _LogKeyPress("5")
    EndIf

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

    If _IsPressed('36') Then
    _LogKeyPress("6")
    EndIf

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

    If _IsPressed('37') Then
    _LogKeyPress("7")
    EndIf

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

    If _IsPressed('38') Then
    _LogKeyPress("8")
    EndIf

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

    If _IsPressed('39') Then
    _LogKeyPress("9")
    EndIf

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

    WEnd

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

    Func _LogKeyPress($keycheck)
    $pressedkey &= $keycheck
    EndFunc

    [/autoit]
  • UDF - PixelSearchExtended (PSExtened.au3)

    • Wambo
    • 27. Juni 2008 um 23:33

    Hier eine (vorerst gaanz) kleine UDF. Werde sie noch weiter ausbauen.
    Es macht einen PixelSearch um einen Bereich des Mauszeigers. Die Größe des Bereichs ist nach belieben einstellbar.
    Mehr siehe in PSExtended.au3

    Changelog: (Aktuelle Version: 1.0.0)

    Platzhalter

    PSExtended.au3:

    Spoiler anzeigen
    [autoit]

    #include-once
    ; #FUNCTION# ;===============================================================================
    ;
    ; Name...........: _PixelSearchAroundMouse
    ; Description ...: Searches a rectangle of pixels around the current Mouse-Position for the
    ; pixel color provided.
    ; Syntax.........: _PixelSearchAroundMouse($vwidth, $vheight, $vcolor, $vvariation, $vstep)
    ; Parameters ....: $vwidth = Width of retangle around current Mouse-Position.
    ; $vheight = Width of retangle around current Mouse-Position.
    ; $vcolor = Colour value of pixel to find (in decimal or hex).
    ; $vvariation = [optional] A number between 0 and 255 to indicate the
    ; allowed number of shades of variation of the red, green, and
    ; blue components of the colour. Default is 0 (exact match).
    ; $vstep = [optional] Instead of searching each pixel use a value larger
    ; than 1 to skip pixels (for speed). E.g. A value of 2 will
    ; only check every other pixel. Default is 1.
    ; Return values .: Success: $apspos = A two-element array of pixel's coordinates. ($apspos[0] = x, $apspos[1] = y)
    ; Failure: Sets @error to 1 if color is not found.
    ;
    ; Author ........: Nico Ell (Wambo)
    ; Modified.......:
    ; Remarks .......:
    ; Related .......:
    ; Link ..........;
    ; Example .......;
    ;
    ; ;==========================================================================================
    Func _PixelSearchAroundMouse($vwidth, $vheight, $vcolor, $vvariation = 0, $vstep = 1)
    Local $apos[2]
    Global $apspos[2]
    $apos = MouseGetPos()
    $apspos = PixelSearch($apos[0] - $vwidth / 2, $apos[1] - $vheight / 2,$apos[0] + $vwidth / 2,$apos[1] + $vheight / 2, $vcolor, $vvariation, $vstep)
    If @error Then
    SetError(2)
    EndIf
    EndFunc

    [/autoit]

    Edit BugFix: Verschoben in Skripte, da ist es passender.

  • MiniRechner (Extended, viele Funktionen)

    • Wambo
    • 27. Juni 2008 um 21:06

    Ich habe einen kleinen Taschenrechner mit schöner und übersichtlicher GUI, einfacher Handhabung und recht vielen Befehlen programmiert.

    [Blockierte Grafik: http://img10.myimg.de/background94c28.jpg]

    #Features:

    - Per GUI Tasten, Befehle, Zahlen etc eingebbar.
    - Standardbefehle wie *(Multiplizieren), /(Dividieren), +(Addieren), -(Subtrahieren)
    - Sinus (nur 1 Sin pro Eingabe möglich), Cosinus, Tangens
    - Wurzelrechnen (bisher nur Quadratwurzeln)
    - PI (rechnet bis 14 Nachkommazahlen)
    - Hochzahlen (²und³ einzeln anklickbar für schnelle Nutzung + ^x)
    - Delete Funktion und Clear Funktion
    - Passende Fehlermeldungen
    - ANS Funktion (letztes Ergebnis anzeigen)

    █ = Fehlerhaft oder noch nicht fertiggestellt.
    █ = Teilweise.
    █ = Sollte einwandfrei funktionieren.

    #Updates:
    v. 0.6 Changelog:- Fehler beim Errechnen von ^2 uns ^3 wurde behoben.
    _....

    #Script: (Bilder von Anhang benötigt. Ansonsten funktioniert es nicht.)

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <StaticConstants.au3>
    #include <Math.au3>

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

    Global $funcnum = -1, $blockunten[5][4], $blockoben[6][2]
    Global $ans = "error"
    Global $checklabel = 0
    Global $pi = "3.141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825342117067982148086513282306647093844609550582231725359408128481117450284102701938521105559644622948954930381964428810975665933446128475648233786783165271201909145648566923460348610454326648213393607260249141273724587006606315588174881520920962829254091715364367892590360011330530548820466521384146951941511609433057270365759591953092186117381932611793105118548074462379962749567"

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

    Opt("GUIOnEventMode", 1)

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

    $Form2 = GUICreate("Minirechner Extended", 180, 241, 191, 123)
    For $s = 0 To 3
    For $i = 0 To 4
    $funcnum += 1
    $blockunten[$i][$s] = GUICtrlCreatePic("images\buttonblank.gif", 4 + $i * 36, 96 + $s * 30, 30, 24)
    GUICtrlSetOnEvent($blockunten[$i][$s], "_pic"&$funcnum)
    Next
    Next
    For $s = 0 To 1
    For $i = 0 To 5
    $funcnum += 1
    $blockoben[$i][$s] = GUICtrlCreatePic("images\background.jpg", 4 + $i + $i * 30, 42 + $s * 42 - $s * 17, 26, 22)
    GUICtrlSetOnEvent($blockoben[$i][$s], "_pic"&$funcnum)
    Next
    Next
    $Pic1 = GUICtrlCreatePic("images\background.jpg", 0, 0, 180, 240)
    $label = GUICtrlCreateLabel("MiniRechner Extended v0.6", 4, 214, 172, 17, $SS_Center)
    GUICtrlSetBkColor($label,$GUI_BKCOLOR_TRANSPARENT )
    GUICtrlSetColor(-1, 0x4F4C62)
    $display = GUICtrlCreateInput("", 6, 10, 169, 16, -1, 0)
    GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1,0x000000 )
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    Sleep(100)
    WEnd

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

    Func _Checklabel()
    If $checklabel = 1 Then
    GUICtrlSetData($label, "MiniRechner Extended v0.6")
    GUICtrlSetColor($label, 0x4F4C62)
    $checklabel = 0
    EndIf
    EndFunc

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

    Func _Exit()
    Exit
    EndFunc

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

    Func _pic0() ;7
    GUICtrlSetData($display, GUICtrlRead($display) & "7")
    EndFunc
    Func _pic1() ;8

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

    GUICtrlSetData($display, GUICtrlRead($display) & "8")
    EndFunc
    Func _pic2() ;9

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

    GUICtrlSetData($display, GUICtrlRead($display) & "9")
    EndFunc
    Func _pic3() ;DEL
    GUICtrlSetData($display, StringTrimRight(GUICtrlRead($display), 1))
    EndFunc
    Func _pic4() ;AC
    GUICtrlSetData($display, "")
    _Checklabel()
    EndFunc
    Func _pic5() ;4

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

    GUICtrlSetData($display, GUICtrlRead($display) & "4")
    EndFunc
    Func _pic6() ;5

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

    GUICtrlSetData($display, GUICtrlRead($display) & "5")
    EndFunc
    Func _pic7() ;6

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

    GUICtrlSetData($display, GUICtrlRead($display) & "6")
    EndFunc
    Func _pic8() ;* (Mal)

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

    GUICtrlSetData($display, GUICtrlRead($display) & "*")
    EndFunc
    Func _pic9() ;/ (Geteilt)

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

    GUICtrlSetData($display, GUICtrlRead($display) & "/")
    EndFunc
    Func _pic10() ;1

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

    GUICtrlSetData($display, GUICtrlRead($display) & "1")
    EndFunc
    Func _pic11() ;2

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

    GUICtrlSetData($display, GUICtrlRead($display) & "2")
    EndFunc
    Func _pic12() ;3

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

    GUICtrlSetData($display, GUICtrlRead($display) & "3")
    EndFunc
    Func _pic13() ;+ (Plus)

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

    GUICtrlSetData($display, GUICtrlRead($display) & "+")
    EndFunc
    Func _pic14() ;- (Minus)

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

    GUICtrlSetData($display, GUICtrlRead($display) & "-")
    EndFunc
    Func _pic15() ;0 (Null)

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

    GUICtrlSetData($display, GUICtrlRead($display) & "0")
    EndFunc
    Func _pic16() ;. (Punkt)

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

    GUICtrlSetData($display, GUICtrlRead($display) & ".")
    EndFunc
    Func _pic17() ;Leeres Feld
    EndFunc
    Func _pic18() ;ANS (letztes Ergebnis)
    If $ans = "error" Then
    GUICtrlSetData($label, "Script Error")
    GUICtrlSetColor($label, 0xFFFF00)
    $checklabel = 1
    Else
    GUICtrlSetData($display, $ans)
    EndIf
    EndFunc
    Func _pic19() ;= (Istgleich)
    $checkfirst = GUICtrlRead($display)
    If StringInStr($checkfirst, "Sin", 0, 2) Then
    GUICtrlSetData($label, "Maximal 1 Sin-Funktion möglich.")
    GUICtrlSetColor($label, 0xFFFF00)
    $checklabel = 1
    ElseIf StringInStr($checkfirst, "Cos", 0, 2) Then
    GUICtrlSetData($label, "Maximal 1 Cos-Funktion möglich.")
    GUICtrlSetColor($label, 0xFFFF00)
    $checklabel = 1
    ElseIf StringInStr($checkfirst, "Tan", 0, 2) Then
    GUICtrlSetData($label, "Maximal 1 Tan-Funktion möglich.")
    GUICtrlSetColor($label, 0xFFFF00)
    $checklabel = 1
    ElseIf StringInStr($checkfirst, "Sin") Then
    _sinus()
    ElseIf StringInStr($checkfirst, "Cos") Then
    _cosinus()
    ElseIf StringInStr($checkfirst, "Tan") Then
    _tangens()
    ElseIf StringInStr($checkfirst, "Pi") Then
    $pireplace = StringReplace($checkfirst, "Pi", $pi)
    $ans = Execute($pireplace)
    GUICtrlSetData($display, $ans)
    ElseIf StringInStr($checkfirst, "W(") Then
    $wreplace = StringReplace($checkfirst, "W(", "Sqrt(")
    $ans = Execute($wreplace)
    GUICtrlSetData($display, $ans)
    Else
    $ans = Execute(GUICtrlRead($display))
    GUICtrlSetData($display, $ans)
    EndIf
    EndFunc

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

    Func _sinus()
    $checkfirst = GUICtrlRead($display)
    $sinuscheck = StringSplit($checkfirst, "Sin(", 1)

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

    $i = UBound($sinuscheck, 1) - 1
    $sinuscheck2 = StringSplit($sinuscheck[$i], ")", 1)

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

    $s = 1
    $sinradian = _Radian($sinuscheck2[$s])
    $preergebnis = StringSplit($checkfirst, $sinuscheck2[$s], 1)

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

    $ergebnis = $preergebnis[1]&$sinradian&$preergebnis[2]
    $ans = Execute($ergebnis)
    GUICtrlSetData($display, $ans)
    EndFunc

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

    Func _cosinus()
    $checkfirst = GUICtrlRead($display)
    $coscheck = StringSplit($checkfirst, "Cos(", 1)

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

    $i = UBound($coscheck, 1) - 1
    $coscheck2 = StringSplit($coscheck[$i], ")", 1)

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

    $s = 1
    $cosradian = _Radian($coscheck2[$s])
    $precosergebnis = StringSplit($checkfirst, $coscheck2[$s], 1)

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

    $cosergebnis = $precosergebnis[1]&$cosradian&$precosergebnis[2]
    $ans = Execute($cosergebnis)
    GUICtrlSetData($display, $ans)
    EndFunc

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

    Func _tangens()
    $checkfirst = GUICtrlRead($display)
    $tancheck = StringSplit($checkfirst, "Tan(", 1)

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

    $i = UBound($tancheck, 1) - 1
    $tancheck2 = StringSplit($tancheck[$i], ")", 1)

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

    $s = 1
    $tanradian = _Radian($tancheck2[$s])
    $pretanergebnis = StringSplit($checkfirst, $tancheck2[$s], 1)

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

    $tanergebnis = $pretanergebnis[1]&$tanradian&$pretanergebnis[2]
    $ans = Execute($tanergebnis)
    GUICtrlSetData($display, $ans)
    EndFunc
    Func _pic20() ;Sinus
    GUICtrlSetData($display, GUICtrlRead($display) & "Sin(")
    EndFunc
    Func _pic21() ;Cosinus
    GUICtrlSetData($display, GUICtrlRead($display) & "Cos(")
    EndFunc
    Func _pic22() ;Tangens
    GUICtrlSetData($display, GUICtrlRead($display) & "Tan(")
    EndFunc
    Func _pic23() ;(
    GUICtrlSetData($display, GUICtrlRead($display) & "(")
    EndFunc
    Func _pic24() ;)
    GUICtrlSetData($display, GUICtrlRead($display) & ")")
    EndFunc
    Func _pic25() ;PI
    GUICtrlSetData($display, GUICtrlRead($display) & "PI")
    EndFunc
    Func _pic26() ;Wurzel
    GUICtrlSetData($display, GUICtrlRead($display) & "W(")
    EndFunc
    Func _pic27() ;xWurzel
    GUICtrlSetData($display, GUICtrlRead($display) & "")
    MsgBox(0, "Fehler", "Diese Funktion wird bald folgen.")
    EndFunc
    Func _pic28() ;Prozent
    GUICtrlSetData($display, GUICtrlRead($display) & "")
    MsgBox(0, "Fehler", "Diese Funktion wird bald folgen.")
    EndFunc
    Func _pic29() ;^2 (Hoch 2)
    GUICtrlSetData($display, GUICtrlRead($display) & "^2")
    EndFunc
    Func _pic30() ;^3 (Hoch 3)
    GUICtrlSetData($display, GUICtrlRead($display) & "^3")
    EndFunc
    Func _pic31() ;^x (Hoch X)
    GUICtrlSetData($display, GUICtrlRead($display) & "^")
    EndFunc

    [/autoit]



    Ich bräuchte Hilfe bei der Function von Sin, Cos, Tan. Danke schonmal vorab.

    # Zu den Anhängen:
    minirechner.zip:
    Script (.au3 Format) + Bilder

    images.zip:
    Enthält Ordner /images der in das Scriptverzeichnis kopiert werden muss, falls man sich das Script manuell von oben rauskopiert hat.

  • µit - April

    • Wambo
    • 26. Juni 2008 um 19:55

    Ich hab noch einige Probleme. Ist noch ein wenig zu schwer für mich. Ich mach das aber auf jeden Fall noch fertig wird nur ne ganze Weile dauern. Das grobe vom Design her hab ich aber schon... also so in der Art wirds wohl aussehen:

    ...

  • GUICTRLCreate in For Schleife... - Neues Problem

    • Wambo
    • 26. Juni 2008 um 19:34

    Das ist für ein Schiffe versenken Spiel. Habs aber erstmal aufgegeben weil da noch andere Probleme auf mich zukommen würden ;)
    Muss da noch ein bisschen lernen für...

  • GUICTRLCreate in For Schleife... - Neues Problem

    • Wambo
    • 26. Juni 2008 um 18:12

    Jetzt bin ich irgendwie verwirrt... Das Script weis doch garnicht was was ist irgendwie... ehm ich war vorhin schon soweit, dass ich die bildchen zwar Verstecken und Zeigen haben können aber ncith einzeln iwie drauf zugreifen... Schaff aber das grad nichtmal mehr... Jetzt steh ich aufem Schlauch.. ?( ?( ?(

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <StaticConstants.au3>

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

    Opt("GUIOnEventMode", 1)
    #Region ### START Koda GUI section ### Form=
    $battleshipmenu = GUICreate("BATTLESHIP", 560, 512, 196, 130, 0)

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

    $Pic1 = GUICtrlCreatePic("\images\menubgjpg.jpg", 0, 0, 560, 480, 0)

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

    $Label1 = GUICtrlCreateLabel("Geben Sie den gewünschten Einsatz ein und klicken sie auf Start! Falls Sie das erste Mal spielen, klicken sie auf das Fragezeichen unten rechts im Bild für eine Anleitung.", 72, 230, 412, 51, $SS_CENTER)
    GUICtrlSetColor(-1, 0xCCCCCC)
    GUICtrlSetBkColor($Label1,$GUI_BKCOLOR_TRANSPARENT )

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

    $Input1 = GUICtrlCreateInput("100", 243, 292, 141, 22, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER), 0)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFFE1)
    GUICtrlSetBkColor($Input1, 0x000000)
    GUICtrlSetCursor (-1, 5)

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

    $Label2 = GUICtrlCreateLabel("Der Einsatz muss zwischen 100€ und 50000€ liegen.", 72, 324, 412, 17, $SS_CENTER)
    GUICtrlSetColor(-1, 0xCCCCCC)
    GUICtrlSetBkColor($Label2,$GUI_BKCOLOR_TRANSPARENT )

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

    $button1 = GUICtrlCreatePic("\images\bigbuttonhelp.bmp", 474, 412, 66, 58)
    GUICtrlSetCursor (-1, 0)

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

    $button2 = GUICtrlCreatePic("\images\buttonbig_start.bmp", 196, 340, 160, 50)
    GUICtrlSetCursor (-1, 0)

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

    $button4 = GUICtrlCreatePic("\images\button_end.bmp", 193, 416, 166, 49)
    GUICtrlSetCursor (-1, 0)

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

    $Label3 = GUICtrlCreateLabel("Lädt...", 388, 52, 124, 23, $SS_CENTER)
    GUICtrlSetColor(-1, 0xCCCCCC)
    GUICtrlSetBkColor($Label3,$GUI_BKCOLOR_TRANSPARENT )
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")

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

    $Battlefield = GUICtrlCreatePic("\images\spielfeld.jpg", 0, 106, 560, 291)
    GUICtrlSetState(-1, $GUI_HIDE)

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

    $button_abort = GUICtrlCreatePic("\images\abbrechen.gif", 0, 366, 163, 31)
    GUICtrlSetState(-1, $GUI_HIDE)
    GUICtrlSetState(-1, $GUI_DISABLE)

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

    $Pic2 = GUICtrlCreatePic("\images\anleitung.jpg", 16, 106, 510, 244)
    GUICtrlSetState(-1, $GUI_HIDE)

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

    $helpclose = 1

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

    $Label4 = GUICtrlCreateLabel("Label 4", 32, 130, 476, 199, $SS_CENTER)
    GUICtrlSetColor(-1, 0xCCCCCC)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetBkColor($Label4,$GUI_BKCOLOR_TRANSPARENT )
    GUICtrlSetState(-1, $GUI_HIDE)

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

    $Label5 = GUICtrlCreateLabel("Viel Spaß", 220, 306, 190, 28)
    GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xCCCCCC)
    GUICtrlSetBkColor($Label5,$GUI_BKCOLOR_TRANSPARENT )
    GUICtrlSetState($Label5, $GUI_HIDE)

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

    $error = GUICtrlCreateLabel("", 12, 114, 538, 24, $SS_CENTER)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor($error,$GUI_BKCOLOR_TRANSPARENT )
    GUICtrlSetState($error, $GUI_HIDE)

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

    Global $m = -1, $CPUFeld[100][2]

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

    $CPUFeld[0][1] = 'MsgBox(0,"", "Hallo, das ist Pic1")'
    $CPUFeld[1][1] = 'MsgBox(0,"", "Hallo, das ist Pic2")'
    $CPUFeld[2][1] = 'MsgBox(0,"", "Hallo, das ist Pic3")'

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

    For $f = 0 To 9
    For $g = 0 To 9
    $m += 1
    $CPUFeld[$m][0] = GUICtrlCreatePic("images\buttonchose.gif", 317 + $f * 20 + $f, 146 + $g * 20 + $g, 20, 20, 0)
    GUICtrlSetOnEvent(-1, "_cpufeld")
    Next
    Next

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

    Func _cpufeld()
    For $i = 0 To UBound($CPUFeld) -1
    If $CPUFeld[$m][0] = @GUI_CtrlId Then Return Execute($CPUFeld[$m][1])
    Next
    EndFunc

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

    GUISetState(@SW_SHOW)

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

    GUICtrlSetOnEvent($button1, "_help")
    GUICtrlSetOnEvent($button2, "_startgame")
    GUICtrlSetOnEvent($button4, "_exit")
    #EndRegion ### END Koda GUI section ###

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

    $kontoread = IniRead("settings.ini", "Settings", "money", "kontoerror")
    If $kontoread = "kontoerror" Then
    $konto = "1500"
    IniWrite("settings.ini", "Settings", "money", $konto)
    GUICtrlSetData($Label3, $konto&" €")
    Else
    $konto = $kontoread
    GUICtrlSetData($Label3, $konto&" €")
    EndIf

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

    While 1
    Sleep(100)

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

    WEnd

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

    Func _startgame()
    GUICtrlSetState($error, $GUI_HIDE)
    $einsatz = GUICtrlRead($Input1)
    If $einsatz < 100 Or $einsatz > 50000 Then
    GUICtrlSetState($error, $GUI_SHOW)
    GUICtrlSetData($error, "Der Einsatz muss zwischen 100 und 50000 liegen.")
    Else
    If $einsatz > $konto Then
    GUICtrlSetState($error, $GUI_SHOW)
    GUICtrlSetData($error, "Sie haben nicht genug Guthaben.")
    ElseIf $einsatz <= $konto Then
    $konto -= $einsatz
    GUICtrlSetData($Label3, $konto&" €")
    IniWrite("settings.ini", "Settings", "money", $konto)
    GUICtrlSetState($Battlefield, $GUI_SHOW)
    GUICtrlSetState($button_abort, $GUI_SHOW)
    GUICtrlSetState($button_abort, $GUI_ENABLE)
    _start()
    EndIf
    EndIf
    EndFunc

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

    Func _help()
    GUICtrlSetState($error, $GUI_HIDE)
    If $helpclose = 1 Then
    $helpclose = 0
    GUICtrlSetState($Input1, $GUI_HIDE)
    GUICtrlSetState($Input1, $GUI_DISABLE)
    GUICtrlSetState($Pic2, $GUI_SHOW)
    GUICtrlSetState($Label4, $GUI_SHOW)
    GUICtrlSetState($Label5, $GUI_SHOW)
    ElseIf $helpclose = 0 Then
    $helpclose = 1
    GUICtrlSetState($Input1, $GUI_SHOW)
    GUICtrlSetState($Input1, $GUI_ENABLE)
    GUICtrlSetState($Pic2, $GUI_HIDE)
    GUICtrlSetState($Label4, $GUI_HIDE)
    GUICtrlSetState($Label5, $GUI_HIDE)
    EndIf
    EndFunc

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

    Func _start()
    GUICtrlSetState($button2, $GUI_DISABLE)
    GUICtrlSetState($Input1, $GUI_HIDE)
    GUICtrlSetState($Input1, $GUI_DISABLE)
    EndFunc

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

    Func _exit()
    Exit
    EndFunc

    [/autoit]
  • Fotos bearbeiten

    • Wambo
    • 26. Juni 2008 um 18:00

    Achso :rofl:

    Kann mir das immoment nicht vorstellen... also mit den Standard-Möglichkeiten von AutoIt denke ich nicht. Vielleicht kann man es eventuell lösen, aber wie da bin ich überfragt.

  • Fotos bearbeiten

    • Wambo
    • 26. Juni 2008 um 17:07

    Mit MouseMove und MouseClick usw...

  • GUICTRLCreate in For Schleife... - Neues Problem

    • Wambo
    • 26. Juni 2008 um 15:04

    @ BugFix... Mir leuchtet die Lösung zwar ein aber sie funktioniert iwie nicht... wenn ich auf nem Pic klick passiert nichts... Mein sieht jetzt so aus immoment:

    Spoiler anzeigen
    [autoit]

    Global $m = -1, $CPUFeld[100][2]

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

    $CPUFeld[0][1] = 'MsgBox(0,"", "Hallo, das ist Pic1")'
    $CPUFeld[1][1] = 'MsgBox(0,"", "Hallo, das ist Pic2")'
    $CPUFeld[2][1] = 'MsgBox(0,"", "Hallo, das ist Pic3")'

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

    For $f = 0 To 9
    For $g = 0 To 9
    $m += 1
    $CPUFeld[$m][0] = GUICtrlCreatePic("images\buttonchose.gif", 317 + $f * 20 + $f, 146 + $g * 20 + $g, 20, 20, 0)
    GUICtrlSetOnEvent($CPUFeld[$m][0], "_cpufeld")
    Next
    Next

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

    Func _cpufeld()
    For $i = 0 To UBound($CPUFeld) -1
    If $CPUFeld[$m][0] = @GUI_CtrlId Then Return Execute($CPUFeld[$m][1])
    Next
    EndFunc

    [/autoit]

    Glaube ist ja das selbe wie bei dir, lediglich die Variablen teilweise umbenannt...
    Irgendwie kommt mir das komisch vor: If $CPUFeld[$m][0] ... weil $m ist ja nach dem ablauf der For Schleife 99...

    @ Edit: OnEventmode ist auch an.

  • GUICTRLCreate in For Schleife... - Neues Problem

    • Wambo
    • 25. Juni 2008 um 19:35

    Also ich möchte den Bildchen die Funktion eines Buttons zuschreiben. Das man sie eben anklicken kann und dann etwas passiert und einen Hover Effekt. Gut da versteh ich jetzt nur nich am Beispiel von GTA-Spider wie ich auf ein einzelnes Bild zugreifen kann und dem eine Funktion zuschreiben kann.

  • GUICTRLCreate in For Schleife... - Neues Problem

    • Wambo
    • 25. Juni 2008 um 14:49

    Also das klappt zwar soweit aber ich stehe vor einem neuen Problem. Ich möchte die einzelnen Bilder jetzt gerne seperat anfragen sprich, dass wenn ich auf 1 bestimmtes Bild klicke, soll damit auch was passieren.

  • GUICTRLCreate in For Schleife... - Neues Problem

    • Wambo
    • 25. Juni 2008 um 13:38

    Hab eigentlich Suche benutzt aber wohl nach dem falschen gesucht... Danke

  • AutoIt Script Fehler

    • Wambo
    • 25. Juni 2008 um 12:52

    Das Script erscheint mir entweder für nen WoW Privat Server oder du willst damit WoW Accounts klauen!

    Beides ist nicht gerade gern gesehen hier!

  • GUICTRLCreate in For Schleife... - Neues Problem

    • Wambo
    • 25. Juni 2008 um 12:18

    Also ich habe ein GUICtrlCreatePic in einer For-Schleife weil ich das 100x brauche... Jetzt weis ich aber nicht wie ich auf das Pic später zugreifen soll.
    Ich möchte jetzt GUICtrlSetState($feld, $GUI_HIDE) benutzen, aber da wird nur das letzte Bild verdeckt.

    [autoit]

    For $s = 0 To 9
    For $i = 0 To 9
    $feld = GUICtrlCreatePic("images\buttonchose.gif", 31+$i*20+$i, 146+$s*20+$s, 20, 20, 0)
    Next
    Next

    [/autoit]

    Hab schon einiges ausprobiert aber will nicht klappen :(

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™