Discussion :

[michelk]

je voudrai atteindre ceci :
l'utilisateur introduit dans une textbox une fonction d'un paramètre
par ex : 3*a^2+4
je souhaiterais que le texte affiché dans cette textbox devienne la fonction
f(a) et ensuite dans mon programme je voudrais calculer f(a) pour différentes valeurs du paramètre a et afficher la valeur correspondante
Quelqu'un peut-il m'indiquer la marche à suivre pour atteindre ce but ?
Merci pour toute info sur ce sujet

[shwin]

essaye ca

Code :

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

1
2
3
4
 
Dim a As Integer
a = 2
MsgBox Eval(3 * a ^ 2 + 4)

[michelk]

je me suis mal expliqué
la fonction est introduite par l'utilisateur , elle est quelconque
et seulement lorsqu'elle a été introduite je souhaite calculer sa valeur pour
différentes valeurs de a

[shwin]

sur ta form, tu as un textebox qui contient la formulaire (ex: 2*A^4) et dans un autre textebox tu inscrit la valeur que tu souhaite donnée à A ?

C'Est ca que tu veux faire ?

[méphistopheles]

voila

Code :

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

1
2
3
4
5
6
7
8
9
10
 dim fonction as string
Dim a as integer
private sub OKbouton_clic
On error goto chifre
fonction=text1.text
a=text2.text
MsgBox Eval(fonction)
exit sub
chifre: msgbox "vous n'avez pas entrer la bonne syntaxe (la variable s'écrit  a )", vbOk only
End sub

bonne chance

[shwin]

voila

Code :

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

1
2
3
4
5
6
7
8
9
10
 dim fonction as string
Dim a as integer
private sub OKbouton_clic
On error goto chifre
fonction=text1.text
a=text2.text
MsgBox Eval(fonction)
exit sub
chifre: msgbox "vous n'avez pas entrer la bonne syntaxe (la variable s'écrit  a )", vbOk only
End sub

bonne chance

que fait tu avec la variable a ? rien

Tu as surement oublier ceci

Code :

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

1
2
 
fonction = replace(fonction,"a",a)

[méphistopheles]

désolé swim, je croyais que si l'utilisateur écrivais le a, vb était capable de le reconaitre comme variable sans le replace.

je m'excuse de ma profonde ignorance.

salut

[shwin]

ce n'était pas un reproche

c'est juste que si tu fais

Code :

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

ma_var = texte1.text

et bien, c'est une string qui peux valoir qqechose dans ce genre "2*4^A"

si tu fais une variable qui s'appel A, le compilateur ne peux pas savoir que tu veux remplacer le caractère A par la variable A. Donc il faut faire un replace.

[méphistopheles]

merci en fait, ça va m'aider pour mon apli ça

et bonne chance à michelk.

[michelk]

désolé, cela ne marche pas
VB ne comprend pas la fonction Eval 'non définie'
n'y aurait-il pas quelque chose d'autre pour y remédier ?
merci de votre aide

[michelk]

je vais essayer d'expliquer ce que je veux faire pour ceux que ça interesse :
je veux appliquer ma méthode de résolution numérique des équations différentielles 1er,2ième ou 4ième ordre
par exemple 1er ordre : dV/dt + f(t).V = g(t)
on cherche à calculer V en fonction de t
Dans cette équation f(t) et g(t) sont des fonctions de t également mais suivant leur valeur qui est une donnée de l'utilisateur, le résultat V(t) diffère
je voudrais que l'utilisateur puisse introduire f(t) et g(t) sous forme d'une formule littérale dans une textbox
le programme ensuite doit calculer la valeur de f(t) et de g(t) pour t variant
de 0 à 1 par pas de 0.001 pour aboutir à la solution V(t)
j'espère avoir été un peu plus clair qu'auparavant
merci

[méphistopheles]

c'est pas tres clair
c'est quoi ton but?

dV/dt + f(t).V = g(t)

ça veut dire quoi f(t).V (je comprend pas ce que vient faire ton V là.)

dV/dt c'est une valeur ou tu compte vraiment calculer la dérivée?

j'est pere que tu ne compte pas définir ton code en fonction de t: il faut d'habord définir f(t) comme une variable, variable que tu peux dans une autre partie calculer en fonction de t. idem pour g(t)

bon salut

[michelk]

bon, je vois que j'ai réussi à vous embrouiller . . .
dV/dt + f V = g est l'écriture d'1 equa dif 1er ordre
V,f,et g sont des fonctions de t et on recherche la fonction V

par exemple : dV/dt + V/3t =(2t+3)

on recherche la fonction V(t) qui réponde à cette équation qui lie la fonction elle même V avec sa dérivée dV/dt

dans cet exemple je voudrais que l'utilisateur écrive :
f(t) = 1/(3*t) et g(t) = 2*t +3
et je veux calculer f(t) et g(t) pour t=0 à 1 step 0.001

si je sais faire cela ensuite je sais comment résoudre l'équa dif
merci

[méphistopheles]

tu sait au fait comment on calcule les dérivées avec vb? moi j'en ai aucune idée.

salut

[michelk]

calcul de la dérivée :
je suppose qu'il faut deux valeurs V(t1) et V(t2) de la fonction pour deux valeurs très proches de la variable t1 et t2
et dV/dt = (V(t2)-V(t1)) / (t2-t1)
et c'est d'autant plus vrai que t2-t1 petit
au fait, je n'ai pas besoin de calculer la dérivée de la fonction pour
résoudre l'équation différentielle
salut

[HPJ]

Un petit exemple:

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
20
Option Explicit
 
' Ajouter référence msscript.ocx
 
Private Sub Form_Load()
 
    MsgBox Y("3 * x^2 + 4", 1) ' 3 * 1^2 + 4
 
End Sub
 
 
Function Y(ByVal equation As String, x As Single) As Single
 
    Dim s As New ScriptControl
 
    s.Language = "vbscript"
 
    Y = s.Eval(Replace(equation, "x", x))
 
End Function

[michelk]

BRAVO ! et merci à tous pour votre aide