begin process at 2012 02 11 22:03:24
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VB.NET

 > IMC : INDICE DE MASSE CORPORELLE

IMC : INDICE DE MASSE CORPORELLE


 Information sur la source

Note :
Aucune note
Catégorie :VB.NET Source .NET ( DotNet ) Classé sous :imc, visualbasic, indice, masse, corporelle Niveau :Débutant Date de création :23/04/2007 Date de mise à jour :28/04/2007 12:11:48 Vu / téléchargé :11 079 / 287
Auteur : JelkCo

Ecrire un message privé
Site perso
Commentaire sur cette source (19)
Ajouter un commentaire et/ou une note

 Description

Ce code vous permet de calculer l`IMC ou l`Indice de Masse Corporelle qui vous permet de savoir si vous etes maigres , obeses ...
Programme créé par Joseph El Khoury - JELK CORPORATION 2007
Pour plus d`infos allez sur http://www.jelkco.new.fr

Source

  • Public Class Form1
  • Private Sub ButtonCalcul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCalcul.Click
  • Dim taillecm As Double = TbTaille.Text
  • Dim taillem = taillecm * 10 ^ -2
  • Dim poids As Double = TbPoids.Text
  • TbImc.Text = (poids) / (taillem) ^ 2
  • TbPi.Text = 22 * (taillem) ^ 2
  • TbM.Text = 18.5 * (taillem) ^ 2
  • TbS.Text = 25 * (taillem) ^ 2
  • TbO.Text = 30 * (taillem) ^ 2
  • If poids < TbM.Text Then
  • MessageBox.Show("Maigre")
  • ElseIf poids >= TbM.Text And poids <= TbS.Text Then
  • MessageBox.Show("Normal")
  • ElseIf poids > TbS.Text And poids <= TbO.Text Then
  • MessageBox.Show("Surpoids")
  • ElseIf poids > TbO.Text Then
  • MessageBox.Show("Obese")
  • End If
  • End Sub
  • Private Sub ButtonQuitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonQuitter.Click
  • Me.Close()
  • End Sub
  • Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
  • Me.Close()
  • End Sub
  • Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
  • Application.Restart()
  • End Sub
  • End Class 
Public Class Form1

    Private Sub ButtonCalcul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCalcul.Click
        Dim taillecm As Double = TbTaille.Text
        Dim taillem = taillecm * 10 ^ -2
        Dim poids As Double = TbPoids.Text

        TbImc.Text = (poids) / (taillem) ^ 2
        TbPi.Text = 22 * (taillem) ^ 2
        TbM.Text = 18.5 * (taillem) ^ 2
        TbS.Text = 25 * (taillem) ^ 2
        TbO.Text = 30 * (taillem) ^ 2

        If poids < TbM.Text Then
            MessageBox.Show("Maigre")
        ElseIf poids >= TbM.Text And poids <= TbS.Text Then
            MessageBox.Show("Normal")
        ElseIf poids > TbS.Text And poids <= TbO.Text Then
            MessageBox.Show("Surpoids")
        ElseIf poids > TbO.Text Then
            MessageBox.Show("Obese")
        End If

    End Sub

    Private Sub ButtonQuitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonQuitter.Click
        Me.Close()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
        Application.Restart()
    End Sub
End Class


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

24 avril 2007 15:36:57 :
Bon je suis désolé, j`avais oublié de mettre le Zip. Pour ceux qui disent que les calculs sont faux et bien moi j`au essayé le programme et ca marche.
24 avril 2007 17:14:10 :
J`ai ajouté le Zip Merci
28 avril 2007 12:11:48 :
Rien de special

 Sources du même auteur

Source avec Zip Source .NET (Dotnet) DISTANCE INTER-ATOMIQUES
Toutes les sources de JelkCo

 Sources de la même categorie

