Indice de masse corporel pour savoir si vous etes obese.

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 061 fois - Téléchargée 35 fois

Contenu du snippet

mon code source sert a determiner votre masse corporel
entrer votre taille votre poid et executer le progremme va vous donner votre taux de masse corporel.

Source / Exemple :


Private Sub cmdcalculer_Click()
txtimc.Text = Val(txtpoids.Text) / (Val(txttaille.Text) * Val(txttaille.Text))
End Sub

Private Sub cmdeffacer_Click()
txttaille.Text = ""
txtpoids.Text = ""
txtimc.Text = ""
txttaillepied = ""
txtpoidslivre = ""
End Sub

Private Sub cmdquitter_Click()
MsgBox "au revoir et faites attention à votre imc", vbInformation, "Bye"
End
End Sub

Private Sub txtpoidslivre_LostFocus()
txtpoids.Text = Val(txtpoidslivre.Text) * 0.453
End Sub

Private Sub txttaillepied_lostFocus()
txttaille.Text = Val(txttaillepied.Text) * 0.3048
End Sub

A voir également

Ajouter un commentaire Commentaires
Messages postés
4
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
21 décembre 2002

salut je suis nouveau sur se site j'ai débuter le vb sa fait une semaine j'ai 4 code sur le site je suis debutant mais j'ai seulement des commentaire negatif faut debuter par le niveau 1 non les proget vont devenir de plus en plus complexe avec le temps svp quand vous juger prener sa en compte il y a des debutant et des intermediaire mes code sont de niv 1 mais il fonctionne tous tres bien
Messages postés
4
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
21 décembre 2002

salut les copain merci de vos commentaire,j,ai tester le programme et il fonctionne tres bien,et pour ceux qui dissent que sa sert a rien lolll
si votre santé ne sert a rien ne verifier pas si votre imc.
merci alp bye bye
Messages postés
30
Date d'inscription
mercredi 27 novembre 2002
Statut
Membre
Dernière intervention
28 juillet 2003

lol!!! sa sert pas a grand chose!!!!!!!!!!!
Messages postés
30
Date d'inscription
mercredi 27 novembre 2002
Statut
Membre
Dernière intervention
28 juillet 2003

lol!!! sa sert pas a grand chose!!!!!!!!!!!
Messages postés
3
Date d'inscription
dimanche 17 novembre 2002
Statut
Membre
Dernière intervention
18 décembre 2002

oula je crois que j'ai louché... oubli le commentaire precedant
Afficher les 8 commentaires

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.