issues with buttons...

[Vindicator209]

I have a button that if you click it before it changes, you will lose, but it wont stop!, itll count you as 0 seconds anyway! can someone help me?

expandcollapse popup

#include <GuiConstants.au3>
GuiCreate("GUI", 115, 52,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$Button_1 = GuiCtrlCreateButton("<DONT CLICK>", 10, 10, 90, 30)
GuiSetState(@SW_SHOW)
GuiSetState()
$allow=0
$2=Random(5000,10000,1)
Sleep($2)
GUICtrlSetData($Button_1,"<CLICK>")
$allow=1
$time = TimerInit()
While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $Button_1
If $allow=1 Then
    MsgBox(0,"STOP!","You clicked too soon! try again!")
    Exit
EndIf
$timer = TimerDiff($time)
$seconds = Round($timer/1000,2)
            MsgBox(0,"Your Reflex time!","Your reflex time is:" & $seconds)
            If $seconds < .1 Then
                MsgBox(0,"Your Reflex time!","GREAT! You are ranked: CHAMPION")
                Exit
            EndIf
            If $seconds < .2 Then
                MsgBox(0,"Your Reflex time!","WOW... You are ranked: FAST")
                Exit
            EndIf
            If $seconds < .3 Then
                MsgBox(0,"Your Reflex time!","Wow! You are ranked: SPEEDY")
                Exit
            EndIf
            If $seconds < .4 Then
                MsgBox(0,"Your Reflex time!","Great! You are ranked: OKAY")
                Exit
            EndIf
            If $seconds < .5 Then
                MsgBox(0,"Your Reflex time!","HORRIBLE! You are ranked: S L O W")
                Exit
            EndIf
            If $seconds > .5 Then
                MsgBox(0,"Your Reflex time!","HORRIBLE! You are so slow, I wont even give you a rank!")
                Exit
            EndIf
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
        ;;;
EndSelect
WEnd
Exit

Edited October 13, 2006 by MethodZero

[SmOke_N]

Your if statement logic seems completely off. If someone clicks it in .1 second, they'll get 5 message boxes.

If Number($seconds) < .5 And Number($seconds) > .4 Then ... is something you might look at.

Edit:

Had Int() instead of Number()

Edited October 13, 2006 by SmOke_N

[SkiFreak]

Try something like this . . .

expandcollapse popup

#include <GuiConstants.au3>

Dim $seconds, $allow, $time, $timer

GuiCreate("GUI", 115, 52,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$Button_1 = GuiCtrlCreateButton("<DONT CLICK>", 10, 10, 90, 30)
GuiSetState(@SW_SHOW)
GuiSetState()
$allow=1
$2=Random(5000,10000,1)
AdlibEnable("_EnableButton",$2)

While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $Button_1
            Switch GuiCtrlRead($Button_1)
                Case $allow=1
                    MsgBox(0,"STOP!","You clicked too soon! try again!",5)
                Case $allow = 0
                    $timer = TimerDiff($time)
                    $seconds = Round($timer/1000,2)
                    MsgBox(0,"Your Reflex time!","Your reflex time is:" & $seconds)
                    If $seconds < .1 Then
                        MsgBox(0,"Your Reflex time!","GREAT! You are ranked: CHAMPION")
                        Exit
                    EndIf
                    If $seconds < .2 Then
                        MsgBox(0,"Your Reflex time!","WOW... You are ranked: FAST")
                        Exit
                    EndIf
                    If $seconds < .3 Then
                        MsgBox(0,"Your Reflex time!","Wow! You are ranked: SPEEDY")
                        Exit
                    EndIf
                    If $seconds < .4 Then
                        MsgBox(0,"Your Reflex time!","Great! You are ranked: OKAY")
                        Exit
                    EndIf
                    If $seconds < .5 Then
                        MsgBox(0,"Your Reflex time!","HORRIBLE! You are ranked: S L O W")
                        Exit
                    EndIf
                    If $seconds > .5 Then
                        MsgBox(0,"Your Reflex time!","HORRIBLE! You are so slow, I wont even give you a rank!")
                        Exit
                    EndIf
            EndSwitch
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
       ;;;
EndSelect
WEnd

Func _EnableButton()
    GUICtrlSetData($Button_1,"<CLICK>")
    $allow=0
    $time = TimerInit()
EndFunc

Using "Sleep" is not the best option here.

[SmOke_N]

@SkiFreak, your logic is also flawed.

[SkiFreak]

@SkiFreak, your logic is also flawed.

As is my brAin... :">

I must admit to not looking too closely at the If conditions; just the fact that it did not work using "sleep".

[Vindicator209]

are you sure? it seems his DOES work, and I twitched the script a little to test your theory on the5 boxes coming up, they dont, because I had noticedthat a while ago, and the script will actually exit itself before the other boxes come up, but thanks for bringing that up.

@SkiFreak

Thanks, both of you

I dont see how you changed the variable $allow to 0 without using anothr command..

EDIT: ok, now I see the function

Edited October 13, 2006 by MethodZero