[R] Sauvegarder une variable entre chaque utilisation

[Justyce]

Sinon j'aimerais savoir ce que vous en pensez :

-ce programme est très simple, on ne peut plus l'améliorer on laisse tomber

-ce programme ne sert pas à grand chose donc on laisse tomber

-très bien il faut continuer comme ça

-il faudrait changer quelques trucs pour pouvoir continuer

ou autre...

[TT22]

Pour moi c'est :
très bien il faut continuer comme ça
Tu devrais juste refaire l'interface pour rapprocher la question des réponses. Sinon c'est bien.

[Justyce]

Ok merci

EDIT: voici la prochaine version de mon programme mais quand je le lance ; l'interface apparait mais quand je clique sur les radios ou le bouton rien ne se passe.
Pouvez-vous m'aidez à solutionner le problème svp.

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

Programme Version : 2.0
Auteur:   Justyce
LAST EDIT : 23/06/2011
Note : GUI fait grâce au logiciel Koda

 #ce ----------------------------------------------------------------------------

; Insertion des includes
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
;Insertion des includes terminée
;Insertion question/réponses
$yes=IniRead("reponses.ini","reponses","rep1","")
$no=IniRead("reponses.ini","reponses","rep2","")
$idontknow=IniRead("reponses.ini","reponses","rep3","")
$question=IniRead("reponses.ini","reponses","question","")
;Insertion des question/réponses terminée
;Début de l'interface
$Form1 = GUICreate("Form1", 598, 438, 192, 164)
$Button1 = GUICtrlCreateButton("Creer sa question", 0, 344, 177, 97)
$Pic1 = GUICtrlCreatePic("C:\Users\Théo et Alex\Pictures\Profil\avatar justyce.jpg", 0, 0, 193, 185)
$Group1 = GUICtrlCreateGroup("Réponses", 256, 224, 337, 209)
$Radio1 = GUICtrlCreateRadio($yes, 288, 256, 289, 33)
$Radio2 = GUICtrlCreateRadio($no, 288, 296, 289, 65)
$Radio3 = GUICtrlCreateRadio($idontknow, 288, 368, 289, 49)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel($question, 256, 0, 340, 201)
GUISetState(@SW_SHOW)
;Interface terminée
;Début du programme
;Début de la boucle
sleep(5000)
While 1
    $Msg = GUIGetMsg()
 Switch $Msg
  Case $GUI_EVENT_CLOSE
   Exit
   Case $Radio1
    $yescount=IniRead("reponses.ini","reponses","oui","")
    $nocount=IniRead("reponses.ini","reponses","non","")
    $idontknowcount=IniRead("reponses.ini","reponses","jenesaispas","")
    IniWrite("reponses.ini","reponses","oui",$yescount+1)
    $yescount=IniRead("reponses.ini","reponses","oui","")
    MsgBox(0,"Resultats",""&$yescount&"ont répondu oui"& @CRLF& $nocount &"ont répondu non"&@CRLF& $idontknowcount &"ne savent pas")
    Exit
Case $Radio2
    $nocount=IniRead("reponses.ini","reponses","non","")
    $yescount=IniRead("reponses.ini","reponses","oui","")
    $idontknowcount=IniRead("reponses.ini","reponses","jenesaispas","")
    IniWrite("reponses.ini","reponses","non",$nocount+1)
    $nocount=IniRead("reponses.ini","reponses","non","")
    MsgBox(0,"Resultats",""&$yescount&"ont répondu oui"& @CRLF& $nocount &"ont répondu non"&@CRLF& $idontknowcount &"ne savent pas")
    Exit
Case $Radio3
    $idontknowcount=IniRead("reponses.ini","reponses","jenesaispas","")
    $yescount=IniRead("reponses.ini","reponses","oui","")
    $nocount=IniRead("reponses.ini","reponses","non","")
    IniWrite("reponses.ini","reponses","jenesaispas",$idontknowcount+1)
    $idontknowcount=IniRead("reponses.ini","reponses","jenesaispas","")
    MsgBox(0,"Resultats",""&$yescount&"ont répondu oui"& @CRLF& $nocount &"ont répondu non"&@CRLF& $idontknowcount &"ne savent pas")
    Exit
Case $Button1
    $question=Inputbox("Question","Veuillez écrire votre question.")
    IniWrite("reponses.ini","reponses","question",$question)
    $yes=InputBox("Réponses 1","Veuillez écrire la réponse n°1.")
    IniWrite("reponses.ini","reponses","rep1",$yes)
    $no=InputBox("Réponses 2","Veuillez écrire la réponse n°2.")
    IniWrite("reponses.ini","reponses","rep2",$no)
    $idontknow=InputBox("Réponses 3","Veuillez écrire la réponse n°3.")
    IniWrite("reponses.ini","reponses","rep3",$idontknow)
