Calcul de poids idéal (amélioré) avec utilisation de trackbar

Télécharger le projet
Commenter

Description

Petit programme simpliste, idéal pour se familiariser avec les trackbars

Source / Exemple : 


'**************************************************************
'*                 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

Conclusion :


Mise à jour:
13/04/03:
-Definition de l'ordre de tabulation
-Amélioration des commentaires
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Falk)