Conversion de type d'un SINGLE et "Erreur 16 : Expression trop complexe"

Bonjour, voici mon problème :

Lors d'une concaténation, VB6 me donne le code d'erreur suivant :
"Erreur 16 : Expression trop complexe"

Voici la ligne de code en question :

Code:

---

NewFic(3) = "SYSTEME " & CStr(Unite) & " " & CStr(Dens_Eau)

---

NewFic est un tableau de STRING
Unite est un INTEGER
Dens_eau est un SINGLE

Cette ligne est présente dans mon code depuis des mois et n'a jamais posé problème mais depuis ce matin VB6 n'en veux plus.
Le plus surprenant est qu'en mode pas à pas... je n'ai aucun message d'erreur.

Quelqu'un a une idée du problème ?

Edit :

Code:

---

1 2	NewFic(3) = "SYSTEME " & CStr(Unite) & " " NewFic(3) = NewFic(3) & CStr(Dens_Eau)

---

Pose également problème, VB6 s'arrêtera là sur la seconde ligne.

Edit 2:
J'ai modifié le titre après avoir isolé le problème, toutes les lignes suivantes générèrent le même message d'erreur :

Code:

---

1 2 3 4 5

CInt(Dens_eau) CCur(Dens_eau) CStr(Dens_eau) CDbl(Dens_eau)

---

etc... mon IDE ne semble plus vouloir convertir le type SINGLE en quoi que ce soit. Le programme assemblé lui semble fonctionner correctement...

Pas d'explication, cependant :

J'ai déjà vu vb se comporter de façon bizare quand une des références était manquante. Regarde dans les menus / Projet /Reférences et vérifie qu'aucune des références n'est déclarée manquante

Après vérification, il n'y a aucun soucis de dépendance (d'ailleurs je ne suis pas sur que ça compilerai s'il y'avait un problème à ce niveau).

Je pense que je suis bon pour une réinstallation de VB6....

Peut-etre aussi un problème de virgule/point pour le symbole décimal. A vérifier dans les paramètres régionnaux sur les machines posant problème.

?Dens_Eau

svp

Bonjour,

J'ai déjà eu ce genre d'erreur avec une variable en double précision.
Lors d'un calcul sur une tva ,la réponse devait être un nombre entier et en double précision, j' avais une réponse très approchante du nombre entier mais
avec un nombre comportant une vingtaine de chiffres après la virgule.
J'ai pu résoudre le problème en changeant simplement mes variables double en currency, et alors pas de problème les valeurs étaient correctes.
Essaie de changer ta variable simple en une autre variable numérique?

A+

Petite absence due à saut dans le vide de mon disque dur qui a choisi de se suicider...

Donc problème persistant malgré une réinstallation complète du PC (ce n'est donc pas un problème d'IDE instable à priori).

Vld44 :

Code:

---

1 2	Global Dens_Eau As Single

---

iclic :
J'ai essayé également les déclarations suivantes sans résolution du problème :

Code:

---

1 2 3

Global Dens_Eau As Currency Public Dens_Eau As Currency

---

Résolution (sans compréhension) du problème avec la déclaration suivante :

Code:

---

1 2	Global Dens_Eau As Double

---

Donc je ne sais pas pourquoi j'ai eu ce problème, ni pourquoi ce changement de déclaration le résout...

Edit :
Pour ceux qui rencontrerait le même problème, il est à noté que la plupart du temps (95% des cas) cette variable contiens un nombre entier.

Retrait de la balise "Résolu"...

A la seconde exécution le problème est ré-apparu avec la déclaration en Double.

Bonjour Cravis,

Mais où vas-tu chercher la valeur de la variable 'Dens_eau ,dans un fichier, une BDD, dans un Textbox... ???
C'est peut-être là que se trouve le problème.

Dens_Eau est initialisé ainsi :

Code:

---

Dens_Eau = 10

---

et est modifiable par l'utilisateur via une textbox :

Code:

---

Dens_Eau = Val(txtDens.Text)

---

Alors le probème vient peut être de Val()
Essaye une des nouvelles fonctions de convertion, Cdbl() par exemple

salut, je te demandais la valeur de "dens_eau" au moment exact du crash :)

Et pourquoi pas le laisser alors en 'string s'il n'y a pas de calcul avec sa valeur?

Code:

---

1 2 3 4 5 6 7 8

Dim Dens_Eau as string ... Dens_Eau = "10" ... Dens_Eau = Trim(txtDens.Text) ... NewFic(3) = "SYSTEME " & CStr(Unite) & " " & Dens_Eau

---

Attention aussi que l'erreur n'est pas toujours là où on la croit,il faut parfois chercher autre part.

Bonjour,

Delbeke:
J'ai essayé de changer Val par Cdbl (et fais d'autre essai avec d'autre type et convertisseur) mais le problème persiste.

Vld44:
La valeur au moment du crash est 10, je laisse la valeur par défaut.

iclic:
Des calculs sont effectués avec cette valeur dans l'interface de mon programme j'ai donc besoin d'une valeur numérique.

