Discussion :

[jer35]

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

[ProgElecT]

Code :

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

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.

[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

[ucfoutu]

Bon,

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

Code :

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

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)

[iclic]

Bonjour,

Attention à certaines bizarreries du VB6.

Analyse ceci:

Code :

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

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 )

[DarkVader]

Bonjour,

Attention à certaines bizarreries du VB6.

Analyse ceci:

Code :

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

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.

[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

[ucfoutu]

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 :

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

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)

[jer35]

bonjour,

votre petit programme marche tres bien ,
une fois appliquez dans le mien ,ce n'est plus le meme resultat

[jer35]

ok reussi

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

merci pour l'aide