Au secours de toute ma vie je n'ai jamais vu çaRésolu

Question

voila j'ai un probl&#232;me.
cela fait maintenant assez longtemps que je programme en VB mais l&#224; je bloque 

voici mon code ; il est tout simple :

Private Sub Command1_Click()
Dim CC As Long
CC = 11600 + 19200 + 4000
Print CC
End Sub

et l&#224; quand j'execute mon programme j'ai 
Erreur d'exucution 6 : d&#233;passement de capacit&#233;

et le d&#233;bogage me renvoie ici : CC = 11600 + 19200 + 4000

alors l&#224;...
je ne comprend pas 
j'ai pourtant d&#233;clar&#233; ma variable en LONG 
la fourchette devrait etre comprise entre -2 147 483 648 &#224; 2 147 483 647

&#224; ce que j'ai pu comprendre, il me limite CC &#224; une variable Integer (fourchette -32 768 &#224; 32 767), donc quand je d&#233;passe &#231;a me met cette erreur (ici CC = 34800)

mais pourquoi ???? je l'ai d&#233;clar&#233;e en LONG !
rohlala d&#232;s que j'ai un gros projet les ennuis arrivent

pouvez vous v&#233;rifier sur votre b&#233;cane pour voir si c'est la mienne qui fait des siennes ?

merci beaucoup &#224; tous
plhea

jpleroisse · Accepted Answer

Bonsoir,

J'ai essay&#233; ton code et effectivement il me met D&#233;passement de Capacit&#233;.

Mais comme ceci cel&#224; fonctionne.



Private Sub Command1_Click()

Dim CC

CC = CLng(11600) + CLng(19200) + CLng(4000) + CLng(25000)

MsgBox CC

End Sub



jpleroisse



Si une r&#233;ponse vous convi.ent, cliquez R&#233;ponse Accept&#233;e.

cs_DARKSIDIOUS · Answer

Et oui, si tu ne lui dit pas de faire le calcul en Long, il te fera le
calcul en integer vu que les nombres que tu additionnes sont des
integer.



C'est comme si tu fait une multiplication entre deux integer, il te le convertit pas automatiquement en long durant le calcul !

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

plhea · Answer

waou waou waou jamais vu &#231;a !
effectivement &#231;a marche et je suis content que &#231;a fait &#231;a pour tout le monde
mais je ne comprends toujours pas la raison

y aurait il un BUG dans visual basic 6 ???
ou est ce que c'est absolument normal et je suis plus qu'ignorant 

si quelqu'un y voit une explication logique je suis ouvert et je vous remercie d'avance 
merci &#224; tous

plhea

plhea · Answer

