[R] Une sorte de Quiz

[EricG]

Bonjour,

J'ai réussi un bon script hier (encore malpropre mais bon), alors, aujourd'hui, je commence un autre qui suit une idée qui me prend la tête.

Je n'arrive pas encore tout à fait avec la création d'interface. Il me faut juste un squelette.

Mon désir est de faire un Quiz sous la forme d'une simple boîte, avec une image associée à une question, un input pour la réponse et un bouton Suivant pour refaire cette boîte avec une autre question/image.

La réponse est une simple lettre ; c'est pour mémoriser le clavier ; les images seront un groupe de touches dont l'une est «lettrée» et la question sera du genre : «quelle est la touche du dessous/dessus/gauche/droite ?». La question en toutes lettres peut paraître inutile mais ça m'évitera de faire un gros paquet d'images, à moins de placer un signe dessus.

Alors, je sais, ça à l'air un peu con comme programme mais j'aimerai comprendre des scripts de base, en rapport avec des idées simples.

La touche Suivant peut se transformer en Quitter au bout d'un moment, pour limiter et scorer tout ça. Enfin, bon, je veux juste un squelette pour démarrer. J'ai pas mal cherché et je suis plutôt un visuel.

[EricG]

Bonjour à tous,

Bon, mon projet est devenu un jeu de question/réponse, Quizz (oui, je sais, deux «z»), avec un fichier txt extérieur pour écrire ses questions et les bonnes réponses, et une éventuelle image qu'il suffira de mettre dans le même dossier. Voici, le script (il y a une astuce, je crois, pour coloriser... )

► Afficher le texte

Code : Tout sélectionner

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

$FrLn = 3 ; 1 ligne sur...

_Fichier()

Func _Fichier()
    $fichier = FileOpen("Quizz.txt", 0)
    If $fichier = -1 Then
        MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
        Exit
    Else
        _ComptNbrQ($fichier, $FrLn)
    EndIf
EndFunc

Func _ComptNbrQ($fichier, $FrLn)
    $c = 0
    While 1
        $c += 1
        FileReadLine ( $fichier, $c )
        If @error = -1 Then
            $c -= $FrLn
            $c /= $FrLn
            _Questions($fichier, $c)
        EndIf
    WEnd
EndFunc

Func _Questions($fichier, $c)
    $note = $c
    $fois = 1
    While $fois  < $c+1
        $alea = Random(1, $c, 1)
        $alea *= $FrLn
        FileReadLine($fichier,$alea)
        
        GUICreate("Quizz", 180, 165, -1, -1)
        GUICtrlCreateLabel("Question n°" & $fois & @CRLF & @CRLF & FileReadLine ($fichier,$alea) & @CRLF & @CRLF & $note & "/" & $c,10,10)
        $reponse = GUICtrlCreateInput("", 10, 90, 95, 20)
        $bouton = GUICtrlCreateButton("Envoyer", 10, 125, 75, 25, $BS_DEFPUSHBUTTON)
        GUISetState(@SW_SHOW)
        
        If FileReadLine ($fichier,$alea+2) <> "" Then
            GUICreate("Image", 180, 165, 0, 0)
            GUICtrlCreatePic ( FileReadLine ($fichier,$alea+2), 0, 0)
            GUISetState(@SW_SHOW)
            WinActivate ("Quizz")
        Endif
        
        While 1
            $msg = GUIGetMsg()
            Select
                Case $msg = $GUI_EVENT_CLOSE
                    Exit
                Case $msg = $bouton
                    If GUICtrlRead($reponse) = FileReadLine ($fichier,$alea+1) Then
                    Else
                        $note -= 1
                    EndIf
                    $fois += 1
                    ExitLoop 1
            EndSelect
        WEnd
        GUIDelete()
    WEnd
    FileClose($fichier)
    Msgbox(64, "Quizz", "Votre note est de " & $note & "/" & $c)
    Exit
EndFunc

Le fichier Quizz.txt, les retours à la ligne font que le script s'y retrouve, ressemblera à ça :

Code : Tout sélectionner

Quelle était le prénom de Staline ?
Joseph
staline.jpg
Quel était la nationalité de Kafka ?
Tchèque

Qui est l'auteur de «L'esprit des lois» ?
Montesquieu
 

