Aide au calcule

Question

salut

je voudrais me faire un convertisseur de points en euros.
exemple; 1000 points vaut 0,0473?
je fais donc 1000 / 0,0473 = 21141.64

ce qui fait dans VB: 
Text2.Text = Text1.Text / 21141.64
puis je divise mon resultat par un euro

comme la valeur change tout les mois, je met un textbox pour indiquer la valeur pour 1000 points
si je met: Text2.Text = Text1.Text / Text3.Text
VB ne veut pas calculer !!!

pourquoi ?
si quelqu'un a une solution, merci d'avance.

jpleroisse · Answer

Bonjour,

Essaye ceci.Tu n'est pas oblig&#233; de mettre .Text.



Text2.Text = Val(Text1)/Val(Text3).



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

cs_DARKSIDIOUS · Answer

S&#251;rement un probl&#232;me de d&#233;cimale :

Let Text2.Text = CDbl(Replace(Text1.Text, ".", ",")) / CDbl(Replace(Text3.Text, ".", ","))


_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

cs_Nestor · Answer

marche pas

voila mon code:

Dim Actif As String

Private Sub Text1_Change()
Dim traduit As Single
 If Text1.Text <> "" And Actif = "traduit" Then
 traduit = Text1.Text
'Text2.Text = Text1.Text / 21141.64          'op&#233;ration division de 1000 par 0.0473? (comme cette valeur change chaque mois)
 Text2.Text = Val(Text1) / Val(Text5)        'maintenant je dois calculer avec le contenu de Text5
 Text2.Text = Round(Text2.Text, 4)           'arondis &#224; 4 chiffre en euro
 Text3.Text = Round(Text2.Text * 0.0072)     '21141.64 diviser par 6.55957 <= Text5 Text4.Text Round(Text2.Text * 6.55957, 2) '1? 6.55957 francs et arondis &#224; 2 chiffres
 End If
End Sub

merci de votre aide

cs_DARKSIDIOUS · Answer

Utilise ma m&#233;thode de calcul pour remplacer les points par des virgules, ca vient s&#251;rement de l&#224; !

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

cs_Nestor · Answer

ya trop de chose dans ta m&#233;thode
avec Text2.Text = Val(Text1)/Val(Text5) ca marche mais si j'entre 1000 points, j'ai 21141,649 euro alors que je devrais trouver que 0,0473?

cs_DARKSIDIOUS · Answer

ma m&#233;thode est plus compl&#232;te, bien que plus complexe : dans la m&#233;thode
que tu utilise, je pense pas que les point soit interpr&#234;t&#233;
automatiquement en virgule par exemple.

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

cs_Nestor · Answer

oui elle est tr&#232;s tr&#232;s bien ta m&#233;thode, mais la non j'ai pas de virgule &#224; trait&#233; dans les points &#224; calculer.

j'ai oubli&#233; un bout de code tout &#224; l'heure.. voila le tout.

Option Explicit


Dim Actif As String 'd&#233;claration pour traduire les points en monais
Public i As Integer 'd&#233;claration de i comme 'instant'

Private Sub Text1_Change()
Dim traduit As Single
 If Text1.Text <> "" And Actif = "traduit" Then
 traduit = Text1.Text
'Text2.Text = Text1.Text / 21141.649         'op&#233;ration division de 1000 par 0.0473?(comme cette valeur change chaque mois)
 Text2.Text = Val(Text1) / Val(Text5)        'maintenant je dois calculer avec Text5
 Text2.Text = Round(Text2.Text, 4)           ''arondis &#224; 4 chiffre en euro
 Text3.Text = Round(Text2.Text * 0.0072)     '21141.64 diviser par 6.55957 <= Text5 Text4.Text Round(Text2.Text * 6.55957, 2) '1? 6.55957 francs et arondis &#224; 2 chiffres
 End If
End Sub


Private Sub text1_GotFocus()
    Actif = "traduit"
    Text1.Text = ""
    Text2.Text = ""
    Text4.Text = ""
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer) 'accepte que des chiffres, sinon bipbip
Dim c
 KeyAscii = Asc(Chr(KeyAscii))
 c = Chr(KeyAscii)
 If Not c Like "[0-9]" And Not KeyAscii = 8 Then
  KeyAscii = 0
  Beep
 End If
End Sub
----------------------------------------------------------------------
5 textbox:
text1 = points
text2 = eurostext3 non visible sur le form pour diviser le taux pour 1000 point par un euro (1000 / 0.0473 21141.64 / 6.55957)
text4 = convertion en francs

Gobillot · Answer

tu mélanges les calculs avec des chaînes au lieu de numériques. dans les chaînes il y a des virgules (à tous les coups) et pour le numérique c'est des points, ce qui fait un mélange pas possible. j'ai pas compris ce qu'il doit y avoir dans Text3 à moins que ce soit Text5 ??? ~~Text5 = "21141,649"~~ 'pas certain que ce soit une virgule Text5 = 21141.649 ce qui provoque une conversion en Ascii d'un numérique donc on se retrouve avec une virgule (tout dépend de la configuration) et Val ne connait pas la virgule. Text2.Text = ~~Val(~~Text1) / ~~Val(~~Text5) 'maintenant je dois calculer avec Text5 ce qui donne: Text2.Text = Text1 / Text5 'maintenant je dois calculer avec Text5 Daniel

Aide au calcule

8 réponses

Discussions similaires