Comment savoir le temps de calcul
Patoche99
Messages postés
5
Date d'inscription
mercredi 2 février 2005
Statut
Membre
Dernière intervention
26 avril 2005
-
30 mars 2005 à 18:36
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 30 mars 2005 à 22:52
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 30 mars 2005 à 22:52
A voir également:
- Comment savoir le temps de calcul
- Diagramme de classe emploi du temps ✓ - Forum Java
- Gestion d emploi du temps en java - Forum Java
- Gestion des emplois du temps sous java et mysql d'une université - Forum Java
- Calcule temps - Forum C / C++ / C++.NET
- Calcul iban ✓ - Forum VB.NET
2 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
30 mars 2005 à 18:53
30 mars 2005 à 18:53
Salut
Suffit d'utiliser l'api GetTickCount
Tu mémorises la valeur avant, puis après ton exécution, et tu fais la différence entre les deux valeurs pour connaitre la durée en millsecondes.
Sujet maintes et maintes fois abordé sur le forum
Vala
Jack
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
Suffit d'utiliser l'api GetTickCount
Tu mémorises la valeur avant, puis après ton exécution, et tu fais la différence entre les deux valeurs pour connaitre la durée en millsecondes.
Sujet maintes et maintes fois abordé sur le forum
Vala
Jack
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
30 mars 2005 à 22:52
30 mars 2005 à 22:52
Vois si ce code (en le modifiant) peut convenir à ton application.
Sub TestTemps()
Dim x As Integer, y As Integer
Dim A As Integer, B As Integer, C As Integer
Dim i As Integer, j As Integer
Dim TempsDébut As Date, TempsFin As Date
TempsDébut = Timer
x = 0
y = 0
For i = 1 To 5000
For j = 1 To 5000
A = x + y + i
B = y - x - i
Next j
Next i
TempsFin = Timer
MsgBox "Le calcul a duré " & Format(TempsFin - TempsDébut, "0.0") & " secondes"
End Sub
jpleroisse
Sub TestTemps()
Dim x As Integer, y As Integer
Dim A As Integer, B As Integer, C As Integer
Dim i As Integer, j As Integer
Dim TempsDébut As Date, TempsFin As Date
TempsDébut = Timer
x = 0
y = 0
For i = 1 To 5000
For j = 1 To 5000
A = x + y + i
B = y - x - i
Next j
Next i
TempsFin = Timer
MsgBox "Le calcul a duré " & Format(TempsFin - TempsDébut, "0.0") & " secondes"
End Sub
jpleroisse