Source .NET (Dotnet) MODIFICATION DATE DE WINDOWS EN VB.NET ET VBA par us_30
Source avec Zip Source avec une capture Source .NET (Dotnet) ENVOI DE MAIL AVEC PIÈCE JOINTE par EhJoe
Source .NET (Dotnet) AMUSONS NOUS AVEC UN LABEL ^^ par Adn56
Source avec Zip Source avec une capture Source .NET (Dotnet) UN NAVIGATEUR INTERNET EN VB.NET par azrti
Source avec Zip Source .NET (Dotnet) CONVERSION DE DEVISE MONAITAIRE VIA UN SERVICE WEB par bigmonkey7
Toutes les sources de la catégorie VB.NET

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) MODIFICATEUR D'INDICE DE PERFORMANCE WINDOWS 7 par ircland
Source .NET (Dotnet) CONNECTION À UN SERVEUR OPC par crownstud
Source avec Zip FONCTION DAO PERMETTANT DE VÉRIFIER SI UNE TABLE POSSÈDE UN ... par hector_quebec
Source .NET (Dotnet) UTILITAIRE DE COPIE DE FICHIERS, APPLICATION CONSOLE, VISUAL... par jmbcpp
Source avec Zip Source avec une capture Source .NET (Dotnet) REDIMENSSIONER DES IMAGES EN MASSES (RÉSOLUTION & TAUX DE CO... par scoubigee

Commentaires et avis

Commentaire de loloof64 le 23/04/2007 21:27:12

Tu as de la chance que le système de notation ne fonctionne pas sur mon ordi, sinon tu aurais récolté au moins une mauvaise note - la mienne - pour avoir posté le code sans avoir pensé à la Form - aux contrôles .

Commentaire de loloof64 le 23/04/2007 21:30:49

Désolé, je me suis un peu emporté : mais si tu peux ajouter ta Form dans ton zip, n'hésites surtout pas. Il faut refaire les contrôles soi-même, et le plus énervant, définir les clauses Handles soi-même : là où j'ai malheureusement échoué.

Commentaire de Charles Racaud le 23/04/2007 21:37:06

loloof64, ce n'st pas parsqu'un membre a oublier de mettre son zip qu'il faut mettre une mauvaise note.
On attend donc que notre ami JelkCo dépose son fichier zip (sans les répertoires bin et obj stp), on notera ensuite.
__
Kenji

Commentaire de loloof64 le 23/04/2007 21:38:57

désolé, je il m'arrive de m'énerver vite pour un rien. Heureusement que le système de notation n'a pas fonctionné chez moi.

Commentaire de hvb le 23/04/2007 22:43:29

bon comme le test me dit "normal", je te passe les critiques sur la variable sans type, les conversions implicites, etc... :)

Commentaire de mortalino le 23/04/2007 22:52:16

MOUHHHAAAAAA

Il me sors Obèse !!!!!
Faut revoir tes calculs : je suis grand et fin     :D

Si je dis à mes potes que j'ai testé un code qui me dit que je suis Obèse, ils vont s'marrer !

++

Commentaire de loloof64 le 23/04/2007 22:55:31

mortalino, as-tu mis taille en cm ? (j'ai enfin réussi à me créer et convertir le projet en vb.net) Parce que j'avais lu par une source extérieure qu'il faut la mettre en cm, et le poids en kg.

Commentaire de mortalino le 23/04/2007 23:00:43

Ahhh, bien mieux, merci  ;)

J'ai pas regardé le code car je ne fais pas encore vraiment du vb .net, je pensais qu'il fallait le mettre en mètre !  :$

Voilà une autre idée d'amélioration, en plus du Zip.
Si un point est dans le TextBox, multiplier la valeur par 100

++

Ps : je retire mon   "MOUHHHAAAAAA"

Commentaire de loloof64 le 23/04/2007 23:03:22

Non, non, c'est bien en cm, il aurait du le préciser par contre. tape imc sur google, et tu verras que les unités sont les bonnes.

Commentaire de econs le 23/04/2007 23:05:20 administrateur CS

HVB> Ta dernière remarque prend effectivemment toute sa grandeur sur des lignes comme celle-ci :

Dim taillecm As Double = TbTaille.Text

Quelle merveille ! C'est quelque chose qui aurait dû être interdit dans VB en passant à .NET. Ca ne devrait même pas compiler ! Des milliers de programmeurs en herbe vont apprendre n'importe quoi en faisant çà, et se retrouveront bien embêtés quand ils programmeront en C, Java ou autre langage qui sait ce qu'est un type de données.

En plus, imagine que je tape "aaaa" dans TbTaille ... ben j'ai un plantage à l'exécution.

Commentaire de loloof64 le 23/04/2007 23:07:04

