Jump to content
Sign in to follow this  
TheOnlyOne

continue loop

Recommended Posts

TheOnlyOne

okay the problem is i have 1 gui and then a new one need to pop up but when this happen and i need to close the gui there just opened agian that works but when i try to do the same thing one time more i get a error

"C:\Programmer\AutoIt3\Include\ProgressConstants.au3 (10) : ==> Can not redeclare a constant.:
Global Const $PBS_MARQUEE = 0x00000008
Global Const ^ ERROR"

this is my code

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$hp=50
$money=20
$timetorepair=20
$05=5
$03=3
$1l=2
$1_5=3
$2l=2
$z=8

#Region ### START Koda GUI section ### Form=C:\Documents and Settings\lo\Skrivebord\auto it games\thomas game\start menu.kxf
$Form1 = GUICreate("Form1", 633, 447, 200, 133)
GUISetBkColor(0x800000)

GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\lo\Skrivebord\auto it games\fight game\man-stand1.jpg", 24, 168, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic2 = GUICtrlCreatePic("C:\Documents and Settings\lo\Skrivebord\auto it games\thomas game\coca cola mashine.jpg", 192, 120, 76, 148, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("HP :"&$hp, 192, 56, 220, 20)
$Label2 = GUICtrlCreateLabel("Money :"&$money, 192, 96, 220, 20)
$Button1 = GUICtrlCreateButton("Drink cola", 280, 120, 99, 25, 0)
$Button2 = GUICtrlCreateButton("Make money", 280, 184, 99, 25, 0)
$Label3 = GUICtrlCreateLabel("mood: HAPPY", 24, 112, 121, 20)
GUICtrlSetColor(-1, 0x00FF00)
$Button3 = GUICtrlCreateButton("Sleep (+1hp)", 280, 224, 99, 25, 0)
$Button4 = GUICtrlCreateButton("buy cola ", 280, 152, 99, 25, 0)

$Label4 = GUICtrlCreateLabel("And the program for you ... :P", 408, 48, 203, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Input1", 416, 120, 121, 21)
$Label5 = GUICtrlCreateLabel("Time before shutdown", 416, 96, 129, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("start", 432, 152, 75, 25, 0)
$Label6 = GUICtrlCreateLabel("Counter:", 424, 200, 44, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg

        case $Button2
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$sec=0
$sec2=0
#Region ### START Koda GUI section ### Form=
$Form4 = GUICreate("Form1", 405, 90, 193, 125)
$Progress1 = GUICtrlCreateProgress(16, 56, 174, 17)
$Progress2 = GUICtrlCreateProgress(200, 56, 150, 17)
$Labe1 = GUICtrlCreateLabel("Status on moveing a stone"&@crlf&" to the place it should be", 16, 20, 246, 25)
$Labe2 = GUICtrlCreateLabel("status on working", 200, 32, 87, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$showed=1
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
        
        EndSwitch
    sleep (10)
    $sec=$sec+2
    guictrlsetdata($Progress1,$sec)
    guictrlsetdata($Progress2,$sec2)
    if $sec=100 then
        
        $sec2=$sec2+10
        $sec=0
    endif
    if $sec2=100 then
$2sec=0
    $money=$money+15
    $hp=$hp-10
    sleep (50)
    ExitLoop(0)
            GUIDelete($form4)
            continueloop (2)
            endif
WEnd

Share this post


Link to post
Share on other sites
GodlessSinner

Im not, understand, why you creates GUI inside a While??? And look at this:

Case $GUI_EVENT_CLOSE
        
        EndSwitch

You miss type Exit

Case $GUI_EVENT_CLOSE
       Exit
        EndSwitch

_____________________________________________________________________________

Share this post


Link to post
Share on other sites
GodlessSinner

It's must be rewritten, almost all. If you really need it, i can do this.


_____________________________________________________________________________

Share this post


Link to post
Share on other sites
GodlessSinner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$hp=50
$money=20
$timetorepair=20
$05=5
$03=3
$1l=2
$1_5=3
$2l=2
$z=8
$sec=0
$sec2=0

#Region ### START Koda GUI section ### Form=C:\Documents and Settings\lo\Skrivebord\auto it games\thomas game\start menu.kxf
$Form1 = GUICreate("Form1", 633, 447, 200, 133)
GUISetBkColor(0x800000)

GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\lo\Skrivebord\auto it games\fight game\man-stand1.jpg", 24, 168, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic2 = GUICtrlCreatePic("C:\Documents and Settings\lo\Skrivebord\auto it games\thomas game\coca cola mashine.jpg", 192, 120, 76, 148, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("HP :"&$hp, 192, 56, 220, 20)
$Label2 = GUICtrlCreateLabel("Money :"&$money, 192, 96, 220, 20)
$Button1 = GUICtrlCreateButton("Drink cola", 280, 120, 99, 25, 0)
$Button2 = GUICtrlCreateButton("Make money", 280, 184, 99, 25, 0)
$Label3 = GUICtrlCreateLabel("mood: HAPPY", 24, 112, 121, 20)
GUICtrlSetColor(-1, 0x00FF00)
$Button3 = GUICtrlCreateButton("Sleep (+1hp)", 280, 224, 99, 25, 0)
$Button4 = GUICtrlCreateButton("buy cola ", 280, 152, 99, 25, 0)

$Label4 = GUICtrlCreateLabel("And the program for you ... :P", 408, 48, 203, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Input1", 416, 120, 121, 21)
$Label5 = GUICtrlCreateLabel("Time before shutdown", 416, 96, 129, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("start", 432, 152, 75, 25, 0)
$Label6 = GUICtrlCreateLabel("Counter:", 424, 200, 44, 17)
GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
Exit
Case $Button2
    AnotherGui()
EndSwitch

WEnd

Func AnotherGui()
    $Form4 = GUICreate("Form1", 405, 90, 193, 125)
$Progress1 = GUICtrlCreateProgress(16, 56, 174, 17)
$Progress2 = GUICtrlCreateProgress(200, 56, 150, 17)
$Labe1 = GUICtrlCreateLabel("Status on moveing a stone"&@crlf&" to the place it should be", 16, 20, 246, 25)
$Labe2 = GUICtrlCreateLabel("status on working", 200, 32, 87, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
    Do
        $Msg = GUIGetMsg()
          sleep (10)
            $sec=$sec+2
            guictrlsetdata($Progress1,$sec)
            guictrlsetdata($Progress2,$sec2)
            if $sec=100 then
            
        $sec2=$sec2+10
        $sec=0
    endif
    if $sec2=100 then
    $2sec=0
    $money=$money+15
    $hp=$hp-10
    sleep (50)
    EndIf
    Until $Msg = $GUI_EVENT_CLOSE
    GUIDelete()
    EndFunc


_____________________________________________________________________________

Share this post


Link to post
Share on other sites
TheOnlyOne

thanks that helped alot mistake by me at removeing that with

Case $GUI_EVENT_CLOSE
Exit

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×