1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Formulaire
  5. Calcul de poids idéal (amélioré) avec utilisation de trackbar

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

Soyez le premier à donner votre avis sur cette source.

Vue 16 305 fois - Téléchargée 579 fois

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

Ajouter un commentaire Commentaires
cs_Falk Messages postés 31 Date d'inscription dimanche 16 mars 2003 Statut Membre Dernière intervention 19 avril 2003
12 avril 2003 à 20:38
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
Cyberdevil Messages postés 483 Date d'inscription mardi 10 juillet 2001 Statut Membre Dernière intervention 12 juillet 2006
9 avril 2003 à 16:02
il est cool ton thème... tu la trouvé ou ? sinon le progz c marrant lol :)
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)