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