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.