[R] Pbme Variable et GuictrlRead

[TaPuZ]

Bonjour.
Je vais faire simple. Je débute en AutoIt, et j'apprécie vraiment le site.
Pour me mettre en jambe (mon projet est peut-être trop complexe pour le moment), je me suis rabattu sur quelque chose de simple, qui pourra me servir par la suite.
Je demande d'entrer le pseudo, l'age, le poids et la taille, et je vais calculer l'IMC grâce à la formule : IMC = poidsEnKg / (TailleEnMetre)²
Ça a l'air tout simple comme cela, pour vous, mais cela me pose des problèmes.
De plus, il y a plein d'amélioration, sur ce simple exemple, que je devrai par la suite travailler.

Mon premier problème, pouvoir jouer avec les variables récoltées par les "input", qui de temps en temps sont des chaines alphanumériques à traiter comme telles, et de temps en temps, des valeurs qui doivent me servir à faire des calculs.

Par avance pardon, car je réalise combien je dois encore tout mélanger et être pour le moins risible, mais je préfère vous soumettre cela, car, j'ai lu tout le forum (ainsi que l'ancien), et il me reste encore des questions en suspens. Cela relève donc plus de l'incompréhension que de la flemme de tout lire, ou de chercher.

Voilà mon morceau de code.

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Res\BioHazard.ico
#AutoIt3Wrapper_outfile=Drol.Exe
#AutoIt3Wrapper_Res_Comment=Beta Version de DROL
#AutoIt3Wrapper_Res_Description=Version a usage du developpement interne
#AutoIt3Wrapper_Res_Fileversion=PR0.1
#AutoIt3Wrapper_Res_LegalCopyright=Enöm Software
#AutoIt3Wrapper_Res_SaveSource=y
#AutoIt3Wrapper_Res_Language=1036
#AutoIt3Wrapper_Res_Field=Contient|PreRelease de la beta version DROL pour usage de developpement
#AutoIt3Wrapper_Res_Field=Made By|T@PµZ ( tapuz at free dot fr)
#EndRegion 
;**** Directives created by AutoIt3Wrapper_GUI ****
; Version AutoIt :    3.2.8.1
; Langue     :        Francais
; Plateforme :        Win9x/XP/Vista
; Auteur    :        T@PµZ (tapuz at free dot fr)
;
; Pré-beta-version de DroL.
;
; Le but est d'élaguer et tester le modèle.
;
; Version 0.01 : 15/05/2009
;           - Première Version.
;

; Déclarations Diverses.
#include <GuiConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>

; Déclaration des variables.

Global $Var , $Par , $Kar ; (elles erviront plus tard)


While 1
    If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
    $iMsgBoxAnswer = MsgBox(36, "D R O L", "On commence?")
    Select
        Case $iMsgBoxAnswer = 6 
            Inscription();si on clique sur oui, on appelle fonction inscription

        Case $iMsgBoxAnswer = 7 
            Fin();si on clique sur non, on appelle fonction fin

    EndSelect
WEnd


#Region ################### Fonctions ###################

