Formule dans chaine de caractéreRésolu

Question

Bonjour,

mon probleme est simple, je voudrais qu'une opération saisie dans une textbox donne le résultat dans un variable:
ex: text1="3x3"  donne pour une variable v ->9

v=val(text1) donne 3 et non 9

comment faire? je pense que c'est tres simple, mais j'ai pas trouvé la fonction...

Merci d'avance.

Enzo

cs_MPi · Accepted Answer

Comme t'a dit Enzosp, EVAL pourrait le faire. Tu dois ajouter un contrôle à ta Form.

Microsoft Script Control


Ensuite tu peux utiliser la fonction Eval et faire

MsgBox ScriptControl1.eval("2 * 5") ' et ça te donnera 10 comme réponse

MPi

tri_yann · Answer

Essai Eval au lieu de Val

enzosp · Answer

la fonction Eval n'est pas reconnue pas Visual Basic

Enzo

mortalino · Answer

Salut, Essaie cette procédure : Coloration syntaxique automatique '*** j'ai créé une Form, contenant un TextBox (Text1) ' et un CommandButton (Command1) Private Sub Command1_Click() Dim Partie1 As Long Dim Partie2 As Long Dim Flg As Boolean Dim i As Integer Dim Operateur As String Dim Caract As String Dim Resultat As String Flg = False For i = 1 To Len (Text1.Text) Caract = Mid(Text1.Text, i, 1) If Not IsNumeric(Caract) Then Operateur = Caract Flg = True Else If Flg = False Then Partie1 = Partie1 & Caract Else Partie2 = Partie2 & Caract End If End If Next i Select Case Operateur Case "x": Resultat = Partie1 * Partie2 Case "/": Resultat = Partie1 / Partie2 Case "+": Resultat = Partie1 + Partie2 Case "-": Resultat = Partie1 - Partie2 End Select MsgBox Resultat End Sub Coloration syntaxique automatique @++ Mortalino Le mystérieux chevalier, "Provençal, le Gaulois"

enzosp · Answer

effectivement on peut passer par une fonction, mais je voulais eviter cela pour ne pas gerer les parentéses...


Du même type de prog, j'ai pu récuperer des exemples de "caculatrice" en VB.


Il aurais été plus simple autrement,mais si cela n'existe pas...

Merci quand même.

Enzo

mortalino · Answer

Malheureusement cela n'existe pas, il faut absoluement passer par une fonction.
Ou alors, mais beaucoup plus complexe, tu gères l'interception des touches d'opérateur par API mais dans tous les cas, il te faudra une procédure qui calcul le résultat.

@++ 

  Mortalino 
Le mystérieux chevalier, "Provençal, le Gaulois"

cs_MPi · Answer

Oups, désolé Tri_Yann, c'est bien ton nom que je voulais inscrire comme référence... maladresse de ma part :(

MPi

cs_Taupe007 · Answer

Il y a un problème sous acces car les calcul sont impossible sur les nombres avec virgules au lieu d'un point (4,27/2 impossible) et (4.27/2 possible)

Taupe007

tri_yann · Answer

Je pense que si tu fais un : 



IsNum(Replace("4,27", ",", "."))/2



ca devrait marcher

Yann

Formule dans chaine de caractére

9 réponses

Votre réponse

Discussions similaires