Discussion :

[Denis61400]

Bonjour ^^

Je souhaiterais faire une mini calculatrice rapide dans mon application en VB.net

Un truc simple du genre: Une TextBox pour que l'utilisateur pose son opération avec des possibilité de calcul basique du genre + * - / () ² ><, et un bouton "résultat" sur lequel cliquer pour avoir le résultat dans cette même textbox.
Si celà ne demande pas 50 000 lignes de code et que la solution est simple pour mon niveau de nOOb, j'aimerais savoir quelles sont les fonctions à utiliser dans le code de mon bouton "résultat" s'il vous plait?

[tomlev]

C'est moins simple que ça en a l'air, parce qu'il n'y a pas de fonction en VB.NET pour interpréter le calcul saisi par l'utilisateur... Tu pourrais implémenter ça toi-même, mais c'est pas facile. Une astuce que j'ai déjà utiliser consiste à créer une petite DLL en JScript.NET, pour pouvoir utiliser la fonction Eval. Ensuite tu références la DLL ainsi créée et tu l'utilises à partir de VB.NET

Je l'avais expliqué en détail ici :
http://www.developpez.net/forums/d71...s/#post4168031

[Geo2A]

Bonjour,

Pour évaluer une expression algébrique il faut utiliser un arbre (binaire) syntaxique. Et pour une bonne utilisation il faut transformer l'expression algébrique en utilisant la notation polonaise inverse, cela facilite les choses.
Je rejoins Tomlev, ce pb qui semble simple en apparences, relève en fait de notions complexes.

[nah666]

Ou tout simplement une librarie qui sait calculer ton résultat ?

C'est pas ce qui manque sous google on a l'embarras du choix

[Denis61400]

J'ai utilisé Math.dll compilé par Tomlev puis dans mon projet j'ai fait:

Projet > Ajouter une référence... > Parcourir puis j'ai sélectionné la DLL, puis "Ok".

J'ai créé Une petite textbox nommé: CalculUtilisateur
Un Bouton nommé: ToolStripButton3 qui aura pour fonction de calculer le résultat de l'opération posée dans la textBox puis d'afficher le résultat dans celle ci

Voici le code assigné à mon bouton:

Code :

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

1
2
3
4
5
6
7
 
    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculResultat.Click
        Dim d As Double = Eval(CalculUtilisateur.Text)
        CalculUtilisateur.Clear()
        CalculUtilisateur.Text = (d)
    End Sub
End Class

Celà ne fonctionne pas, il ne reconnais pas plus la fonction Eval (pourtant la référence de la Dll a bien été ajoutée). Que faire s'il vous plait?

[tomlev]

C'est JsMath.Eval et pas Eval tout court

[Denis61400]

Merci bien, j'avais aussi oublié d'ajouter le "Imports JsMath" au début de mon code.

Problème résolu !!