Mesure du temps d'exécution d'un code

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 316 fois - Téléchargée 7 fois

Contenu du snippet

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

' Parametres
Dim Stopwatch As System.Diagnostics.Stopwatch 
Stopwatch = New Stopwatch

' Initialisation : debut de la mesure


Stopwatch.Start()


' Code à tester

'...

Dim i As Long, a As Long
For i = 1 To 100000000 
a = a + 1
Next i 
'...


' fin de la mesure

Stopwatch.Stop()


' Affichage de la mesure
MessageBox.Show(Stopwatch.Elapsed().TotalSeconds & " secondes") 
'MessageBox.Show(Stopwatch.Elapsed().TotalMilliseconds & " millisecondes")

End Sub


Compatibilité : VB 2008

Disponible dans d'autres langages :

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.