Il faut laisser les deux lignes blanches du début et celles en cas d'absence d'image relative à la question. Tout cela est améliorable, évidemment, et je trouve d'ailleurs le principe de la réponse directe est un peu trop simple.

[tolf]

Merci de refaire un tour du côté de la présentation des messages : http://www.autoitscript.fr/forum/viewto ... f=35&t=595

Sinon, pour le quiz, vous pouvez utiliser la structure de fichiers ini :

Code : Tout sélectionner

[question_1]
Question=Quelle était le prénom de Staline ?
Reponse=Joseph
Image=staline.jpg
[question_2]
Question=Quel était la nationalité de Kafka ?
Reponse=Tchèque
[question_3]
Question=Qui est l'auteur de «L'esprit des lois» ?
Reponse=Montesquieu

Ensuite, utilisez la fonction IniRead pour lire le fichier et IniWrite pour le modifier.

[EricG]

Merci,

l'idée de poster du code m'est venue d'un coup, je n'ai donc pas pensé à m'informer sur le protocole.
L'utilisation d'un fichier ini est peut être plus simple, mais j'ai bien travaillé sur l'usage d'un fichier texte classique.
A vrai dire, j'ai démarré un autre projet sur le même thème parce que je voulais quelque chose de moins simpliste. Donc, a priori, plus de textes, et des combos pour que l'utilisateur n'ait pas à entrer des réponses lui-même. Ce qui n'est pas facile c'est de proposer un fichier extérieur facile à mettre à jour tout en le rendant digeste pour le script. Je dois le faire évoluer pour le rendre décent.

[tolf]

Ce qui n'est pas facile c'est de proposer un fichier extérieur facile à mettre à jour tout en le rendant digeste pour le script. Je dois le faire évoluer pour le rendre décent.

Un .ini s'impose donc. Vous pouvez créer un script pour transférer les données du .txt déjà créé vers le .ini.

[TaPuZ]

Allez... Je sais que le sujet est résolu, mais comme je vais certainement utiliser un principe similaire, j'ai essayé de faire un bout du code recherché.
Je m'en remets à vous pour savoir s'il y a plus simple, ou plus malin, ou moins gourmand, etc...

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
Local $Q, $R, $I, $note, $reponse, $idI, $idQ, $idR
Global $c=0 , $K=0 , $n=3; compteurs.... $c pour le choix, $K pour le nombre de questions et $n le nbre total
                                   ; de questions dans le fichier ini
_Questions()
Func _Questions()
        $c=Random(1, $n, 1); Choix aléatoires des questions
        $Q = IniRead(@WorkingDir & "\quizz.ini", "question_"&$c, "Question", "") ; Lit la question dans le fichier ini (sur staline de son prénom Joseph, tout ça...)
        $R = IniRead(@WorkingDir & "\quizz.ini", "question_"&$c, "Reponse", "") ;Lit la réponse dans l'ini
        $I = IniRead(@WorkingDir & "\quizz.ini", "question_"&$c, "Image", "") ;Lit l'imaqe (3eme ligne, qui reste vide, sinon)
        GUICreate("Quizz", 180, 165, -1, -1)
        GUICtrlCreateLabel("Question n°" & $c &" - " & @CRLF & $Q  & @CRLF & "Note : " & $note &"/" &$K,10,10) ; Affiche la question
        $idreponse = GUICtrlCreateInput("", 10, 90, 95, 20) ; demande la réponse
        $bouton = GUICtrlCreateButton("Envoyer", 10, 125, 75, 25, $BS_DEFPUSHBUTTON) ; définit le bouton
                GUISetState(@SW_SHOW)
        If $I <> "" Then ;s'il y a une image indiquée dans l'ini, l'affiche, sinon, non
            GUICreate("Image", 180, 165, 0, 0)
            GUICtrlCreatePic ( $I, 0, 0)
            GUISetState(@SW_SHOW)
            WinActivate ("Quizz")
        Endif
          While 1
            $msg = GUIGetMsg()
            Select
                Case $msg = $GUI_EVENT_CLOSE ; Si on ferme la fenetre, on sort de l'application
                    Exit
                Case $msg = $bouton ; si jamais on appuie sur le bouton envoyer
                    $reponse = GUICtrlRead($idreponse) ; on entre la valeur de l'input $idreponse dans la variable $reponse
                    verification ($R, $reponse) ; appel de la fonction verification
            EndSelect
        WEnd
        Exit
    Return
