Probléme avec l'énumération

Bonjour à tous,

Je solicite un peu d'aide pour le problème suivant :

Soit l’énumération suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

<Flags()> Public Enum NomDuJour As Integer Dimanche = 0 Lundi = 1 Mardi = 2 Mercredi = 3 Jeudi = 4 Vendredi = 5 Samedi = 6 Semaine = Lundi Or Mardi Or Jeudi WeekEnd = Samedi Or Dimanche Tous = Semaine Or Mercredi Or Vendredi Or WeekEnd End Enum   Dim MaJournee as NomDuJour = NomDuJour.Dimanche

---

Je souhaiterais savoir comment faire pour que lors du test suivant :

Code:

---

if MaJournee = NomDuJour.WeekEnd then .....

---

Celui-ci me retourne VRAI. Car Dimanche est bien un weekend. Actuellement cela ne fonctionne que pour Samedi, et lors que je met AND au lieu de OR, il indique pour tous les jours de la semaine. Avec HasFlag, il me retourne False pour Dimanche également.

Dans l'attente d'une réponse je vous remercie tous....

Il faut plutôt vérifier si l'enum WeekEnd contient la valeur souhaitée :

Code:

---

If NomDuJour.WeekEnd.HasFlag(MaJournee) Then

---

Le problème à la base c'est de vouloir utiliser l'attributs Flags donc une énumération dont certaines valeurs sont combinées (soit directement dans l'énumération soit par code genre Mardi Or Mercredi) sans utiliser des puissances de 2 comme valeurs (alors que la combinaison se fait grâce à des opérateurs "bitwise")
Et pourtant c'est bien indiqué dans la documentation:

Citation:

---

Définissez des constantes d'énumération à la puissance deux, soit 1, 2, 4, 8, et ainsi de suite. Cela signifie que les indicateurs individuels inclus dans des constantes d'énumération combinées ne se chevauchent pas.

---

Prenons l'énumération telle qu'elle est définie actuellement et utilisons le code suivant :

Code:

---

1 2 3

For Each ndj As NomDuJour In [Enum].GetValues(GetType(NomDuJour)) Console.WriteLine(ndj.ToString & " " & ndj) Next

---

Rien de bien sorcier, on parcourt juste les valeurs de l'énumération et on affiche pour chacune d'elle côte à côte sa représentation textuelle et as valeur numérique, et voici ce que l'on obtient :

Citation:

---

Dimanche 0
Lundi 1
Mardi 2
Mercredi 3
Jeudi 4
Vendredi 5
WeekEnd 6
WeekEnd 6
Tous 7
Tous 7

---

On constate que Samedi et Semaine ont "disparus" et que WeekEnd et Tous sont en double comment cela se fait-il ? c'est la conséquence du chevauchement évoqué plus haut.
Si on calcule Samedi = 6 et WeekEnd = Samedi Or Dimanche = 6 Or 0 = 6 ; ils ont tous les 2 la même valeur
De même, Semaine = Lundi Or Mardi Or Jeudi = 1 Or 2 Or 4 = 7 et Tous = Semaine Or Mercredi Or Vendredi Or WeekEnd = 7 Or 3 Or 5 Or 6 = 7 ; ils ont tous les 2 la même valeur également
Il faut bien garder en tête qu'une énumération ce n'est rien de plus qu'un nombre auquel on a donné un "joli nom" ; sauf qu'ici tu donnes plusieurs noms au même nombre donc il en choisit un (a priori de manière arbitraire, mais je soupçonne l'implémentation actuelle de toujours donner le dernier "nom" associé à une valeur)

Comment résout-on ceci ?
En suivant les indications fournies par la documentation, à savoir en utilisant des puissances de 2 successives, de sorte à pouvoir combiner les valeurs sans chevauchement (attention aussi au 0, on l'utilise plus pour signifier Aucun car il n'a aucun impact au niveau des calculs quand on le combine)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

<Flags()> Public Enum NomDuJour As Integer Dimanche = 1 ' on commence à 1 Lundi = 2 ' puissance de 2 successives Mardi = 4 Mercredi = 8 Jeudi = 16 Vendredi = 32 Samedi = 64 Semaine = Lundi Or Mardi Or Jeudi WeekEnd = Samedi Or Dimanche Tous = Semaine Or Mercredi Or Vendredi Or WeekEnd End Enum

---

Et avec ceci si je réutilise l'extrait de code mentionné plus haut j'obtiens désormais :

Citation:

---

Dimanche 1
Lundi 2
Mardi 4
Mercredi 8
Jeudi 16
Semaine 22
Vendredi 32
Samedi 64
WeekEnd 65
Tous 127

---

Et tout est bien qui finit bien :D

Ok, je vous remercie pour votre aide... J'ai réussi à faire ce que je voulais.