les divisions a travers les textbox

Version imprimable

04/10/2009, 17h16
jer35

les divisions a travers les textbox

bonjour,
je butte sur un nouveau probleme

Form2.Text10.Text = CDbl(Form1.Combo1.Text * 3.1415927) * 60 / (Val(Form2.Text9.Text))

lorsque je cree une division ,sa ne marche pas mais si je remplace par le symbole * j'ai un résultat

merci pour votre aide

jer35
04/10/2009, 18h27
ProgElecT

Code:

Form2.Text10.Text = CDbl(Val(Form1.Combo1.Text) * 3.1415927) * 60 / (Val(Form2.Text9.Text))

Avant d'effectuer une opération avec le contenu d'un TextBox (ou un Label, ou ....) étant par défaut du littéral (String), il faut systématiquement le convertir en numérique.
Dans l'editeur VB, F2 rubrique Conversion.
04/10/2009, 21h47
jer35

bonsoir,

decidement , je n'y arrive pas :

voici un petit calcul pour avoir une valeur a une variable : 0.035/270
le resultat est 0.000129629 et vb me donne 1.29629 comme resultat

y'a t il une conversion a faire

Bon,

Regarde, puis analyse (en ouvrant ton aide en ligne sur les mots dont la signification pourrait t'échapper) :
Code:

1 2 3 4 5 6 7 MsgBox 0.035 / 270 MsgBox Format(0.035 / 270, "0#.##########") Dim toto As Double, titi As Double, resul As Double toto = 0.035 titi = 270 resul = toto / titi MsgBox CDec(resul)

Bonjour,

Attention à certaines bizarreries du VB6.

Analyse ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Dim nomb As String
  Dim calc As Currency
    nomb = "25684"           'exemple
                             'donne comme réponse
 
    calc = 256.84            'calc = 256,84
     Stop
    calc = nomb / 100         'calc = 256,84
    Stop
    calc = Val(nomb / 100)    'calc = 256
    nomb = "256.84"
    calc = Val(nomb)         'calc = 256,84
    Stop
    calc = nomb              'erreur type incompatible
    Stop
    nomb = "256,84"
    calc = Val(nomb)          '   256
    Stop
    nomb = "256,84"
    calc = nomb                'calc = 256,84
    Stop
 
                             'donne comme réponse
    nomb = Replace(nomb, ",", ".") 'nomb = "256.84"
    Stop
    calc = Val(nomb)               'calc = 256,84
    Stop
    nomb = Str(calc)               'nomb = "256.84"
    Stop
    nomb = CStr(calc)              'nomb = "256,84"
    Stop
    nomb = Str(calc)               'nomb = "256.84"
    calc = CCur(nomb)             ' erreur type incompatible
    Stop

et je crois que les nombres à virgule dépendent aussi des paramètres donnés à windows ( France ,EU...etc )

Citation:

Envoyé par iclic

Bonjour,

Attention à certaines bizarreries du VB6.

Analyse ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Dim nomb As String
  Dim calc As Currency
    nomb = "25684"           'exemple
                             'donne comme réponse
 
    calc = 256.84            'calc = 256,84
     Stop
    calc = nomb / 100         'calc = 256,84
    Stop
    calc = Val(nomb / 100)    'calc = 256
    nomb = "256.84"
    calc = Val(nomb)         'calc = 256,84
    Stop
    calc = nomb              'erreur type incompatible
    Stop
    nomb = "256,84"
    calc = Val(nomb)          '   256
    Stop
    nomb = "256,84"
    calc = nomb                'calc = 256,84
    Stop
 
                             'donne comme réponse
    nomb = Replace(nomb, ",", ".") 'nomb = "256.84"
    Stop
    calc = Val(nomb)               'calc = 256,84
    Stop
    nomb = Str(calc)               'nomb = "256.84"
    Stop
    nomb = CStr(calc)              'nomb = "256,84"
    Stop
    nomb = Str(calc)               'nomb = "256.84"
    calc = CCur(nomb)             ' erreur type incompatible
    Stop

et je crois que les nombres à virgule dépendent aussi des paramètres donnés à windows ( France ,EU...etc )

Bonjour,
Je ne vois aucune bizarrerie ici qui soit spécifique à VB6 mais la gestion particulière du séparateur décimal par µSoft quelquesoit les logiciels employés.

05/10/2009, 20h56
jer35

bonsoir,

merci a tous pour vos reponses,
encore un petit souci mais avec les multiplications,

0.00370 x 450 x 3.85 donne comme resultats 4.9999999 d'apres VB
alors que la calculatrice trouve 6.41

ou est erreur sachant que le bon resultat est 6.41

merci a tous

Re,

Merci de remercier, mais ce serait mieux d'appliquer ce qui a été dit ... et/ou que tu as lu (l'as-tu fait ?) dans ton aide en ligne ...;)
Regarde :
Code:

1 2 3 4 5 6 7 8 9 MsgBox 0.0037 * 450 * 3.85 MsgBox Format(0.0037 * 450 * 3.85, "#.##") Dim toto As Double, titi As Double, resul As Single toto = 0.0037 titi = 450 tata = 3.85 resul = toto * titi * tata MsgBox resul MsgBox CDec(resul)

05/10/2009, 22h22
jer35

bonjour,

votre petit programme marche tres bien ,
une fois appliquez dans le mien ,ce n'est plus le meme resultat
05/10/2009, 22h27
jer35

ok reussi

j'ai remplace la fonction val par cdec
j'avais bien etudiez cette fonction

merci pour l'aide