| Time.DelaySinceLast | Part of Time module |
| Syntax | Time.DelaySinceLast ( duration : int ) |
| Description | The Time.DelaySinceLast procedure is used to cause the
program to pause for a given time since the last call to
Time.DelaySinceLast. The time duration is in milliseconds.
|
| Example | This program outputs from 1 to 100,000, then outputs how long it
took to do this (in milliseconds). It then calls Time.DelaySinceLast
to wait until 10 seconds has passed since the beginning of the
program (regardless of how long it took to execute the loop). Finally
it outputs how many milliseconds has passed since the program started.
This should be close to 10,000 milliseconds.
var t : int := Time.Elapsed
put "Starting now, count to 100,000"
for i : 1 .. 100000
put i ..
locate (whatrow, 1)
end for
put "Finished counting to 100,000"
put "Elapsed time: ", Time.Elapsed - t, " milliseconds"
Time.DelaySinceLast (10000)
put "Elapsed time: ", Time.Elapsed - t, " milliseconds"
|
| Execute | |
| Details | The Time.DelaySinceLast is usually used to time a process so
that it operates on the same speed no matter what the machine. For
example, in the above example, the program will alwyas take 10
seconds to execute, regardless of the speed of the machine (up to
a point). Fast machines will spend little time in the for
loop and longer waiting to return from Time.DelaySinceLast.
Slower machines will take longer to execute the loop and will
consequently wait less time before returning from
Time.DelaySinceLast. The Time.DelaySinceLast procedure is often used to time the speed of animation in games. Note that this only works up to a point. On a very slow machine, the for loop may take longer than 10 seconds to execute, in which case the call to Time.DelaySinceLast will return instantly.
|
| Status | Exported qualified. This means that you can only call the function by calling Time.DelaySinceLast, not by calling DelaySinceLast.
|
| See also | Time.Elapsed and Time.ElapsedCPU.
|