EDIT (desol&#233; je sais pas comment &#233;diter)

MERCI beaucoup DarkSidious (d&#233;sol&#233; j'ai post&#233; sans avoir lu ton message)
ok je comprends mieux j'ai fait quelques essais et tu as raison

merci pour vos aides &#224; tous 

plhea

philippe laschweng 1 · Answer

Salut,

Bah c'est vrai que c'est bizarre, en m&#234;me temps, si tu entres toi m&#234;me 3 chiffres comme ca &#224; la suite par programmation tu dois &#234;tre capable de faire la somme par toi m&#234;me !! lol 
Et comme ca cela fonctionne (2 mani&#232;res) :

M&#233;thode 1
Private Sub Command1_Click()
Dim CC As Long
   CC =  11600
   CC = CC + 19000
   CC = CC + 4000
   Print CC
End Sub

 M&#233;thode 2 
Private Sub Command1_Click()
Dim CC As Long
Dim value1 As Long
Dim value2 As Long
Dim value3 As Long


   value1  = 11600
   value2 = 19200
   value3 = 4000


   CC = value1 + value2 + value3
   Print CC
End Sub

Je sais c'est con comme exemple mais ca me semble plus logique avec des variables. Mais je te l'accorde, je sais pas pourquoi VB ne le prends pas en compte ....  Peut &#234;tre un beug de VB mais perso je ne vois pas l'inter&#234;t de ce genre de structure en programmation ! Mais c'est rai que c'est une question int&#233;ressante.

Phil 
Bye

daetips · Answer

Dim CC as long

Daetips

plhea · Answer

le code exact &#233;tait

AugmenterPoints ((11600) + (19200) + (4000))

en fait c'&#233;tait juste pour me simplifier la vie dans ma relecture
en effet, le 11600, le 19200 et le 4000 sont 3 choses diff&#233;rentes et j'ai pr&#233;f&#233;r&#233; les s&#233;parer en pensant - &#224; tort - que &#231;a n'allait rien changer

plhea

philippe laschweng 1 · Answer

OK Darksidiou mais si tu d&#233;clares le r&#233;sultat de ton op&#233;ration en Long c'est ilogique de devoir convertir les nombre en Long puisque le r&#233;sultat de l'addition de tous les nombres est plus petite que la limite sup&#233;rieure qu'accepte un Long (2
 147 483 647). Les entiers ayant une limite inf&#233;rieure (32 767). 
Je dois peut &#234;tre &#234;tre con mais je saisis mal ... lol.

cs_DARKSIDIOUS · Answer

Je pense que c'est pour une raison d'optimisation : additionner des
entiers sur 2 octets est forc&#233;ment plus rapide que des entiers sur 4
octets ! (et c'est d'autant plus vrai pour les op&#233;rations lourdes
telles que multiplications ou modulo).



Du coup, VB prend le type de donn&#233;es le plus petit possible pour faire l'addition, et si ca d&#233;passe, tant pis pour toi.



Dans ton premier exemple, tu additionne un long avec un integer, donc
VB renvoie un long, par contre, un integer avec un integer renvoie un
integer, m&#234;me si la variable stockant le r&#233;sultat est un long !



Sinon, je tiens &#224; remercier daetips qui a tout compris au schmilblick :) lol

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

philippe laschweng 1 · Answer

Oui je n'avais pas pens&#233; &#224; cela mais je pense que tu as raison : c'est forc&#233;ment plus rapide sur 2 octets ! Maintenant il est peut &#234;tre dommage que dans VB il n'y est pas pr&#233;vu une sorte d'&#233;chapatoire ou quand ca beuge, il refait le calcul en long et seulement &#224; ce moment  il g&#233;n&#233;re une erreur si le r&#233;sultat est sup&#233;rieur &#224; 2
 147 483 647. Un peu comme fonctionne les On GoTo Error.

Mais c'est bon &#224; savoir et je te remercie de ta contribution, c'est toujours instructif ! Bonne question plhea 

c'est vrai que daetips a tout pig&#233; ...

plhea · Answer

j'adore &#231;a !
int&#233;r&#233;ssant et intriguant &#224; la fois 
d&#233;cidement on apprend tous les jours 

et tant que j'y suis daetips je te remercie beaucoup pour ton aide

plhea

ScSami · Answer

C'est clair que c'est &#233;trange cet histoire!
Bon, c'est certain que Philippe a raison consernant l'inutilit&#233; de mettres les valeurs quand on peut rapidement faire le calcul nous m&#234;me. D'autant plus si, tes chiffres &#233;tants s&#233;par&#233;s par un "+" tu les mets entre parenth&#232;ses!!!
Pi pour la clart&#233; du code, tu sais, on a invent&#233; les commentaires 

Moi ce qui m'&#233;tonne avec vos explication c'est que :
 CC = CLng(11600 + 19200 + 4000)
Ne fonctionne pas non plus!!! Alors que si on suit ton raisonnement Darky, &#231;a devrait pourant fonctionner!
Je pense cependant que tu as raison... ca ne peut &#234;tre que &#231;a!
N'emp&#234;che, comment expliquer que :
- La fonction CLng n'accept pas de valeurs Long ??? Alors qu'il ne devrait normalement pas y avoir de limitation du type!
- Que lorsqu'on ne type rien &#231;a s'auto-type en Variant de 32 bits alors que VB optimise les calculs en Integers !?!?!?!?!? Quel sens donner &#224; tout &#231;a, &#224; la philosophie sous-jascente ???

Enfin, c'est clair que c'est toujours bon &#224; savoir m&#234;me si, entre nous, ce cas ne devrait pas nous arriver dans une programmation plus "traditionnelle" !

Enjoy  

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e

Gobillot · Answer

CC = CLng(11600 + 19200 + 4000)




les calculs se font comme &#231;a:
1) 11600 + 19200 

  comme ce sont des constantes, elles sont prises en Integer

  
soit r&#233;sultat = 30800 -->   &#231;a passe



2) 30800 + 19200

    toujours des Integers


    
