Indice de masse corporel pour savoir si vous etes obese.

Commenter

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

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 (icemanBruno)