Discussion: [Jeux] Vrai ou faux

  1. #1
    Membre à l'essai
    Homme Profil pro
    UTBM
    Inscrit en
    décembre 2017
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : UTBM

    Informations forums :
    Inscription : décembre 2017
    Messages : 13
    Points : 13
    Points
    13

    Par défaut [Jeux] Vrai ou faux

    Salut,

    Après le pendu, j'ai eu envie de refaire un p'tit jeux, donc j'ai fais le vrai ou faux. je vous le partage pour ce que ça intéresse.
    Comme d'hab faites, attention au chemin des images/fichiers txt. Changez les selon ce qui vous bottes.
    Je les mets en pièces jointes.

    Je précise que la base de données des questions n'est pas de moi, et qu'elle est en anglais (je n'en ai pas trouvé en français -_(-_-)_- )

    Bonne journée et bon WE.
    Yannick

    PS: Je l'ai fais vraiment à l'arrache donc me juger pas xD.
    (d'une voix tremblotante)
    "je suis pas venu ici pour souffrir OK ?"

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    151
    152
    153
    154
    155
    156
    157
    158
    159
    160
    161
    162
    163
    164
    165
    166
    167
    168
    169
    170
    171
    172
    173
    174
    175
    176
    177
    178
    179
    180
    181
    182
    183
    184
    185
    186
    187
    188
    189
    190
    191
    192
    193
    194
    195
    196
    197
    198
    199
    200
    201
    202
    203
    204
    205
    206
    207
    208
    209
    210
    211
    212
    213
    214
    215
    216
    217
    218
    219
    220
    221
    222
    223
    224
     
    function qcm()
        global ('localization')
      global ('question_txt','vie','cur_score','score','img_coeur','img_coeur2','img_coeur3',"alea","user_ans","quest","answe")
        if vie ~=0 then
            n=getdate("s");
    rand("seed",n);
    alea=round(rand(1,"uni")*199)
    question_txt.String = quest(alea);
    else
     
       affiche_score()
        end
    endfunction
    function  affiche_score()
            global ('localization')
        global cur_score
        score_interface = figure("menubar_visible", "on", "toolbar_visible", "on", "infobar_visible", "on", "dockable", "off", "default_axes","off", "visible", "on");
    score_interface.visible="on"
    score_interface.auto_resize='on'
    score_interface.figure_size=[800,600]
    score_interface.Name="Score"
    clear nom
    clear score
    clear nu
    clear tabl
    clear entry
    entry=mgetl(localization+"\Scilab\scilab-6.0.0\score.txt")
    j=1
    for i=3:2:size(entry,1)
        nom(j)=entry(i)
        score(j)=entry(i+1)
        j=j+1
    end
     
    //trier les scores
    [score,k]=gsort(score,'r','d')
    tabl(1)=[' ']
    n=2
    nu(1)='0'
    for m=1:size(k,1)
        nu(m+1)=string(m)
       tabl(n)=nom(k(m))+' '+score(m)
       n=n+1
    end
    tabl=[nu,tabl]
     
    score_txt=uicontrol(score_interface,"style","table");
    score_txt.Units="normalized";
    score_txt.Position = [0.05 0.05 0.95 0.95];
    score_txt.String = tabl
    score_txt.BackgroundColor = [0.8,0.8,0.8];
      btn=messagebox("Voulez vous enregistrez votre score? ", "modal", "info", ["Oui" "Non"])
    if btn==1
        joueur=x_mdialog('Nom du joueur : ','Nom : ','Default')
        entry($+1)=joueur
        entry($+1)=string(cur_score)
        mputl(entry,localization+"score.txt")
        maj_score
    end
     
    endfunction
    function maj_score()
            global ('localization')
        entry=mgetl(localization+"\Scilab\scilab-6.0.0\score.txt")
    j=1
    for i=3:2:size(entry,1)
        nom(j)=entry(i)
        score(j)=entry(i+1)
        j=j+1
    end
     
    //trier les scores
    [score,k]=gsort(score,'r','d')
    tabl(1)=[' ']
    n=2
    nu(1)='0'
    for m=1:size(k,1)
        nu(m+1)=string(m)
       tabl(n)=nom(k(m))+' '+score(m)
       n=n+1
    end
    tabl=[nu,tabl]
     
    score_txt=uicontrol(score_interface,"style","table");
    score_txt.Units="normalized";
    score_txt.Position = [0.05 0.05 0.95 0.95];
    score_txt.String = tabl
    score_txt.BackgroundColor = [0.8,0.8,0.8];
        endfunction
    function check_ans()
      global ('question_txt','vie','cur_score','score','img_coeur','img_coeur2','img_coeur3',"alea","user_ans","quest","answe")
          clear correct_ans
          correct_ans=0
          correct_ans=grep(answe(alea),"True")
          if correct_ans==[] then
              correct_ans=0
          end
          if correct_ans==1 && user_ans == 1
              gagner()
          elseif correct_ans==0 && user_ans == 1
              perdu()
          elseif correct_ans==1 && user_ans == 0
              perdu()
          elseif correct_ans==0 && user_ans == 0
              gagner
     
                end
     
    endfunction
     
    function yes()
      global ('question_txt','vie','cur_score','score','img_coeur','img_coeur2','img_coeur3',"alea","user_ans","quest","answe")
        user_ans=1
        check_ans
    endfunction
     
    function no()
          global ('question_txt','vie','cur_score','score','img_coeur','img_coeur2','img_coeur3',"alea","user_ans","quest","answe")
        user_ans=0
        check_ans
    endfunction
     
    function perdu()
         global ('question_txt','vie','cur_score','score','img_coeur','img_coeur2','img_coeur3',"alea","user_ans","quest","answe")
     
         switch vie
         case 1
             img_coeur.String = localization+"\Scilab\Image\coeur_cide.jpg"
         case 2
             img_coeur2.String = localization+"\Scilab\Image\coeur_cide.jpg"
         case 3
             img_coeur3.String = localization+"\Scilab\Image\coeur_cide.jpg"
     
         end
         vie=vie-1
         qcm
     
    endfunction
     
    function gagner()
      global ('question_txt','vie','cur_score','score','img_coeur','img_coeur2','img_coeur3',"alea","user_ans","quest","answe")
     
     
        cur_score=cur_score+1000
        score.String = string(cur_score)
        qcm
    endfunction
    function q_a(localization)
     
      global ('question_txt','vie','cur_score','score','img_coeur','img_coeur2','img_coeur3',"alea","user_ans","quest","answe")
     
    q=mgetl(localization+"\Scilab\scilab-6.0.0\question.txt")
     
    quest_pos=find(part(q,1:8)=='question')
    answe_pos=find(part(q,1:14)=='correct_answer')
    s=size(quest_pos,2)
    for i =1:s
    quest(i)=q(quest_pos(i))
    answe(i)=q(answe_pos(i))
    end
    n=getdate("s");
    rand("seed",n);
    alea=round(rand(1,"uni")*199)
    vie=3;
    cur_score=0;
     
    question_interface = figure("menubar_visible", "on", "toolbar_visible", "on", "infobar_visible", "on", "dockable", "off", "default_axes","off", "visible", "on");
    question_interface.visible="on"
    question_interface.auto_resize='on'
    question_interface.figure_size=[800,600]
    question_interface.Name="Question_reponse"
     
    question_txt=uicontrol(question_interface,"style","text");
    question_txt.Units="normalized";
    question_txt.Position = [0.05 0.8 0.95 0.2];
    question_txt.String = "question"
    question_txt.BackgroundColor = [0.8,0.8,0.8];
     
    score=uicontrol(question_interface,"style","text");
    score.Units="normalized";
    score.Position = [0.8 0.5 0.1 0.1];
    score.String = string(cur_score)
    score.BackgroundColor = [0.8,0.8,0.8];
     
    pb_yes=uicontrol(question_interface,"style","pushbutton");
    pb_yes.Units="normalized";
    pb_yes.Position = [0.3 0.2 0.15 0.1];
    pb_yes.String = "Yes"
    pb_yes.BackgroundColor = [0.8,0.8,0.8];
    pb_yes.relief="raised";
    pb_yes.Callback="yes";
     
     
    pb_no=uicontrol(question_interface,"style","pushbutton");
    pb_no.Units="normalized";
    pb_no.relief="raised";
    pb_no.Position = [0.5 0.2 0.15 0.1];
    pb_no.String = "No"
    pb_no.BackgroundColor = [0.8,0.8,0.8];
    pb_no.Callback="no";
     
    img_coeur=uicontrol(question_interface,"style","image");
    img_coeur.Units="normalized";
    img_coeur.relief="raised";
    img_coeur.Position = [0.25 0.5 0.08 0.1];
    img_coeur.String = localization+"\Scilab\Image\coeur.jpg"
    img_coeur.BackgroundColor = [0.8,0.8,0.8];
     
    img_coeur2=uicontrol(question_interface,"style","image");
    img_coeur2.Units="normalized";
    img_coeur2.relief="raised";
    img_coeur2.Position =[0.41 0.5 0.08 0.1];
    img_coeur2.String = localization+"\Scilab\Image\coeur.jpg"
    img_coeur2.BackgroundColor = [0.8,0.8,0.8];
     
    img_coeur3=uicontrol(question_interface,"style","image");
    img_coeur3.Units="normalized";
    img_coeur3.relief="raised";
    img_coeur3.Position = [0.56 0.5 0.08 0.1];
    img_coeur3.String = localization+"\Scilab\Image\coeur.jpg"
    img_coeur3.BackgroundColor = [0.8,0.8,0.8];
    qcm
    endfunction
    Images attachées Images attachées   
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. Cube microsoft : vrai ou faux cube OLAP ?
    Par SPincemail dans le forum SSAS
    Réponses: 5
    Dernier message: 28/11/2008, 19h34
  2. select qui renvoie vrai ou faux
    Par tortuegenie dans le forum Langage SQL
    Réponses: 6
    Dernier message: 18/03/2008, 16h00
  3. texte existe vrai sinon faux
    Par dadouna dans le forum Macros et VBA Excel
    Réponses: 14
    Dernier message: 05/03/2008, 01h18
  4. [Debutant] Sockets: le schéma est-il vrai ou faux?
    Par fantomasmusic dans le forum IO
    Réponses: 11
    Dernier message: 14/07/2007, 13h50
  5. Champ ni VRAI ni FAUX... ?
    Par friiitz dans le forum IHM
    Réponses: 5
    Dernier message: 28/04/2007, 16h43

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo