[R] Gui 4 Boutons pour écrire Yes où No dans fichier INI

[pierrotm777]

Bonjour à tous,

J'ai besoin de modifier un fichier INI comportant 4 variables :

Je crée dans mon fichier ainsi :

Code : Tout sélectionner

      IniWrite("Speedzone.ini","OPTIONS","TONE","YES")
      IniWrite("Speedzone.ini","OPTIONS","MESSAGEBOXES","YES")
      IniWrite("Speedzone.ini","OPTIONS","VOICES","YES")
      IniWrite("Speedzone.ini","OPTIONS","SCROLLINGMESSAGES","YES")

J'obtiens donc un fichier Speedzone.ini :

Code : Tout sélectionner

[OPTIONS]
TONE=NO
MESSAGEBOXES=NO
VOICES=YES
SCROLLINGMESSAGES=NO

J'ai donc crée mon GUI ainsi:

► Afficher le texte

Code : Tout sélectionner

;Onglet Speedzone.ini
GUICtrlCreateTabItem("Speedzone.ini")
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
$Annuler7 = GUICtrlCreateButton($aLang[4], 392, 296, 75, 25)
;$OK7 = GUICtrlCreateButton("OK", 480, 296, 75, 25)
$Group = GUICtrlCreateGroup("OPTIONS", 8, 20, 175, 130)
$Voices = GUICtrlCreateButton("VOICES", 20, 35, 150, 25)
$MessagesBoxes = GUICtrlCreateButton("MESSAGES BOXES", 20, 60, 150, 25)
$Tone = GUICtrlCreateButton("TONE", 20, 85, 150, 25)
$ScrollingMessages = GUICtrlCreateButton("SCROLLING MESSAGES", 20, 110, 150, 25)
$Group = GUICtrlCreateGroup("AVAILABLE LANGUAGES", 8, 160, 175, 80)
$Cb_Languages = GUICtrlCreateCombo("", 50, 190, 97, 25)
GUICtrlSetData(-1, "ENGLISH|FRENCH|GERMAN|SPANISH|EBONICS", "ENGLISH")
;$SaveSpeedzoneIni = GUICtrlCreateButton("SAVE", 10, 290, 170, 30)
$Group = GUICtrlCreateGroup("DEFAULT SPEED LIMIT", 190, 20, 175, 50)
$SpeedLimit = GUICtrlCreateButton("SPEED LIMIT", 202, 35, 150, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group = GUICtrlCreateGroup("PENDING CHANGES", 190, 80, 175, 160)
$setupVOICES = IniRead("Speedzone.ini","OPTIONS","VOICES","")
$labelVOICES = GUICtrlCreateLabel('VOICES = ' & $setupVOICES, 200, 100, 300, 20)
$setupMESSAGES = IniRead("Speedzone.ini","OPTIONS","MESSAGEBOXES","")
$labelMESSAGES = GUICtrlCreateLabel('MESSAGES BOXES = ' & $setupMESSAGES, 200, 120, 300, 20)
$setupTONE = IniRead("Speedzone.ini","OPTIONS","TONE","")
$labelTONE = GUICtrlCreateLabel('TONE = ' & $setupTONE, 200, 140, 300, 20)
$setupSPEEDLIMITOLD = IniRead("Speedzone.ini","SPEEDLIMIT","SPEEDLIMITOLD","")
$labelSPEEDLIMITOLD = GUICtrlCreateLabel('SPEED LIMIT = ' & $setupSPEEDLIMITOLD, 200, 160, 300, 20)
$setupSCROLLINGMESSAGES = IniRead("Speedzone.ini","OPTIONS","SCROLLINGMESSAGES","")
$labelSCROLLINGMESSAGES = GUICtrlCreateLabel('SCROLLING MESSAGES = ' & $setupSCROLLINGMESSAGES, 200, 180, 300, 20)
$setupLANGUAGE = IniRead("Speedzone.ini","OPTIONS","LANGUAGE","")
$labelLANGUAGE = GUICtrlCreateLabel('LANGUAGE = ' & $setupLANGUAGE, 200, 200, 300, 20)
GUICtrlCreateLabel('ALWAYS SAVED', 200, 220, 300, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel('NOT AVAILABLE !!! ', 200, 260, 300, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group = GUICtrlCreateGroup("Update and Import", 372, 20, 175, 220)
$UpdateImport = GUICtrlCreateButton("Update and Import", 384, 35, 150, 25)

;$labelUpdateImport = GUICtrlCreateLabel("Zone information are not" & @CRLF & _
;"exist in your SpeedZone.INI."& @CRLF & _
;"No change has been"& @CRLF & _
;"Made.", 384, 70, 400, 100)
$labelUpdateImport = GUICtrlCreateLabel("", 384, 70, 400, 100)

GUICtrlCreateGroup("", -99, -99, 1, 1)
;Fin Onglet Speedzone.ini

Je souhaiterais que lorsque j'appuie sur un des quatre boutons, si la valeur lue est YES , on écrive NO et inversement .

Dans la zone "Pending changes" , je fait apparaitre la valeur des variables :
Je voudrais voir s'afficher la modification effectuée par l'appuie sur les boutons:

J'ai donc écrit ce code étant sencé rafraichir ma zone, mais rien ne se passe:

► Afficher le texte

Code : Tout sélectionner

Func GetRide();Mise à jour des Setup SpeedZone
    
        GuiCtrlSetData($labelVOICES, "VOICES = " & $setupVOICES)
        GuiCtrlSetData($labelMESSAGES, "MESSAGES BOXES = " & $setupMESSAGES)
        GuiCtrlSetData($labelTONE, "TONE = " & $setupTONE)
        GuiCtrlSetData($labelSPEEDLIMIT, "SPEED LIMIT = " & $setupSPEEDLIMIT)
        GuiCtrlSetData($labelSCROLLINGMESSAGES, "SCROLLING MESSAGES = " & $setupSCROLLINGMESSAGES)
        GuiCtrlSetData($labelLANGUAGE, "LANGUAGE = " & $setupLANGUAGE)
        GuiCtrlSetData($labelUpdateImport, "Zone information are not" &@CRLF&"exist in your SpeedZone.INI."&@CRLF&"No change has been"&@CRLF&"Made."& $UpdateImport)
        

EndFunc   ;==>GetRide

Voici ma boucle de commande des boutons:

► Afficher le texte

Code : Tout sélectionner

;Boucle pour SpeedZone
        Case $GUI_EVENT_CLOSE, $Annuler7
            Exit

        Case $Voices    
            If $setupVOICES = "YES" Then
                IniWrite("Speedzone.ini", "OPTIONS", "VOICES", "NO")
            ElseIf $setupVOICES = "NO" Then
                IniWrite("Speedzone.ini", "OPTIONS", "VOICES", "YES")
;           Endif
            Endif
            GetRide()
            MsgBox(64, "SpeedZone Setup","VOICES = " & $setupVOICES)
            
        Case $MessagesBoxes
            If $setupMESSAGES = "YES" Then
                IniWrite("Speedzone.ini", "OPTIONS", "MESSAGEBOXES", "NO")
            ElseIf $setupMESSAGES = "NO" Then
                IniWrite("Speedzone.ini", "OPTIONS", "MESSAGEBOXES", "YES")
;           Endif
            Endif
            GetRide()
            MsgBox(64, "SpeedZone Setup","MESSAGEBOXES = " & $setupMESSAGES)
            
        Case $Tone
            If $setupTONE = "YES" Then
                IniWrite("Speedzone.ini", "OPTIONS", "TONE", "NO")
            ElseIf $setupTONE = "NO" Then
                IniWrite("Speedzone.ini", "OPTIONS", "TONE", "YES")
;           Endif
            Endif
            GetRide()
            MsgBox(64, "SpeedZone Setup","TONE = " & $setupTONE)
            
        Case $ScrollingMessages
            If $setupSCROLLINGMESSAGES = "YES" Then
                IniWrite("Speedzone.ini", "OPTIONS", "SCROLLINGMESSAGES", "NO")
            ElseIf $setupSCROLLINGMESSAGES = "NO" Then
                IniWrite("Speedzone.ini", "OPTIONS", "SCROLLINGMESSAGES", "YES")
;           Endif
            Endif
            GetRide()
            MsgBox(64, "SpeedZone Setup","TONE = " & $setupTONE)
                
        Case $SpeedLimit
            MsgBox(64, "SpeedLimit","NOT AVAILABLE !!! " )
            
        Case $UpdateImport
            MsgBox(64, "Update and Import","NOT AVAILABLE !!! " )
            If IniRead("Speedzone.ini", "ZONES", "", "") Then
            GuiCtrlSetData($labelUpdateImport, "Zone information are not" &@CRLF&"exist in your SpeedZone.INI."&@CRLF&"No change has been"&@CRLF&"Made."& $UpdateImport)
            EndIf
        
        Case $Cb_Languages
            IniWrite("Speedzone.ini", "OPTIONS", "LANGUAGE", GUICtrlRead($Cb_Languages))
            GetRide()

        Case $MenuAPropos
            _Apropos()
            
;        Case $OK7
            
;Fin Boucle pour Onglet SpeedZone

Curieusement, l'état NO est bien changé en YES et inversement , mais je ne peux pas appuyer sur le même bouton deux fois
de suite pour changer l'état deux fois de suite !

Merci de votre aide par avance

[GaRydelaMer]

Bonjour

c'est pas curieux !!! juste une légère erreur de conception !!!

Tu changes la valeur dans le fichier INI, mais ton If tu le fais sur la valeur de la variable que tu mets pas à jour en modifiant ton fichier INI.

Code : Tout sélectionner

If $setupMESSAGES = "YES" Then
IniWrite("Speedzone.ini", "OPTIONS", "MESSAGEBOXES", "NO")
ElseIf $setupMESSAGES = "NO" Then
IniWrite("Speedzone.ini", "OPTIONS", "MESSAGEBOXES", "YES")
; Endif
Endif

Remplace le par :

Code : Tout sélectionner

If $setupMESSAGES = "YES" Then
IniWrite("Speedzone.ini", "OPTIONS", "MESSAGEBOXES", "NO")
$setupMESSAGES  = "NO"
ElseIf $setupMESSAGES = "NO" Then
IniWrite("Speedzone.ini", "OPTIONS", "MESSAGEBOXES", "YES")
&setupMESSAGES = "YES"
; Endif
Endif

Idem pour les autres variables, sinon fais ton If sur la valeurs dans le fichier INI avec IniRead.

[pierrotm777]

Merci GaRydelaMer,

Je n'était pas loin .

Ca marche super Bien

[pierrotm777]

Je cherche comment lister les fichiers *.LNG afin de les visualiser automatiquement
dand mon combo.

Code : Tout sélectionner

$Group = GUICtrlCreateGroup("AVAILABLE LANGUAGES", 8, 160, 175, 80)
$setupLANGUAGE = IniRead("Speedzone.ini","OPTIONS","LANGUAGE","")
$labelLANGUAGE = GUICtrlCreateLabel('LANGUAGE = ' & $setupLANGUAGE, 200, 200, 300, 20)
$Cb_Languages = GUICtrlCreateCombo("", 50, 190, 97, 25)
GUICtrlSetData(-1, "ENGLISH|FRENCH|GERMAN|SPANISH|EBONICS", $setupLANGUAGE)

Il faudrait donc remplacer la ligne "ENGLISH|FRENCH|GERMAN|SPANISH|EBONICS" par ???
Ainsi tout fichier .lng présent seraient listés mais sans leur extension .


Avec un autre bouton, j'ouvre un input, je le lis, puis je veux l'écrire dans mon fichier INI .

Voici le format de mon INI:

Code : Tout sélectionner

[SPEEDLIMIT]
SPEEDLIMIT=80
SPEEDLIMITOLD=100
 

J'ai modifié mon GUI en fonction:

Code : Tout sélectionner

$setupSPEEDLIMIT = IniRead("Speedzone.ini","SPEEDLIMIT","SPEEDLIMIT","")
$labelSPEEDLIMIT = GUICtrlCreateLabel('SPEED LIMIT = ' & $setupSPEEDLIMIT, 200, 160, 300, 20)

devient juste :

Code : Tout sélectionner

$setupSPEEDLIMITOLD = IniRead("Speedzone.ini","SPEEDLIMIT","SPEEDLIMITOLD","")
$labelSPEEDLIMITOLD = GUICtrlCreateLabel('SPEED LIMIT = ' & $setupSPEEDLIMITOLD, 200, 160, 300, 20)

Voici ma boucle d'écriture des valeur dans le fichier INI

Code : Tout sélectionner

        Case $SpeedLimit
            inputbox("Question","Enter The New Default Speed Limit",$setupSPEEDLIMITOLD,"",250,125)
            $setupSPEEDLIMIT = GUICtrlRead($setupSPEEDLIMITOLD) ;Lire la variable de l'input
            IniWrite("Speedzone.ini", "SPEEDLIMIT", "SPEEDLIMIT", $setupSPEEDLIMIT)
            IniWrite("Speedzone.ini", "SPEEDLIMIT", "SPEEDLIMITOLD", $setupSPEEDLIMITOLD)
            GetRide()
            MsgBox(64, "The New Speed Limit is : !!!", "New Speed: " & $setupSPEEDLIMIT &@CRLF& "Old Speed : " & $setupSPEEDLIMITOLD)

Et voilà , je me sent un peut encore blaireau , mon code lit bien la variable $setupSPEEDLIMITOLD mais n'écrit pas du tout la bonne variable $setupSPEEDLIMIT dans mon fichier INI .

Une idée ... ???

[nounours]

bonjour à toi ,

Code : Tout sélectionner

Case $SpeedLimit
            inputbox("Question","Enter The New Default Speed Limit",$setupSPEEDLIMITOLD,"",250,125)
            $setupSPEEDLIMIT = GUICtrlRead($setupSPEEDLIMITOLD) ;Lire la variable de l'input
            IniWrite("Speedzone.ini", "SPEEDLIMIT", "SPEEDLIMIT", $setupSPEEDLIMIT)
            IniWrite("Speedzone.ini", "SPEEDLIMIT", "SPEEDLIMITOLD", $setupSPEEDLIMITOLD)
            GetRide()
            MsgBox(64, "The New Speed Limit is : !!!", "New Speed: " & $setupSPEEDLIMIT &@CRLF& "Old Speed : " &  $setupSPEEDLIMITOLD)

dans ton code tu ne lis pas la valeur de l'input , mais la valeur de ton fichier ini . tu devrais faire comme cela :

Code : Tout sélectionner

Case $SpeedLimit
            $setupSPEEDLIMIT =inputbox("Question","Enter The New Default Speed Limit",$setupSPEEDLIMITOLD,"",250,125) ; $setupSPEEDLIMIT correspond à la valeur de ton input 
            IniWrite("Speedzone.ini", "SPEEDLIMIT", "SPEEDLIMIT", $setupSPEEDLIMIT)
            IniWrite("Speedzone.ini", "SPEEDLIMIT", "SPEEDLIMITOLD", $setupSPEEDLIMITOLD)
            GetRide()
            MsgBox(64, "The New Speed Limit is : !!!", "New Speed: " & $setupSPEEDLIMIT &@CRLF& "Old Speed : " &  $setupSPEEDLIMITOLD)

par contre ton : case $SpeedLimit correspond à quoi ?

Je n'ai pas tout ton code mais tu dois avoir une boucle while je pense , du style :

Code : Tout sélectionner

$SpeedLimit=GUICtrlCreateButton("change New Default Speed", $xGUI, $yGui,$longueur_bouton,$hauteur_bouton)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $SpeedLimit
            $setupSPEEDLIMIT =inputbox("Question","Enter The New Default Speed Limit",$setupSPEEDLIMITOLD,"",250,125)  
            IniWrite("Speedzone.ini", "SPEEDLIMIT", "SPEEDLIMIT", $setupSPEEDLIMIT)
            IniWrite("Speedzone.ini", "SPEEDLIMIT", "SPEEDLIMITOLD", $setupSPEEDLIMITOLD)
            GetRide()
            MsgBox(64, "The New Speed Limit is : !!!", "New Speed: " & $setupSPEEDLIMIT &@CRLF& "Old Speed : " &  $setupSPEEDLIMITOLD)

        EndSelect
WEnd
 

[pierrotm777]

Super, Merci beaucoup !

C'est bien ce que je voulais.

Oui , Désolé j'ai bien une boucle while ...