"dépassement de capacité ERR 6" [VB6]Résolu

Question

bonjour,

sur mon formulaire (VB6), j'ai ce message d'erreur : "Erreur 6. D&#233;passement de capacit&#233;".

Quest ce que ca veut dire?

philippe laschweng 1 · Accepted Answer

C'est juste &#231;aton code ou t'as pas tout mis??

Parce que quand VB fait le calcul de X1 et X2, la valeur de ta variable a vaut 0 or on ne peut pas diviser par 0 !!!
Maintenant ma remarque peut para&#238;tre conne si tu n'as pas mis tout ton code.  A quel moment affectes tu une valeur &#224; a, b et c?

Phil

econs · Answer

Cela signifie que tu as probablement une boucle qui tourne ind&#233;finiment.


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

econs · Answer

Euh non, je raconte n'importe quoi.



Tu as certainement entr&#233; un nombre de type Long dans un variable de type Integer, ou quelque chose de ce genre.



Dim i As integer



i=12345678901234

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

phenX · Answer

voila mon code: 

Dim a As Double

Dim b As Double

Dim c As Double

Dim Delta As Double

Dim X1 As Double

Dim X2 As Double



Private Sub CmdVal_Click()

    Delta = ((b * b) - (4 * a * c))

    X1 = ((-b + Sqr(Delta)) / (2 * a))

    X2 = ((-b - Sqr(Delta)) / (2 * a))

End Sub



Private Sub TxtRepDelta_Change()



If Delta < 0 Then

    MsgBox ("Err. Delta < 0")

Else

    TxtRepDelta.Text = Delta

End If



End Sub



Private Sub TxtRepX1_Change()

  TxtRepX1.Text = X1

End Sub



Private Sub TxtRepX2_Change()

   

    TxtRepX2.Text = X2

End Sub



Mais ou est lerreur?

NHenry · Answer

O&#249; l'erreur?

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NH

phenX · Answer

ben quand je lance j'ai: "Erreur 6. D&#233;passement de capacit&#233;".

phenX · Answer

ah oui, merci, ta remarque a &#233;clair&#233; ma lanterne, j'avais tout bonnement oubli&#233; de d&#233;lcarr&#233; a b et c. 

comme quoi on croi penser a tout....



merci encore

philippe laschweng 1 · Answer

lol. Y'a pas de mal.
Bonne prog.

Phil

phenX · Answer

merci, au fait juste une autre question rapide: c'est quoi la commande pour ouvrir un fichier texte (toujours en vb6)?

econs · Answer

Dim numFile As Long

Dim sTemp As String

numFile=FreeFile

Open "c:\repertoire\fichier.txt" For Input As #numFile

    While not EOF(numFile)

        Line Input #numFile,sTemp

        MsgBox sTemp

    Wend

Close #numFile


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

phenX · Answer

c'est quoi EOF?

philippe laschweng 1 · Answer

End Of File.
Tant que tu n'arrives pas &#224; la fin du fichier texte.
Si je ne me trompe pas ...

econs · Answer

C'est &#231;&#224;.



Tant qu'on est pas &#224; la fin du fichier, on lit une ligne suppl&#233;mentaire.

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

"dépassement de capacité ERR 6" [VB6]

13 réponses

Discussions similaires