BBAT BATCH ON-LINE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Connexion

Récupérer mon mot de passe

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

Aucun

Le record du nombre d'utilisateurs en ligne est de 29 le Mer 29 Jan 2020, 10:53
Derniers sujets
» [StackOverflow] Batch to Create video .srt Subtitles with right timing
Calcul IMC (Indice de Masse Corporelle) EmptyVen 25 Déc 2015, 14:17 par Sachadee

» [devellopez] Formater une date en ligne Dos
Calcul IMC (Indice de Masse Corporelle) EmptyVen 31 Juil 2015, 10:40 par Dylan Gadacha

» Un super Tuto Batch de IniTScreen
Calcul IMC (Indice de Masse Corporelle) EmptyLun 08 Juin 2015, 12:16 par InitScreen

» Un code MATRIX sympa
Calcul IMC (Indice de Masse Corporelle) EmptyDim 12 Avr 2015, 14:27 par Sachadee

» [BAT/EXE] DresolChange changer la sesolution de l´écran
Calcul IMC (Indice de Masse Corporelle) EmptyMar 17 Mar 2015, 09:12 par Sachadee

» [EXE/bat] DpScript Código Delphi interpreter
Calcul IMC (Indice de Masse Corporelle) EmptyJeu 12 Mar 2015, 15:48 par Sachadee

» Externo SaveDlg com 2 kb
Calcul IMC (Indice de Masse Corporelle) EmptyDim 15 Fév 2015, 12:20 par Sachadee

» présentation
Calcul IMC (Indice de Masse Corporelle) EmptyDim 15 Fév 2015, 12:14 par Sachadee

» [developpez.com] Transcodage fichier vidéo si fichier déposé
Calcul IMC (Indice de Masse Corporelle) EmptyMar 03 Fév 2015, 01:02 par Sachadee

Flux RSS



Flag Counter
Partenaires
Le Deal du moment :
Coffret dresseur d’élite ETB ...
Voir le deal
56.90 €

Calcul IMC (Indice de Masse Corporelle)

Aller en bas

Calcul IMC (Indice de Masse Corporelle) Empty Calcul IMC (Indice de Masse Corporelle)

Message par Dylan Gadacha 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 Calcul IMC (Indice de Masse Corporelle) 959169622
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
Dylan Gadacha
Dylan Gadacha
EQUIPE BBAT
EQUIPE BBAT

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

Revenir en haut Aller en bas

Calcul IMC (Indice de Masse Corporelle) Empty Re: Calcul IMC (Indice de Masse Corporelle)

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

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

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

Revenir en haut Aller en bas

Calcul IMC (Indice de Masse Corporelle) Empty Re: Calcul IMC (Indice de Masse Corporelle)

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

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

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

Revenir en haut Aller en bas

Calcul IMC (Indice de Masse Corporelle) Empty 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