Les énumérations

Admin Messages : 1154 Date d'inscription : 06/08/2009

Une énumération est un type de données dont le domaine de valeurs est un
ensemble de cosntantes entières. Considérons un
programme qui a à gérer des mentions à un examen. Il y en aurait cinq :

Passable,AssezBien,Bien,TrèsBien,
Excellent. On pourrait alors définir une énumération pour ces cinq constantes :

Enum mention
Les bases de VB.NET 30
Passable
AssezBien
Bien
TrésBien
Excellent
End Enum

De façon interne, ces cinq constantes sont codées par des entiers consécutifs commençant par 0 pour la première constante, 1 pour
la suivante, etc... Une variable peut être déclarée comme prenant ces valeurs dans l'énumération :
' une variable qui prend ses valeurs dans l'énumération mention
Dim maMention As mention = mention.Passable
On peut comparer une variable aux différentes valeurs possibles de l'énumération :
' test avec valeur de l'énumération
If (maMention = mention.Passable) Then
Console.Out.WriteLine("Peut mieux faire")
End If

On peut obtenir toutes les valeurs de l'énumération :
For Each m In mention.GetValues(maMention.GetType)
Console.Out.WriteLine(m)
Next

De la même façon que le type simple Integer est équivalent à la structure Int32, le type simple Enum est équivalent à la structure
Enum. Cette classe a une méthode statique GetValues qui permet d'obtenir toutes les valeurs d'un type énuméré que l'on passe en
paramètre. Celui-ci doit être un objet de type Type qui est une classe d'information sur le type d'une donnée. Le type d'une variable
v est obtenu par v.GetType(). Donc ici maMention.GetType() donne l'objet Type de l'énumération mentions et
Enum.GetValues(maMention.GetType()) la liste des valeurs de l'énumération mentions.
C'est ce que montre le programme suivant :
' directives
Option Strict On
Option Explicit On
' espaces de noms
Imports System
Public Module enum2
' une énumération
Enum mention
Passable
AssezBien
Bien
TrèsBien
Excellent
End Enum
' pg de test
Sub Main()
' une variable qui prend ses valeurs dans l'énumération mention
Dim maMention As mention = mention.Passable
' affichage valeur variable
Console.Out.WriteLine("mention=" & maMention)
' test avec valeur de l'énumération
If (maMention = mention.Passable) Then
Console.Out.WriteLine("Peut mieux faire")
End If
' liste des mentions littérales
For Each m As mention In [Enum].GetValues(maMention.GetType)
Console.Out.WriteLine(m.ToString)
Next
' liste des mentions entières
For Each m As Integer In [Enum].GetValues(maMention.GetType)
Console.Out.WriteLine(m)
Next
End Sub
End Module

Les bases de VB.NET 31
Les résultats d'exécution sont les suivants :

dos>enum2
mention=0
Peut mieux faire
Passable
AssezBien
Bien
TrèsBien
Excellent
0
1
2
3
4

(مشرف(ة Messages : 1061 Date d'inscription : 22/08/2009

je comprens rien la dans mais je vois que c'est un travail exelent que ta fais bravo ........

Admin Messages : 1154 Date d'inscription : 06/08/2009

merci mon ami tu comprend pas parce que toi un tsri inchaelah j'ajout un forum pour les tsri

(مشرف(ة Messages : 445 Date d'inscription : 14/08/2009 Age : 33

et warina quelque chose sur ton tri mr everest
bache ta7na manfahmouche Basketball

merciii 3la majhoudak