le temps d'execution d'une commende

bonjour
g fait une fonction qui calcule le fibonatci d'un entier saisi dans un text box
et affuche les resultats dans un label .
g remquer que pour les nombre > 30 le temps d'execution devient cosidrable
g cherche une façon de calculer le temps d'execution de cette algorithme sur mon poste
nb g fait appele de cette fonction quand je clucle se sur la coomende1
voila la foction fibo

Code:

---

1 2 3 4 5 6 7 8

Private Function fibo(n As Integer) As Long If n < 2 Then fibo = n Else fibo = fibo(n - 2) + fibo(n - 1) End If   End Function

---

j'appele la fonction ici et cele que je veux savoir combient de temp il me faut pour que le resulta soient affiché

Code:

---

1 2 3 4

Private Sub Command1_Click() Label2.Caption = fibo(Val(Text1.Text))   End Sub

---

si je comprend bien tu veux connaitre le temps qu'a mis ta fonction pour s'executer ?? si c'est le cas alors voila une astuce.

Code:

---

1 2 3 4 5 6 7 8 9 10

dim temps as date, temps, dure as long 'tout d'abord tu recupere la date actuel, enfin avant le debut de l'execution temps = date(now)   'ensuite tu appel ta function normalement result = fibo(35)   'enfin tu compare la date de debut avec la date actuel dure= DateDiff("ss", temps, now) 'ss pour seconde

---

Un petit coup d'oeil dans la faq : Comment obtenir le temps d'exécution d'une partie de mon code ?

je me demande si ton but n'est pas de calculer le temps que va mettre ton algo AVANT de l'executer. dans ce cas, il faut voir si tu peut calculer le nombre d'instruction que tu va executer. sinon, essaye d'utiliser une progressbar (mais trés difficile pour les récursives).


salut :wink:

c'est une jolie démarche de recherche d'efficacité

c un peu rare

outre le faq que l'on t'a indiqué

tu te fais une boucle type

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

a = time de début   for i = 1 to 1000 montravail next i   b= time   temps total = b-a   et dans "montravail" tu testes if .. else .. end if select case do while   ...

---

tu verras c surprenat

en fait, ta différence de date ne peut pas marcher car a et b aurons un format "date" et ne seront comparable que via la fonction datediff.

sinon, on peut égualement mettre cette fonction dans un timer et utiliser la procédure doevents qui à l'avantage d'allouer de la memoire à lapli (sinon, l'ordi la met en "pas de réponse" au bout d'un certain temps.


salut :wink:

Citation:

---

Envoyé par sovo

si je comprend bien tu veux connaitre le temps qu'a mis ta fonction pour s'executer ?? si c'est le cas alors voila une astuce.

Code:

---

1 2 3 4 5 6 7 8 9 10

dim temps as date, temps, dure as long 'tout d'abord tu recupere la date actuel, enfin avant le debut de l'execution temps = date(now)   'ensuite tu appel ta function normalement result = fibo(35)   'enfin tu compare la date de debut avec la date actuel dure= DateDiff("ss", temps, now) 'ss pour seconde

---

---

Citation:

---

Envoyé par abdallahi

merci pour ta reponse
mais mon prg n' apas recconnu date(now)

---

remplace la ligne temps = Date(now) par temps = now ..

ben si ça marche

ce que je dis c du générique

a = timer ' tu récupères l'instant au nième de seconde
b = timer ' tu récupères l'instant au nième de seconde

je fais du basic et j'utilise vb ....

timer n'est pas égual à time.
time, c'est lheure windows
et c'est beaucoup plus précis.

salut :wink: