GESTION D'UN CONCOURS DE PÊCHE SANS BASE DE DONNÉES

Public Class Form1
    '-_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_-
    '-_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_-
    '-_-_-_-_-_-_-_-_-_-_-_-  BBBBBBBBBBBBBB   BBB         BBB                       BBB   BBBBBBBBBBBBB   BBBB         BBBB                                          -_-_-_-_-_-_-_-_-_-_-_-
    '-_-_-_-_-_-_-_-_-_-_-_-  BBBBBBBBBBBBBB   BBB         BBB    BBB         BBB    BBB   BBBBBBBBBBBBB    BBB         BB                                            -_-_-_-_-_-_-_-_-_-_-_-
    '-_-_-_-_-_-_-_-_-_-_-_-       BBB         BBB         BBB      BBB      BBB           BB               BBBBB       BB                            BBBBBBBBB       -_-_-_-_-_-_-_-_-_-_-_-
    '-_-_-_-_-_-_-_-_-_-_-_-       BBB         BBB         BBB        BBB   BBB      BBB   BBBBBBBBBBBB     BBB  BB     BB                   BBBBBBB  B      BB       -_-_-_-_-_-_-_-_-_-_-_-
    '-_-_-_-_-_-_-_-_-_-_-_-       BBB         BBB         BBB        BBBBBBBBB      BBB   BBBBBBBBBBBB     BBB    BB   BB             BBBBB B      B B               -_-_-_-_-_-_-_-_-_-_-_-
    '-_-_-_-_-_-_-_-_-_-_-_-       BBB         BBB         BBB        BBBBBBBBB      BBB   BB               BBB     BB  BB             B   B BBBBBBB  B     BBBB      -_-_-_-_-_-_-_-_-_-_-_-
    '-_-_-_-_-_-_-_-_-_-_-_-       BBB         BBBBBBBBBBBBBBB       BBB      BBB    BBB   BB          BB   BBB      BB BB       BBBB  B   B B B      B       BB      -_-_-_-_-_-_-_-_-_-_-_-
    '-_-_-_-_-_-_-_-_-_-_-_-       BBB         BBBBBBBBBBBBBBB      BBB        BBB   BBB   BBBBBBBBBBBBBB  BBBBBB     BBBBBBBBB  BBBB  BBBBB B  BBB   BBBBBBBBBB      -_-_-_-_-_-_-_-_-_-_-_-
    '-_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_-
    '-_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-_-_-_-


    '*************************************** Ajouter un participant avec l'aide de AddingNew
    '*************************************** de ParticipantBindingSource

    Private Sub ParticipantBindingSource_AddingNew(ByVal sender As System.Object, ByVal e As System.ComponentModel.AddingNewEventArgs) _
    Handles ParticipantBindingSource.AddingNew

        e.NewObject = New Participant(Me.NomTextBox.Text, _
        Me.PrenomTextBox.Text, _
        Me.DateDeNaissanceDateTimePicker.Value, _
        Me.FemininCheckBox.Checked)


    End Sub


    '*************************************** Dans chacun de gestionnaire d'événement, on crée un BinaryFormatter qui sera 
    '*************************************** chargé de réaliser la sérialisation et la désérialisation.

    '*************************************** On utilise les méthodes Serialiser et Deserialiser du BinaryFormatter
    '*************************************** que l'on a créé pour sérialiser et désérialiser la liste de
    '*************************************** participants accessible par la propriété List de l'objet ParticipantBindingSource

    Private Sub OuvrirToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirToolStripButton.Click

        '*************************************** On utilise un OpenFileDialog pour 
        '*************************************** récupérer le nom du fichier
        Dim Formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter
        Dim ofd As New OpenFileDialog

        ofd.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments


        If ofd.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
            Dim fs As New IO.FileStream(ofd.FileName, IO.FileMode.Open)

            Try
                Me.ParticipantBindingSource.DataSource = CType(Formatter.Deserialize(fs), IList(Of Participant))
            Catch ex As Exception
                MessageBox.Show("La récupération a échouée : " + vbCrLf + ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Finally
                fs.Close()

            End Try
        End If

    End Sub

    Private Sub EnregistrerToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnregistrerToolStripButton.Click

        '*************************************** On utilise un SaveFileDialog pour enregistrer 
        '*************************************** le nouveau fichier avec les nouvelles données
        Dim Formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter
        Dim sfd As New SaveFileDialog

        sfd.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments

        If sfd.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
            Dim fs As New IO.FileStream(sfd.FileName, IO.FileMode.Create)

            Try
                Formatter.Serialize(fs, Me.ParticipantBindingSource.List)

            Catch ex As Exception
                MessageBox.Show("La sauvegarde a échouée : " + vbCrLf + ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Finally
                fs.Close()
            End Try
        End If

    End Sub

    Private Sub Classement_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optToutes.Click, optNombre.Click, optJunior.Click, optHommes.Click, optGros.Click, optGeneral.Click, optFemmes.Click

        Dim ClassementConcours As New List(Of Participant)

        If Not optToutes.Checked Then
            Dim participant As Participant
            For Each participant In Me.ParticipantBindingSource.List
                If optJunior.Checked AndAlso participant.Age < 17 Then
                    ClassementConcours.Add(participant)
                ElseIf Me.optHommes.Checked AndAlso participant.Feminin = False Then
                    ClassementConcours.Add(participant)
                ElseIf Me.optFemmes.Checked AndAlso participant.Feminin Then
                    ClassementConcours.Add(participant)
                End If
            Next
        Else
            ClassementConcours.AddRange(Me.ParticipantBindingSource.List)
        End If

        If Me.DataGridView1.DataSource IsNot Nothing Then
            Me.DataGridView1.DataSource = Nothing

        End If

        Select Case True

            Case Me.optGeneral.Checked
                ClassementConcours.Sort(New Participant.ComparerParMasseTotalePoisson)
                With Me.DataGridView1
                    .DataSource = ClassementConcours
                    .Columns("NomComplet").DisplayIndex = 0
                    .Columns("MasseTotalePoisson").Visible = True
                    .Columns("MasseTotalePoisson").DisplayIndex = 1
                    .Columns("MassePlusGrosPoisson").Visible = True
                    .Columns("MassePlusGrosPoisson").DisplayIndex = 2
                    .Columns("NombrePoissons").Visible = True
                    .Columns("NombrePoissons").DisplayIndex = 3
                End With
            Case Me.optGros.Checked
                ClassementConcours.Sort(New Participant.ComparerParMassePlusGrosPoisson)
                With Me.DataGridView1
                    .DataSource = ClassementConcours
                    .Columns("NomComplet").DisplayIndex = 0
                    .Columns("MassePlusGrosPoisson").DisplayIndex = 1
                    .Columns("MasseTotalePoisson").Visible = False
                    .Columns("NombrePoissons").Visible = False
                End With
            Case Me.optNombre.Checked
                ClassementConcours.Sort(New Participant.ComparerParNombrePoisson)
                With Me.DataGridView1
                    .DataSource = ClassementConcours
                    .Columns("NomComplet").DisplayIndex = 0
                    .Columns("NombrePoissons").DisplayIndex = 1
                    .Columns("MasseTotalePoisson").Visible = False
                    .Columns("MassePlusGrosPoisson").Visible = False

                End With
        End Select

        With Me.DataGridView1
            .Columns("Age").Visible = False
            .Columns("DateNaissance").Visible = False
            .Columns("Feminin").Visible = False
            .Columns("Nom").Visible = False
            .Columns("Prenom").Visible = False

        End With

    End Sub

End Class

'***********************************************************************************************************************
    '************************ Classe Participant
    '******************************************* Tout comme la classe Personne, la classe Participant doit avoir
    '******************************************* l'attribut Serializable pour qu'il soit possible de stocker son état dans un fichier
    '******************************************* par la suite. Même si cette classe n'implémente pas l'interface ICoparable
    '******************************************* ses instances peuvent être comparées entre elles grâce 
    '******************************************* à l'implementation de sa classe de base

    Inherits Personne

    Private m_nbPoissons As Integer
    Private m_masseTotalePoisson As Single
    Private m_massePlusGrosPoisson As Single


    '******************************************* Ici on crée un constructeur qui permettra d'initialiser les données 
    '******************************************* personnelles de chaque participant en appelant le constructeur 
    '******************************************* de la classe de base à l'aide de (MyBase.New)

    Public Sub New(ByVal nom As String, ByVal prenom As String, ByVal dateNaissance As DateTime, ByVal feminin As Boolean)
        MyBase.New(nom, prenom, dateNaissance, feminin)
        Me.NombrePoissons = 0
        Me.MassePlusGrosPoisson = 0
        Me.MasseTotalePoisson = 0
    End Sub

    '******************************************* Ici on doit créer une fois de plus des propriétés accéder aux champs
    '******************************************* de la classe, afin que celle-ci puisse être utilisée comme source
    '******************************************* de données par la suite
    Public Property NombrePoissons() As Integer
        Get
            Return Me.m_nbPoissons
        End Get
        Set(ByVal value As Integer)
            Me.m_nbPoissons = value
        End Set
    End Property

    Public Property MasseTotalePoisson() As Integer
        Get
            Return Me.m_masseTotalePoisson
        End Get
        Set(ByVal value As Integer)
            Me.m_nbPoissons = value
        End Set
    End Property

    Public Property MassePlusGrosPoisson() As Integer
        Get
            Return Me.m_massePlusGrosPoisson
        End Get
        Set(ByVal value As Integer)
            Me.m_massePlusGrosPoisson = value
        End Set
    End Property
    '*****************************************************************************************************************************************
    '*****************************************************************************************************************************************
    '*****************************************************************************************************************************************

    '*************************************** Implémentation des classe auxiliaires dans la classe Participan
    '*************************************** pour permetre la comparaison des résultat des participants

    '############################################################################################################################

    Public Class ComparerParNombrePoisson

        Implements IComparer(Of Participant)


        Public Function Compare(ByVal x As Participant, ByVal y As Participant) As Integer Implements System.Collections.Generic.IComparer(Of Participant).Compare

            Return x.MasseTotalePoisson.CompareTo(y.MasseTotalePoisson)

        End Function
    End Class




    Public Class ComparerParMassePlusGrosPoisson
        Implements IComparer


        Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare

            Return x.MassePlusGrosPoisson.compareto(y.MassePlusGrosPoisson)

        End Function
    End Class




    Public Class ComparerParMasseTotalePoisson
        Implements IComparer(Of Participant)

        Public Function Compare(ByVal x As Participant, ByVal y As Participant) As Integer Implements System.Collections.Generic.IComparer(Of Participant).Compare

            Return x.MasseTotalePoisson.CompareTo(y.MasseTotalePoisson)

        End Function
    End Class

End Class
'############################################################################################################################

'Classe Personne

   '******************************************* L'atribut "Serializable", placé au début de la déclaration de la classe,
    ' ****************************************** est nécessaire car on va sérialiser les données des personnes participant
    ' ****************************************** au concours

    Implements IComparable(Of Personne)

    Public m_nom As String
    Public m_prenom As String
    Public m_dateN As DateTime
    Public m_feminin As Boolean

    '********************************************* On ajoute un constructeur à la classe, qui permet d'initialiser tous ses champs
    '********************************************* lors de l'initialisation des objets de type Personne

    Public Sub New(ByVal nom As String, ByVal prenom As String, ByVal dateNaissance As DateTime, ByVal feminin As Boolean)

        Me.m_nom = nom
        Me.m_prenom = prenom
        Me.m_dateN = dateNaissance
        Me.m_feminin = feminin

    End Sub

    '********************************************** créer des propriétés pour chacun des champs de la classe
    '********************************************** elles permettront d'utiliser automatiquement les objets
    '********************************************** comme source de données dans Visual Basic 2005 Express

    Public Property Nom() As String
        Get
            Return m_nom
        End Get
        Set(ByVal value As String)
            m_nom = value
        End Set
    End Property

    Public Property Prenom() As String
        Get
            Return m_prenom
        End Get
        Set(ByVal value As String)
            m_prenom = value
        End Set
    End Property

    Public Property DateDeNaissance() As DateTime
        Get
            Return m_dateN
        End Get
        Set(ByVal value As DateTime)
            m_dateN = value
        End Set
    End Property

    Public Property Feminin() As Boolean
        Get
            Return m_feminin
        End Get
        Set(ByVal value As Boolean)
            m_feminin = value
        End Set
    End Property

    '********************************************** On crée deux propriétés supplementaires en lecture seule : NomComplet et Age
    '********************************************** La première retourne une chaîne de caractères composée du nom de famille en
    '********************************************** majuscule, suivi de son prénom; cette propriété est utile pour l'affichae
    '********************************************** des informations relatives aux participants.
    Public ReadOnly Property NomComplet() As String
        Get
            Return Me.m_nom.ToUpper() + "" + Me.m_prenom
        End Get
    End Property

    '********************************************** Cette propriété calcule l'age des individus et est utilisée pour déterminer les
    '********************************************** membres de la catégorie "junior"

    Public ReadOnly Property Age() As Integer
        Get
            Return CInt(Today.Subtract(Me.m_dateN).TotalDays / 365.25)
        End Get
    End Property

    '********************************************** On implémente une méthode ComapreTo, puisque l'on va implémenter
    '********************************************** l'interface IComparable(Of Personne). Parce que l'on utilise une
    '********************************************** interface générique, on n'a pas à se soucier du type du 
    '********************************************** paramètre passé à la méthode : on a défini dès la compilation
    '********************************************** qu'il s'agit d'une Personne. Cette méthode sert à trier par ordre 
    '********************************************** alphabétique une liste d'instances de la classe Personne

    Public Function CompareTo(ByVal obj As Personne) As Integer Implements System.IComparable(Of Personne).CompareTo

        Return Me.NomComplet.CompareTo(obj.NomComplet)

    End Function
End Class