Ricerca personalizzata

Difficoltà: 1 / 5

In alcuni programmi di diagnostica e controllo del sistema può essere utile mostrare all'utente da quanto tempo Windows è in esecuzione.

Esiste una funzione API apposita per ottenere il numero di millisecondi dall'avvio di Windows. La funzione in questione si chiama GetTickCount.

Vediamo un semplicissimo esempio per calcolare il numero di minuti dall'avvio di Windows.

Inseriamo sopra un form una Labeldi nome Label1, con proprietà Autosize impostata a True e proprietà Caption impostata a "Windows è in esecuzione da XX minuti".

Il codice si riassume in pochissime semplici righe:

1. Option Explicit
2. Private Declare Function GetTickCount Lib "kernel32" () As Long
4. Private Sub Form_Load()
5.     Dim TEMPO As Long
6.     TEMPO = GetTickCount / 60000
7.     Label1.Caption = "Windows è stato avviato da " & TEMPO & " minuti"
8. End Sub

Alla riga 2 viene dichiarata la funzione API GetTickCount.

All'interno dell'eventoLoad del form, alla riga 5 dichiariamo una variabile temporanea di nome TEMPO. Subito, alla riga 6, calcoliamo il numero di minuti dividendo il valore restituito da GetTickCount per 60.000 (60 * 1000).

Così, alla riga 7, possiamo impostare il contenuto della Label1 concatenando i tre valori:

1. "Windows è stato avviato da "
2. TEMPO
3. " minuti"

In tal modo, al caricamento del form ci viene mostrato il numero di minuti dal caricamento di Windows.

Figura 2

La funzione è semplicissima, sia nella dichiarazione, sia nell'utilizzo.
Può essere sfruttata anche come funzione per calcolare tempi di esecuzione di procedure.

Fibia FBI
15 Gennaio 2001

Scarica il progetto

Scarica il testo dell'articolo

Stampa l'articolo