entrer une fonction en argument d'une autre fonction

**arno78** · 05/09/2006, 11h06

Bonjour,

J'aurai voulu savoir comment il est possible d'entrer un fonction dans les arguments d'un fonction.

par exemple je voudrais creer une fonction integral qui prend en entrée le nom de la fonction et les bornes d'intégration et renvoi le resultat.
J'ai vu qu'il y avait un moyen en vb.net avec des fonction déléguées mais je n'ai rien trouvé à ce propos dans VB...

Merci de votre aide

**Delbeke** · 05/09/2006, 11h08

Désolé je ne comprends pas .
Tu voudrais quelque chose comme
lret=Mafonction(Mafonction2(x))
?

**arno78** · 05/09/2006, 11h25

Je pense qu'on parle de la meme chose mais je vais essayer d'etre plus clair:

si je défini une fonction quelconque f

Code :

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

1
2
3
4
 
function f1(x)
f1=3*x+2
end function

Et je veux ensuite pouvoir la mettre en argument d'une autre fonction:

l'exmeple le plus bete serait une fonction évaluation qui prendrait en entrée le nom de la fonction ainsi que le poit ou l'évaluer

Code :

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

1
2
3
4
5
 
 
function eval(f,x)
eval=f(x)
end function

Et donc je voudrais pouvoir appeler eval(f1,9) par exemple

**Delbeke** · 05/09/2006, 11h55

A ma connaissance ce n'est pas possible sous vb de passer le nom d'une fonction comme argument d'une autre.
Mais je peux me tromper.

**sovo** · 05/09/2006, 13h42

c'est tout a fait faisable faisable. Partant du principe qu'une fonction renvoie toujours une valeur alors c'est faisable.

Pour ton exemple voila une adaptation.

Code :

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

1
2
3
function f1(x as integer) as Long
    f1=3*x+2
end function

ensuite tu as l'autre fonction

Code :

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

1
2
3
function eval(ByVal x as long) as Long
    eval=x
end function

Et pour appeler tu fait

Code :

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

msgbox eval(f1(5))

**Delbeke** · 05/09/2006, 13h47

Je suis d'accord, mais ce qu'il veut, c'est passer le nom de la fonction en argument et là j'avoue ne pas savoir comment on pourrais faire

**sovo** · 05/09/2006, 13h51

Envoyé par Delbeke

mais ce qu'il veut, c'est passer le nom de la fonction en argument

je ne vois pas trop bien

**Delbeke** · 05/09/2006, 14h08

Exemple non fonctionnel:

Public Function Test(Fonction as ????, Parametre as Long)
et
Public Function LaFonction1(Param as Long) as long
Public Function LaFonction2(Param as Long) as long
Public Function LaFonction3(Param as Long) as long

On pourait alors faire Test(LaFonction1,Param) ou Test(LaFonction2,Param) etc
Du moins c'est ce que j'ai compris de la question

On est proche du Polymorphise je crois

**sovo** · 05/09/2006, 14h17

La comme ca je crois aussi que ca ne peut pas etre possible. Mais s'il nous disais exactment ce qu'il veux faire je crois que j'ai une petite astuce qui lui permetrais de faire ce qu'il veux.

**arno78** · 05/09/2006, 14h22

Effectivement mon exemple était un peu simpliste puisqu'il ne demande qu'une seule évaluation de la fonction f1.
En fait la fonction que je veux vraiment créer c'est une fonction d'intégration numérique qui doit evaluer la fonction à intéger en plusieurs points

Code :

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

1
2
3
4
5
6
7
 
function integral(f,a,b,n)
int=0
For i=0 to n
int=int+f(a+(b-a)/n*i)*(b-a)/n
next i
end funtion

Ici on a besoin d'évaluer n fois la f. Cette synthaxe ne marche donc pas mais est t'il possible de passer par un pointeur ou quelque chose comme ça pour appeler la fonction f, le but étant de ne par récrire la routine à chaque changement de fonction à intégrer?

**sovo** · 05/09/2006, 14h33

Code :

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

1
2
3
4
5
6
function integral(f,a,b,n)
int=0
For i=0 to n
int=int+f(a+(b-a)/n*i)*(b-a)/n
next i
end funtion

alors la je plante au rouge. est qu'il serais possible de voir le code de f ??

**arno78** · 05/09/2006, 14h44

Ce qui se comprend bien s'ennonce clairement... j'ai un peu de mal...

alors je veux pouvoir définir une fonction intégration:

Code :

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

1
2
3
4
5
6
7
 
function integral(f,a,b,n)
int=0
For i=0 to n
int=int+f(a+(b-a)/n*i)*(b-a)/n
next i
end funtion

puis plusieurs fonctions du genre

Code :

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

1
2
3
4
5
6
7
8
 
function f1(x)
f1=3*x+2
end function
 
function f2(x)
f2=tan(x)
end fucntion

et ensuite pouvoir executer integral(f1,4,6), integral(f2,2,5).....

**sovo** · 05/09/2006, 15h25

Bon c'est vrai maintenant c'est plus clair, et je comprend a present ce que tu veux faire.

Voila une solution

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
17
18
19
 
'Tout d'abord ne change rien a tes fonction (f1,f2, ...)
'Change ta focntion integrale par celle ci 
 
function integral(Fontion as string, a as integer, b as integer, n as integer)
                                              'pour les types je les ai pris au hasard
     int=0
 
     Select case  Fonction
             case f1 :   For i=0 to n
                                 int=int+f1(a+(b-a)/n*i)*(b-a)/n
                            next i
 
             case f2 :   For i=0 to n
                                 int=int+f2(a+(b-a)/n*i)*(b-a)/n
                            next i
 
            etc ... 
end funtion

Bon comme je disais c'est juste un contour du probleme.

Ainsi pour appeler ta fonction tu fait

Code :

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

integral(f1,a,b,c)

et ca marche impect, enfin selon ceque tu veux.

**arno78** · 05/09/2006, 16h42

ok merci ça devrait me permettre de m'en sortir mais j'aurai bien aimé une fonction plus générique qui aurait permis d'integrer n'importe quelle fonction sans retoucher le code de "integral"... mais ça j'ai l'impression que c'est pas possibe...