Discussion :

[mikel57]

bonjour à tous!
dans un programme VB6, je voudrais écrire f(x) une fonction littérale de X dans une TextBox, et pour différentes valeurs de la variable, je voudrais calculer la valeur de f(x) qui sera utilisée dans la suite du programme
Pouvez-vous m'aider ?
voici la partie de programme qui "plante" :

Code :

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

1
2
3
4
5
Function Y(ByVal equation As String, x) As Single
 Dim r As New ScriptControl
    r.Language = "VBscript"
    Y = r.Eval(Replace(equation, "X", x))
End Function

merci

[mikel57]

Je m'aperçoit que je n'ai pas été suffisamment précis:

Code :

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

1
2
3
4
5
Function Y(ByVal equation As String, x) As Single
 Dim r As New ScriptControl
    r.Language = "VBscript"
    Y = r.Eval(Replace(equation, "X", x))
End Function

L'erreur a lieu sur 'New' message: "utilisation incorrecte du mot clé new"
J'écris donc la fonction avec un X majuscule et je comptais l'évaluer après remplacement par un minuscule comme ceci:

Code :

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

1
2
3
4
    For i% = 0 To 1000
    t$ = Str$(a + (b - a) * i% / 1000)
    g(i%) = Y(Text1(0).Text, t$)
    Next

[DarkVader]

Bonjour,
L'erreur a lieu parce que la référence à ScriptControl n'a pas été déclarée.

Code :

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

1
2
3
4
5
6
7
    Dim r As Object
 
    Set r = CreateObject("MSScriptControl.ScriptControl")
    If TypeName(r) <> "Nothing" Then
        r.Language = "VBscript"
        Y = r.Eval(Replace(equation, "X", x))
    End If

[mikel57]

Un grand merci à DarkVader
cela fonctionne !
Par contre, trop nouveau, je n'ai pas encore trouvé comment mettre "RESOLU"

[mikel57]

Encore une fois trop vite !
j'avais indiqué 'RESOLU', mais je m'aperçois que la discussion n'est pas tout à fait close
en effet la fonction Y = r.Eval(Replace(equation, "X", x))
est affreuse comme imprécision
j'ai testé pour cos(X) de 0 à 3.14159 et les valeurs intermédiaires trouvées

Code :

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

1
2
3
4
For i% = 0 To 1000
    t$ = Str$(a + (b - a) * i% / 1000)
    g(i%) = Y(Text1(0).Text, t$)
    Next

g(i%) devrait me donner les valeurs de cos(X), mais les résultats sont totalement imprécis, je ne vois pas pourquoi ?
pouvez-vous encore m'aider un peu plus
merci

[mikel57]

bien sûr que je vais trop vite !
le pb ne vient pas de la fonction Y , mais parce que je faisait apparaître la réponse dans une textbox trop courte et comme celle-ci compaorte pas mal de chiffres après la virgule, je ne voyais pas tout.
J'ai réglé le pb en faisant un arrondi sur le résultat