Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 2 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 2 Invités

Aucun

Le record du nombre d'utilisateurs en ligne est de 24 le Ven 15 Déc 2017, 23:28
Derniers sujets
Flux RSS



Flag Counter
Partenaires

Calcul IMC (Indice de Masse Corporelle)

Aller en bas

Calcul IMC (Indice de Masse Corporelle)

Message par Dylan Gadacha le Mer 25 Déc 2013, 18:03

Salut  Very Happy 
Voici un simple programme qui calcul votre IMC:

MAJ 1: [Vous devez être inscrit et connecté pour voir ce lien]
MAJ 2: [Vous devez être inscrit et connecté pour voir ce lien]
MAJ 3: [Vous devez être inscrit et connecté pour voir ce lien]
Code:
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Calcul IMC - Indice de Masse Corporelle", 500, 420, (@DesktopWidth-500)/2, (@DesktopHeight-420)/2)
GUISetBkColor("0xFFCC00")
$Label1 = GUICtrlCreateLabel("Masse (en kg):", 10, 10)
$Input1 = GUICtrlCreateInput("", 10, 30, 480, 20)
$Label1 = GUICtrlCreateLabel("Taille (en cm):", 10, 60)
$Input2 = GUICtrlCreateInput("", 10, 80, 480, 20)
$Button1 = GUICtrlCreateButton("IMC", (500-100)/2, 120, 100, 50)
$Label3 = GUICtrlCreateLabel("", 10, 190, 480, 100)
GUICtrlSetColor(-1, "0xFF3300")
GUICtrlSetBkColor(-1, "0xFF9900")
GUICtrlSetFont(-1, 32)
$Label4 = GUICtrlCreateLabel("Votre poids idéal serait: ", 10, 320, 480, 100)
GUICtrlSetColor(-1, "0xFF6600")
GUICtrlSetFont(-1, 32)

GUISetState(@SW_SHOW)

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_Event_Close
         Exit
      Case $Button1
         $Masse = GUICtrlRead($Input1)
         $Taille = GUICtrlRead($Input2)/100
         $IMC = Round($Masse/($Taille*$Taille), 1)
         If $Masse = "" Then $Interpretation = ""
         If $Taille = "" Then $Interpretation = ""
         If $IMC < 16.5 Then $Interpretation = "Dénutrition ou famine."
         If $IMC > 16.5  AND $IMC < 18.5 Then $Interpretation = "Maigreur."
         If $IMC > 18.5  AND $IMC < 25 Then $Interpretation = "Corpulence normale."
         If $IMC > 25  AND $IMC < 30 Then $Interpretation = "Surpoids."
         If $IMC > 30  AND $IMC < 35 Then $Interpretation = "Obésité modérée."
         If $IMC > 35  AND $IMC < 40 Then $Interpretation = "Obésité sévère."         
         If $IMC > 40 Then $Interpretation = "Obésité morbide ou massive."
         GUICtrlSetData($Label3, "" & $Interpretation)

         $Interpretation = ""
         $Min = 0
         Do
            $Min = $Min+1   
            $IMC = Round($Min/($Taille*$Taille), 1)
         Until($IMC > 18.5  AND $IMC < 25)

         $Max = $Min
         Do
            $Max = $Max+1   
            $IMC = Round($Max/($Taille*$Taille), 1)
         Until($IMC > 25  AND $IMC < 30)
         $PoidsIdeal = ($Min+$Max)/2
         GUICtrlSetData($Label4, "Votre poids idéal serait: " & $PoidsIdeal & " kg.")            
   EndSwitch
WEnd
Partagez votre résultat
Personnellement, je suis en Dénutrition ou famine  Shocked 

Dylan.


Dernière édition par Dylan Gadacha le Jeu 26 Déc 2013, 02:19, édité 3 fois
avatar
Dylan Gadacha
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 106
Data de inscrição : 24/10/2013
Idade : 18

Revenir en haut Aller en bas

Re: Calcul IMC (Indice de Masse Corporelle)

Message par Dylan Gadacha le Mer 25 Déc 2013, 19:57

MAJ [26/12/2013 - 07:00]: Ajout du poids idéal, redimensionnement et changement de l'interface.
avatar
Dylan Gadacha
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 106
Data de inscrição : 24/10/2013
Idade : 18

Revenir en haut Aller en bas

Re: Calcul IMC (Indice de Masse Corporelle)

Message par Dylan Gadacha le Jeu 26 Déc 2013, 02:12

MAJ [26/12/2013]: Amélioration du calcul du poids idéal.

_________________
[Vous devez être inscrit et connecté pour voir cette image]
avatar
Dylan Gadacha
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 106
Data de inscrição : 24/10/2013
Idade : 18

Revenir en haut Aller en bas

Re: Calcul IMC (Indice de Masse Corporelle)

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum