en Ejemplos, Harbour

Ejemplo Seconds (seconds.prg)

//
// $Id: seconds.prg 9200 2008-08-20 11:04:28Z vszakats $
//

/* Test SECONDS() */
/* Harbour Project source code
http://www.harbour-project.org/
Donated to the public domain on 2001-03-08 by David G. Holm <[email protected]>
*/

Function Main( cParam )
local n, limit := 10
local cNewLine := HB_OSNewLine()

IF ! EMPTY( cParam )
    limit := VAL( cParam )
ENDIF

OUTSTD( cNewLine )
OUTSTD( SECONDS() )

FOR n := 1 TO limit
    IF EMPTY( cParam )
        OUTSTD( cNewLine )
        OUTSTD( "Pause: " )
        INKEY(0)
    ENDIF
OUTSTD( cNewLine )
OUTSTD( SECONDS() )
NEXT

Return NIL

22-05-2010 14-27-03