Beiträge von Robin98

  • ObjT

    Hallo COM :party: ,

    Seit einiger Zeit(1 woche) Arbeite ich án einer eigenen Programmierersprache, allerdings spreche ich keinen Maschienencode, also
    habe ich mich dazu entschlossen einen interpreter zu schreiben der den ObjTcode zu AutoItcode umwandelt.
    So dann musste ich mir noch einen Syntax ausdeken der kompliziert sein sollte.(Desto komplizierter desto besser).
    Gemacht getan. Und Hier ist Version 1.0

    LG Robin98
    P.S. Wer Maschinencode beherrscht kann mir gerne Helfen :rock:
    Edit: Die neusten Versionen sind da!

  • Problem mit If-Abfrage

    Hallo erst mal

    Ich habe Heute Morgen angefangen eine Beispiel GUI zu Schreiben allerdings

    Funktioniert diese nicht so Recht. Eigentlich soll wenn man mit der Maus über

    das Schließen Bild geht, sich das Bild ändern das tut es auch aber jetzt komm

    ich nicht mehr weiter weil das Fenster soll sich auch noch Schließen wenn man

    auf das Bild klickt Ich bedanke mich schon im voraus für eure Hilfe!

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ProgressConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <GdiPlus.au3>
    #include <Misc.au3>
    #include <file.au3>
    Global $path, $Leben, $path2
    OnAutoItExitRegister("_end")
    $x = 0
    $y = 0
    $path = @ScriptDir & "\PICS\"
    $path = @ScriptDir & "\INI\"
    $Leben = IniRead(@ScriptDir & "\INI\DATA.ini","DATA","Leben",1)
    $Form1 = GUICreate("X-The Game", 600, 500, Default, Default,$WS_POPUP)
    GUISetBkColor(0xffa500,$Form1)
    GUISetState(@SW_SHOW)
    _GdiPlus_StartUp()
    $Player = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Skin.gif")
    $bk = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Gras.gif")
    $height = _GDIPlus_ImageGetHeight($Player)
    $widht = _GDIPlus_ImageGetWidth($Player)
    $verhaelnis = $height / $widht
    $load_bk = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Load_Leer.gif")
    $load = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Load.gif")
    $erschaffen = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Erschaffen.gif")
    $btn_exit = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\close1.gif")
    $feld1 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Feld.gif")
    $feld2 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Feld.gif")
    $feld3 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Feld.gif")
    $feld4 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Feld.gif")
    $feld5 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Feld.gif")
    $feld6 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Feld.gif")
    $graphic = _GDIPlus_GraphicsCreateFromHWND($Form1)
    $bitmap = _GDIPlus_BitmapCreateFromGraphics(700,500, $graphic)
    $buffer = _GDIPlus_ImageGetGraphicsContext($bitmap)
    While 1
    ;===========Buttons==============================;
    $mouse = GUIGetCursorInfo()
    If IsArray($mouse) then
    If $mouse[0] >= 520 and $mouse[1] <= 25 then
    $btn_exit = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\close2.gif")
    Else
    $btn_exit = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\close1.gif")
    EndIf
    EndIf
    ;================ENDE=============================;
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    Select
    Case _IsPressed(25) And Not $x <= 0
    $x -=40
    Case _IsPressed(26) And Not $y <= 0
    $y -=40
    Case _IsPressed(27) And $x <= 340
    $x +=40
    Case _IsPressed(28) And $y <= 340
    $y +=40
    EndSelect
    _GDIPlus_GraphicsDrawImageRect($buffer,$erschaffen,440,60,120,120)
    _GDIPlus_GraphicsDrawImageRect($buffer, $bk,0,0,400,400)
    _GDIPlus_GraphicsDrawImageRect($buffer, $Player,$x,$y,40,40 * $verhaelnis)
    _GDIPlus_GraphicsDrawImageRect($buffer, $load_bk,80,450,220,40)
    _GDIPlus_GraphicsDrawString($graphic,"LP/" & $Leben, 0, 460)
    _GDIPlus_GraphicsDrawImageRect($buffer, $btn_exit,560, 0,40,40)
    _GDIPlus_GraphicsDrawImageRect($buffer, $load,90, 460, $Leben*2,20)
    _GDIPlus_GraphicsDrawImageRect($buffer,$feld1,440,200,60,60)
    _GDIPlus_GraphicsDrawImageRect($buffer,$feld2,440,270,60,60)
    _GDIPlus_GraphicsDrawImageRect($buffer,$feld3,440,340,60,60)
    _GDIPlus_GraphicsDrawImageRect($buffer,$feld4,510,200,60,60)
    _GDIPlus_GraphicsDrawImageRect($buffer,$feld5,510,270,60,60)
    _GDIPlus_GraphicsDrawImageRect($buffer,$feld6,510,340,60,60)
    _GDIPlus_GraphicsDrawImage($graphic, $bitmap,0,0)
    Sleep(500)
    WEnd
    Func _end()
    _GDIPlus_GraphicsDispose($graphic)
    _GDIPlus_GraphicsDispose($buffer)
    _GDIPlus_BitmapDispose($bitmap)
    _GDIPlus_ImageDispose($Player)
    _GDIPlus_ImageDispose($bk)
    _GDIPlus_Shutdown()
    EndFunc

    [/autoit]

  • Fortlaufende ini?

    Wie wäre es wenn du eine For-Schleife anlegst ungefähr so:

    Spoiler anzeigen
    [autoit]

    Func eintragen()
    Global $path
    $path = @ScriptDir &
    For $i = 1 to 10000

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

    Iniwrite($path & $i & ".ini","Kills","Tötungen","" & GUICtrlRead($Input1) & "")
    Iniwrite($path & $i & ".ini","Tode","Tode","" & GUICtrlRead($Tote) & "")
    Iniwrite($path & $i & ".ini","Assits","Assits","" & GUICtrlRead($Assits) & "")
    Iniwrite($path & $i & ".ini","Ergebnis","Ergebnis","" & GUICtrlRead($Gewonnen) & "")
    Iniwrite($path & $i & ".ini","Champion","Champion","" & GUICtrlRead($Champions) & "")
    Next
    EndFunc

    [/autoit]

  • Anfängerschwierigkeiten (Checkbox, Button etc.)

    Wie wäre es wenn du die ganzen if then Abfragungen

    in eine externe Select Anweisung (die in der While-Schleife liegt) packst

    dann sollte es Funktionieren

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=C:\Users\Jo\Desktop\Form1.kxf
    $Form1_1 = GUICreate("Form1", 421, 187, 200, 171)
    $basis = GUICtrlCreateInput("", 240, 12, 121, 21)
    $BasisText = GUICtrlCreateLabel("Basis Belichtungszeit in Sekunden", 56, 16, 166, 17)
    $faktor = GUICtrlCreateInput("", 240, 68, 121, 21)
    $ISOText = GUICtrlCreateLabel("Welche ISO-Zahl wurde verwendet?", 56, 72, 177, 17)
    $Filtertext = GUICtrlCreateLabel("Soll der Filter eingesetzt werden?", 56, 120, 159, 17)
    $filter = GUICtrlCreateCheckbox("Ja", 240, 118, 97, 17)
    $Fertig = GUICtrlCreateButton("Fertig", 154, 152, 113, 25)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Fertig
    Exit
    Select
    If BitAnd(GUICtrlRead($Checkbox),$GUI_CHECKED) Then
    $mitfilter = 3
    Else
    $mitfilter = 0
    EndIf
    If $faktor = 200 Then
    MsgBox ("0", "Ergebniss", "Ihr gewünschtes Ergebniss lautet:" & $basis * 2)
    EndIf
    If $faktor = 400 Then
    MsgBox ("0", "Ergebniss", "Ihr gewünschtes Ergebniss lautet:" & $basis * 4)
    EndIf
    If $faktor = 800 Then
    MsgBox ("0", "Ergebniss", "Ihr gewünschtes Ergebniss lautet:" & $basis * 8)
    EndIf
    If $faktor = 1600 Then
    MsgBox ("0", "Ergebniss", "Ihr gewünschtes Ergebniss lautet:" & $basis * 16)
    EndIf
    If $faktor = 3200 Then
    MsgBox ("0", "Ergebniss", "Ihr gewünschtes Ergebniss lautet:" & $basis * 32)
    EndIf
    If $faktor = 6400 Then
    MsgBox ("0", "Ergebniss", "Ihr gewünschtes Ergebniss lautet:" & $basis * 64)
    EndIf
    If $faktor = 12800 Then
    MsgBox ("0", "Ergebniss", "Ihr gewünschtes Ergebniss lautet:" & $basis * 128)
    EndIf
    EndSelect
    EndSwitch
    WEnd

    [/autoit]

  • Eigene GUI basteln

    Hallo bennithebrain

    Ich meinte das eigentlich so:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <GDIPlus.au3>
    #include <WinApi.au3>
    OnAutoItExitRegister("_end")

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

    Global $pic_background = @ScriptDir&"\bg2.png"
    Global Const $AC_SRC_ALPHA = 1
    $GUI = GUICreate("", 660, 500, -1, -1, $WS_POPUP, BitOR($WS_EX_CONTROLPARENT, $WS_EX_LAYERED))
    $GUIsub = GUICreate("", 660, 500, -1, -1, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $GUI)
    GUISetBkColor(0x585858) ; => hintergrund ebenfalls durchsichtig, damit die buttons direkt auf das Hintergrundbild gesetzt werden
    _WinAPI_SetLayeredWindowAttributes($GUIsub, 0x585858)
    ;$icon_exit = GUICtrlCreatePic(@ScriptDir&"\bg2.png", 224, 168, 73, 57)
    $Pic1 = @ProgramFilesDir & "\AutoIt3\Examples\GUI\Torus.png"
    $a8 = _GUICtrlPic_Create($Pic1 , 30, 30, 72, 72, $SS_CENTERIMAGE + $SS_SUNKEN, Default)

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

    GUISetState(@SW_SHOW, $GUI)
    GUISetState(@SW_SHOW, $GUIsub)
    ;========GDIPlus teil startet========;
    _GDIPlus_Startup()
    $bk = _GDIPlus_ImageLaodFromFile($pic_backround)
    #$graphic = _GDIPlus_GraphicsCreateFromHWND($Form1)
    $bitmap = _GDIPlus_BitmapCreateFromGraphics(900,633, $graphic)
    $buffer = _GDIPlus_ImageGetGraphicsContext($bitmap)
    While 1
    $mouse = GUIGetCursorInfo()
    ;=================Button1=================================
    If IsArray($mouse) Then
    If $mouse[0] > 840 and $mouse[1] < 20 and _IsPressed(01) Then
    Exit
    EndIf
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    _GDIPlus_GraphicsDrawImageRect($buffer,$bk, ;x,;y,;h;,;w)
    _GDIPlus_GraphicsDrawImage($graphic, $bitmap,0,0)
    WEnd

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

    Func _end()
    _GDIPlus_GraphicsDispose($graphic)
    _GDIPlus_GraphicsDispose($buffer)
    _GDIPlus_BitmapDispose($bitmap)
    _GDIPlus_ImageDispose($bk)
    _GDIPlus_Shutdown()
    EndFunc

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

  • Eigene GUI basteln

    Hallo bennithebrain

    Ich persönlich hätte es mit _GDIPlus Versucht und mit GUIGetCursorInfo das sähe dann ungefähr so gemacht

    $pic = _GDIPlus_ImageLoadFromFile(pfad des Bildes)

    Dann hätte ich in der While Schleife das mit dem Cursor gemacht ungefähr so

    While1

    GUIGetCursorInfo($mouse)

    If IsArray($mouse) Then

    If $mouse[0] = Position x and $mouse[1] = Position y and _IsPressed(01) Then

    $pic = _GDIPlusImageLoadFromFile(Pfad des zweiten bildes)

    Exit

    EndIf

    EndIf

    Gruss Robin98


    PS: Der Code stammt nicht von mir sondern aus dem Forum