Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
constrain the no of sub procedure executions per second
I need to restrict the number of executions per second for two sub
procedures. When sum total of sub procedure executions per second is more than a user defined number per second (e.g., five (5) per second), I need the threads running the procedure to stop for a user defined period (e.g., one (1) second), while other processes can continue. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
constrain the no of sub procedure executions per second
If avgExec userExec Then
waitTime = Now + TimeValue("00:00:05") Do Until Now waitTime DoEvents Loop End If DoEvents will pause execution and allow other processes to execute. "Gum" wrote: I need to restrict the number of executions per second for two sub procedures. When sum total of sub procedure executions per second is more than a user defined number per second (e.g., five (5) per second), I need the threads running the procedure to stop for a user defined period (e.g., one (1) second), while other processes can continue. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
constrain the no of sub procedure executions per second
Thanks for your response. The avgExec variable, the number of executions per
sec, would be the total of the number of executions of two sub procedures per second. I need to find out how to get compute the 'avgExec' variable so that I can use your procedure below to stop the execution when avgExecuserExec is true. "AndyM" wrote: If avgExec userExec Then waitTime = Now + TimeValue("00:00:05") Do Until Now waitTime DoEvents Loop End If DoEvents will pause execution and allow other processes to execute. "Gum" wrote: I need to restrict the number of executions per second for two sub procedures. When sum total of sub procedure executions per second is more than a user defined number per second (e.g., five (5) per second), I need the threads running the procedure to stop for a user defined period (e.g., one (1) second), while other processes can continue. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
constrain the no of sub procedure executions per second
Perhaps, I should explain further:
I have 2 sub procedures that are run concurrently: Sub FirstSub() if firstCondition=True then .... wait 0.1 sec secondSub end if end sub sub SecondSub() if secondcondition=True Then .... wait 0.1 sec FirstSub end Sub When the instances where condition1 and condition2 occur say 1 second apart the program yields favourable results. However, if they run without interruption, they would together take 0.2 secs to execute and this leads to an error. I do not want to bypass the error as the condition is not desirable. The Wait 0.1 sec time is just sufficient for each sub procedure to compete its task before going to the other sub. "Gum" wrote: Thanks for your response. The avgExec variable, the number of executions per sec, would be the total of the number of executions of two sub procedures per second. I need to find out how to get compute the 'avgExec' variable so that I can use your procedure below to stop the execution when avgExecuserExec is true. "AndyM" wrote: If avgExec userExec Then waitTime = Now + TimeValue("00:00:05") Do Until Now waitTime DoEvents Loop End If DoEvents will pause execution and allow other processes to execute. "Gum" wrote: I need to restrict the number of executions per second for two sub procedures. When sum total of sub procedure executions per second is more than a user defined number per second (e.g., five (5) per second), I need the threads running the procedure to stop for a user defined period (e.g., one (1) second), while other processes can continue. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Continual Executions | Excel Programming | |||
executions per second | Excel Programming | |||
Hide macros executions | Excel Programming | |||
Hide macros executions | Excel Programming | |||
Hide macros executions | Excel Programming |