EndFunc

Func verification ($R, $reponse) ; fonction verification
    Select
        case $R = $reponse ; si la réponse donnée correspond à la réponse du fichier ini
            $note=$note+1 ; on incrémente la note
            $msg=MsgBox (0,"Gagné", "bravo") ; on dit ou la la bravo!
            $K=$K+1; incrementation du compteur de questions
                Select
                Case $msg = $GUI_EVENT_CLOSE ; Si on ferme la fenetre, on sort de l'application
                    Exit
                Case  $msg = 1; si jamais on appuie sur le bouton envoyer
                    GUIDelete()
                    _Questions()
                EndSelect
        Case $R <> $reponse ; si la réponse inputée n'est pas identique à celle de l'ini
            $K=$K+1; incrementation du compteur de questions
            $msg=MsgBox (0,"Perdu", "oops") ; inutile d'incrémenter la note, et on boo!
                Select
                Case $msg = $GUI_EVENT_CLOSE ; Si on ferme la fenetre, on sort de l'application
                    Exit
                Case $msg = 1 ; si jamais on appuie sur le bouton envoyer
                    GUIDelete()
                    _Questions()
            EndSelect
    EndSelect
Return
_Questions()
EndFunc
 

pour le fichier quizz.ini, j'ai repris celui de l'exemple

► Afficher le texte

Code : Tout sélectionner

[question_1]
Question=Quelle était le prénom de Staline ?
Reponse=Joseph
Image=staline.jpg
[question_2]
Question=Quel était la nationalité de Kafka ?
Reponse=Tchèque
[question_3]
Question=Qui est l'auteur de «L'esprit des lois» ?
Reponse=Montesquieu
 

J'attends vos critiques.

A bientôt

T@PµZ

[EricG]

Salut, cela servira aux internautes en tous cas, mais je voudrais savoir quel était votre projet personnel. Moi-même, j'ai changé un peu pour une version à texte à trous, parce que transmettre du savoir en dosettes, je n'y crois plus vraiment. J'ai un peu caler depuis.

[TaPuZ]

En réalité, quand je disais principe similaire, c'était dans l'utilisation des fonctions incriminées.
Pour m'entrainer, j'ai pensé à un script qui nous aide au boulot. En gros, il faut que l'utilisateur réponde à quelques questions, et les réponses sont sauvegardées sur son fichier ini personnalisé. Elles peuvent ensuite être comparées à une valeur référence issue du fichier reference.ini, et permettre ainsi une action appropriée de maintenance. Rien de folichon, mais je débute à peine. Et comme je devais plancher sur les questions/réponses, ainsi que les écritures/lectures de fichiers, je me suis entrainé sur cet exemple. Voilà tout.

[EricG]

Oui, effectivement, c'est tout autre chose.

Je vais peut être modifier le script pour inclure des déroulants. Ainsi, si l'utilisateur ne sait vraiment pas une réponse, il pourra toujours proposer quelque chose. Et puis, je pense même inclure plusieurs déroulants dans une question, qui serait plutôt un texte, pour faire mieux mémoriser.

Merci pour avoir illustrer ainsi la notion de fichier ini dans ce genre de script.

[TaPuZ]

Pour info, étant parti d'un principe similaire, toujours dans le but de m'entrainer, j'ai fait le même genre de code, mais avec des radios à checker, comme si on voulait faire un sondage, et totaliser le nombre de réponse dans chaque catégorie (le nombre de choix 1, le nombre de choix 2, ou le nombre de choix 3).

► Afficher le texte

Code : Tout sélectionner