soit r&#233;sultat = 34800 -->  d&#233;passement de capacit&#233;



le Clng ne joue donc pas, puisqu'il le plantage a lieu avant



&#231;a passe:

CC =  11600 + 19200 + 4000&


CC =  11600 + 19200 + CLng(4000)


CC =  11600 + CLng(21200) + 4000



&#231;a passe pas:


CC =  11600 + 21200 + 4000&


CC =  11600 + 21200 + CLng(4000)







Daniel

crenaud76 · Answer

1- CC = CLng(11600 + 19200 + 4000) ne fonctionne pas car comme l'a dis DS, le calcul se fait sur des integer en VB, du moins par défaut !
2- Vous noterez que "cc = CLng(11600 + 19200 + CLng(4000))" marche tres bien : En effet, le fait de convertir unes des operandes en long, force VB à typecasté implicitement tout ce petit monde en long !
3-Clng() accepte tout a fait un long ! J'en veux pour preuve que cc = CLng(34800) fonctionne tres bien, et 34800 est un long ! C'est 11600 + 19200 + 4000 qui est illicite pour VB !
2- Le type par défaut est le variant et le type NUMERIQUE pris par VB par défaut les l'integer, et je ne vois pas ou est le défaut la dedans ! VB a pris la philosophie de dire que ce qui n'est pas type au moment de la DECLARATION est variant alors on cause de nos variables, nos constantes et autres fonctions la OK ? Alors que quand VB décide de considerer 11600 comme un integer, il ne s'agit pas "d'auto-typé" une déclaration, mais de déterminer le type d'une valeur.
3- De la meme facon qu'une valeur commancant par un caractère " et finissant par le meme caractère " est considérer comme une string, une valeur commencant par un digit, un + ou un - et constitué uniquement de digit par la suite est à priori considéré comme un integer, sauf si sa valeur ne tient pas dans 2 octets auquel cas VB tente le coup avec un long ! Le but est d'avoir les représentation s de valeur les plus petite possible en mémoire, car pour un code machine, plus il y a d'octet à manipuler, plus c'est long ! Enfin la, je dois corriger ! Vous savez qu'en VB il vaut mieux travailler en Long plutot qu'en Integer ? En effet, l'integer est sur 2octets, donc 16bits et le long sur 4o, donc 32bits. OPr, nos PCs actuels ont un bus de donnée de 32bits, et nos proc sont des 32bits et préfère donc travailler sur leur mot (=32b) plutot que sur leur demi-mot(=32/2=16b). Le partie pris pour l'integer par VB a été pris à l'époque des précédente version de VB (VB4) qui tournait sur des bécanes 16b et générait du code 16b. Avec VB5, on pouvait faire du code 16b ou du code 32b sur une machine 32b,et avec VB6 on fait du 32b sur des machines 32b. MAIS VB n'a pas lâcher l'Integer pour autant, car Microsoft n'a pas voulu refondre tout VB a la sortie de la version 6 car .NET était déjà dans les cartons et VB6 mort avant de naitre  (pour Crosoft du moins !!!).
Voila ! J'espere ne pas vous avoir embeter avec ce cours sur la base de la programmation VB (par "de base" je veux dire qu'il concerne les fondements du langage VB, pas que c'est du niveau d'un developpeur débutant !)

