Discussion :

[abdallahi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Command1_Click()
    Label2.Caption = fibo(Val(Text1.Text))
 
End Sub

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Catbull]

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

[méphistopheles]

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

[ar_men]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[méphistopheles]

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

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

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

[ar_men]

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 ....

[méphistopheles]

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

salut