Connexion
Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité Aucun
Le record du nombre d'utilisateurs en ligne est de 29 le Mer 29 Jan 2020, 10:53
Sujets les plus vus
Derniers sujets
Calcul IMC (Indice de Masse Corporelle)
Page 1 sur 1
Calcul IMC (Indice de Masse Corporelle)
Salut
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]
Personnellement, je suis en Dénutrition ou famine
Dylan.
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
Personnellement, je suis en Dénutrition ou famine
Dylan.
Dernière édition par Dylan Gadacha le Jeu 26 Déc 2013, 02:19, édité 3 fois
Dylan Gadacha- EQUIPE BBAT
- Mensagens : 106
Data de inscrição : 24/10/2013
Idade : 24
Re: Calcul IMC (Indice de Masse Corporelle)
MAJ [26/12/2013 - 07:00]: Ajout du poids idéal, redimensionnement et changement de l'interface.
Dylan Gadacha- EQUIPE BBAT
- Mensagens : 106
Data de inscrição : 24/10/2013
Idade : 24
Re: Calcul IMC (Indice de Masse Corporelle)
MAJ [26/12/2013]: Amélioration du calcul du poids idéal.
Dylan Gadacha- EQUIPE BBAT
- Mensagens : 106
Data de inscrição : 24/10/2013
Idade : 24
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|
Ven 25 Déc 2015, 14:17 par Sachadee
» [devellopez] Formater une date en ligne Dos
Ven 31 Juil 2015, 10:40 par Dylan Gadacha
» Un super Tuto Batch de IniTScreen
Lun 08 Juin 2015, 12:16 par InitScreen
» Un code MATRIX sympa
Dim 12 Avr 2015, 14:27 par Sachadee
» [BAT/EXE] DresolChange changer la sesolution de l´écran
Mar 17 Mar 2015, 09:12 par Sachadee
» [EXE/bat] DpScript Código Delphi interpreter
Jeu 12 Mar 2015, 15:48 par Sachadee
» Externo SaveDlg com 2 kb
Dim 15 Fév 2015, 12:20 par Sachadee
» présentation
Dim 15 Fév 2015, 12:14 par Sachadee
» [developpez.com] Transcodage fichier vidéo si fichier déposé
Mar 03 Fév 2015, 01:02 par Sachadee