Ou pire, avec les deux valeurs poids et taille à vide (ce que j'ai fait au départ - trop pressé - )

Commentaire de mortalino le 23/04/2007 23:10:35

^^ oui, j'ai testé en cm et ça correspond.

On peut aussi faire de l'approximatif. La preuve, sans réfléchir :

Exemple :

taille = 180
poids  =  80
MesureBasse = (taille - 100) - (taille - 100) / 10
MesureHaute = (taille - 100) + (taille - 100) / 10

If poids < MesureBasse Then
    MessageBox("Maigrichon")
ElseIf poids > MesureBasse And poids < MesureHaute  Then
    MessageBox("Normal")
ElseIf poids > MesureHaute  Then
    MessageBox("Obèse")
End If

A quelque chose prêt, ça devrait le faire  :D
++

Commentaire de CrocoRICo le 28/04/2007 10:20:28

IMC c'est Indice de Masse Corporelle pas Index :)

Commentaire de loloof64 le 28/04/2007 11:05:44

Ah oui :) moi qui suit scrupuleux comme toi, je ne l'avais pas remarqué :)

Commentaire de yvesyves le 30/04/2007 11:56:06

Les sites ne manquent pas. Celui ci prend en compte l'age et le sexe, il paraît que la formule a été remaniée de puis et peut prendre en compte d'autres données comme celles-ci. http://www.suptiva.fr/imc.php?calcul=1

Commentaire de loloof64 le 30/04/2007 19:28:56

Tout à fait d'accord, ne m'en veux pas, mais je suggèrerais au admins de désactiver la source, mais que tu puisses conserver les crédits engrangés pour le temps passé et l'effort accompli.
Bien vu YvesYves !

Commentaire de loloof64 le 30/04/2007 19:29:26

bien vu yves yves :) :) :) !

Commentaire de loloof64 le 30/04/2007 19:30:19

et pour l'expérience acquise ... futur "helper", va !

Commentaire de OneHacker le 01/06/2007 14:00:27

Il y avait déjà cette source qui est opérationelle : http://www.vbfrance.com/codes/IMC-SAVOIR-VOTRE-POIDS-IDEAL_35261.aspx

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Peut on créer une dll avec visualbasic [ par ludoa ] slt je voudrais créer une dll avec visual basic ki aurait une fuction et ke cette meme function me rendrais un résultat. Alors si vous pouvez envoyer MIRC si sa vous interresse [ par max12 ] Pour les interresser j'ai ouvert un channal pour VisualBasic, j'ai pris la peine de l'ouvrir parce que sa peut s'avérer utilile pour échanger des sour Telecharger visualbasic 6 [ par John ] Ou je pourrais telecharger visualbasic 6 ?De preference en francais mais c une option ;o)Je cherche désespérement mais aucun résultat.. snif Ou trouver VisualBasic???????? [ par Aurel ] Salut. Je cherche visual basic depuis un certain temps sur internet mais je na le trouve pas, ou est-ce que je pourais le trouver?Merci d'avance. aide listbox pour trouver indice [ par Torzak ] voila j'ai une listbox qui contien 100 prenomset deux variable :prenom qui contient un prenom et prenomIndice qui servira a stocker la valeur d'indice fichier avec indice [ par damd ] salut a tousj'aimerai ecrire dans un fichier dont le nom n'est pas definien fait, le programme demande le nom a l'utilisateur et ainsi, les donnees se chaine "A" + variable [ par kamill ] J'ai créé une chaine de caractères que je veux réutiliser en coordonnée de cellule excel.Celle-ci est composée de la lettre A et d'une variable "Indic fichier [ par damd ] j'ovre un fichier de cette maniere :open app.path & "\" & indice & ".txt" for output as #1au cours du programme, l'indice change et j'ai donc plusieur Sql [ par Grippen ] Voila g un pb avec la requete suivante le compilateur me renvoi le message d'erreur suivant:Erreur système &H80040E14(-2147217900)sql = "select count (vb6) creer dynamiquement un controle ayant un indice 0 [ par darkdb ] pas de problème pour creer un controle dynamiquement, mais comment mettre la propriété indice de celui-ci à 0 afin qu'il serve de base à une collectio


Nos sponsors


Sondage...

Comparez les prix


Archos Tablette PC ARNOVA ARNOVA 10 4GB
Entre 200€ et 210€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,061 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)