CR

Gobillot · Answer

1) ce serait dommage d'abandonner les Integers,

     l'avantage c'est qu'ils prennent moins de place, mais en temps de traitement 

     c'est l&#233;g&#232;rement un peu plus Long ( tient !)


2) le type de la constante est pris en fonction de sa valeur:

    39200 sera consid&#233;r&#233; en Long

    le type r&#233;sulktat est celui du plus grand:   Integer + Long --> Integer

    donc ce calcul passe sans probl&#232;mes

    CC = 11600 + 39200 + 4000


Daniel

plhea · Answer

crenaud >
avant lire ton message j'&#233;tais persuad&#233; que les variables integer avaient une temps de traitement plus court que les long 
mais c'est vrai qu'avec les processeurs 32bits &#231;a ne devrait rien changer
et justement tu dis que c'est plus rapide avec les longs que les integer 
pourquoi? &#231;a devrait &#234;tre exactement pareil non ?

et bientot avec les 64bits on fera que des Double 
l&#224; on aura de la marge 

mais avec les double on ne peut pas avoir d'entiers ?
(fourchette &#177; -10^-307 &#224; &#177; 10^308)
enfin il ne pourra pas effectuer la conversion automatique de :

Dim ABC As Integer
ABC = 2.43
Print ABC

ici 2.43 est converti en 2

mais dans le cas d'une variable Double
Dim ABC As Double
ABC = 2.43
Print ABC

ici 2.43 n'est pas converti en 2 
il aurait fallu mettre
Dim ABC As Double
ABC = Clng(2.43)

mais si on veut un entier tr&#232;s tr&#232;s tr&#232;s grand 
Dim ABC As Double
ABC = clng(10.2^307)

ici on veut un entier > il faut convertir 10.2 ^307 en long ou integer
mais dans ce cas l&#224; on se prive de  l'enorme fourchette du Double !
puisque il y a d&#233;passement de capacit&#233; avec le Clng 

alors comment avoir des entiers tr&#232;s tr&#232;s grands ?
je crois avoir vu qu'il est possible de faire des calculs binaires en C
&#231;&#224;d on fait une fonction qui supprime la mantisse du double pass&#233; en argument

:) j'ai r&#233;solu mon probl&#232;me tout seul non ?
mais je n'ai aucune id&#233;e de comment faire &#231;a

plhea

plhea · Answer

je voulais aussi dire 
est ce que &#231;a existe d&#233;ja ou est ce qu'il est pr&#233;vu de faire des entiers 8 octets pour les processeurs 64 bits?

plhea

crenaud76 · Answer

En VB.NET on a le Int64 !

ScSami · Answer

Wai, enfin, disons que, pour ce qui concerne le fait que les Long soient plus rapides que les Integer moi je crois surtout que c'est une question de flemme de la part des codeurs du VB car en r&#233;alit&#233; (c'est la MSDN qui le dit), les deux utilisent une seule et m&#234;me fonction (ce qui explique pas mal de choses!).

En ce qui concerne l'utilisation des entiers dans notre cas, je pense quand m&#234;me que VB aurait du penser &#224; ce cas de figure. Apr&#232;s tout, les op&#233;rations arithm&#233;tiques font parti des fondamentaux et que le fait d'en cumuler fait - presque - obligatoirement appel &#224; des changements de type!!!
Enfin, ce qui est fait l'est et on y peut pas grand chose.

Juste une question sur le .Net :
Il y a combien de types diff&#233;rents ???

Au secours de toute ma vie je n'ai jamais vu ça

19 réponses

Discussions similaires