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

[Résolu]
Signaler
Messages postés
705
Date d'inscription
mercredi 4 mai 2005
Statut
Membre
Dernière intervention
28 août 2012
-
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
-
bonjour,

sur mon formulaire (VB6), j'ai ce message d'erreur : "Erreur 6. Dépassement de capacité".

Quest ce que ca veut dire?

13 réponses

Messages postés
278
Date d'inscription
jeudi 14 avril 2005
Statut
Membre
Dernière intervention
13 avril 2013
2
C'est juste ç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ître conne si tu n'as pas mis tout ton code. A quel moment affectes tu une valeur à a, b et c?

Phil
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Cela signifie que tu as probablement une boucle qui tourne indéfiniment.


Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Euh non, je raconte n'importe quoi.



Tu as certainement entré 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ée, c'est une chance de réponse bien adaptée.
Messages postés
705
Date d'inscription
mercredi 4 mai 2005
Statut
Membre
Dernière intervention
28 août 2012

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?
Messages postés
14821
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
18 septembre 2021
156
Où 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é
NH
Messages postés
705
Date d'inscription
mercredi 4 mai 2005
Statut
Membre
Dernière intervention
28 août 2012

ben quand je lance j'ai: "Erreur 6. Dépassement de capacité".
Messages postés
705
Date d'inscription
mercredi 4 mai 2005
Statut
Membre
Dernière intervention
28 août 2012

ah oui, merci, ta remarque a éclairé ma lanterne, j'avais tout bonnement oublié de délcarré a b et c.

comme quoi on croi penser a tout....



merci encore
Messages postés
278
Date d'inscription
jeudi 14 avril 2005
Statut
Membre
Dernière intervention
13 avril 2013
2
lol. Y'a pas de mal.
Bonne prog.

Phil
Messages postés
705
Date d'inscription
mercredi 4 mai 2005
Statut
Membre
Dernière intervention
28 août 2012

merci, au fait juste une autre question rapide: c'est quoi la commande pour ouvrir un fichier texte (toujours en vb6)?
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
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ée, c'est une chance de réponse bien adaptée.
Messages postés
705
Date d'inscription
mercredi 4 mai 2005
Statut
Membre
Dernière intervention
28 août 2012

c'est quoi EOF?
Messages postés
278
Date d'inscription
jeudi 14 avril 2005
Statut
Membre
Dernière intervention
13 avril 2013
2
End Of File.
Tant que tu n'arrives pas à la fin du fichier texte.
Si je ne me trompe pas ...
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
C'est çà.



Tant qu'on est pas à la fin du fichier, on lit une ligne supplémentaire.

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.