CALCUL DE POIDS IDÉAL (AMÉLIORÉ) AVEC UTILISATION DE TRACKBAR

'**************************************************************
'*                 Calcul de poids idéal                      
'*                                                            
'*   Elements utilisés:                                       
'*   - 2 TrackBar: trkTaille, trkPoids                    
'*   - 5 GroupeBox : gpeTaille, gpeSex, gpePoidsActuel       
'*                   gpeResultat, gpeCommentaires             
'*   - 2 RadioButton : rdbHomme, rdbFemme                     
'*   - 5 Label : lblTaille, lblPoids, lblResultat             
'*               lblCommentaires, lblTitre                    
'*   - 1 Timer : Timer                                        
'*                                                            
'**************************************************************

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Code généré par le Concepteur Windows Form "

    Private Sub TimTaille_Tick(ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) _
                               Handles Timer.Tick

        'Déclaration des variables
        Dim Taille As Single
        Dim Poids As Single
        Dim PoidsActuel As Single

        'Recupération de la valeyur Taille et affichage sur le label
        Taille = TrkTaille.Value / 100
        lblTaille.Text = Taille & " m"

        'Calcul du poids idéal
        If rdbHomme.Checked = True Then
            Poids = (Taille * 100 - 100) - ((Taille * 100 - 150) / 4)
        Else
            Poids = (Taille * 100 - 100) - ((Taille * 100 - 150) / 2)
        End If

        'Affichage du poids idéal sur le label
        lblResultat.Text = "Votre poids idéal est de " & Poids.ToString 
        & " kg"

        'Recupération de la valeur PoidsActuel et affichage sur le label
        PoidsActuel = trkPoids.Value
        lblPoids.Text = PoidsActuel & " kg"

        'Détermination du commentaire
        If Poids - PoidsActuel > 0 Then
            lblCommentaire.Text = "Goinfrez vous bien !!! Vous avez " _
            & Poids - PoidsActuel & " kg à prendre"
        ElseIf Poids = PoidsActuel Then
            lblCommentaire.Text = "Bravo !!! Vous avez un poid idéal"
        Else
            lblCommentaire.Text = "Bon régime !!! Vous avez " _
            & PoidsActuel - Poids & " kg à perdre"
        End If

    End Sub
End Class