[R] Utilisation d'une variable

[chucky17]

Bonjour !
j'ai deux petits problèmes :
de 1, quand je clique sur le boutton valider, ça me met tout le temps ma msgbox dans le do...until.
je sais pas si c'est mon "do ... until" qui file un mauvais poil , il est en gras :

► 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=c:\users\antoine\desktop\script autoit\le gui\form3.kxf
Global $Start = GUICreate("Account Registrer - Identification", 306, 178, 512, 248)
GUISetIcon("", -1)
Global $Password = GUICtrlCreateInput("Mot de Passe", 112, 88, 169, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
Global $ButtonOk = GUICtrlCreateButton("&Valider", 30, 128, 67, 33)
Global $ButtonExit = GUICtrlCreateButton("&Quitter", 207, 128, 67, 33)
Global $EnterPassLabel = GUICtrlCreateLabel("mot de passe :", 24, 84, 73, 17, 0)
Global $EnterUserLabel = GUICtrlCreateLabel("Utilisateur :", 24, 48, 56, 17)
Global $User = GUICtrlCreateInput("Identifiant", 112, 48, 169, 21)
Global $Create_User = GUICtrlCreateButton("Créer un compte", 112, 128, 83, 33)
Global $Label2 = GUICtrlCreateLabel("Bienvenue dans Account Registrer !", 24, 16, 175, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
      Exit
  Case $ButtonExit
      Exit
  Case $Create_User
      GUISetState(@SW_HIDE, $Start)
      Create_User()

  Case $ButtonOk
      Local $file = FileOpen(GUICtrlRead($User)&".txt", 1)

        If $file = -1 Then
            MsgBox(0, "Error", "Unable to open file.")
            Exit
        EndIf
;~ --------------------------- vérification identifiants et mot de passe ----------------------------------
        While 1
            Local $lineUser = FileReadLine($file, 1)
            Local $linePass = FileReadLine($file, 2)
                [b]Do
                    If ((GUICtrlRead($User) <> $lineUser) Or (GUICtrlRead($Password) <> $linePass)) Then
                        MsgBox(0, "Account Registrer - Erreur", "Nom du profil inconnu, identifiant incorrect ou mauvais mot de passe. Veuillez recommencer.", 2)
                        GUISetState(@SW_HIDE, $Start)
                        Start()
                    ElseIf ((GUICtrlRead($User) = $lineUser) And (GUICtrlRead($Password) = $linePass)) Then
                        GUISetState(@SW_HIDE, $Start)
                        PassRecord()
                    EndIf
                Until ((GUICtrlRead($User) = $lineUser) And (GUICtrlRead($Password) = $linePass))[/b]
            If @error = -1 Then ExitLoop

        WEnd




      FileClose($file)


 EndSwitch
WEnd

et de 2, j'aimerai récupérer une variable d'une fonction (start() ) pour une autre fonction (Pass() ) pour pouvoir lire le fichier du nom de mon utilisateur avec ce code(j'ai mis qu'une partie) :

Code : Tout sélectionner

func Pass()
::du code::
Local $file = FileOpen(\variable "$user" de ma func Start()\".txt", 1)

j'espère que vous avez compris, cordialement, chucky !

[TT22]

Déjà tu devrais lire ça : http://www.autoitscript.fr/forum/viewto ... f=35&t=595

Ensuite, pour ton problème de variable, utilise une variable Global, elle fonctionnera dans toutes tes fonctions.

Edit :

ça me met tout le temps ma msgbox dans le do...until.

C'est normal car ta MsgBox est dans ta boucle Do...Until

[chucky17]

je place la variable global au début du script ou je peux le laisser une fonction ?

[TT22]

C'est mieux de la mettre au début car comme ça elle est déclaré puis on en parle plus

[chucky17]

ah merci ! =)
donc je mets ça ?

Code : Tout sélectionner

Global $User = ""

sinon excusez moi pour ma lisibilité je le lis et je réédite mon message vous le relirez

[TT22]

Ouai, tu met ça

Et SURTOUT, tu modifie le titre de ton premier message de cette façon : [..] problème de variable
Sinon il va être supprimé !

[chucky17]

c'est fait !! sinon tu peux me dire pour mon probleme (peut-etre le do ... until qui fonctionne mal)
merci

[TT22]

Je veux bien t'aider, mais tu n'a pas donné de script complet, il manque des fonctions

[chucky17]

ah bon ? pourtant y a tout ce qui ya d'utile ?
si tu veux je met le code de base qui relit tout mes scripts :

► Afficher le texte

Code : Tout sélectionner

;~ ############account registrer############
;~ # développeur : chucky                  #
;~ # version : 1.0T (version test)         #
;~ # outil de développement : SciTE 2.28   #
;~ # compilateur : AutoIt v3               #
;~ #########################################

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Start()
Create_User()
PassRecord()
Global $User

Func Start()
#include "Account Registrer_Start.au3"
EndFunc

Func Create_User()
#include "Account Registrer_Creation.au3"
EndFunc

Func PassRecord()
#include "Account Registrer_PassRecord.au3"
EndFunc

[TT22]

Il manque toujours des morceaux et je ne comprend rien à ton problème de MsgBox
Par exemple, c'est quoi "Account Registrer_Creation.au3" ?

Donc, soit tu donne tout ton script, soit tu t'explique mieux
Sinon, on ne pourras pas t'aider.

Donc, ré-explique ton problème de façon plus clair.

[chucky17]

bon désolé pour le dérangement mais j'ai trouvé !!
fallait remplacer

Code : Tout sélectionner

Local $file = FileOpen(GUICtrlRead($User)&".txt", [b][size=150]1[/size][/b])

par

Code : Tout sélectionner

Local $file = FileOpen(GUICtrlRead($User)&".txt", [b][size=150]0[/size][/b])

merci quand meme car pour la fonction globale ça fonctionne ! =)
merci beaucoup !
a la prochaine sur le forum !

[TT22]

D'accord.

Je vais t'embêter encore, mais vu que tu as ta réponse, modifie ton titre de cette façon : [R] Utilisation d'une variable

Et a bientôt

[chucky17]

merci ^^ mais .. aide moi vite fait .. j'sais plus comment j'ai fait ..

[TT22]

Bouton "Editer" en bas à gauche de ton message