Discussion :

[nikolanta]

Bonjour,
j'ai réalisé une calculatrice sous VB6 en utilisant des variables "single", integer... et l'affichage de valeur grande se fait dans le format scientifique : 1,234 e08,
or j'aimerais un affiche en virgule fixe: 1234000, 45.

comment puis-je changer cela ?

[Delbeke]

Utilise la fonction format(), si tu connais pas, un petit coup de F1

[nikolanta]

j'ai regardé dans la msdn, mais je n'y arrive pas...

j'utilise VB6, et les trucs quej'ai trouvé sont pour .net...
il n'y a pas une méthode pour qu'automatiquement mon affichage se fasse bien ? ou dois-je changer les expressions de chacunes de mes syntaxes ?

[ProgElecT]

Petite experience

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Load()
Dim A As Double
A = 123400056.32 + 0.45 'donne à l'affichage 123400056,77
Label1 = A
Dim B As Single
B = 123400056.32 + 0.45'donne à l'affichage 1,234001E+8
Label2 = B
End Sub

Le type Double semble bien être le mieux approprié.

[nikolanta]

ok merci,
effectivement ça marche...
mais pour de grandes valeurs, il me coupe simplement la fin, ce qui m'affiche de grosses erreurs.
ya t'il un moyen de résoudre ceproblème?

[ProgElecT]

essais le type Decimal (F1 pour comprendre la façon d'utilisé et declarer ce type)

Code :

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

1
2
3
4
5
6
Private Sub Form_Load()
Dim Z As Variant
Z = 123400056.32896 + 0.4532759 
'extraction du sous-type decimal
Label1 = CDec(Z) 'donne à l'affichage 123400056,782236
End Sub

[Delbeke]

Code :

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

debug.print Format(Nombre,"0.00")

[ProgElecT]

Salut Delbeke

Z = 123400056.32896 + 0.453275984567 = 123400056,782235984567
Chez moi, Format(Z, "0.000000000") affiche 123400056,78223600000
Il semblerait qu'il souhaite plus de decimale, donc en combinant ta proposition, on ne peu pas de toute façon atteindre un affichage de plus de 16 caractéres significatif du chiffre contenu dans la variable
Cela doit être pourtant faisable, car avec la calculatrice windows, 123400056.32896 + 0.453275984567 = 123400056,782235984567

[ThierryAIM]

essais le type Decimal (F1 pour comprendre la façon d'utilisé et declarer ce type)

Code :

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

1
2
3
4
5
6
Private Sub Form_Load()
Dim Z As Variant
Z = 123400056.32896 + 0.4532759 
'extraction du sous-type decimal
Label1 = CDec(Z) 'donne à l'affichage 123400056,782236
End Sub

c'est, je crois, la seule solution !