Bug étrange sur du single

bonjour,
j'ai un problème étrange sur une petite appli VB6 que je développe :

j'ai 2 variables A et B déclarées en Single
dans mon programme j'ai la ligne suivante :

If A <> B Then Msgbox "Hello"

parfois, malgré que A = B, la ligne ci-dessus est tout de même exécutée et j'ai mon joli "Hello", et en debug A et B sont pourtant bien identiques ???

mes variables sont déclarées en Public dans un module .bas , et mon programme tourne dans la forme principale form1

si vous avez quelque piste que ce soit, je suis preneur !
merci d'avance

Impossible, sauf si tu t'es mélangé les pinceaux quelque part avec A et B ...;)

Salut

Est-ce que les fois où A = B il y aurait une possibilité pour que ce soit zéro, par hasard?

non, les valeurs sont des réels bien différents de zero
je vais esseyer le programme sur une autre plateforme pour voir... je vous tiens au courant

Je ne crois pas que ce soit lié à la plateforme.
Ton appli, plus surement !

exact,
je viens de refaire le test sur win XP et win 2000, et le problème est toujours là
si ça tente quelqu'un de jeter un oeil, sachant que c'est du vb6, je veux bien filler mon source, c'est un début d'appli graphique
a+

Je crois qu'il suffira que tu montres uniquement les lignes dans lesquelles A et B sont concernées, que ce soit en déclaration, en modification ou en affichage...
En précisant, si une valeur est attribuée à l'une ou à l'autre de ces 2 variables, d'où "vient" la valeur .;)

je propose de faire un arrondi des deux variables avant la comparaison, avec des singles, il peut y avoir des decimales tres minimes, non visibles sans examen attentif. Surtout si on pense avoir a faire a entiers

Citation:

---

Envoyé par Delbeke

je propose de faire un arrondi des deux variables avant la comparaison, avec des singles, il peut y avoir des decimales tres minimes, non visibles sans examen attentif. Surtout si on pense avoir a faire a entiers

---

qu'appelles-tu examen attentif ? pour voir leur valeur, j'y vais soit en debug soit j'affiche leur valeur dans un msgbox comme ci-dessous :

Code:

---

1 2 3

If A <> B Then MsgBox "A=" & Str(A) & vbCr & "B=" & Str(B) & vbCr & "A-B=" & Str(A - B) End If

---

ça donne ceci :
http://rodymary45.free.fr/msgbox1.bmp
on voit bien que A=B et pourtant leur différence donne une valeur proche de 0
y'a-t-il un moyen de voir plus précisément le contenu d'une variable de type single ?

C'et la représentation IEEE d'un nombre réel qui est en cause.
Ce n'est pas la faute de VB, le problème existe dans la plupart des langages.
Tester l'égalité de 2 réels est souvent une mauvaise idée.

Essaye éventuellement avec des types doubles, ils sont stockés sur 8 octet (2 fois plus précis).
Mais ça ne lèvera pas l'incertitude. La solution c'est d'arrondir à une précision suffisante pour ton appli et éventuellement comme tu le fais ci-dessus, de tester l'égalité de chaînes et pas de réels.

tiens j'ai joué et j'ai le même probléme que toi à l'oeil nu ils sont égaux :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub tesst() Dim a As Single Dim b As Single b = 5.112299 a = b + 4.768372 * 10 ^ -7 If a <> b Then MsgBox "A=" & Str(a) & vbCr & "B=" & Str(b) & vbCr & "A-B=" & Str(a - b) End If End Sub

---

[Edit] test avec double

Citation:

---

Envoyé par BertrandA

..
Essaye éventuellement avec des types doubles, ils sont stockés sur 8 octet (2 fois plus précis)....

---

le résultat dans msgbox :

Citation:

---

A= 5.1122994768372
B= 5.112299
A-B= 4.76837199947511E-07

---

on moins c'est visible..

Citation:

---

Envoyé par jmfmarques

Je crois qu'il suffira que tu montres uniquement les lignes dans lesquelles A et B sont concernées, que ce soit en déclaration, en modification ou en affichage...
En précisant, si une valeur est attribuée à l'une ou à l'autre de ces 2 variables, d'où "vient" la valeur .;)

---

Merci à tous pour votre aide !
Sur conseil (obstiné mais juste ;)) de jmfmarques j'ai remonté la chaîne jusqu'à l'origine, et après plusieurs Sub imbriqués avec passage de A et B en ByRef, je suis tombé sur ceci :

Code:

---

B = CSng(Line1.Tag)

---

En fait j'utilise le .Tag d'un contrôle pour y stocker un réel (par souci de clareté et éviter ainsi la prolifération de variables temporaires), mais la reconversion en Single via CSng ne redonne pas exactement la même valeur qu'à l'origine, même si visuellement elle apparaît correcte.
Le test est simple :

Code:

---

1 2 3 4 5 6

Dim A as Single, B As Single Randomize Timer A = Rnd Form1.Tag = A B = CSng(Form1.Tag) If A <> B Then MsgBox "A=" & Str(A) & vbCr & "B=" & Str(B) & vbCr & "A-B=" & Str(A - B)

---

C'est donc la conversion Alpha => Single qui merde un peu, dommage.
Bref, préférez des "vrai" variables plutôt qu'un intermédiaire douteux !
Encore merci à tous.

ce n'est pas de l'alpha vers un single, mais variant vers single. le variant c'est tres pratique pour bien galérer lol
la propriété tag d'un composant est stockée dans un variant (en interne)

Essaye, pour voir :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Command1_Click() Dim A As Single, B As Single Randomize Timer A = Rnd Form1.Tag = Str(A) B = CSng(Val(Form1.Tag)) If A <> B Then MsgBox "A=" & Str(A) & vbCr & "B=" & Str(B) & vbCr & "A-B=" & Str(A - B) End Sub

---

et dis...;)

Citation:

---

Envoyé par jmfmarques

Essaye, pour voir :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Command1_Click() Dim A As Single, B As Single Randomize Timer A = Rnd Form1.Tag = Str(A) B = CSng(Val(Form1.Tag)) If A <> B Then MsgBox "A=" & Str(A) & vbCr & "B=" & Str(B) & vbCr & "A-B=" & Str(A - B) End Sub

---

et dis...;)

---

j'ai esseyé, mais ça ne change rien