Après de nombreux tests il s'avère que la commande suivante permet d'éviter l'erreur :

Code:

---

NewFic(3) = "SYSTEME " & CStr(Unite) & " " & Format(Dens_Eau, "0.0")

---

Mais l'erreur se répercute quelques lignes plus loin sur la ligne :

Code:

---

1 2 3

If MaxPress > 0 Then 'Le débuggeur bloque sur cette ligne Print #numFic, "PRESSION " & Format(MaxPress, "0.0") End If

---

MaxPress vaut 0 et est déclaré comme Currency (tenté en le passant double ou single, le problème persiste).

Autre source potentielle d'erreur :

Le séparateur de décimales sur mon poste est le point (nécessaire aux logiciels que j'utilise), mais ça a toujours été le cas et le problème n'est apparu qu'il y'a deux semaines... (Je développe cette application depuis plus d'un an)

Bonjour Cravis,

A mon avis si

Code:

---

1 2	NewFic(3) = "SYSTEME " & CStr(Unite) & " " & Format(Dens_Eau, "0.0")

---

permet d'éviter l'erreur,c'est que 'Dens_eau ,contenait un nombre avec trop de valeurs après la virgule et le format transforme le nombre avec une seule décimale.

Code:

---

1 2	Print #numFic, "PRESSION " & Format(MaxPress, "0.0")

---

Ici, tu écris dans un fichier texte d'abord un chaîne et en même temps une fonction sur la variable Maxpress, c'est celà qui ne va pas.
Ifaut d"abord faire

Code:

---

1 2 3 4

nomvariable= str(Format(MaxPress, "0.0")) 'puis Print #numFic, "PRESSION " & nomvariable

---

Bonjour,

Aucun problème pour l'écriture dans le fichier texte pour MaxPress, c'est le test qui provoque l'exception.

Je tiens à te rappeler les points suivant :
- Le code une fois compiler ne bug pas
- Une exécution en mode pas à pas ne génère pas de bug non plus

Seule l'exécution par F5 où CTRL+F5 déconne (ce qui n'est vraiment pas pratique pour le débugage).

Je ne comprend vraiment pas pourquoi j'ai autant de problèmes d'un coup avec VB6, mais je pense que je vais rapidement migrer vers .Net car si je commence déjà à avoir des soucis d'IDE alors que je travaille encore sous XP, je n'imagine même pas ce que ce sera lorsque je développerais sous VISTA....

Bonjour Cravis,

Je tiens à te rassurer.
J'ai une application de gestion d"entreprise pour garage qui tourne avec VB6
sur XPfamilial,XPpro et même sous Win98 .
Avec une vingtaine de feuilles et huit modules de base, donc environ 3GO.
Et quelques modules .exe supplémentaires.
Satisfaction chez l'utilisateur et celà fonctionne sans problème depuis des mois.
Mais je n'utilise dans le VB6 que les fonctions standards, donc fiabilité totale.

A+ et content de t'avoir rencontré sur le club.

Merci de me rassurer :lol:

Je serais en congé à partir d'aujourd'hui donc je continuerais mes investigations sur ce problème début 2009.

Et dans le cas où je trouverais une solution afin de corriger mon IDE je posterais ici.

Bon développement ;)

Des petites différences dans les fonctions de VB6.
pour information

exemple sur le nombre:21,25698

Code:

---

1 2	variablestring=format( variablenombre,"0.0")

---

donne comme réponse "21,3"

Code:

---

1 2	variablestring=Cstr(format( variablenombre,"0.0"))

---

donne comme réponse également "21,3"

mais

Code:

---

1 2	variablestring=Str(format( variablenombre,"0.0"))

---

donne comme réponse " 21.3" donc un blanc devant et le point à la place de la virgule

A+ et bon congé

Citation:

---

Envoyé par Cravis

Bonjour,

Aucun problème pour l'écriture dans le fichier texte pour MaxPress, c'est le test qui provoque l'exception.

Je tiens à te rappeler les points suivant :
- Le code une fois compiler ne bug pas
- Une exécution en mode pas à pas ne génère pas de bug non plus

Seule l'exécution par F5 où CTRL+F5 déconne (ce qui n'est vraiment pas pratique pour le débugage).

Je ne comprend vraiment pas pourquoi j'ai autant de problèmes d'un coup avec VB6, mais je pense que je vais rapidement migrer vers .Net car si je commence déjà à avoir des soucis d'IDE alors que je travaille encore sous XP, je n'imagine même pas ce que ce sera lorsque je développerais sous VISTA....

---

Mettre cela sur le dos de VB est un peu rapide. Cette erreur n'apparait pas seulement sous VB6 mais également sous Fortran ou VB.net
par exemple => http://msdn.microsoft.com/fr-fr/library/dsykck9b.aspx
Elle est généralement due à un manque de ressources - le fait d'être passé sous Vista qui en est friand peut être l'explication.
Personnellement, cela m'est arrivé suite à une barrette mémoire défectueuse.