#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>
Global $Choix1, $Choix2, $Choix3 ; Les variables Choix
Global $TotalChoix1 , $TotalChoix2, $TotalChoix3; Les variables TotlaChoix

 
; Je coupe les bouts de code inutile pour ne laisser que la fonction Questions
qstgpt ()
Func Qstgpt()
    Local $i, $gpt, $gg, $pp, $tt
    for $i= 1 to 4; si j'ai 4 questions
        $qgpt=IniRead(@WorkingDir &"\Qst.gpt","Rubrique","Question" & $i,"") ;Je lis chaque question
        $gg = IniRead(@WorkingDir &"\Qst.gpt","Rubrique","Choix " & $i &"-1","") ;d'une même rubrique
        $pp=IniRead(@WorkingDir &"\Qst.gpt","Rubrique","Choix " & $i &"-2","") ;ainsi que les réponses possibles
        $tt=IniRead(@WorkingDir &"\Qst.gpt","Rubrique","Choix " & $i &"-3","") ; et je les affecte a des variables
        $Form1 = GUICreate("Questionnaire", 1156, 445, 23, 124)
        $Oki = GUICtrlCreateButton(">>>Suivant", 648, 400, 100, 30, $BS_FLAT)
        $RAZ = GUICtrlCreateButton(">>>RAZ<<<", 432, 400, 100, 30, $BS_FLAT)
        $Label1 = GUICtrlCreateLabel($qgpt, 40, 16, 1076, 105)
        $Label2=GUICtrlCreateLabel(" Choix 1  :       " & $Choix1 & "       Choix 2  :   " & $Choix2 & "       Choix 3 : " & $Choix3, 40, 30)
        $RadioG = GUICtrlCreateRadio($gg, 40, 152, 1073, 57); Je cree ma fiche de réponse, en affichant mes radios
        $RadioP = GUICtrlCreateRadio($pp, 40, 216, 1073, 57)
        $RadioT = GUICtrlCreateRadio($tt, 40, 280, 1073, 65)
        GUISetState(@SW_SHOW)
        While 1
        $msg = GUIGetMsg()
        Select
            case $msg=$Oki ; Si on appuie sur la touche OK, on valide la réponse
                $msg = GUIGetMsg()
                If $radioG And BitAND(GUICtrlRead($radioG), $GUI_CHECKED) = $GUI_CHECKED Then
                    $Choix1=$Choix1+1 ; Si Choix1 est checkée
                    ExitLoop
                ElseIf $radioP And BitAND(GUICtrlRead($radioP), $GUI_CHECKED) = $GUI_CHECKED Then
                    $Choix2=$Choix2+1 ; Si choix 2 est checkée
                    ExitLoop
                ElseIf $radioT And BitAND(GUICtrlRead($radioT), $GUI_CHECKED) = $GUI_CHECKED Then
                    $Choix3=$Choix3+1 ; Si choix 3 est checkee
                    ExitLoop
                EndIf
            Case $msg = $GUI_EVENT_CLOSE ; Si on clique sur la croix, on ferme
                fin()
            case $msg= $RAZ ; Si on clique sur RAZ, on remet le compteur a zéro
                $TotalChoix1=0
                $TotalChoix2=0
                $TotalChoix3=0
                Qstgpt()
        EndSelect

    WEnd

    Next
    $TotalChoix1=$TotalChoix1+$Choix1 ; incremente TotalChoix1 de la valeur de Choix1
    $TotalChoix2=$TotalChoix2+$Choix2 ; idem pour 2
    $TotalChoix3=$TotalChoix3+$Choix3 ; idem pour 3
    $Choix1=0 ; on remet à zéro les compteurs de questions
    $Choix2=0
    $Choix3=0
    Moteur()
