[R] Bug avec du GUI et IniRead

[pop45]

Voila j'ai un petit problème avec du GUI et la commande IniRead
Je met le code et je vous explique le problème après

► Afficher le texteAvant

Code : Tout sélectionner

;-----------------------------INCLUDES et les Variables---------------------------
;les petit n juste apres le $ c'est pour dire numeros (noms pour $nMap)

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Verif1 = 0 
$nConfig = 0
$emplacement = 0
$nPlayeur = 0
$nMap = 0
$nTickRate = 0



#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 535, 289, 192, 124)
$EDITER_CONFIG = GUICtrlCreateGroup("EDITER_CONFIG", 208, 16, 145, 241, $BS_LEFT)
$Button1 = GUICtrlCreateButton("Config  1", 224, 48, 113, 33, $WS_GROUP)
$Button2 = GUICtrlCreateButton("config  2", 225, 96, 113, 33, $WS_GROUP)
$Button3 = GUICtrlCreateButton("config  3", 225, 140, 113, 33, $WS_GROUP)
$Button4 = GUICtrlCreateButton("config  4", 227, 187, 113, 33, $WS_GROUP)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("LANCER_CONFIG", 376, 16, 145, 241)
$Button5 = GUICtrlCreateButton("config  4", 392, 184, 113, 33, $WS_GROUP)
$Button6 = GUICtrlCreateButton("config  4", 393, 139, 113, 33, $WS_GROUP)
$Button7 = GUICtrlCreateButton("config  4", 393, 91, 113, 33, $WS_GROUP)
$Button8 = GUICtrlCreateButton("config  4", 394, 47, 113, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$Label1 = GUICtrlCreateLabel("Si c'est votre premier utilisation", 24, 24, 148, 17)
$Label2 = GUICtrlCreateLabel("Veullier commencer par editer", 24, 40, 143, 17)
$Label3 = GUICtrlCreateLabel("Votre configuration", 24, 54, 93, 17)
$Label4 = GUICtrlCreateLabel("Si une erreur survient veuiller poster ", 6, 251, 175, 17)
$Label5 = GUICtrlCreateLabel("sur le forum de  Tutoprod.fr", 8, 263, 131, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;affichage du GUI
While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1 
            $nConfig = "Config1"
            Editconfig ()   
            

    EndSwitch
WEnd


;fonction et compagnie

Func EditConfig (); function pour  editer les config
    While $Verif1 = 0
        $Verif1 = IniRead ( @WorkingDir & "\Config.ini",  $nConfig & "" , "emplacement" , "0" );Verifie si le Config.ini existe sinonil en cree 1 dans la condition IF jsute apres
        If $verif1 = 0 Then
            Msgbox (0, "machin", "Le dossier de configuration n'existe pas" & @CRLF & "dans ce cas je vais le crée. " & @LF & "Sinon c'est la premier configuration d'une des config" & @LF & "je sait je suis pas tres claire :/ " )
            
            IniWrite ( @WorkingDir & "\Config.ini" , $nConfig & "" , "emplacement" , "1"  )
            MsgBox (0, "machin" , "Le fichier config.ini a ete cree" )
        Else ; la il va demander tout les variable neccessaire pour se que je veut
            $emplacement = InputBox ( "machin" , "Veullez indiquer l'emplacement de srcds.exe" , "C:\srcds\css" ) 
            IniWrite ( @WorkingDir & "\Config.ini" , $nConfig & "" , "emplacement" , $emplacement & ""  )
            
            $nPlayeur = InputBox ("machin" , "Veulliez indiquer le nombre maximum de joueur ", "20" )
            IniWrite ( @WorkingDir & "\Config.ini" , $nConfig & "" , "nombre de joueur" , $nplayeur & "" )
            
            $nMap = InputBox ("machin" , "Indiquer le nom de la carte a lancer (de_dust2,cs_office ect)" , "de_dust2" )
            IniWrite ( @WorkingDir & "\Config.ini" , $nConfig & "" , "Carte" , $nMap & ""  )
            
            $nTickRate = InputBox ("machin", "Indiquer le ping max pour l'auto kick" , "100" )
            IniWrite ( @WorkingDir & "\Config.ini" , $nConfig & "" , "TickRate" , $nTickRate & ""  )
            
            ExitLoop ; il a finis de demander tout les variable donc il sort de la boucle
        EndIf
                
    WEnd
        
EndFunc

 

► Afficher le texteApres

Code : Tout sélectionner

;-----------------------------INCLUDES et les Variables---------------------------
;les petit n juste apres le $ c'est pour dire numeros (noms pour $nMap)

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Verif1 = 0 
$nConfig = 0
$emplacement = 0
$nPlayeur = 0
$nMap = 0
$nTickRate = 0



#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 535, 289, 192, 124)
$EDITER_CONFIG = GUICtrlCreateGroup("EDITER_CONFIG", 208, 16, 145, 241, $BS_LEFT)
$Button1 = GUICtrlCreateButton("Config  1", 224, 48, 113, 33, $WS_GROUP)
$Button2 = GUICtrlCreateButton("config  2", 225, 96, 113, 33, $WS_GROUP)
$Button3 = GUICtrlCreateButton("config  3", 225, 140, 113, 33, $WS_GROUP)
$Button4 = GUICtrlCreateButton("config  4", 227, 187, 113, 33, $WS_GROUP)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("LANCER_CONFIG", 376, 16, 145, 241)
$Button5 = GUICtrlCreateButton("config  4", 392, 184, 113, 33, $WS_GROUP)
$Button6 = GUICtrlCreateButton("config  4", 393, 139, 113, 33, $WS_GROUP)
$Button7 = GUICtrlCreateButton("config  4", 393, 91, 113, 33, $WS_GROUP)
$Button8 = GUICtrlCreateButton("config  4", 394, 47, 113, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$Label1 = GUICtrlCreateLabel("Si c'est votre premier utilisation", 24, 24, 148, 17)
$Label2 = GUICtrlCreateLabel("Veullier commencer par editer", 24, 40, 143, 17)
$Label3 = GUICtrlCreateLabel("Votre configuration", 24, 54, 93, 17)
$Label4 = GUICtrlCreateLabel("Si une erreur survient veuiller poster ", 6, 251, 175, 17)
$Label5 = GUICtrlCreateLabel("sur le forum de  Tutoprod.fr", 8, 263, 131, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;affichage du GUI
While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1 
            Editconfig ("Config1")  
            
        Case $Button2           
            Editconfig ("Config2")
                
        Case $Button3           
            Editconfig ("Config3")
                
        Case $Button4           
            Editconfig ("Config4")
            

    EndSwitch
WEnd


;fonction et compagnie

Func EditConfig ($nConfig); function pour  editer les config
    
            $emplacement = InputBox ( "machin" , "Veullez indiquer l'emplacement de srcds.exe" , "C:\srcds\css" ) 
            IniWrite ( @ScriptDir & "\Config.ini" , $nConfig & "" , "emplacement" , $emplacement & ""  )
            
            $nPlayeur = InputBox ("machin" , "Veulliez indiquer le nombre maximum de joueur ", "20" )
            IniWrite ( @ScriptDir & "\Config.ini" , $nConfig & "" , "nombre de joueur" , $nplayeur & "" )
            
            $nMap = InputBox ("machin" , "Indiquer le nom de la carte a lancer (de_dust2,cs_office ect)" , "de_dust2" )
            IniWrite ( @ScriptDir & "\Config.ini" , $nConfig & "" , "Carte" , $nMap & ""  )
            
            $nTickRate = InputBox ("machin", "Indiquer le ping max pour l'auto kick" , "100" )
            IniWrite ( @ScriptDir & "\Config.ini" , $nConfig & "" , "TickRate" , $nTickRate & ""  ) 

EndFunc

   

1er Problème avec le iniRead

Code : Tout sélectionner

$Verif1 = IniRead ( @WorkingDir & "\Config.ini",  $nConfig & "" , "emplacement" , "0" )

avec cette ligne le programme est sensée vérifier si il y a déjà un fichier config.ini crée or pour moi il me dis toujours que l'ini est absent (même si l'ini est bien crée , j'ai bien vérifier elle est la elle il y a des chose dedans dont la valeur que je demande pour la vérification )
je comprend pas donc je vous demande de l'aide

2eme problème avec le GUI
après avoir cliquer sur le bouton Config 1 et remplis tout les champs que je voulait puis je reviens a la fenêtre de départ celle ou il y a tout les bouton je peut re cliquer sur config 1 mais sa marche pas et je comprend pas pourquoi donc je vous demande encore de laid



Il est pas terminer faut encore que je rajout la fonction EditConfig pour les button 2,3 et 4 puis que je crée une fonction pour lancer une commande dans la console Windows grâce au information obtenue

P.S si vous avez quelque conseil a me donner pour la présentation ou autre fait le

[DJSIR]

Bonjour et bienvenue sur le forum pop45.

Alors je pense avoir résolu ton problème.
Déja enlève les While et Wend dans ta fonction, ils sont inutiles

Enuite, remplace @WorkingDir par @ScriptDir et vire le même si c'est que pour toi car ils sont inutiles aussi.

Pour terminer un petit conseil, quand tu veux revenir a la ligne, exemple dans ton label : utilise la commande @CRLF.

$Label1 = GUICtrlCreateLabel("Si c'est votre premier utilisation" & @CRLF & "Veuillez commencer par editer", 24, 24, 148, 17)

Pense a agrandir ton 17 car il sera trop petit pour deux lignes. Une ligne normale fait a peu près 25.

Sinon si sa marche pas, essaie d'enlever le IniRead et remplace la par une valeur toute simple pour essayer

PS : Pourquoi tu n'as pas posté sur le forum de Tutoprod.fr comme il y a une erreur ?

[pop45]

Haha pas drole....

pour le @workingdir c'est pasque je compte le partager avec d'autre personne

ensuite pour le label je vais le faire vue que sa va alléger le code
enfaite pour le iniread j'ai déjà tester sans le GUI et il marchait des que je l'ai introduit dans le Gui la sa me fesait n'importe comment :/

Merci j'ai essayer avec le @script dire le probleme du iniread est resolue (j'ai suprimer le while aussi)
en plus j'ai virer tout la parti If else qui me servait a rien enfait lol j'aurais dus i penser plus tot et maintenent pour le GUI sa marche donc je met [R]

Je changerais si j'ai un nouveau probleme

[DJSIR]

► Afficher le texte

Code : Tout sélectionner

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

$var = IniRead ( @ScriptDir & "\config.ini", "section" , "valeur" , "0" );Attribue à $var la valeur IniRead

;Contenu du INI se situant au dossier ou se trouve le script
;[section]
;valeur=
;Si la valeur n'existe pas elle est égale a 0

Opt("GUIOnEventMode", 1);Permet aux fonctions d'êtres exécutées a la place de l'interieur de la boucle
GUICreate("GUI Exemple", 400, 300);Création de la GUI

$Bouton = GUICtrlCreateButton("Configuration", 10, 10);Création du bouton
GUICtrlSetOnEvent($Bouton, "fonction");On définis que si on clique sur ce bouton, on lance la fonction

GUISetState()

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
Func Fonction()
    If $var = 0 Then;Si c'est =0 alors
         Msgbox (0, "", "Pas de valeur dans le fichier ou valeur 0")
        Else;Sinon
           Msgbox (0, "", "Valeure autre que O" & @CRLF & "Exactement" & $var)
        EndIf
EndFunc

Voila ton script simplifié au max il fonctionne !

[pop45]

Tellement simplifier que quand j'appuyai sur la croix pour fermer sa marchait pas
enfin bon c'est regler