Func Fin()
    ; Lancement du splash screen.
    SplashTextOn("", "Fermeture de DROL en cours,  Veuillez patienter ...", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Times New Roman", 12, 800)

    ; Pause de 3 secondes.
    Sleep(3000)

    ; Fermeture du splash.
    SplashOff()

    Exit
EndFunc   ;==>Fin


Func Inscription()

    Local $AnneeN, $Poids, $Taille, $MoisN, $JourN, $Age, $Pseudo, $IMC

        $Form1_1 = GUICreate("Interface  D R O L ", 870, 615, 182, 114)
            GUISetIcon("D:\005.ico")
        $FichierInscription = GUICtrlCreateTab(120, 72, 620, 456)
            GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
        $Onglet1 = GUICtrlCreateTabItem("Inscription")
            GUICtrlCreateLabel("Pseudo :", 136, 152, 46, 18)
            GUICtrlSetFont(-1, 8, 400, 0, "Arial")
            GUICtrlCreateLabel("Age :", 136, 184, 30, 18)
            GUICtrlSetFont(-1, 8, 400, 0, "Arial")
            GUICtrlCreateLabel("Taille :", 136, 216, 34, 18)
            GUICtrlSetFont(-1, 8, 400, 0, "Arial")
            GUICtrlCreateLabel("Poids :", 136, 248, 36, 18)
            GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        $Pseudo = GUICtrlCreateInput("", 192, 152, 121, 22)
            GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        $Age = GUICtrlCreateInput("", 192, 184, 121, 22)
            GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        $Taille = GUICtrlCreateInput("", 192, 216, 121, 22)
            GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        $Poids = GUICtrlCreateInput("", 192, 248, 121, 22)
            GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        $Onglet2 = GUICtrlCreateTabItem("Affichage données")
        $Onglet3 = GUICtrlCreateTabItem("Usage Réservé")
            GUICtrlCreateTabItem("")
        $Valid = GUICtrlCreateButton("&OK", 342, 568, 75, 25, 0)
            GUICtrlSetTip(-1, "Validation")
        $Annul = GUICtrlCreateButton("&Cancel", 422, 568, 75, 25, 0)
            GUICtrlSetTip(-1, "Annulation")
        $Help = GUICtrlCreateButton("&Help", 504, 568, 75, 25, 0)
            GUICtrlSetTip(-1, "Aide")
            GUISetState(@SW_SHOW)

IniWrite ("inscription.ini", "Onglet 1", "Age ", GUICtrlRead ($Age))
IniWrite ("inscription.ini", "Onglet 1", "Poids ", GUICtrlRead ($Poids))
IniWrite ("inscription.ini", "Onglet 1", "Taille ", GUICtrlRead ($Taille))
IniWrite ("inscription.ini", "Onglet 1", "IMC ", GUICtrlRead ($IMC))
;IniWrite ("inscription.ini", "Onglet 1", "AGE", $Age)

; pour verifier que mon bout de code fonctionne en affichant les données...
    While 100
        $nMsg = GUIGetMsg()
            Switch $nMsg
                Case $GUI_EVENT_CLOSE
                    fin ()
                case $Valid
                    MsgBox (0,"ok", "Pseudo : " & GUICtrlRead ($Pseudo) &", IMC : " & GUICtrlRead ($IMC) &", Poids : "& GUICtrlRead ($Poids) &", taille : " & GUICtrlRead ($taille))
                case $Annul
                    fin ()
            EndSwitch
    WEnd
EndFunc 
#EndRegion  

 

Comme vous pouvez le voir, je patauge dans le calcul de l'IMC à partir des valeurs récoltées (il n'y a rien de cohérent, car j'ai tenté plusieurs choses, et rien ne passe).

Ensuite, il faudra que si la valeur de $taille >= 30, que $taille=$taille/100, car c'est la taille en m qui est utilisée pour le calcul de l'IMC.

Dernier souci, pour le moment, c'est qu'il faudra qu'à la place de l'age, on entre la date de naissance, et qu'à partir de la date actuelle, le script en déduise l'age.

Cela fait donc 3 façons différentes de récolter et affecter des "valeurs" aux variables, et jouer avec (calculs, affichage, stockage, etc...)

Si une âme charitable pouvait me sortir un peu de là, j'en serai vraiment fort aise.

Merci par avance à tous, et j'espère pouvoir à mon tour, renvoyer l'appareil et partager mes futures "découvertes"!

A bientôt.

T@PµZ

[orax]

Début de réponse :

Dernier souci, pour le moment, c'est qu'il faudra qu'à la place de l'age, on entre la date de naissance, et qu'à partir de la date actuelle, le script en déduise l'age.

Ceci semble fonctionner pour calculer l'âge :

Code : Tout sélectionner

#include <Date.au3>
$iDateCalc = _DateDiff( 'Y',"2000/01/01 00:00:00",_NowCalc())
MsgBox(0,"",$iDateCalc)

Et pour le calcul de l'IMC (je me suis permis je changer certains trucs...) :

► Afficher le texte

Code : Tout sélectionner

Func Inscription()
    Local $Poids, $Taille, $Age, $Pseudo
    Local $AnneeN, $MoisN, $JourN
    Local $valTaille, $valAge, $valPseudo, $valIMC ; "val" comme "valeur"

    $Form1_1 = GUICreate("Interface  D R O L ", 870, 615, 182, 114)
    GUISetIcon("D:\005.ico")
    $FichierInscription = GUICtrlCreateTab(120, 72, 620, 456)
    GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
    $Onglet1 = GUICtrlCreateTabItem("Inscription")
    GUICtrlCreateLabel("Pseudo :", 136, 152, 46, 18)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateLabel("Age :", 136, 184, 30, 18)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateLabel("Taille :", 136, 216, 34, 18)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateLabel("Poids :", 136, 248, 36, 18)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Pseudo = GUICtrlCreateInput("", 192, 152, 121, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Age = GUICtrlCreateInput("", 192, 184, 121, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Taille = GUICtrlCreateInput("", 192, 216, 121, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Poids = GUICtrlCreateInput("", 192, 248, 121, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Onglet2 = GUICtrlCreateTabItem("Affichage données")
    $Onglet3 = GUICtrlCreateTabItem("Usage Réservé")
    GUICtrlCreateTabItem("")
    $Valid = GUICtrlCreateButton("&OK", 342, 568, 75, 25, 0)
    GUICtrlSetTip(-1, "Validation")
    $Annul = GUICtrlCreateButton("&Cancel", 422, 568, 75, 25, 0)
    GUICtrlSetTip(-1, "Annulation")
    $Help = GUICtrlCreateButton("&Help", 504, 568, 75, 25, 0)
    GUICtrlSetTip(-1, "Aide")
    GUISetState(@SW_SHOW)
   
    ; pour verifier que mon bout de code fonctionne en affichant les données...
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                fin()
                
            Case $Valid
                ; récupère les valeurs
                $valAge = GUICtrlRead($Age)
                $valPoids = GUICtrlRead($Poids)
                $valTaille = GUICtrlRead($Taille)
                $valPseudo = GUICtrlRead($Pseudo)

                $valIMC = calculeIMC($valPoids, $valTaille)

                IniWrite("inscription.ini", "Onglet 1", "Age ", $valAge)
                IniWrite("inscription.ini", "Onglet 1", "Poids ", $valPoids)
                IniWrite("inscription.ini", "Onglet 1", "Taille ", $valTaille)
                IniWrite("inscription.ini", "Onglet 1", "IMC ", $valIMC)

                MsgBox(0, "ok", _
                        "Pseudo : " & $valPseudo & _
                        ", IMC : " & $valIMC & _
                        ", Poids : " & $valPoids & _
                        ", taille : " & $valTaille)
                        
            Case $Annul
                fin()
        EndSwitch
    WEnd
EndFunc   ;==>Inscription

Func calculeIMC($Poids, $Taille)
    If $Taille >= 30 Then $Taille /= 100

    Return Round($Poids / $Taille ^ 2, 5)
EndFunc   ;==>calculeIMC
#EndRegion ################### Fonctions ###################Func Inscription()
    Local $Poids, $Taille, $Age, $Pseudo
    Local $AnneeN, $MoisN, $JourN
    Local $valTaille, $valAge, $valPseudo, $valIMC ; "val" comme "valeur"

    $Form1_1 = GUICreate("Interface  D R O L ", 870, 615, 182, 114)
    GUISetIcon("D:\005.ico")
    $FichierInscription = GUICtrlCreateTab(120, 72, 620, 456)
    GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
    $Onglet1 = GUICtrlCreateTabItem("Inscription")
    GUICtrlCreateLabel("Pseudo :", 136, 152, 46, 18)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateLabel("Age :", 136, 184, 30, 18)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateLabel("Taille :", 136, 216, 34, 18)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateLabel("Poids :", 136, 248, 36, 18)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Pseudo = GUICtrlCreateInput("", 192, 152, 121, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Age = GUICtrlCreateInput("", 192, 184, 121, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Taille = GUICtrlCreateInput("", 192, 216, 121, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Poids = GUICtrlCreateInput("", 192, 248, 121, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Onglet2 = GUICtrlCreateTabItem("Affichage données")
    $Onglet3 = GUICtrlCreateTabItem("Usage Réservé")
    GUICtrlCreateTabItem("")
    $Valid = GUICtrlCreateButton("&OK", 342, 568, 75, 25, 0)
    GUICtrlSetTip(-1, "Validation")
    $Annul = GUICtrlCreateButton("&Cancel", 422, 568, 75, 25, 0)
    GUICtrlSetTip(-1, "Annulation")
    $Help = GUICtrlCreateButton("&Help", 504, 568, 75, 25, 0)
    GUICtrlSetTip(-1, "Aide")
    GUISetState(@SW_SHOW)
   
    ; pour verifier que mon bout de code fonctionne en affichant les données...
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                fin()
                
            Case $Valid
                ; récupère les valeurs
                $valAge = GUICtrlRead($Age)
                $valPoids = GUICtrlRead($Poids)
                $valTaille = GUICtrlRead($Taille)
                $valPseudo = GUICtrlRead($Pseudo)

                $valIMC = calculeIMC($valPoids, $valTaille)

                IniWrite("inscription.ini", "Onglet 1", "Age ", $valAge)
                IniWrite("inscription.ini", "Onglet 1", "Poids ", $valPoids)
                IniWrite("inscription.ini", "Onglet 1", "Taille ", $valTaille)
                IniWrite("inscription.ini", "Onglet 1", "IMC ", $valIMC)

                MsgBox(0, "ok", _
                        "Pseudo : " & $valPseudo & _
                        ", IMC : " & $valIMC & _
                        ", Poids : " & $valPoids & _
                        ", taille : " & $valTaille)
                        
            Case $Annul
                fin()
        EndSwitch
    WEnd
EndFunc   ;==>Inscription

Func calculeIMC($Poids, $Taille)
    If $Taille >= 30 Then $Taille /= 100

    Return Round($Poids / $Taille ^ 2, 5)
EndFunc   ;==>calculeIMC
#EndRegion ################### Fonctions ###################

Edité : j'ai changé le nom des variables.

[TaPuZ]

Merci beaucoup pour la réponse rapide.
En plus, j'ai déjà des réponses pour la suite.
J'ai bien vu que cela fonctionnait. Il me reste plus qu'à tout décortiquer, et comprendre la démarche qui me manquait.

J'ai mis la balise [R], car effectivement, j'ai eu plus de réponse que prévu! Et c'est bel et bien résolu.
Après, il me reste des petites questions pour bien tout comprendre (après tout le but est surtout d'être capable de la faire par moi-même, non?)

A bientôt.

T@PµZ.

[TaPuZ]

Me revoici.
Je double poste, histoire de "upper", car je ne suis pas sûr sinon, que le message soit lu, et de plus, cela deviendrait vite illisible.

J'ai avancé mon script, et je me familiarise avec AutoIt.

D'abord, mes questions :

Si j'ai bien compris, je définis une variable $idVar, pour y faire mon input. Cette variable peut alors être une valeur, ou une chaine alphanumérique.

Ensuite, je place son contenu dans ma variable $Var, en faisant un $Var=GUICtrlRead($idVar)
Du coup, je peux afficher ou écrire mes valeurs de $Var à loisir.

Pour mon appel de fonction calculeIMC : Pourquoi définir la fonction avec les variables $Poids et $Taille?
Est-ce bien pour signaler qu'entre l'input et la fonction elle-même, les variables deviennent "constantes"? N'aurais-je pas pu (comme je l'aurais fait instinctivement) faire la même chose sans définir les paramètres variables?

$IMC = calculeIMC()
......
calculeIMC ()
if $Taille>=30 then $Taille=$Taille/=100
return round ($poids/$taille^2,5)


Le return est bien fait pour sortir de la function caculeIMC() et reprendre le script au niveau de son appel (juste en dessous de $IMC=caculeIMC() )?

Et enfin, quelle différence entre $Taille=$Taille/100 et $Taille=$Taille/=100?


Sinon, j'ai aussi tenté de finir le premier step que je m'étais fixé. C'était un peu galère pour les dates, et je me demande s'il n'y avait pas plus simple que ce que j'ai fait...

Qu'en pensez-vous?

Revoici mon code :

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Res\BioHazard.ico
#AutoIt3Wrapper_outfile=Drol.Exe
#AutoIt3Wrapper_Res_Comment=Beta Version de DROL
#AutoIt3Wrapper_Res_Description=Version a usage du developpement interne
#AutoIt3Wrapper_Res_Fileversion=PR0.1
#AutoIt3Wrapper_Res_LegalCopyright=Enöm Software
#AutoIt3Wrapper_Res_SaveSource=y
#AutoIt3Wrapper_Res_Language=1036
#AutoIt3Wrapper_Res_Field=Contient|PreRelease de la beta version DROL pour usage de developpement
#AutoIt3Wrapper_Res_Field=Made By|T@PµZ ( tapuz at free dot fr)
#EndRegion 
;**** Directives created by AutoIt3Wrapper_GUI ****
; Version AutoIt :    3.2.8.1
; Langue     :        Francais
; Plateforme :        Win9x/XP/Vista
; Auteur    :        T@PµZ (tapuz at free dot fr)
;
; Pré-beta-version de DroL.
;
; Le but est d'élaguer et tester le modèle.
;
; Version 0.01 : 15/05/2009
;           - Première Version.
;

; Déclarations Diverses.
#include <GuiConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <Date.au3>

; Déclaration des variables.

Global $Var , $Par , $Kar ; (elles erviront plus tard)


While 1
    If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
    $iMsgBoxAnswer = MsgBox(36, "D R O L", "On commence?")
    Select
        Case $iMsgBoxAnswer = 6 
            Inscription();si on clique sur oui, on appelle fonction inscription

        Case $iMsgBoxAnswer = 7 
            Fin();si on clique sur non, on appelle fonction fin

    EndSelect
WEnd


#Region ################### Fonctions ###################

Func Fin()
    ; Lancement du splash screen.
    SplashTextOn("", "Fermeture de DROL en cours,  Veuillez patienter ...", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Times New Roman", 12, 800)

    ; Pause de 3 secondes.
    Sleep(3000)

    ; Fermeture du splash.
    SplashOff()

    Exit
EndFunc   ;==>Fin


Func Inscription()

    Local $idPoids, $idTaille, $idAge, $idPseudo, $idDateNaiss
    Local $idJJ, $JJ, $idMM, $MM, $idAAAA, $AAAA
    Local $Taille, $Age, $Pseudo, $IMC

    $Form1_1 = GUICreate("Interface  D R O L ", 870, 615, 182, 114)
    $FichierInscription = GUICtrlCreateTab(120, 72, 620, 456)
    GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
    $Onglet1 = GUICtrlCreateTabItem("Inscription")
    GUICtrlCreateLabel("Pseudo :", 150, 152, 60, 20)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateLabel("Né(e)le :", 150, 184, 60, 20)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateLabel("Taille :", 150, 216, 60, 20)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateLabel("Poids :", 150, 248, 60, 20)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $idPseudo = GUICtrlCreateInput("", 210, 152, 121, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $idDateNaiss = GUICtrlCreateInput("JJ/MM/AAAA", 210, 184, 100, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $idTaille = GUICtrlCreateInput("", 210, 216, 121, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $idPoids = GUICtrlCreateInput("", 210, 248, 121, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Onglet2 = GUICtrlCreateTabItem("Affichage données")
    $Onglet3 = GUICtrlCreateTabItem("Usage Réservé")
    GUICtrlCreateTabItem("")
    $Valid = GUICtrlCreateButton("&OK", 342, 568, 75, 25, 0)
    GUICtrlSetTip(-1, "Validation")
    $Annul = GUICtrlCreateButton("&Cancel", 422, 568, 75, 25, 0)
    GUICtrlSetTip(-1, "Annulation")
    $Help = GUICtrlCreateButton("&Help", 504, 568, 75, 25, 0)
    GUICtrlSetTip(-1, "Aide")
    GUISetState(@SW_SHOW)
   
   
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                fin()
            Case $Valid
                ; récupère les valeurs
                ;$Age = GUICtrlRead($idAge)
                $Poids = GUICtrlRead($idPoids)
                $Taille = GUICtrlRead($idTaille)
                $Pseudo = GUICtrlRead($idPseudo)
                $DateNaiss = GUICtrlRead($idDateNaiss)
                $AAAA = StringRight ($DateNaiss, 4)
                $JJ = StringLeft ($DateNaiss, 2)
                $MM = StringMid ($DateNaiss, 4,2)
                $IMC = calculeIMC($Poids, $Taille)
                $DateNaiss = $AAAA &"/" &$MM &"/" & $JJ
                $Age = calculeAge($DateNaiss)
                
                IniWrite("inscription.ini", "Onglet 1", "Pseudo ", $Pseudo)
                IniWrite("inscription.ini", "Onglet 1", "Poids ", $Poids)
                IniWrite("inscription.ini", "Onglet 1", "Taille ", $Taille)
                IniWrite("inscription.ini", "Onglet 1", "IMC ", $IMC)
                IniWrite ("inscription.ini", "Onglet 1", "Jour : ", $JJ & @crlf & _
                                                         "Mois : " & $MM & @crlf & _
                                                         "Année : " & $AAAA & @crlf & _
                                                         "Date naissance bon format : " & $DateNaiss & @crlf & _
                                                         "Age" & $Age)

                MsgBox(0, "ok", _
                        "Pseudo : " & $Pseudo & @crlf & _
                        "IMC : " & $IMC & @crlf & _
                        "Poids : " & $Poids & @crlf & _
                        "Taille : " & $Taille & @crlf & _
                        "Age : " & $Age)
            Case $Annul
                fin()
        EndSwitch
    WEnd
EndFunc   ;==>Inscription

Func calculeIMC($Poids, $Taille)
    If $Taille >= 30 Then $Taille /= 100

    Return Round($Poids / $Taille ^ 2, 5)
EndFunc   ;==>calculeIMC

Func calculeAge($DateNaiss)
    return _DateDiff( 'Y',$DateNaiss,_NowCalc())
EndFunc
#EndRegion ################### Fonctions ###################

 

Merci encore pour votre aide, en espérant que les réponses à mes questions aideront les suivants...

A bientôt

T@PµZ

[orax]

* Si j'ai bien compris, je définis une variable $idVar, pour y faire mon input.
$Var = GUICtrlRead($idVar) ; $Var contient le texte entré dans le contrôle qui a l'identifiant (controlID) $idVar

* Cette variable peut alors être une valeur, ou une chaine alphanumérique.
Oui, les variables dans Autoit sont de type "variant", vous n'avez pas à définir son type.

* Pour mon appel de fonction calculeIMC : Pourquoi définir la fonction avec les variables $Poids et $Taille?
Puisque $Poids et $Taille n'étaient pas définies comme variables globales, donc elles n'auraient pas été reconnues dans la fonction calculeIMC() ; c'est pourquoi je les ai passées en argument.

* Est-ce bien pour signaler qu'entre l'input et la fonction elle-même, les variables deviennent "constantes"?
Je ne suis pas sûr de bien comprendre. Essayez ça :

► Afficher le texte

Code : Tout sélectionner

Global $a = 1, $b = 5

maFonction($a, $b)
MsgBox(0, "1", $a & " - " & $b)

Func maFonction($var_1, $var_2)
    $var_1 = 0
    $var_2 = 0
EndFunc   ;==>maFonction

; ---

maFonction_2($a, $b)
MsgBox(0, "2", $a & " - " & $b)

Func maFonction_2(ByRef $var_1, ByRef $var_2)
    $var_1 = 0
    $var_2 = 0
EndFunc   ;==>maFonction_2

* N'aurais-je pas pu (comme je l'aurais fait instinctivement) faire la même chose sans définir les paramètres variables?
Je pense que oui en utilisant des variables $Poids et $Taille globales.

* Le return est bien fait pour sortir de la function caculeIMC() et reprendre le script au niveau de son appel (juste en dessous de $IMC=caculeIMC() )?
Oui et il retourne la valeur calculée, qui est par ailleurs récupérée par $IMC

* Et enfin, quelle différence entre $Taille=$Taille/100 et $Taille=$Taille/=100?
C'est pareil. Voyez dans l'aide : Language Reference - Operators. Par exemple, quand j'incrémente une valeur j'ai pris l'habitude d'utiliser $var += 1, ça me paraît plus pratique et lisible mais ce n'est pas une obligation...

Sur ce, j'espère que je n'ai pas fait de fautes dans ce que j'ai écrit !

[TaPuZ]

Merci beaucoup pour ces réponses claires.
L'exemple m'a permis aussi de mieux comprendre ce que j'avais pourtant lu et relu et re-re-lu dans l'aide ( ).
C'est cet exemple qui devrait y être!
Il ne me reste plus qu'à continuer mon apprentissage.
Merci encore et si jamais quelqu'un trouve des incohérences, des améliorations, ou des simplifications dans le dernier bout de code que j'ai mis, cela m'intéresse : Il est très important pour moi de prendre les bons automatismes dès maintenant. Merci encore.

A bientôt

T@PµZ