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

Beiträge von Headsniper1997

  • Während Whileschleife keine Buttons mehr drückbar

    • Headsniper1997
    • 29. April 2018 um 16:46

    Wow okay vielen neue dinge die ich erst noch verstehen muss.

    Hab den ganzen morgen und mittag jetzt drangesessen und versucht das selbst hinzubekommen, mit erfolg.

    Dank der hilfe von Yjuqs kleinem Script funktionert es jetzt so wie das von dir Kanashius (zwar leider nicht so übersichtlich wie deins) aber immerhin ein großer Erfolg für mich.

    Trotzdem vielen dank für deine Mühe, werde mir ein wenig von deinem Stiel versuchen anzueignene

    Gruß

    Headsniper1997

  • Während Whileschleife keine Buttons mehr drückbar

    • Headsniper1997
    • 29. April 2018 um 10:04
    Zitat

    Ich könnte dir auch natürlich die fertige Lösung geben. Allerdings bezweifel ich, dass dies in irgend einer Weise weiterhilft.

    Da finde ich hast du vollkommen recht.

    zumindest funktioniert das was du mir da geschickt hast nun in kombi mit dem meinen

    Habe noch hizugefügt (wie es später dann auch funktionieren soll)

    Code
    Global $gui, $button, $label, $timer, $counter
    $gui = GUICreate("", 120, 70)
    $button = GUICtrlCreateButton("Klick", 10, 10, 100, 20)
    $label = GUICtrlCreateLabel("", 10, 40, 100, 20)
    GUISetState()
    While True
        Switch GUIGetMsg()
            Case -3
                Exit
             Case $button
                $counter = $counter + 10
                If Not $timer Then $timer = TimerInit()
        EndSwitch
        If $timer And TimerDiff($timer) >= 1000 Then
            $counter += 1
            $timer = TimerInit()
            GUICtrlSetData($label, $counter)
        EndIf
    WEnd
    Alles anzeigen

    Zumindest damit kann ich jetzt mal weiterarbeiten.

    Hast du mir denn noch Tipps, da du anfänglich meinst mein Script sei sehr schlecht aufgebaut was man dort für die übersicht machen kann ?

    hab schon son bisschen rausgefunden ;==> hinter die einzelnen dinge zu schreiben um sie zu definieren

    und in verschiedenen ebenen zu arbeiten.

    Gibts da noch mehr ?

    Dennoch vielen Dank !!!

  • Während Whileschleife keine Buttons mehr drückbar

    • Headsniper1997
    • 29. April 2018 um 00:34

    Okay also ich verstehe, dass eine While schleife in einer While schleife nicht funktionieren kann.

    Dennoch kann ich noch nicht recht nachvollziehen, wie das nun mein Problem löst, bzw. wie ich deinen Code Yjuq in meinem anwenden kann


    Hat jemand vielleicht ein plastischeres Bsp. ?

    Code
    Global $Mitarbeiter = 0
    Global $Geld = 0 
    
    Case $Button 
        $Geld = $Geld + 1
    
    Case $Button1
        $Mitarbeiter = $Mitarbeiter + 5
        $Geld = $Geld -5
    
    
        If $Mitarbeiter > 10
           hier soll er loopen immer $Geld 5 mehr zuzuweisen, sodass $Button weiterhin funktionieren würde
           => an dieser stelle hänge ich fest
           
        EndIf
    Alles anzeigen
  • Während Whileschleife keine Buttons mehr drückbar

    • Headsniper1997
    • 28. April 2018 um 18:42

    Wie könnte ich das dann anstellen (bin relativ neu) ?

    sagen wir ich Drücke den Button "Mitarbeiter kaufen"

    Dann soll er im Label ausgeben

    Aktueller MItarbeiterstand: 10

    und soll dann in einer schleife pro Sekunde 500 € auf das Konto rechnen

    und im Firmenkontostand wieder ausgeben.

    später dann bei 20 z.b. 1000 € pro Sekunde auf das Konto

  • Während Whileschleife keine Buttons mehr drückbar

    • Headsniper1997
    • 28. April 2018 um 17:55

    Hallo zusammen,

    ich bin gerade dabei ein kleines Spielchen zu machen.

    Hierbei müsst ihr als Chef eines Unternehemns Geld verdienen und so wirtschafen.

    Nun komme ich aber leider nicht mehr weiter aktuell ?(

    Im Script (Zeile 80) zählt er dann zwar alle 2 Sekunden die 500 € auf das Konto, nur kann man dann keine Buttons mehr drücken.

    z.B. der "Geld verdienen" Button geht dann nicht mehr

    ebeneso der Beenden Button auch nicht mehr.

    Hat von euch vielleicht einer ein Lösung für mich wie er pro ( z.b. 5 Sekunden mir immer 500€ auf dieses "Konto" macht aber die Buttons noch bedienbar sind.

    Vielen Dank im Vorfeld !! :)

    Gruß

    Headsniper1997


    C
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <ColorConstants.au3>
    #include <GUIConstantsEx.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Firmenmanager Simulator", 615, 438, 192, 124)
    $Label1 = GUICtrlCreateLabel("Aktueller Firmenkontostand " & "0.00" & " €", 72, 60, 188, 41)
    $Label2 = GUICtrlCreateLabel("Eine Firma kostet 1000.00€", 72, 20, 188, 41)
    $Button1 = GUICtrlCreateButton("Geld verdienen", 352, 60, 201, 33)
    $Button2 = GUICtrlCreateButton("Eine Firma kaufen", 352, 140, 201, 33)
    $Button3 = GUICtrlCreateButton("Mitarbeiter", 952, 140, 201, 33)
    $Button4 = GUICtrlCreateButton("Beenden", 352, 340, 201, 33)
    GUISetState(@SW_SHOW)
    
    
    #EndRegion ### END Koda GUI section ###
    
    
    Global $Input2 = 0
    Global $Mitarbeiter = 0
    Global $Gekauft = false
    Global $i = 0
    
    
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
    
    Case $Button1
    
             $Input2 += 550.91
             GUICtrlCreateLabel("Aktueller Firmenkontostand " & $Input2  & " €", 72, 60, 188, 41)
    
    Case $Button2
          If $Input2 > 999 Then
          $Input2 = $Input2 -999.91
          Local $iRound1 = Round($Input2, 2)
          GUICtrlCreateLabel("Aktueller Firmenkontostand " & $Input2 & " €", 72, 60, 188, 41)
          GUICtrlCreateLabel("Sie haben erfolgreich eine Frima gekauft gekauft!", 72, 140, 188, 41)
          $Firmenname = InputBox ("Name der Firma", "Geben Sie den Namen ihrer Frima ein","")
          GUICtrlCreateLabel(" Ihre Firma heißt nun " & $Firmenname, 472, 20, 170, 20)
          GUICtrlSetBkColor(-1, 0x00FFFF)
          GUISetState(@SW_SHOW)
    
          GUICtrlDelete ($Button2)
          GUICtrlDelete ($Label2)
          GUISetState(@SW_HIDE)
    
    
    
          GUICreate("Firmenmanager Simulator", 615, 438, 192, 124)
          GUISetState(@SW_SHOW)
          GUICtrlCreateLabel(" Firmenname " & $Firmenname, 472, 20, 170, 20)
          GUICtrlSetBkColor(-1, 0x00FFFF)
          GUICtrlCreateLabel("Aktueller Firmenkontostand " & $Input2 & " €", 72, 60, 188, 41)
          $Button3 = GUICtrlCreateButton("Mitarbeiter", 352, 140, 201, 33)
          $Button1 = GUICtrlCreateButton("Geld verdienen", 352, 60, 201, 33)
          $Button4 = GUICtrlCreateButton("Beenden", 352, 340, 201, 33)
    
    
    
          EndIf
    
    Case $Button3
                   If  $Input2 > 500 Then
                      $Input2 = $Input2 - 500
                      $Mitarbeiter = $Mitarbeiter + 10
                      GUICtrlCreateLabel("Aktueller Firmenkontostand " & $Input2 & " €", 72, 60, 188, 41)
                      GUICtrlCreateLabel("Aktuelle Mitarbeiter " & $Mitarbeiter, 72, 140, 188, 41)
                      Local $iRound1 = Round($Input2, 2)
                      Global $Gekauft = true
                   ElseIf $Input2 < 500 Then
                      MsgBox (2, "Kein Kapital", "Sie besitzen nicht genügend Geld um sich einen Mitarbeiter zu kaufen")
                   EndIf
    
                         While 1
                         $Input2 = $Input2 + 500
                         GUICtrlCreateLabel("Aktueller Firmenkontostand " & $Input2 & " €", 72, 60, 188, 41)
                         Sleep (2000)
    
    
    
                         WEnd
    
    
    
    
    Case $Button4
       Exit
    
    
    
        EndSwitch
     WEnd
    Alles anzeigen

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™