EndFunc
Func Fin()
    ; Lancement du splash screen.
    SplashTextOn("", "Fermeture 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 Moteur()
    ; Normalement c'est autre chose ici, mais pour l'exemple
    
    MsgBox (0, "Totaux", "       Choix 1 :  " & $TotalChoix1 &@CRLF &"       Choix 2 : " & $TotalChoix2 & @CRLF & "       Choix 3  :" & $TotalChoix3)
    fin()
Endfunc
 

Exemple à coller dans un fichier txt a renommer en Qst.gpt, dans le même répertoire que l'exemple du dessus

► Afficher le texte

Code : Tout sélectionner

[Rubrique]
Question1= question 1!
Choix 1-1= Choix 1 de la question 1
Choix 1-2= Choix 2 de la question 1
Choix 1-3= Choix 3 de la question 1
Question2= question 2!
Choix 2-1= Choix 1 de la question 2
Choix 2-2= Choix 2 de la question 2
Choix 2-3= Choix 3 de la question 2
Question3= question 3!
Choix 3-1= Choix 1 de la question 3
Choix 3-2= Choix 2 de la question 3
Choix 3-3= Choix 3 de la question 3
Question4= question 4!
Choix 4-1= Choix 1 de la question 4
Choix 4-2= Choix 2 de la question 4
Choix 4-3= Choix 3 de la question 4
 

Voilà. Si ça peut aider.

A bientôt.

T@PµZ.

[flotos]

Moi j'ai créé un quizz, et j'ai fait que "si il y a écrit niveau 2", alors sa lance enigme2.exe qui contient l'énigme 2 et la suite.

Exemple :

Code : Tout sélectionner

Local $bLoop = 1, $text, $niveau1, $user = @UserName, $domaine=@LogonDomain, $fichier="c:\windows\notepad.exe", $fichierini
if FileExists(@scriptdir&"\"&$fichierini&".ini") Then
    $user =IniRead ( @scriptdir&"\"&$fichierini&".ini", "execution en mode administrateur", "user","" )
    $domaine =IniRead ( @scriptdir&"\"&$fichierini&".ini", "execution en mode administrateur", "domaine" ,"")
    $fichier =IniRead ( @scriptdir&"\"&$fichierini&".ini", "execution en mode administrateur", "fichier" ,"")
    $fichier =IniRead ( @scriptdir&"\"&$fichierini&".ini", "execution en mode administrateur", "Niveau 2" ,"")
    Run('C:\Enigme\Enigma2.exe')
Else
if FileExists(@scriptdir&"\"&$fichierini&".ini") Then
    $user =IniRead ( @scriptdir&"\"&$fichierini&".ini", "execution en mode administrateur", "user","" )
    $domaine =IniRead ( @scriptdir&"\"&$fichierini&".ini", "execution en mode administrateur", "domaine" ,"")
    $fichier =IniRead ( @scriptdir&"\"&$fichierini&".ini", "execution en mode administrateur", "fichier" ,"")
    $fichier =IniRead ( @scriptdir&"\"&$fichierini&".ini", "execution en mode administrateur", "Niveau 3" ,"")
    Run('C:\Enigme\Enigma3.exe')
Else
if FileExists(@scriptdir&"\"&$fichierini&".ini") Then
    $user =IniRead ( @scriptdir&"\"&$fichierini&".ini", "execution en mode administrateur", "user","" )
    $domaine =IniRead ( @scriptdir&"\"&$fichierini&".ini", "execution en mode administrateur", "domaine" ,"")
    $fichier =IniRead ( @scriptdir&"\"&$fichierini&".ini", "execution en mode administrateur", "fichier" ,"")
    $fichier =IniRead ( @scriptdir&"\"&$fichierini&".ini", "execution en mode administrateur", "Niveau 4" ,"")
    Run('C:\Enigme\Enigma4.exe')
Else
if FileExists(@scriptdir&"\"&$fichierini&".ini") Then
    $user =IniRead ( @scriptdir&"\"&$fichierini&".ini", "execution en mode administrateur", "user","" )
    $domaine =IniRead ( @scriptdir&"\"&$fichierini&".ini", "execution en mode administrateur", "domaine" ,"")
    $fichier =IniRead ( @scriptdir&"\"&$fichierini&".ini", "execution en mode administrateur", "fichier" ,"")
    $fichier =IniRead ( @scriptdir&"\"&$fichierini&".ini", "execution en mode administrateur", "Niveau 5" ,"")
    Run('C:\Enigme\Enigma5.exe')
endif

[TaPuZ]

Je persiste dans mon exemple , même si je trouve le votre intéressant. C'est juste pour essayer de lier les deux, sans avoir à lancer plusieurs exe.
Pourquoi ne pas sauvegarder le niveau dans le log du joueur, et/ou permettre au joueur de choisir son niveau, et auquel cas, il suffit de piocher dans le fichier Qst.gpt, les questions de la rubrique correspondante.

Il suffirait alors de l'organiser ainsi :

Code : Tout sélectionner

[Niveau] ; rubrique niveau
2 ; niveau sauvegardé du joueur
[Score] ; rubrique score du joueur
218 ; score du joueur
[Niveau1] ; rubrique des questions du niveau 1
Question1 = question 1
reponse1 = réponse 1
Question2= question 2
Reponse2 = réponse 2
Questionn = question n
Reponsen = réponse n
[Niveau2]
etc...
 

C'est une idée comme une autre, non?