TIMER.Stop

Previous  Next

 

status = TIMER.Stop( handle AS HANDLE ) AS INTEGER

 


 

Stops a timer.  You can restart a stopped timer by calling TIMER.Start again.

 

Example:

 

$LIBRARY "MyBASIC2_ExtLib"

$INCLUDE "MyBASIC2_ExtLib"

 

DIM hTimer AS HANDLE

 

' Open a Timer

hTimer = TIMER.Open()

 

IF hTimer <> MB_INVALID_HANDLE THEN

  ' Start the Timer

  TIMER.Start( hTimer )

  ' Short Delay of 1.23 seconds

  SLEEP 1.23

  ' Stop Timer

  TIMER.Stop( hTimer )

  ' Display result in Seconds and MilliSeconds

  PRINT FORMAT( "Elapsed: %1.2f s,   %1.0f ms", TIMER.Elapsed( hTimer ), TIMER.Elapsed( hTimer, 1000 ) ),

  ' Close Timer

  TIMER.Close( hTimer )

ENDIF

 

END