AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 04 21:14:02
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CALCUL DE L'INDICE DE MASSE CORPORELLE (BMI)


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é: 8 695 / 407
Auteur : robapt Site perso
Ecrire un message privé
Note :
10 / 10 - par 1 personne
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

Commentaires et avis

signaler à un administrateur
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 ?

signaler à un administrateur
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 ! ;)

signaler à un administrateur
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)

signaler à un administrateur
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 !

signaler à un administrateur
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" !

signaler à un administrateur
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 !

signaler à un administrateur
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.

signaler à un administrateur
Commentaire de us_30 le 13/01/2008 10:51:12 10/10

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

Us.

signaler à un administrateur
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

signaler à un administrateur
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.

signaler à un administrateur
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 dans le forum

calcul avec une date [ par laurent92370 ] bonjourmon problème :dans une variable LADATE, de type long, je récupère la date au format 26012005 par exemple.puis, dans une variable Problème calcul [ par Nesta ] Bonjour,J'ai réalisé un prog qui trace des courbes et qui calcul son mini., son maxi., et sa déviation qui elle me pose problème.Pour sa j'ai pompé la variable Currency insufisante [ par Cracker ] Je dois faire un calcul avec un nombre supérieur a la limite autorisé par les variables Curerncy !!C a d ke mon nombre est supérieur à 922 337 203 685 Passage d'une variable d'une macro vers une feuille de calcul [ par Tity333 ] Bonjour, à tous,Je cherche depuis quelque temps à utiliser une variable définie selon les choix d'un set d'OptionButton directement dans mes formules Problème de macro - calcul en fonction d'une variable [ par FlyingAlex ] Amis du jour bonjour!Alors tout d'abord j'ai un petit souci.J'ai créé sous Excel une combobox qui prend des valeurs suivant une liste dans une autre f calcul d'une variable [ par draluorg ] Salut a tous,est il possible de calculer une variable ?exemple si ma variable renvoi 8 + 2 * 3 -4merci pour vos reponses @+Quand o pose une question o variable [ par evildido ] Salut à tous. Pardonner moi à l'avance pour cette question peut paraitre un peu bête mais mon niveau en c++ étant déplorable, Interruption logicielle & variable public [ par salazar ] Lorsque je veux lire une variable déclarée en public, quand je génère une interruption logicielle avec SetWindowLong/CallWindowPro Lancement d'application [ par t0ine ] Bonjour, je travaille avec vb 2008.Je voudrai  récupérer dans une variable booléenne le fait d'avoir lancer mon application via l'exe( Variable à fals Guide de conception et de calcul des silos industriels [ par siemenschkl ] je besoin de livre Guide de conception et de calcul des silos industriels


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


Console Sony Playstation 3 80GB
Entre 398€ et 425€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto Cockpit Airbus A320
Photo pretty girl 

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,889 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.