CALCUL DE L'INDICE DE MASSE CORPORELLE (BMI)
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
-
12 janv. 2008 à 18:44
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 - 13 janv. 2008 à 16:29
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 - 13 janv. 2008 à 16:29
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/45402-calcul-de-l-indice-de-masse-corporelle-bmi
https://codes-sources.commentcamarche.net/source/45402-calcul-de-l-indice-de-masse-corporelle-bmi
13 janv. 2008 à 16:29
Us.
13 janv. 2008 à 16:25
J'vais polémiquer. Y'a en que 5 sur VBF... dont 1 inacessible ?!...
A savoir, un le :
- 23/04/2007 en VB.NET (du coup, il ne compte pas !)
- 03/02/2005 en VB6 mais marche pôs... (donc compte pas!)
- 26/06/2003 VB6 ... bon ok.
- 01/11/2002 VB6 mais marche pôs non plus... (donc compte pas!)
au vu des dates, 2002, 2003... trop vieux, donc compte plôus...
donc comme il n'y en a pas franchement moins que les calculatrices, je ne les avais jamais vu... donc en avoir une fois de temps en temps... alors, m'ouais, c'est une idée presque originale... D'ailleurs, si on prend le délai entre deux dates pour la taille, et le nombre d'Octet de la source pour le poids, et qu'on fait le rapport Poids/taille^2, et si "l'indice de masse de code identique" est entre 20 et 25, alors VBF se trouve dans la zone idéale... non ? j'y peut rien c'est médicale ! Ici, 9506/ ((12/01/2008)-(23/04/2007))^2 9506/264^2 0.13 !! c'est franchement maigrichon !!
Amicalement,
Us.
13 janv. 2008 à 12:01
C'est clair qu'elle est carrement trop originale haha. Je tape "corporelle" dans la case "rechercher" et hop 6 codes identique...
http://www.vbfrance.com/recherche.aspx?r=corporelle
13 janv. 2008 à 10:51
Us.
13 janv. 2008 à 10:50
Personnellement, je met un 10 pour l'idée, et un 10 pour l'encouragement...
Pour le code, c'est sur que c'est pas très propre... je te propose cette alternative à regarder :
=
Option Explicit
Private Sub Command1_Click()
'Déclaration variables
Dim Tail As Double
Dim Poid As Double
Dim Indice As Double
'Conversion TextBox en Valeur
Tail = Val(Replace(taille.Text, ",", "."))
Poid = Val(Replace(poids.Text, ",", "."))
'Calcul de l'indice
Indice = Poid / (Tail ^ 2)
'Renvoi
MsgBox "Votre indice de masse corporelle est de : " & Round(Indice, 2)
End Sub
=
Bon courage,
Amicalement,
Us.
13 janv. 2008 à 10:07
12 janv. 2008 à 19:25
12 janv. 2008 à 19:21
Merci, merci et encore merci !
12 janv. 2008 à 19:12
VB détectera tout seul d'autres erreurs. :o)
12 janv. 2008 à 19:06
12 janv. 2008 à 18:44
Précision : il s'agit de l'indice de masse corporelle, et pas de la masse corporelle.
Et concernant ta seule ligne de code :
bmi = poids.Text / (taille.Text * taille.Text)
Ben, heureusement que VB6 n'est pas très regardant sur le typage, parce que dans n'importe quel autre langage, ce truc-là ne compile pas.
D'ailleurs, si je rentre "azerty" pour ma taille, que se passe t-il ?