Discussion :

[noftal]

Bonjour,
Je voudrais savoir si les erreurs ont un identifiant qui permet de les traiter dans une boucle indépendamment de la langue.
Je m'explique.
J'ai identifié une erreur de type system.argument.exception qui affiche (ex.message)

Analyses statistiques - Impossible de calculer la moyenne si une série d'entrée est vide (c'est-à-dire qu'elle n'a aucun point de données).

Je voudrais la traiter dans un catch.
Mais je ne peux pas faire

Code :

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

If ex.message contains("Analyses statistiques - Impossible de calculer la moyenne si une série d'entrée est vide (c'est-à-dire qu'elle n'a aucun point de données)." then...

car je suppose que ce message doit dépendre de la culture de l'utilisateur.
Donc je cherche si cette erreur a un identifiant .
En regardant dans les propriétés, je trouve des choses qui comportent un numéro :
HRESULT
Metadatatoken
...
J'ai cherché sur le Net et j'ai trouvé des infos pas toujours très claires ou alors contradictoires.

EDIT : une autre façon de poser le pb est de savoir si l'on peut catcher le n° de ligne de code qui provoque l'erreur et faire un test dessus.

[clementmarcotte]

Bonjour,

Bonjour,
Je voudrais savoir si les erreurs ont un identifiant qui permet de les traiter dans une boucle indépendamment de la langue.
Je m'explique.
J'ai identifié une erreur de type system.argument.exception qui affiche (ex.message)



Je voudrais la traiter dans un catch.
Mais je ne peux pas faire

Code :

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

If ex.message contains("Analyses statistiques - Impossible de calculer la moyenne si une série d'entrée est vide (c'est-à-dire qu'elle n'a aucun point de données)." then...

car je suppose que ce message doit dépendre de la culture de l'utilisateur.
Donc je cherche si cette erreur a un identifiant .
En regardant dans les propriétés, je trouve des choses qui comportent un numéro :
HRESULT
Metadatatoken
...
J'ai cherché sur le Net et j'ai trouvé des infos pas toujours très claires ou alors contradictoires.

EDIT : une autre façon de poser le pb est de savoir si l'on peut catcher le n° de ligne de code qui provoque l'erreur et faire un test dessus.

Je ne suis pas sûr de bien comprendre, mais, rien ne t'empêche d'avoir plusieurs blocs catch, et même ton propre message d'erreur, que tu peux même avoir en plus d'une langue; en utilisant des fichiers ressources.

Par exemple, j'ai récupéré ceci dans l'aide de VB.net

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
Imports System
 
Class ExceptionTestClass
 
   Public Shared Sub Main()
      Dim x As Integer = 0
      Try
         Dim y As Integer = 100 / x
      Catch e As ArithmeticException
         Console.WriteLine("ArithmeticException Handler: {0}", e.ToString())
      Catch e As Exception
         Console.WriteLine("Generic Exception Handler: {0}", e.ToString())
      End Try
   End Sub 'Main
End Class 'ExceptionTestClass
'
'This code example produces the following results:
'
'ArithmeticException Handler: System.OverflowException: Arithmetic operation resulted in an overflow.
'   at ExceptionTestClass.Main()
'

en partant de l'exemple ci-haut on peut remplacer la console par une messagebox, si c'est une application WindowsForms, et même ajouter un bloc 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
Imports System
 
Class ExceptionTestClass
 
   Public Shared Sub Calcul()
      Dim x As Integer = 0
      Try
         Dim y As Integer = 100 / x
       catch e as dividebyzeroexception 'Du moins je pense que c'est le nom de l'exception de la division par 0
          messagebox.show("Votre X est égal à zéro")
      Catch e As ArithmeticException
        messagebox.show("Erreur arithmétique. Vérifiez bien la valeur de X")
      Catch e As Exception
         messagebox.show("Erreur non-arithmétique")
      End Try
   End Sub 'Main
End Class 'ExceptionTestClass

Cette page est aussi disponible directement dans ton aide:

http://msdn.microsoft.com/FR-FR/libr...0,d=hv.2).aspx

[noftal]

Le type system.argument.exception n'est pas assez précis. Il englobe des erreurs de nature très diverse. Je cherche à traiter une erreur très specifique sur l'impossibilité de calculer une moyenne.
C'est pourquoi un test de type

Code :

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

catch ex as system.argument.exception

n'est pas suffisant

[piwee]

Bonjour,

Je rajouterai qu'il y a aussi moyen de créer sa propre exception.
Dans la classe d'exception, on peut aussi rajouter des propriétés et méthodes.

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
 
Module Module1
 
  Sub Main()
    Try
      calcul()
    Catch ex As AnalysesStatistiqueException
      Console.WriteLine(ex.Message)
    Catch ex As Exception
      Console.WriteLine(ex.Message)
    End Try
 
    Console.ReadKey()
  End Sub
 
  Public Sub calcul()
    Throw New AnalysesStatistiqueException("Analyses statistiques - Impossible de calculer la moyenne si une série d'entrée est vide (c'est-à-dire qu'elle n'a aucun point de données).")
  End Sub
 
End Module
 
Public Class AnalysesStatistiqueException
  Inherits System.ApplicationException
 
  Public Sub New(ByVal message As String)
    MyBase.New(message)
  End Sub
 
End Class

[noftal]

L'important n'est pas pour moi de personnaliser un message d'erreur mais de catcher le message prédéfini.
je comprends de ta réponse que le seul moyen serait d'entourer la ligne spécifique de mon code générant l'erreur par un try/Catch ?
C'est vrai que jusqu'ici j'essayais de mettre tout le code de ma procédure dans un unique try/catch. Peut-être faut-il que je "resserre" l'emprise de ces try/catch. Du genre :

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
Private sub MySub()
Try
'... ici la plupart de mon code
'Try
'un bloc try entourant la ligne qui provoque l'erreur sépcifique sur la moyenne
Dim Moyenne As Double = Chart_Degust.DataManipulator.Statistics.Mean("Total")
catch ex as exception
'traitement de cette erreur
end try
 
' reste du code
catch ex as exception
' traitement des erreurs provoquées dans le reste du code
end try
End Sub

[mactwist69]

Bonjour, oui tu peux faire ça :

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
Private sub MySub()
Try
 
     '... ici la plupart de mon code
 
    Try
             'un bloc try entourant la ligne qui provoque l'erreur sépcifique sur la moyenne
             Dim Moyenne As Double = Chart_Degust.DataManipulator.Statistics.Mean("Total")
      catch ex as exception
             'traitement de cette erreur
             Throw New Exception ("Erreur lors du calcul de la moyenne", ex)
     end try
 
' reste du code
 
catch ex as exception
' traitement des erreurs provoquées dans le reste du code
end try
End Sub

Ainsi, le Throw va permettre si tu as une erreur de ce rendre dans le Catch de la Sub!

Donc dans le deuxième Catch tu peux faire un traitement commun des erreurs de la sub ou de l'erreur du calcul de la moyenne.

Mettre ex dans l'exception que tu génères va permettre de mettre la véritable exception, dans le InnerExcpetion de celle que tu as créée.

[noftal]

Je vois l'idée.
Mais, dans le catch de la sub, comment puis-je identifier que je viens du premier catch ou non, pour différencier mon traitement d'erreur ?
Est-ce que cela ne repose pas le pb de l'identification de l'erreur ?

[jgrmstr]

Je vois l'idée.
Mais, dans le catch de la sub, comment puis-je identifier que je viens du premier catch ou non, pour différencier mon traitement d'erreur ?
Est-ce que cela ne repose pas le pb de l'identification de l'erreur ?

Non, il suffit que tu lèves une exception custom genre AverageCalcException, et là tu sauras d'où vient ton erreur.

PS : se baser sur le numéro de ligne serait une mauvaise idée...

[mactwist69]

En effet, tu peux te créer un type d'exception personnalisé, ce qui te permettrait de faire des traitements différents selon le type de l'exception.

Mais, as tu réellement besoin de faire un traitement différent ?
Car que va tu y faire de cette exception ? Afficher un message ? tu l'as déjà personnalisé...
Juste pour m'éclairer...

[noftal]

Là en l'occurrence, sur cette erreur, je ne fais rien.
Dans toutes mes procédures, je mets un try catch avec a minima un messagebox.show(ex.tostring, nomdelaprocedure)
Le but est que, en cas d'erreur non anticipée dans mon code, l'utilisateur puisse me remonter les infos figurant dans le messagebox afin que je puisse déboguer rapidement et anticiper, par le code, cette erreur.
Il n'y a que quelques cas (et c'est le cas ici, où j'ai identifié que dans certaines situations de zoom, l'instruction provoque une erreur. Il m'a semblé plus simple de by-passer cette erreur plutôt que de l'anticiper.
Donc je catche cette erreur, si l'identification montre que c'est bien celle-ci alors, je fais juste un end try et je n'affiche aucun message. La moyenne n'est pas affichée sur le graphique mais ça n'est pas gênant et c'est même assez logique dans les situations de zoom qui provoquent l'erreur.
Donc le code que je souhaitais faire est du genre :

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
Private sub MySub()
Try
'... ici la plupart de mon code
 
 
Dim Moyenne As Double = Chart_Degust.DataManipulator.Statistics.Mean("Total")
 
 
' reste du code
 
catch ex as exception
If Not ex.message contains("Analyses statistiques - Impossible de calculer la moyenne si une série d'entrée est vide (c'est-à-dire qu'elle n'a aucun point de données)." Then
MessageBox.Show(ex.ToString, "Binding_Chart")
end try
 
End Sub

dans l'exemple de mactwist69, je ne vois toujours pas ce que je vais mettre comme code entre les lignes 16 et 18 pour différencier le traitement des erreurs provenant spécifiquement du 1er catch du traitement des autres erreurs de la procédure.

[mactwist69]

Je n'aime pas trop cette solution, mais en l’occurrence pour faire au plus simple je dirais ceci :

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
Private sub MySub()
Try
'... ici la plupart de mon code
 
Try
 
     Dim Moyenne As Double = Chart_Degust.DataManipulator.Statistics.Mean("Total")
Catch ex as exception
    Exit Sub
End Try
 
' reste du code
 
catch ex as exception
If Not ex.message contains("Analyses statistiques - Impossible de calculer la moyenne si une série d'entrée est vide (c'est-à-dire qu'elle n'a aucun point de données)." Then
MessageBox.Show(ex.ToString, "Binding_Chart")
end try
 
End Sub

Je trouverai mieux finalement de mettre le code qui calcule la moyenne dans une fonction.
A la fin de la fonction tu retourne le résultat, et dans le 1er Try, tu retourne 0 ou -1.
Et si il y a une exception dans le deuxième Catch, et bien tu affiches ton erreur, et tu retourne également 0 ou -1

[noftal]

Je retiens les 2 solutions.

Juste une remarque, le If Then de la ligne 15 de ton dernier exemple est superflu.

[mactwist69]

Ah oui, j'ai même pas relu en fait, j'ai fais un copier/coller.
L'important c'est que Toi, tu l'ais vu !