Enter Time To Wait

[EhJay]

Hi. I have a point in my script where I would like a msg box or something to pop up and ask me how long I would like to make the script pause for.

ex.

How long would you like the script to wait? ___5___

OK

The script would then wait for 5 seconds or minutes or whatever unit I can use.

Thanks for the help.

[PsaltyDS]

Hi. I have a point in my script where I would like a msg box or something to pop up and ask me how long I would like to make the script pause for.

ex.

How long would you like the script to wait? ___5___

OK

The script would then wait for 5 seconds or minutes or whatever unit I can use.

Thanks for the help.

This does not sound hard. What have you got already? Is your InputBox() working?

[Geert]

Sleep(1000*Number(InputBox("Wait 'x' seconds","Enter Time To Wait")))

[EhJay]

That worked great. Thanks.

[EhJay]

Hi again. That's been working great but how do I get the script to abort when I click cancel on the imput box? I press cancel and it just waits the time that's in the imput box before continuing on in the script. I want to put an "Exit" when someone presses the cancel button.

Thanks.

[Bundy]

Assign InputBox to variable, and look at help:

Return Value

Success: Returns the string that was entered.

Failure: Returns an empty string and sets @error as follows:

@Error 0 = The string returned is valid.

1 = The Cancel button was pushed.

2 = The Timeout time was reached.

And use sinple If... EndIf.

[EhJay]

Ok. I understand what you mean by that, but how would I make the ImputBox a variable when it is like this?:

Sleep(1000*Number(InputBox("Wait 'x' seconds","Enter Time To Wait")))

With the "Sleep" at the beginning where would I but the $variable ?

[Uten]

Don't use this for accurate time taking thougt

$timeout = InputBox("TIMOUT IN","Give ms to timout")
; DO check for cancel see the help file
$timeinit = TimerInit()
While (TimerDiff($timeinit) < $timeout)
   TrayTip("","",0)
   TrayTip("Timout in: ", $timeout - TimerDiff($timeinit),0)
   sleep(100)
Wend

Edited June 10, 2006 by Uten

[EhJay]

Don't use this for accurate time taking thougt

$timeout = InputBox("TIMOUT IN","Give ms to timout")
; DO check for cancel see the help file
$timeinit = TimerInit()
While (TimerDiff($timeinit) < $timeout)
   TrayTip("","",0)
   TrayTip("Timout in: ", $timeout - TimerDiff($timeinit),0)
   sleep(100)
Wend

Errr... ok thank you. Your thing works like I want it to but when you click cancel it does not exit the script, it just continues what's after the "WEnd". Also, I need to do this silently.

Thank you though.

[Uten]

, Am I employed by you or somthing? hmm, no I have not seen any checks yet, so I don't think so.

; DO check for cancel SEE THE HELP FILE!!!!!

$timeout = InputBox("TIMOUT IN","Give ms to timout")
; DO check for cancel see the help file
$timeinit = TimerInit()
While (TimerDiff($timeinit) < $timeout)
   sleep(100)
Wend

[EhJay]

, Am I employed by you or somthing? hmm, no I have not seen any checks yet, so I don't think so.

; DO check for cancel SEE THE HELP FILE!!!!!

$timeout = InputBox("TIMOUT IN","Give ms to timout")
; DO check for cancel see the help file
$timeinit = TimerInit()
While (TimerDiff($timeinit) < $timeout)
   sleep(100)
Wend

LOL... Ok I didn't understand what that ment before. Sorry. And I didn't ask you to write me all of that ya know... you chose to. I just asked how to make the ImputBox in

Sleep(1000*Number(InputBox("Wait 'x' seconds","Enter Time To Wait")))

a variable.

But thank you, this should work.

[EhJay]

Umm... Ok I still can't get it to work. Would I put

If $timeout = 1 then
    exit
endif

into it because the return value of the ImputBox when cancel is presses is 1? I'm sorry I've never used this many variables or "values" in a program before. Thanks again for your help.

Edited June 10, 2006 by EhJay

[Bundy]

I don't know how to do it properly either but try:

$variable = InputBox("Wait 'x' seconds","Enter Time To Wait")
If @error Then
    Exit 0
EndIf
If IsInt($variable) And $variable <> "" Then
        Sleep(1000*Number($variable))
EndIf

I don't know how to get @error value ;p

[EhJay]

I did that and it works. Thank you very much.

[Uten]

I don't know how to do it properly either but try:

$variable = InputBox("Wait 'x' seconds","Enter Time To Wait")
If @error Then
    Exit 0
EndIf
If IsInt($variable) And $variable <> "" Then
        Sleep(1000*Number($variable))
EndIf

Is a contradiction (or a bot to mutch if you like ). Obviously $variable <> "" if $variable is a int (number), or did I miss something ?

[EhJay]

To tell you the truth I don't understand the whole line.

If IsInt($variable) And $variable <> "" Then

[Daniel W.]

If IsInt($variable) And $variable <> "" Then

Lets look at it then

If ... Then should be known

IsInt( $variable ) :

Int ( INTeger) is a number like 2 or 3 or - 1.

1.124 and 1234.124 are not a integers!

IsInt(..) returns 1 if the variable is an integer and 0 if the variable is no integer

$variable <> ""

This is just a check if the variable is defined. When its not defined its "". Then you cant check anything with it

And

this combines both (isint() $variable <> "") and the if ... then will only be done when BOTH are true!

Do you understand it now?

[EhJay]

Oh! I actualy kinda get it. It's like it's jerryriged then?

[Daniel W.]

hmm what means "jerryriged"?

Google translate says nothing and my english wordbook doesn't have it. Sorry

[i542]

Maybe that works:

$wait=InputBox("How long","Enter time to wait.")
If @error Then Exit 1
Sleep($wait)
TrayTip("Wait","Wait end")
Sleep(5000)
;or you can replace TrayTip with this
MsgBox(0,"Wait", "Wait end")