CALCUL DE L'INDICE DE MASSE CORPORELLE (BMI) masse corporelle, calcul, variable, gestion erreur, BMI, Source N°45402

Information sur la source

Catégorie :Divers Classé sous : masse corporelle, calcul, variable, gestion erreur, BMI Niveau : Débutant Date de création : 12/01/2008 Date de mise à jour : 12/01/2008 19:19:12 Vu / téléchargé: 6 442 / 337

Auteur : robapt

Site perso

Ecrire un message privé

Note :

10,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (11)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Bon ben comme vous pouvez le voir, le titre en dis assez!
Ceci est très débutant mais c'est mon premier code (je mis suis remis alors que je n'y avait pas retouché pendant 2 ans ... donc soyez sympa! ^^)
Pour les débutant (encore plus que moi lol), il y a la gestion des erreurs au cas par cas puis du stockage de valeurs dans une variable.
Voila ! Merci à tous!

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Historique

12 janvier 2008 19:11:23 :: Mis à jour pour les erreurs qui précisées pas assez ... ^_^ 'Merci aux membres pour leurs commentaires
12 janvier 2008 19:12:52 :: Modification de la gestion des erreur 'Merci au membre pour leurs commentaires!
12 janvier 2008 19:13:16 :: Modification de la gestion des erreur 'Merci au membre pour leurs commentaires!
12 janvier 2008 19:19:12 :: Ajout de 'Option Explicit' dans le code ... lol

Sources du même auteur

Toutes les sources de robapt

Sources de la même categorie

Toutes les sources de la catégorie Divers

Sources en rapport avec celle ci

Commentaires

Commentaire de econs le 12/01/2008 18:44:49 administrateur CS

Salut,

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 ?
Commentaire de robapt le 12/01/2008 19:06:51

Ha ouai mince ! ^^ J'ai oublié ce type d'erreur j'y est pensé aux début mais j'ai oublié quand j'ai trouvé le code pour le cas par cas dans les erreur ! merci pour l'info, je modifie sa tout de suite ! ;)
Commentaire de econs le 12/01/2008 19:12:08 administrateur CS

Et tapes "Option Explicit" en haut de ta page de code.
VB détectera tout seul d'autres erreurs. :o)
Commentaire de robapt le 12/01/2008 19:21:02

Merci à toi ECONS, admin, pour ce bout de code, je m'était souvent demandé à quoi pouvais servir se code sans pour autant rechercher à quoi il pouvait servir ! Mais c'est vrai que c'est important et plus pratique avec sa ! ^^
Merci, merci et encore merci !
Commentaire de econs le 12/01/2008 19:25:11 administrateur CS

Bah oui, ne pas déclarer le type de ses variables est un très mauvais départ dans le monde de la programmation. Merci 'Option Explicit" !
Commentaire de EBArtSoft le 13/01/2008 10:07:09 administrateur CS

Ca devrait être interdit tout comme les calculettes et les convertisseur euro/francs !
Commentaire de us_30 le 13/01/2008 10:50:11

Bonjour,

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.
Commentaire de us_30 le 13/01/2008 10:51:12

oupsss... j'ai oublié la note...

Us.
Commentaire de EBArtSoft le 13/01/2008 12:01:21 administrateur CS

US_30> Pour l'encouragement ok mais pour l'idée ?!?

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
Commentaire de us_30 le 13/01/2008 16:25:59

Salut,

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.
Commentaire de us_30 le 13/01/2008 16:29:39

"l'Indice de Masse de Code" => IMC ! comme Indice de Masse Coporelle... j'invente rien...

Us.

Ajouter un commentaire

Discussions en rapport avec ce code source

Problème calcul par Nesta

variable Currency insufisante par Cracker

calcul avec une date par laurent92370

calcul d'une variable par draluorg

variable par evildido

Interruption logicielle & variable public par salazar

probleme de transfert de variables(encore) par kikokkiko

media player par kev900001

Créer un nouveau workbook dont le nom contient la valeur d'une variable (urgent) par YoOL

recuperer une variable passer avec l'adresse en DHTML par k_hammami