Convertir un string en fonction, possible ou pas

**Dextr** · 31/05/2007, 12h03

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)

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

**Pol63** · 31/05/2007, 12h14

à 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

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

**Aspic** · 31/05/2007, 15h29

Malheureusement, j'ai deja essayer de faire ca et je n'ai pas reussi

Si vous avez une solution ca m'interesse...

**Dextr** · 31/05/2007, 16h16

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

. Des idées ?