Discussion :

[jojolastar27]

bonjour,Et oui c'est encore moi

Je dialogue avec un automate et grace a builder C++ j'envoie les données (temperature) dans excel afin de les sauvegarder.
Ensuite j'ai realiser un ptit code afin d'afficher certaines temperatures dans un graphique en utlisant "Chart1".
Le problème est que des fois l'automate m'envoie des caractères et non des chiffre et comme le "Chart1" utilise des doubles ....ERREUR

Quel condition puis je faire afin de ne pas prendre cette cellule (de l'ignorer)??

merci

[totoche76]

Hello,

Un truc de ce genre ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
AnsiString chaine;
double valeur;
if (TryStrToFloat(chaine, valeur))
{
  // Ajouter au graphe
}
else
// ....

Les fonctions StrToXXXDef sont pratiques également:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
AnsiString chaine;
double valeur = StrToFloatDef(chaine, 0);

[kineton]

Sinon, une petite expression régulière peut également répondre à la question.

[kmaniche]

Si ton automate t'envoi que des nombres donc des réels et que tu veux transtypé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
val = StrToFloat(Lavaleurlue) ;

[jojolastar27]

j'ai essayer tout se que vous m'avez dit mais sa me met une erreur... comme quoi un double ne peut pas recevoir de caractère.
Le truc c'est que je vai chercher ma valeur dans excel elle revien en variant, ensuite je la converti en double afin de l'afficher dans le graphique.C'est entre les 2 que je dois verifier si il peut se convertir
j'ai essayer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
try
{
Y=vCell.OlePropertGet("value");
}
catch(EConvertError*err)
{
return;
}

Sa marche pas non plus...

[nirgal76]

j'ai essayer tout se que vous m'avez dit mais sa me met une erreur... comme quoi un double ne peut pas recevoir de caractère.
Le truc c'est que je vai chercher ma valeur dans excel elle revien en variant, ensuite je la converti en double afin de l'afficher dans le graphique.C'est entre les 2 que je dois verifier si il peut se convertir
j'ai essayer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
try
{
Y=vCell.OlePropertGet("value");
}
catch(EConvertError*err)
{
return;
}

Sa marche pas non plus...

Récupère plutot la propriété "Text" au lieu de value si tu n'est pas sur que ce soit un nombre et tu teste le format dans builder...quoique je sais plus si ça change grand chose, mais ça coute rien d'essayer.
Et c'est OlePropertyGet, pas OlePropertGet
Et il ne faut pas faire de return à l'intérieur du catch

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
bool erreur=false;
double nombre;
String chaine;
 
try
{
  chaine=vCell.OlePropertyGet("Text");
  nombre=chaine.ToDouble();
}
 
catch(EConvertError* err)
{
  erreur=true;
}
 
if (erreur)
  return;
...

[jojolastar27]

avec se code sa ne plante plus,et sa met bien mon message d'erreur a moi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
double Z,heure,Y;
 bool erreur=false;
 String chaine;
 
//Lecture des valeurs present dans excels
 for(int i=2;i<=aligne;i++)
 {
        //Transfert dans la variable aValue la Date
        vCell=vWorksheet.OlePropertyGet("Cells",i,2);
        aValue=vCell.OlePropertyGet("Value");
 
        //Transfert dans la variable climatiseur le numero de la clim
        vCell=vWorksheet.OlePropertyGet("Cells",i,1);
        climatiseur=vCell.OlePropertyGet("Value");
 
        //Heure
        vCell=vWorksheet.OlePropertyGet("Cells",i,3);
        heure=vCell.OlePropertyGet("Value");
 
        //Condition afin d'afficher sur le graphique que la date selectionné
        if(aValue==MonthCalendar1->Date && climatiseur==ComboBox1->Text)
        {
 
           //Valeur de Tambiant
           vCell=vWorksheet.OlePropertyGet("Cells",i,4);
           try
           {
           chaine=vCell.OlePropertyGet("Text");
           Y=chaine.ToDouble();
           }
           catch(EConvertError *err)
           {
           MessageBox(NULL,"Valeur de Tambiant incorrecte","Erreur graphique",MB_OK);
           erreur=true;
           }
           if(erreur)
           return;
           Z=i;
           Series1->AddXY(Z,Y,Z,clRed);
           }
        }
 }

Mais pourquoi mon application ne passe pas à ma valeur suivante.En gros si une erreur se trouve à la 3eme ligne et qu'il y en a 5, il n'affiche pas les valeur en ligne 4 et 5 meme si elle sont bonne ...

[nirgal76]

à cause de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
if(erreur)
  return;

Ca te fait sortir de la fonction dès qu'il y a une erreur

ce qu'il faut, c'est simplement passer à la prochaine. donc faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
if(erreur)
  continue;

Là ou return sort de la fonction, continue lui va sauter au "for" et prendre la prochaine valeur sans terminer le bloc d'instruction

Pour le message d'erreur, tu peux utiliser les fonctions de la VCL comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MessageDlg("Format du Variant incorrecte", mtError, TMsgDlgButtons() << mbOK, 0);

ou avec un titre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TaskMessageDlg("Erreur graphique", "Format du Variant incorrect", mtError, TMsgDlgButtons() << mbOK, 0);

Et si tu ne les utilise pas, au pire, donne un Handle à MessageBox, c'est plus rigoureux.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MessageBox(NULL,...

devient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MessageBox(Application->Handle,...

j'ai pris Application->Handle, mais si tu peux utiliser celui de la fenêtre qui est affichée à ce moment là.

- En faire le moins possible dans le catch, juste positionner l'erreur et éventuellement mémoriser si besoin le message d'erreur.

- Et au début de la boucle du for n'oublie pas de mettre "erreur" à false, sinon, il prendra les prochaines valeurs comme fausse après une erreur.

Donc, en résumé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
double Z,heure,Y;
 bool erreur;
 String chaine;
 
//Lecture des valeurs present dans excels
 for(int i=2;i<=aligne;i++)
 {
        erreur=false;
        //Transfert dans la variable aValue la Date
        vCell=vWorksheet.OlePropertyGet("Cells",i,2);
        aValue=vCell.OlePropertyGet("Value");
 
        //Transfert dans la variable climatiseur le numero de la clim
        vCell=vWorksheet.OlePropertyGet("Cells",i,1);
        climatiseur=vCell.OlePropertyGet("Value");
 
        //Heure
        vCell=vWorksheet.OlePropertyGet("Cells",i,3);
        heure=vCell.OlePropertyGet("Value");
 
        //Condition afin d'afficher sur le graphique que la date selectionné
        if(aValue==MonthCalendar1->Date && climatiseur==ComboBox1->Text)
        {
 
           //Valeur de Tambiant
           vCell=vWorksheet.OlePropertyGet("Cells",i,4);
           try
           {
           chaine=vCell.OlePropertyGet("Text");
           Y=chaine.ToDouble();
           }
           catch(EConvertError *err)
           {
             erreur=true;
           }
 
           if(erreur)
           {
             TaskMessageDlg("Erreur graphique", "Format du Variant incorrect", mtError,  TMsgDlgButtons() << mbOK, 0);
             continue;
           }
 
           Z=i;
           Series1->AddXY(Z,Y,Z,clRed);
           }
        }
 }

[jojolastar27]

merci nirgal76,sa marche nickel .
Tu est un champion