Convertir un string en fonction, possible ou pas

Bonjour à tous,

Je suis en train de faire un script qui utilise une fonction comme celle-ci :

Public Function Fonctionlimite(ByVal u() As Decimal, ByVal p As Decimal) As Decimal
Dim y As Decimal = 900 + 70 * p - (1271 + 0.2 * 171 * u(0) + 0.2 * 485 * u(1) - 0.2 ....
Return y
End Function

Je voudrais pouvoir rentrer l'équation de la fonction directement à partir d'une textbox, donc convertir un string en une formule utilisable (dim y = convert(string):king:).
C'est possible ? Il ya une fonction qui existe (comme str2func sous Matlab) ou il faut réaliser une boucle qui convertit les nombres et les opérateurs séparemment.
D'ailleurs les opérateurs + / *, c'est des objets, des characters ??
Et dernière question, dans ce genre de calculs, il vaut mieux utiliser des decimal ou des double ?

Voilà merci

à ma connaissance il n'y a pas ce qu'il faut dans le framework pour faire ca
mais à ma connaissance tout ce qui est nécessaire est généralement dans le framework :lol:
donc en cherchant on doit pouvoir trouver ca ...

dans vb6 moi j'utilisais sql server pour faire ca
je faisais "SELECT " & str_fonction
et il me répondais gentilment ce que donnais le calcul
enfin il faut faire un replace "p" par valeur_de_p dans str_fonction

sinon le type decimal est à priori mieux, car il stocke tous les chiffres et l'emplacement de la virgule en gros
alors que single et double stocke un genre d'équation et des fois au lieu d'avoir 3 on aura 3,0000000001
du fait que l'équation ne peut pas etre parfaite

Malheureusement, j'ai deja essayer de faire ca et je n'ai pas reussi :cry:
Si vous avez une solution ca m'interesse...

Bon j'ai du nouveau à force de chercher sur googoole :
En utilisant MS script control çà évalue le résultat final par contre si je rentre des variables genre x, y dans la textbox ca ne les prend pas en compte

Module Module2
Public Function traduc(ByVal formula As String) As Decimal
Dim SC As New MSScriptControl.ScriptControl
'SET LANGUAGE TO VBSCRIPT
SC.Language = "VBSCRIPT"
'ATTEMPT MATH
Dim Result As Double
Dim x As Integer = 23
Try
Result = CDec(SC.Eval(formula))
Catch ex As Exception
End Try
Return Result
End Function
End Module

(trouvé ici)
----
Dim y As Decimal = traduc(TextBox1.Text)
Label1.Text = y.ToString

donc en tapant genre 165+4/2+5*4 ca me donne bien 187 mais si je mets 165+x avec x=23 (cf fonction) j'ai 165 comme résultat:evilred: . Des idées ?

fait du replace et ca fonctionnera ...

j'ai trouvé autre chose en mettant dans la fonction : SC.ExecuteStatement("x=" & x) ca marche nickel donc c bon :mrgreen:
merci pour les réponses