enzosp
Messages postés22Date d'inscriptiondimanche 21 décembre 2003StatutMembreDernière intervention 3 février 2010
-
28 juil. 2006 à 12:53
tri_yann
Messages postés124Date d'inscriptionmercredi 23 novembre 2005StatutMembreDernière intervention19 septembre 2013
-
20 août 2006 à 15:02
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...
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 28 juil. 2006 à 19:52
Salut,
Essaie cette procédure :
<small>
Coloration syntaxique automatique </small>
'*** 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
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 28 juil. 2006 à 20:08
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"