Vb.net : Date de systeme

Énoncé : Créez un programme en VB.NET qui permet d’ajouter des étudiants à une liste, mais uniquement s’ils ont une date de naissance inférieure à la date système. Le programme doit afficher un message d’erreur si la date de naissance est supérieure ou égale à la date système.

Instructions :

1. Créez une fenêtre Windows Forms avec les éléments suivants :

• Un label pour afficher les instructions
• Des champs texte pour entrer le nom et la date de naissance de l’étudiant
• Un bouton pour ajouter l’étudiant à la liste
• Un tableau pour afficher la liste des étudiants ajoutés

2. Dans le code, créez une liste pour stocker les étudiants ajoutés.
3. Lorsque l’utilisateur clique sur le bouton « Ajouter », le programme doit vérifier si la date de naissance est inférieure à la date système. Si c’est le cas, l’étudiant doit être ajouté à la liste. Sinon, le programme doit afficher un message d’erreur.
4. Pour obtenir la date système, vous pouvez utiliser la propriété « Today » de la classe « DateTime ».
5. Pour afficher la liste des étudiants ajoutés, vous pouvez utiliser un DataGridView.

Voici un exemple de code pour vérifier la date de naissance et ajouter l’étudiant à la liste :

Private Sub btnAjouter_Click(sender As Object, e As EventArgs) Handles btnAjouter.Click
    Dim nom As String = txtNom.Text
    Dim dateNaissance As Date = DateTime.Parse(txtDateNaissance.Text)

    If dateNaissance < DateTime.Today Then
        Dim etudiant As New Etudiant(nom, dateNaissance)
        listeEtudiants.Add(etudiant)
        dgvEtudiants.DataSource = Nothing
        dgvEtudiants.DataSource = listeEtudiants
    Else
        MessageBox.Show("La date de naissance doit être inférieure à la date système.", "Erreur")
    End If
End Sub

Dans cet exemple, « Etudiant » est une classe qui contient les propriétés « Nom » et « DateNaissance ». La liste « listeEtudiants » est une liste de type « List(Of Etudiant) ». La DataGridView « dgvEtudiants » est liée à la liste pour afficher les étudiants ajoutés.