Ottenere con le risorse della libreria Libc.so.6 il tempo impiegato per eseguire un programma
Da Gambas-it.org - Wikipedia.
Versione del 1 lug 2024 alle 08:31 di Vuott (Discussione | contributi)
Con la funzione esterna "clock()" della libreria libc.so.6 è possibile conoscere il tempo impiegato per eseguire tutto o parte del codice di un programma.
In particolare la funzione esterna "clock()" restituisce il numero di tick di clock trascorsi da quando il programma è stato lanciato.
Per poter utilizzare in Gambas la predetta funzione "clock()" è necessario richiamare la libreria dinamica condivisa: "libc.so.6 ".
Mostriamo un semplice esempio:
Library "libc:6" Private Const CLOCKS_PER_SEC As Long = 1000000 ' clock_t clock (void) ' Time used by the program so far. Private Extern clock() As Long Public Sub Main() Dim inizio, fine, l As Long Dim totale As Float inizio = clock() ' Fa compiere al programma anche un semplice ciclo "For" di 1 miliardo di cicli: For l = 1 To 1000000000 Next fine = clock() ' Per ottenere il numero di secondi utilizzati dalla CPU, è necessario dividere per il valore della costante "CLOCKS_PER_SEC": totale = CFloat((fine - inizio) / CLOCKS_PER_SEC) Print "Tempo trascorso: ";; totale End