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

phenX 709 Messages postés mercredi 4 mai 2005Date d'inscription 28 août 2012 Dernière intervention - 10 nov. 2005 à 09:37 - Dernière réponse : econs 4066 Messages postés mardi 13 mai 2003Date d'inscription 23 décembre 2008 Dernière intervention
- 11 nov. 2005 à 08:45
bonjour,

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

Quest ce que ca veut dire?
Afficher la suite 

13 réponses

philippe laschweng 1 278 Messages postés jeudi 14 avril 2005Date d'inscription 13 avril 2013 Dernière intervention - 10 nov. 2005 à 11:30
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
econs 4066 Messages postés mardi 13 mai 2003Date d'inscription 23 décembre 2008 Dernière intervention - 10 nov. 2005 à 09:51
0
Utile
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.
econs 4066 Messages postés mardi 13 mai 2003Date d'inscription 23 décembre 2008 Dernière intervention - 10 nov. 2005 à 09:54
0
Utile
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.
phenX 709 Messages postés mercredi 4 mai 2005Date d'inscription 28 août 2012 Dernière intervention - 10 nov. 2005 à 09:56
0
Utile
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 14132 Messages postés vendredi 14 mars 2003Date d'inscription 21 avril 2018 Dernière intervention - 10 nov. 2005 à 10:09
0
Utile
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
phenX 709 Messages postés mercredi 4 mai 2005Date d'inscription 28 août 2012 Dernière intervention - 10 nov. 2005 à 10:15
0
Utile
ben quand je lance j'ai: "Erreur 6. Dépassement de capacité".
phenX 709 Messages postés mercredi 4 mai 2005Date d'inscription 28 août 2012 Dernière intervention - 10 nov. 2005 à 11:37
0
Utile
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
philippe laschweng 1 278 Messages postés jeudi 14 avril 2005Date d'inscription 13 avril 2013 Dernière intervention - 10 nov. 2005 à 12:02
0
Utile
lol. Y'a pas de mal.
Bonne prog.

Phil
phenX 709 Messages postés mercredi 4 mai 2005Date d'inscription 28 août 2012 Dernière intervention - 10 nov. 2005 à 12:04
0
Utile
merci, au fait juste une autre question rapide: c'est quoi la commande pour ouvrir un fichier texte (toujours en vb6)?
econs 4066 Messages postés mardi 13 mai 2003Date d'inscription 23 décembre 2008 Dernière intervention - 10 nov. 2005 à 16:37
0
Utile
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.
phenX 709 Messages postés mercredi 4 mai 2005Date d'inscription 28 août 2012 Dernière intervention - 10 nov. 2005 à 16:59
0
Utile
c'est quoi EOF?
philippe laschweng 1 278 Messages postés jeudi 14 avril 2005Date d'inscription 13 avril 2013 Dernière intervention - 10 nov. 2005 à 17:21
0
Utile
End Of File.
Tant que tu n'arrives pas à la fin du fichier texte.
Si je ne me trompe pas ...
econs 4066 Messages postés mardi 13 mai 2003Date d'inscription 23 décembre 2008 Dernière intervention - 11 nov. 2005 à 08:45
0
Utile
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.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.