EndSwitch
WEnd
;La boucle est terminée
;Fin du programme
Sleep(5000)

[mikell]

Attention de ne pas te mélanger les pinceaux dans les variables
exemple : variable 'texte de la question' = $question, inputbox = $question2

► Afficher le texte

Code : Tout sélectionner

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

;Opt("GUIOnEventMode", 1)     ; [color=#FF0000]<== si tu mets ça, $Msg = GUIGetMsg() ne marche pas[/color]

;[color=#FF0000] initialise les variables[/color]
$yes=IniRead("reponses.ini","reponses","oui","[color=#FF0000]0[/color]")  ; [color=#FF0000]si trouve pas la clé 'oui' , alors $yes=0[/color]
$no=IniRead("reponses.ini","reponses","non","0")
$idontknow=IniRead("reponses.ini","reponses","saispas","0")
$question=IniRead("reponses.ini","reponses","question","")

$Form1 = GUICreate("Form1", 598, 438, 192, 164)
$Button1 = GUICtrlCreateButton("Creer sa question", 0, 344, 177, 97)
$Pic1 = GUICtrlCreatePic("C:\Users\Théo et Alex\Pictures\Profil\avatar justyce.jpg", 0, 0, 193, 185)
$Group1 = GUICtrlCreateGroup("Réponses", 256, 224, 337, 209)
$Radio1 = GUICtrlCreateRadio("oui", 288, 256, 289, 33)
$Radio2 = GUICtrlCreateRadio("non", 288, 296, 289, 65)
$Radio3 = GUICtrlCreateRadio("sais pas", 288, 368, 289, 49)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel($question, 256, 0, 340, 201)
GUISetState(@SW_SHOW)


While 1

$Msg = GUIGetMsg()
Switch $Msg
    Case $GUI_EVENT_CLOSE
        Exit
    Case $Radio1
        $yes = $yes+1    ; [color=#FF0000]décompte des 'oui'[/color]
        IniWrite("reponses.ini","reponses","oui",$yes)    ; [color=#FF0000]mise à jour du ini[/color]
        MsgBox(0,"Resultats",""&$yes&" ont répondu oui"& @CRLF& $no &" ont répondu non"&@CRLF& $idontknow &" ne savent pas")
        Exit
    Case $Radio2
        $no = $no+1
        IniWrite("reponses.ini","reponses","non",$no)
        MsgBox(0,"Resultats",""&$yes&" ont répondu oui"& @CRLF& $no &" ont répondu non"&@CRLF& $idontknow &" ne savent pas")
        Exit
    Case $Radio3
        $idontknow = $idontknow+1
        IniWrite("reponses.ini","reponses","saispas",$idontknow)
        MsgBox(0,"Resultats",""&$yes&" ont répondu oui"& @CRLF& $no &" ont répondu non"&@CRLF& $idontknow &" ne savent pas")
        Exit
    Case $Button1
        $question2=Inputbox("Question","Veuillez écrire votre question.")
        IniWrite("reponses.ini","reponses","question",$question2)

;[color=#FF0000] là je sais pas trop ce que tu veux faire[/color]
;    $yes=InputBox("Réponses 1","Veuillez écrire la réponse n°1.")
;    IniWrite("reponses.ini","reponses","rep1",$yes)
 ;   $no=InputBox("Réponses 2","Veuillez écrire la réponse n°2.")
;    IniWrite("reponses.ini","reponses","rep2",$no)
 ;   $idontknow=InputBox("Réponses 3","Veuillez écrire la réponse n°3.")
 ;   IniWrite("reponses.ini","reponses","rep3",$idontknow)
EndSwitch

WEnd
 

[Justyce]

; là je sais pas trop ce que tu veux faire

En fait je voulais que l'utilisateur puisse creer sa question et ses 3 réponses...

[TT22]

Avec ce script, tu peux choisir ta question et tes réponses :

► Afficher le texte

Code : Tout sélectionner

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

_debut();Entre dans la fonction _debut()
Func _debut()
;Opt("GUIOnEventMode", 1)     ; <== si tu mets ça, $Msg = GUIGetMsg() ne marche pas

; initialise les variables
$rep1=IniRead("reponses.ini","reponses","rep1","")
$rep2=IniRead("reponses.ini","reponses","rep2","")
$rep3=IniRead("reponses.ini","reponses","rep3","")
$yes=IniRead("reponses.ini","reponses","oui","0")  ; si trouve pas la clé 'oui' , alors $yes=0
$no=IniRead("reponses.ini","reponses","non","0")
$idontknow=IniRead("reponses.ini","reponses","saispas","0")
$question=IniRead("reponses.ini","reponses","question","")


$Form1 = GUICreate("Form1", 598, 438, 192, 164)
$Button1 = GUICtrlCreateButton("Creer sa question", 0, 344, 177, 97)
$Pic1 = GUICtrlCreatePic("C:\Users\Théo et Alex\Pictures\Profil\avatar justyce.jpg", 0, 0, 193, 185)
$Group1 = GUICtrlCreateGroup("Réponses", 256, 224, 337, 209)
$Radio1 = GUICtrlCreateRadio($rep1, 288, 256, 289, 33)
$Radio2 = GUICtrlCreateRadio($rep2, 288, 296, 289, 65)
$Radio3 = GUICtrlCreateRadio($rep3, 288, 368, 289, 49)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel($question, 256, 0, 340, 201)
GUISetState(@SW_SHOW)


While 1

$Msg = GUIGetMsg()
Switch $Msg
    Case $GUI_EVENT_CLOSE
        Exit
    Case $Radio1
        $yes = $yes+1    ; décompte des 'oui'
        IniWrite("reponses.ini","reponses","oui",$yes)    ; mise à jour du ini
        MsgBox(0,"Resultats",""&$yes&" ont répondu :"&$rep1& @CRLF& $no &" ont répondu :"&$rep2&@CRLF& $idontknow &" ont répondu :"&$rep3)
        Exit
    Case $Radio2
        $no = $no+1
        IniWrite("reponses.ini","reponses","non",$no)
      MsgBox(0,"Resultats",""&$yes&" ont répondu :"&$rep1& @CRLF& $no &" ont répondu :"&$rep2&@CRLF& $idontknow &" ont répondu :"&$rep3)
        Exit
    Case $Radio3
        $idontknow = $idontknow+1
        IniWrite("reponses.ini","reponses","saispas",$idontknow)
        MsgBox(0,"Resultats",""&$yes&" ont répondu :"&$rep1& @CRLF& $no &" ont répondu :"&$rep2&@CRLF& $idontknow &" ont répondu :"&$rep3)
        Exit
    Case $Button1
        $question2=Inputbox("Question","Veuillez écrire votre question.")
        IniWrite("reponses.ini","reponses","question",$question2)

; là je sais pas trop ce que tu veux faire
$yes=InputBox("Réponses 1","Veuillez écrire la réponse n°1.")
    IniWrite("reponses.ini","reponses","rep1",$yes)
    $no=InputBox("Réponses 2","Veuillez écrire la réponse n°2.")
    IniWrite("reponses.ini","reponses","rep2",$no)
    $idontknow=InputBox("Réponses 3","Veuillez écrire la réponse n°3.")
    IniWrite("reponses.ini","reponses","rep3",$idontknow)
    GUIDelete($Form1);Supprime ta GUI
    _debut();retourne à la fonction début
EndSwitch

WEnd

EndFunc

Edit : Dans ton ini, la clé oui correspond au nombre de réponses à la question 1,
la clé non correspond au nombre de réponses à la question 2,
et la clé saispas correspond au nombre de réponses à la question 3.

[mikell]

Pourquoi ne pas rajouter une section (ou plusieurs) à ton fichier ini ?

Code : Tout sélectionner

[reponses]
oui= ...
non= ...
saispas= ...

[perso]
rep1= ...
rep2= ...
rep3= ...

[TT22]

Parce que j'ai repris ce qui existait déjà ( cf : ta signature )
mais sinon, ça doit donner quelque chose comme ça :

► Afficher le texte

Code : Tout sélectionner

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

_debut();Entre dans la fonction _debut()
Func _debut()
;Opt("GUIOnEventMode", 1)     ; <== si tu mets ça, $Msg = GUIGetMsg() ne marche pas

; initialise les variables
$rep1=IniRead("reponses.ini","question","rep1","")
$rep2=IniRead("reponses.ini","question","rep2","")
$rep3=IniRead("reponses.ini","question","rep3","")
$yes=IniRead("reponses.ini","reponses","1","0")  ; si trouve pas la clé 'oui' , alors $yes=0
$no=IniRead("reponses.ini","reponses","2","0")
$idontknow=IniRead("reponses.ini","reponses","3","0")
$question=IniRead("reponses.ini","question","question","")


$Form1 = GUICreate("Form1", 400, 300)
$Button1 = GUICtrlCreateButton("Creer sa question", 10, 240, 100, 50)
$Pic1 = GUICtrlCreatePic("C:\Users\Théo et Alex\Pictures\Profil\avatar justyce.jpg", 0, 0, 193, 185)
$Group1 = GUICtrlCreateGroup("Réponses", 110, 30, 200, 209)
$Radio1 = GUICtrlCreateRadio($rep1, 150, 56, 150, 20)
$Radio2 = GUICtrlCreateRadio($rep2, 150, 112, 150, 20)
$Radio3 = GUICtrlCreateRadio($rep3, 150, 168, 150, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel($question, 0, 0,400 ,20,$SS_CENTER);$SS_CENTER permet de centrer le texxte
GUICtrlSetFont($label1,10,9000,-1,"Segoe UI",-1);Ecrit ta question en plus gros et en gras.

GUISetState(@SW_SHOW)

$exist = FileExists("reponses.ini"); Vérifie si le fichier ini éxiste.
If $exist = 0 Then; Si il n'éxiste pas alors... >----------->-----------|
     $question2=Inputbox("Question","Veuillez écrire votre question."); |--> ...il le crée.
        IniWrite("reponses.ini","question","question",$question2)
$yes=InputBox("Réponses 1","Veuillez écrire la réponse n°1.")
    IniWrite("reponses.ini","question","rep1",$yes)
    $no=InputBox("Réponses 2","Veuillez écrire la réponse n°2.")
    IniWrite("reponses.ini","question","rep2",$no)
    $idontknow=InputBox("Réponses 3","Veuillez écrire la réponse n°3.")
    IniWrite("reponses.ini","question","rep3",$idontknow)
    IniWrite("reponses.ini","reponses","1","0")
    IniWrite("reponses.ini","reponses","2","0")
    IniWrite("reponses.ini","reponses","3","0")
    GUIDelete($Form1);Supprime ta GUI
    _debut();retourne à la fonction début
EndIf

While 1

$Msg = GUIGetMsg()
Switch $Msg
    Case $GUI_EVENT_CLOSE
        Exit
    Case $Radio1
        $yes = $yes+1    ; décompte des 'oui'
        IniWrite("reponses.ini","reponses","1",$yes)    ; mise à jour du ini
        MsgBox(0,"Resultats",""&$yes&" ont répondu :"&$rep1& @CRLF& $no &" ont répondu :"&$rep2&@CRLF& $idontknow &" ont répondu :"&$rep3)
        Exit
    Case $Radio2
        $no = $no+1
        IniWrite("reponses.ini","reponses","2",$no)
      MsgBox(0,"Resultats",""&$yes&" ont répondu :"&$rep1& @CRLF& $no &" ont répondu :"&$rep2&@CRLF& $idontknow &" ont répondu :"&$rep3)
        Exit
    Case $Radio3
        $idontknow = $idontknow+1
        IniWrite("reponses.ini","reponses","3",$idontknow)
        MsgBox(0,"Resultats",""&$yes&" ont répondu :"&$rep1& @CRLF& $no &" ont répondu :"&$rep2&@CRLF& $idontknow &" ont répondu :"&$rep3)
        Exit
    Case $Button1
        $question2=Inputbox("Question","Veuillez écrire votre question.")
        IniWrite("reponses.ini","question","question",$question2)


$yes=InputBox("Réponses 1","Veuillez écrire la réponse n°1.")
    IniWrite("reponses.ini","question","rep1",$yes)
    $no=InputBox("Réponses 2","Veuillez écrire la réponse n°2.")
    IniWrite("reponses.ini","question","rep2",$no)
    $idontknow=InputBox("Réponses 3","Veuillez écrire la réponse n°3.")
    IniWrite("reponses.ini","question","rep3",$idontknow)
    IniWrite("reponses.ini","reponses","1","0")
    IniWrite("reponses.ini","reponses","2","0")
    IniWrite("reponses.ini","reponses","3","0")
    GUIDelete($Form1);Supprime ta GUI
    _debut();retourne à la fonction début
EndSwitch

WEnd

EndFunc

Et le fichier ini ressemblera à ça :

► Afficher le texte

[question]
question=Question ?
rep1=réponse 1
rep2=réponse 2
rep3=réponse 3
[reponses]
1=0
2=0
3=0