Procedura che stampa a video la percentuale di CPU utilizzata. Ovviamente deve essere adattata ai nostri scopi. Viene fornita in versione "per console". La procedura cicla 10000 volte per darvi il tempo di aprire programmi e vedere come vengono incrementate le percentuali
Sub cpucount()
Dim pcpu As New PerformanceCounter("Processore", "% Tempo Processore", "_Total")
Dim I As Integer
Do
Dim v1 As CounterSample = pcpu.NextSample
System.Threading.Thread.CurrentThread.Sleep(100)
Dim v2 As CounterSample = pcpu.NextSample
I += 1
Console.WriteLine(CounterSample.Calculate(v1, v2).ToString)
Loop Until I > 10000
Console.WriteLine("fine")
Console.ReadLine()
End Sub
Function
isDecimal(ByVal num As Double) As Boolean
Try
If num / (Fix(num)) = 1 Or num = 0 Then
Return False
Else
Return True
End If
Catch ex As DivideByZeroException
End Try
End Function
Sicuramente non è la soluzione migliore ma FUNZIONA!!!! (come diceva il buon vecchio DOC in "ritorno al futuro")
Il giorno 24/09/2004 dovrò affrontare il mio primo esame MCP . Speriamo che la forza sia con me, dato che sto studiando da 3 mesi ... non è facile trovare il tempo tra lavoro e palestra. Mi rivolgo a tutte le persone che dicono di non avere tempo. Semplice: basta avere un po di volontà e spirito di sacrificio.