[EX] Logiciel pour calculer l'IMC
Posté : sam. 21 mars 2015 23:55
par Popipipo
Bonjour a tous ,
je présente mon premier petit script , que j'ai réussi tant bien que mal a faire avec votre précieuse aide
.
Soyez indulgent et merci de me faire partager ,si vous avez le temps, vos remarques , corrections ou améliorations .
Popipipo
je présente mon premier petit script , que j'ai réussi tant bien que mal a faire avec votre précieuse aide
.Soyez indulgent et merci de me faire partager ,si vous avez le temps, vos remarques , corrections ou améliorations .
► Afficher le texte
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Fenetre = GUICreate("IMC", 456, 265, 284, 174)
GUISetCursor (0)
GUISetFont(8, 800, 0, "MS Sans Serif")
GUISetBkColor(0x99B4D1)
$Titre = GUICtrlCreateLabel("IMC Calcul", 156, 24, 175, 49)
GUICtrlSetFont(-1, 28, 800, 0, "Impact")
$Inputpoid = GUICtrlCreateInput("", 216, 96, 145, 21)
$Inputtaille = GUICtrlCreateInput("", 216, 152, 145, 21)
$Button1 = GUICtrlCreateButton("Calculer !", 136, 216, 233, 25)
GUICtrlSetFont(-1, 14, 800, 0, "Impact")
$LabelKg = GUICtrlCreateLabel("Quel est votre poid ( en kg )?", 8, 104, 171, 17)
$LabelTaille = GUICtrlCreateLabel("Quel est votre taille ( en M )?", 8, 160, 170, 17)
GUISetState(@SW_SHOW)
Dim $Fenetre_AccelTable[1][2] = [["{F1}", $Button1]]
GUISetAccelerators($Fenetre_AccelTable)
$Form3 = GUICreate("IMC", 532, 351, 296, 153)
GUISetCursor (3)
GUISetBkColor(0x3399FF)
$form3Icon1 = GUICtrlCreateIcon("C:\Users\Popipipo\Desktop\smiley-icone-4270.ico", -1, 320, 48, 168, 176)
$form3Label1 = GUICtrlCreateLabel("", 104, 248, 292, 52)
GUICtrlSetFont(-1, 20, 400, 0, "Impact")
$Form2 = GUICreate("IMC", 466, 344, 319, 205)
GUISetCursor (3)
GUISetBkColor(0xFF0000)
$Icon1 = GUICtrlCreateIcon("C:\Users\Popipipo\Desktop\colere-smiley-icone-6101.ico", -1, 256, 56, 128, 128)
$form2Label1 = GUICtrlCreateLabel("", 80, 256, 292, 36)
GUICtrlSetFont(-1, 20, 400, 0, "Impact")
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$donnees_taille = GUICtrlRead ( $Inputtaille )
$donnees_poid = GUICtrlRead ( $Inputpoid )
$IMC = $donnees_poid / ( $donnees_taille * $donnees_taille )
$IMCRes = $IMC
switch $IMCRes
case 1 to 16.5
GUISetState (@SW_ENABLE , $Form2 )
GUISetState ( @SW_SHOW , $Form2 )
GUICtrlSetData ( $form2Label1 , "Vous etes Dénutrie !!! ")
case 16.5 to 18.5
GUISetState (@SW_ENABLE , $Form2 )
GUISetState ( @SW_SHOW , $Form2 )
GUICtrlSetData ( $form2Label1 , "Vous etes Maigre!!! ")
case 18.5 to 25
GUISetState ( @SW_ENABLE , $Form3 )
GUISetState ( @SW_SHOW , $Form3 )
GUICtrlSetData ( $form3Label1 , "Vous etes Normal !!! ")
case 25 to 30
GUISetState (@SW_ENABLE , $Form2 )
GUISetState ( @SW_SHOW , $Form2 )
GUICtrlSetData ( $form2Label1 , "Vous etes en Surpoid!!! ")
case 30 to 35
GUISetState (@SW_ENABLE , $Form2)
GUISetState ( @SW_SHOW , $Form2 )
GUICtrlSetData ( $form2Label1 , "Vous etes Obèse!!! ")
case 40 to 60
GUISetState (@SW_ENABLE, $Form2 )
GUISetState ( @SW_SHOW , $Form2 )
GUICtrlSetData ( $form2Label1 , "Vous etes en obesité Morbide !!! ")
EndSwitch
EndSwitch
WEndPopipipo
