Hi Is there a way to show a timer dialog that counts during any wait delay between steps?
For example if I have:
5] wait>10
6] execute>blah blah
7] wait>15
8] execute>more blah blah
9] wait>10
I am hoping to see the WAIT> 10 and 15 countdowns as they are happening. Is this possible to show this and associate it with line numbers, how long the wait is and how much time is left?
Between steps wait timer display
Moderators: Dorian (MJT support), JRL
Between steps wait timer display
Just when you thought it was safe to go in the water........
Re: Between steps wait timer display
Something like this?
Replace Wait>10
with
GoSub>Dwell,10
Replace Wait>10
with
GoSub>Dwell,10
Code: Select all
VBSTART
VBEND
Let>RP_Wait=1
Dialog>Dialog1
object Dialog1: TForm
BorderIcons = [biSystemMenu]
Caption = 'Wait Time'
ClientHeight = 129
ClientWidth = 170
Position = poScreenCenter
object Label1: TLabel
Left = 40
Top = 40
Width = 36
Height = 13
Caption = 'Waiting'
end
object Label2: TLabel
Left = 40
Top = 64
Width = 32
Height = 13
end
end
EndDialog>Dialog1
Let>Num=_Line_num
GoSub>Dwell,10
RunProgram>cmd /c dir c:\
Let>Num=_Line_num
GoSub>Dwell,15
RunProgram>cmd /c dir c:\
Let>Num=_Line_num
GoSub>Dwell,10
SRT>Dwell
Show>Dialog1
VBEval>Timer,StartToDwell
Add>num,2
Label>DwellTimerLabel
Wait>0.01
VBEval>Timer-%StartToDwell%,TotalDwellSeconds
If>TotalDwellSeconds>%Dwell_var_1%
Goto>EndDwellTimerLabel
EndIf
Let>TotalDwellSeconds={trunc (%TotalDwellSeconds%)}
SetDialogProperty>Dialog1,Label2,Caption,%TotalDwellSeconds% of %Dwell_var_1%%crlf%%crlf%Line Number: %num%
Goto>DwellTimerLabel
Label>EndDwellTimerLabel
Let>Dwell_var_1=
CloseDialog>Dialog1
END>Dwell
Re: Between steps wait timer display
Thanks JRL I am liking this. Originally I thought that maybe there was a function that I could turn on and didn't know where it was. Homegrown is good.
Just when you thought it was safe to go in the water........