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. teamnoobPDB

Beiträge von teamnoobPDB

  • Prozessor-Last verringern

    • teamnoobPDB
    • 18. Februar 2012 um 19:41

    Hier sind di letzten zeilen des skripts
    ich will nur noch dass die prozessor belastung sinkt so maximal 10% dauerhaft oder kurzzeitig höher hab halt nur keinen ansatz wie ich das lösen kann


    [autoit]

    while 1

    _ReduceMemory ()

    WEnd

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

    Func _ReduceMemory($i_PID = -1)
    Local $ai_Return
    If $i_PID <> -1 Then
    Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID)
    $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])
    DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0])
    Else
    $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
    EndIf
    Return $ai_Return[0]
    EndFunc ;==>_ReduceMemory

    [/autoit]
  • Prozessor-Last verringern

    • teamnoobPDB
    • 18. Februar 2012 um 19:30

    Ich habe ein 1100 Zeilen skript erstellt ... und habe es dauerhaft auf meinem laptop laufen der mit 2 prozessor kernen ausgestattet ist ...
    nun läuft das pogramm mit maximal 2 mb arbeitsspeicher verbrauch aber mit 50% prozessor auslastung und ich habe leider keinen ansatz wie ich die prozessor last verringern kann da das pogramm dauerhaft läuft...

    Danke für die Hilfe

  • Speichern und auslesen von Variablen

    • teamnoobPDB
    • 15. Februar 2012 um 19:52

    Danke

  • Speichern und auslesen von Variablen

    • teamnoobPDB
    • 15. Februar 2012 um 19:34

    Greenhorn


    muss man den Quellcode verstehen ??

  • Speichern und auslesen von Variablen

    • teamnoobPDB
    • 15. Februar 2012 um 19:26

    Danke für die Hilfe.

    Aber wie kann ich festlegen welche Variable er in welcher zeile speichern soll ?

  • Speichern und auslesen von Variablen

    • teamnoobPDB
    • 15. Februar 2012 um 19:19

    Hallo,
    ich habe ein Problem mit einem Skript von mir.
    Ich habe sehr viel rumprobiert und recherschiert, aber habe nichts gefunden
    Folgendes:
    Ich habe z.B. drei Variable ( in meinem Skript sind es ein paar mehr ) die im laufe des Skripts verändert werden.
    Zu anfang ist dann $zahl1 = 0
    $zahl2 = 0
    $zahl3 = 0

    dann werden die Variablen verändert z.B. zu :
    $zahl1 = 5
    $zahl2 = 9
    $zahl3 = 3

    Nun möchte ich dass wenn man das Pogramm beendet dass er die Variablen abspeichert und beim nächsten start des Pogramms die gespeicherten Variablen ausliest und weiter Verwendet.

    Danke schon mal im Vorraus.

  • Hilfe bei Item&Inventar System

    • teamnoobPDB
    • 5. Februar 2012 um 12:55

    stayawayknight okeee ich werde eure verbesserungsvorschläge beherzigen und mich mal damit weiter beschaftigen (bin auch noch anfänger)
    danke für die hilfe

  • Hilfe bei Item&Inventar System

    • teamnoobPDB
    • 4. Februar 2012 um 20:16

    Den fehler kann ich dir nennen wieso das Programm nach ein paar klicks abstürzt ... weil dort die funktion noch nicht existiert die eigentlich das label verändern soll ... sprich du hast die drei wahlmöglichkeiten und wählst die erste ... dann bekommst du eine neues gui label und dann wieder drei wahl möglichkeiten ... da aber an manchen stellen die funktion fehlt die das label weiter verändert stürzt das pogramm ab schau mal in meinem skript nach das pogramm stürzt nur an den stellen ab wo ich noch nicht weiter gemacht habe ... und danke für die hilfe beim Item & Inventar system

  • Hilfe bei Item&Inventar System

    • teamnoobPDB
    • 3. Februar 2012 um 17:19

    Danke für die Hilfe ... Und stayawayknight ich habe mir zig Tutorials im Internet und auf AutoIT.com durchgelesen und mir alles angeschaut was ich zu Variablen und der Gui Oberfläche brauche, ich wollte ja eigentlich nur wissen wie ich ein Item & Inventar System einbauen kann. Ich bedanke mich für die verbesserungs vorschläge aber damit ist die frage des Item & Inventar systems noch nich geklärt ... Aber trotzdem Danke

  • Hilfe bei Item&Inventar System

    • teamnoobPDB
    • 2. Februar 2012 um 21:45

    Hallo habe mir aus langeweile ein Text Adventure geskriptet in dem man durch drücken von 3 Buttons immer einen Schritt weiter gelang. Auf jeden Schritt folgen dann wieder andere möglichkeiten weiter zu gehen. Wollte nun einbauen dass man irgendwo ( was natürlich festgelegt ist) ein item finden kann was man an einer bestimmten stelle einsetzen muss um weiter zu kommen. Code des Skriptes habe ich eingefügt. Danke schon mal im voraus für die Hilfe.


    [autoit]

    $name = "Text Adventure "
    $version = "0.3 Beta"
    $game = " The Game"
    $creator = " created and scripted by Pascal Bendler"
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    #Region ### START Koda GUI section ### Form=C:\Users\Pascal\Desktop\Neuer Ordner (3)\Forms\textadvanture.kxf
    $Form1 = GUICreate("" & $name & $version & $game & $creator, 625, 443, 192, 124)
    $Label1 = GUICtrlCreateLabel("Hallo und Herzlich Willkommen zum Text Adventure 1.1. Zum Spielen müssen nur die 3 Buttons gedrückt werden. In jedem Text bzw. in jedem Spielfortschritt wird erklärt was jeder Button bewirkt. Drücken sie den Start-Button um zu beginnen.", 104, 56, 460, 257)
    $Button1 = GUICtrlCreateButton("1", 112, 328, 75, 25, 0)
    $Button2 = GUICtrlCreateButton("2", 296, 328, 75, 25, 0)
    $Button3 = GUICtrlCreateButton("3", 480, 328, 75, 25, 0)
    $Button4 = GUICtrlCreateButton("Start/Stopp", 296, 384, 75, 25, 0)
    $Button5Info = GUICtrlCreateButton("Info", 590, 408, 25, 25, 0)
    GUISetState(@SW_SHOW)
    GUISetIcon("C:\Windows\System32\PerfCenterCpl.ico")
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button4
    Func1 ()

    Case $Button5Info
    Info ()
    EndSwitch
    WEnd

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

    Func Info()

    MsgBox(0,"Info zum Spiel","Zu der Entstehung des Text Adventures: Aus reiner Langeweile habe ich mich eines Mittags an meinen Pc gesezt und vor mich hin geskripted. Dann kam mir die Idee ein Spiel zu Schreiben, doch eine Sprache wie C o.ä. beherrsche ich nicht. Dann habe ich mich entschieden ein kleines Text Adventure zu schreiben. Und nun sizt du hier und liest wie ich mich entschieden habe dieses kleine Programm zu entwickeln. Die Entwicklung: Die Entwicklung hat relativ lange gedauert, da ich einen langen Zeitraum nicht an dem Adventure gearbeitei habe (ca. ein halbes Jahr). Geschrieben ist es in AutoIt, mit all den Kenntnissen die ich habe und mir über Google zusammen gesucht/gearbeitet habe.")

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

    EndFunc

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

    Func Func1()

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

    $Label1 = GUICtrlCreateLabel("Du bist auf einer einsamen Insel und weist nicht wo du bist. Du versuchst einen Ausweg zu finden. Drücke 1 um die Insel zu erkunden, drücke 2 um auf Hilfe zu warten oder drücke 3 um von der Insel zu schwimmen, mit hilfen eines Floßes was du dir aus Bäumen der Insel baust.", 104, 56, 460, 257)

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

    while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Button1 ()

    Case $Button2
    Button2 ()

    Case $Button3
    Button3 ()

    Case $Button4
    Button4 ()

    Case $Button5Info
    Info ()
    EndSwitch
    WEnd
    EndFunc

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

    Func Button4 ()

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

    $Label1 = GUICtrlCreateLabel("Hallo und Herzlich Willkommen zum Text Adventure 1.1. Zum Spielen müssen nur die 3 Buttons gedrückt werden. In jedem Text bzw. in jedem Spielfortschritt wird erklärt was jeder Button bewirkt. Drücken sie den Start-Button um zu beginnen.", 104, 56, 460, 257)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button4
    Func1 ()

    Case $Button5Info
    Info ()
    EndSwitch
    WEnd

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


    EndFunc

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

    Func Button1 ()

    $Label1 = GUICtrlCreateLabel("Du gehst durch das Dickicht der Insel findest aber nichts was dir weiter Helfen könnte. Drücke 1, 2 oder 3 um zum Start-Punkt zurück zu kehren.", 104, 56, 460, 257)

    while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Func1 ()

    Case $Button2
    Func1 ()

    Case $Button3
    Func1 ()

    Case $Button4
    Button4 ()

    Case $Button5Info
    Info ()
    EndSwitch
    WEnd
    EndFunc

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

    Func Button2 ()

    $Label1 = GUICtrlCreateLabel("Du sezt dich an den Strand und wartest auf Hilfe. Auf einmal hörst du ein Hupen von einem Schiff. Doch plözlich wachst du auf und bemerkst dass es nur ein Traum war. Du wartest so lange auf Hilfe bist du eines langsamen Hungertodes gestorben bist. Drücke 1, 2 oder 3 um von vorne zu beginnen.", 104, 56, 460, 257)

    while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Func1 ()

    Case $Button2
    Func1 ()

    Case $Button3
    Func1 ()

    Case $Button4
    Button4 ()

    Case $Button5Info
    Info ()
    EndSwitch
    WEnd

    EndFunc

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

    Func Button3 ()

    $Label1 = GUICtrlCreateLabel("Du baust dir ein Floß. Stundenlang arbeitest du daran in der Hoffnung dass du es von dieser Insel schaffst. Nach ca. 7 Stunden harter Arbeit ist es vollbracht. Du lässt das Floß ins Wasser und lässt dich treiben. Ein paar Tage später hängst du Verhungernd auf deinem Floß -ohne Kraft- und hoffst auf Hilfe, als du dann plözlich Festland sichtest. Du paddelst voller Freude und Elan los bis du am Festland angekommen bist. Doch was nun ? Drücke 1 um die Küste entlang zu laufen, drücke 2 um auf die Berge zu klettern die du im Norden siehst oder drücke 3 um dich dort nieder zu lassen.", 104, 56, 460, 257)

    while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Button1Kueste ()

    Case $Button2
    Button2Berge ()

    Case $Button3
    Button3Niederlassen ()

    Case $Button4
    Button4 ()

    Case $Button5Info
    Info ()
    EndSwitch
    WEnd
    EndFunc

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

    Func Button1Kueste ()

    $Label1 = GUICtrlCreateLabel("Du gehst die Küste entlang doch mehr als Sand ist hier nicht zu finden. Drücke 1 um zu deinem Floß zurück zu gehen, drücke 2 um jetz zu den Bergen im Norden zu gehen oder Drücke 3 um dich zu ertränken weil du keine lust mehr auf Leben hast.",104, 56, 460, 257)

    while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Button1zuruekfloss ()

    Case $Button2
    Button2Berge ()

    Case $Button3
    Button3Ende ()

    Case $Button4
    Button4 ()

    Case $Button5Info
    Info ()
    EndSwitch
    WEnd
    EndFunc

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

    Func Button1zuruekfloss ()

    $Label1 = GUICtrlCreateLabel("Du gehst wieder zu deinem Gestrandeten Floß zurück und denkst nach was du nun tun könntest. Drücke 1 um in die Berge zu gehen die im Norden liegen, drücke 2 um dich hier nieder zu lassen und dir eine kleine Existenz auf zu bauen oder drücke 3 um nach Osten ins Flachland zu gehen.",104, 56, 460, 257)

    while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Button2Berge ()

    Case $Button2
    Button3Niederlassen ()

    Case $Button3
    Button3Flachland ()

    Case $Button4
    Button4 ()

    Case $Button5Info
    Info ()
    EndSwitch
    WEnd
    EndFunc

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

    Func Button2Berge ()

    $Label1 = GUICtrlCreateLabel("Du bist zu den Bergen gegangen und kletterst hinauf als du plötzlich einen Aßgeier siehst... Was sollst du nun tun ? Drücke 1 um wieder zurück zum Floß zu gehen, drücke 2 um den Aßgeier zu ignorieren und weiter zu klettern oder drücke 3 um Dort zu warten bis der Aßgeier verschwindet.",104, 56, 460, 257)

    while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Button1zuruekfloss ()

    Case $Button2
    Button2weiterklettern ()

    Case $Button3
    Button3warten ()

    Case $Button4
    Button4 ()

    Case $Button5Info
    Info ()
    EndSwitch
    WEnd
    EndFunc

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

    Func Button3Ende ()

    $Label1 = GUICtrlCreateLabel("Du hast keine lust mehr zu leben also tötest du dich indem du dich im Wasser ertränkst. Zusätzlich wirst du von ein paar Haien gefressen. Drücke 1, 2 oder 3 um von Vorne zu beginnen.",104, 56, 460, 257)

    while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Func1 ()

    Case $Button2
    Func1 ()

    Case $Button3
    Func1 ()

    Case $Button4
    Button4 ()

    Case $Button5Info
    Info ()
    EndSwitch
    WEnd
    EndFunc

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

    Func Button3Niederlassen ()

    $Label1 = GUICtrlCreateLabel("Du lässt dich an dieser wunderschönen - aber einsamen - Küste nieder und baust dir eine kleine Existenz auf. Du baust dir ein Kleines Haus und züchtest dir ein paar Schweine die du eingefangen hast. Du stirbst friedlich und alleine in deiner Hütte. Drücke 1, 2 oder 3 um nochmal von vorne zu beginnen.",104, 56, 460, 257)

    while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Func1 ()

    Case $Button2
    Func1 ()

    Case $Button3
    Func1 ()

    Case $Button4
    Button4 ()

    Case $Button5Info
    Info ()
    EndSwitch
    WEnd

    EndFunc

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

    Func Button3Flachland ()

    $Label1 = GUICtrlCreateLabel("Du gehst ins Flachland - mir knurrendem Magen - und suchst dir etwas zu Essen. Nachdem du dir einen wilden Hasen gefangen, gegrillt und gegessen hast begibst du dich weiter auf die Reise. Drücke 1 um in die Berge zu gehen, drücke 2 um die merkwürdige Höhle im Flachland zu erkunden oder drücke 3 um durch die Wüste zu gehen.",104, 56, 460, 257)

    while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Button2Berge ()

    Case $Button2
    Button2Hoehle ()

    Case $Button3
    Button3Wueste ()

    Case $Button4
    Button4 ()

    Case $Button5Info
    Info ()
    EndSwitch
    WEnd

    EndFunc

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

    Func Button2Hoehle ()

    $Label1 = GUICtrlCreateLabel("Du gehst in eine Höhle ... es ist sehr Dunkel ... was sollst du tun ?",104, 56, 460, 257)

    while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Button1Hoehleraus ()

    Case $Button2
    Button2Hoehleweiter ()

    Case $Button3
    Button3Hoehle ()

    Case $Button4
    Button4 ()

    Case $Button5Info
    Info ()
    EndSwitch
    WEnd


    EndFunc

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

    Func Button3Wueste ()

    $Label1 = GUICtrlCreateLabel("Du gehst in die Wüste ... eine sehr riskante Entscheidung ohne Wasser dorthin zu gehen ... Drücke 1 um wieder um zu kehren, drücke 2 um Doch weiter in die Wüste zu gehen oder drücke 3 um die Wüste zu umgehen.",104, 56, 460, 257)

    while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Button3Flachland ()

    Case $Button2
    Button2weiterWueste ()

    Case $Button3
    Button3wuesteumgehen ()

    Case $Button4
    Button4 ()

    Case $Button5Info
    Info ()
    EndSwitch
    WEnd


    EndFunc

    [/autoit]

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™