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

Soyez le premier à donner votre avis sur cette source.

Vue 15 853 fois - Téléchargée 554 fois

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
31
Date d'inscription
dimanche 16 mars 2003
Statut
Membre
Dernière intervention
19 avril 2003

Mon theme viens de Themexp.org
Il suffit de modifier un DLL de Windows et d'aller télécharger les themes sur le site
Messages postés
483
Date d'inscription
mardi 10 juillet 2001
Statut
Membre
Dernière intervention
12 juillet 2006

il est cool ton thème... tu la trouvé ou ? sinon le progz c marrant lol :)

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.