Quiz vbs
Répondre à la discussion
Affichage des résultats 1 à 6 sur 6

Quiz vbs



  1. #1
    gael666666

    Quiz vbs


    ------

    Boujours, je construit un quiz en vbs pour le plaisir. Le problème c'est que je ne sais pas pourquoi certaines questions ne s'affichent pas. Si quelqun pourrait m'aider, merci d'avance!! Le script est en pièce jointe

    -----
    Fichiers attachés Fichiers attachés

  2. #2
    Optimix

    Re : Quiz vbs

    J'ai l'impression, à la lecture des items de votre Q (cm ou uizz) que vous vous êtes trompé de cour de récréation. Je laisse à la modération le soin d'en juger.

  3. #3
    JPL
    Responsable des forums

    Re : Quiz vbs

    S'agissant d'une question de programmation on n'a pas à juger le contenu. Par contre je demande à gael666666 de poster son code directement dans le message suivant en utilisant la balise Code (# dans la barre d'outils du mode avancé).
    Rien ne sert de penser, il faut réfléchir avant - Pierre Dac

  4. #4
    gael666666

    Re : Quiz vbs

    Code:
    open=MsgBox ("Créer en 2014, ce test te posera des questions simples puis cumulera tes réponses données pour en faire un rapport qui déterminera ensuite de quel genre tu est.  Clique sur ok pour continuer",VBok,"Clique sur ok pour continuer")
    
    if open=VBOk then start=msgbox ("Si quelqun te pousse, vas-tu le pousser plus fort",VBYesNo,"Frapper?")
    
    if start=VBYes then a=msgbox ("Est-ce que tu trouve que la boxe est un sport amusant à regarder?",VBYesNo,"Boxe?")
    Rem //5
    if start=VBNo then b=msgbox ("Est-ce que tu trouve que la boxe est un sport amusant à regarder?",VBYesNo,"Boxe?")
    Rem //-5
    
    
    if a=VBYes then c=msgbox ("As-tu souvent des pensées idiotes?",VBYesNo,"Pensées cochones?")
    Rem //5
    if a=VBNo then d=msgbox ("As-tu souvent des pensées idiotes?",VBYesNo,"Pensées cochones?")
    Rem //-5
    
    if b=VBYes then e=msgbox ("As-tu souvent des pensées idiotes?",VBYesNo,"Pensées cochones?")
    Rem //5
    if b=VBNo then f=msgbox ("As-tu souvent des pensées idiotes?",VBYesNo,"Pensées cochones?")
    Rem //-5
    
    
    if c=VBYes then m=msgbox ("Quand tu as peur, lâche-tu un cris?",VBYesNo,"Bouh!!!")
    Rem //5
    if c=VBNo then n=msgbox ("Quand tu as peur, lâche-tu un cris?",VBYesNo,"Bouh!!!")
    Rem //-5
    
    if d=VBYes then o=msgbox ("Quand tu as peur, lâche-tu un cris?",VBYesNo,"Bouh!!!")
    Rem //5
    if d=VBNo then p=msgbox ("Quand tu as peur, lâche-tu un cris?",VBYesNo,"Bouh!!!")
    Rem //-5
    
    if e=VBYes then q=msgbox ("Quand tu as peur, lâche-tu un cris?",VBYesNo,"Bouh!!!")
    Rem //5
    if e=VBNo then r=msgbox ("Quand tu as peur, lâche-tu un cris?",VBYesNo,"Bouh!!!")
    Rem //-5
    
    if f=VBYes then s=msgbox ("Quand tu as peur, lâche-tu un cris?",VBYesNo,"Bouh!!!")
    Rem //5
    if f=VBNo then t=msgbox ("Quand tu as peur, lâche-tu un cris?",VBYesNo,"Bouh!!!")
    Rem //-5
    
    
    if m=VBYes then u=inputbox ("Quel passe-temps préfère tu? (Choisi la lettre coorespondant à ta réponse)  a=danse  b=dessin")  
    Rem //-5
    if m=VBNo then v=inputbox ("Quel passe-temps préfère tu? (Choisi la lettre coorespondant à ta réponse)  a=danse  b=dessin") 
    Rem //5
    
    if n=VBYes then w=inputbox ("Quel passe-temps préfère tu? (Choisi la lettre coorespondant à ta réponse)  a=danse  b=dessin")   
    Rem //-5
    if n=VBNo then x=inputbox ("Quel passe-temps préfère tu? (Choisi la lettre coorespondant à ta réponse)  a=danse  b=dessin")    
    Rem //5
    
    if o=VBYes then y=inputbox ("Quel passe-temps préfère tu? (Choisi la lettre coorespondant à ta réponse)  a=danse  b=dessin")   
    Rem //-5
    if o=VBNo then z=inputbox ("Quel passe-temps préfère tu? (Choisi la lettre coorespondant à ta réponse)  a=danse  b=dessin") 
    Rem //5
    
    if p=VBYes then aa=inputbox ("Quel passe-temps préfère tu? (Choisi la lettre coorespondant à ta réponse)  a=danse  b=dessin")   
    Rem //-5
    if p=VBNo then bb=inputbox ("Quel passe-temps préfère tu? (Choisi la lettre coorespondant à ta réponse)  a=danse  b=dessin")   
    Rem //5
    
    if q=VBYes then cc=inputbox ("Quel passe-temps préfère tu? (Choisi la lettre coorespondant à ta réponse)  a=danse  b=dessin")   
    Rem //-5
    if q=VBNo then dd=inputbox ("Quel passe-temps préfère tu? (Choisi la lettre coorespondant à ta réponse)  a=danse  b=dessin") 
    Rem //5
    
    if r=VBYes then ee=inputbox ("Quel passe-temps préfère tu? (Choisi la lettre coorespondant à ta réponse)  a=danse  b=dessin") 
    Rem //-5
    if r=VBNo then ff=inputbox ("Quel passe-temps préfère tu? (Choisi la lettre coorespondant à ta réponse)  a=danse  b=dessin") 
    Rem //5
    
    if s=VBYes then gg=inputbox ("Quel passe-temps préfère tu? (Choisi la lettre coorespondant à ta réponse)  a=danse  b=dessin")   
    Rem //-5
    if s=VBNo then hh=inputbox ("Quel passe-temps préfère tu? (Choisi la lettre coorespondant à ta réponse)  a=danse  b=dessin") 
    Rem //5
    
    if t=VBYes then ii=inputbox ("Quel passe-temps préfère tu? (Choisi la lettre coorespondant à ta réponse)  a=danse  b=dessin") 
    Rem //-5
    if t=VBNo then jj=inputbox ("Quel passe-temps préfère tu? (Choisi la lettre coorespondant à ta réponse)  a=danse  b=dessin") 
    Rem //5
    
    
    if u= "a" then kk=msgbox ("Aime-tu Black ops 2?",VBYesNo,"Black ops 2?")
    Rem //-5
    if v= "b" then ll=msgbox ("Aime-tu Black ops 2?",VBYesNo,"Black ops 2?")
    Rem //5
    
    if w= "a" then mm=msgbox ("Aime-tu Black ops 2?",VBYesNo,"Black ops 2?")
    Rem //-5
    if x= "b" then nn=msgbox ("Aime-tu Black ops 2?",VBYesNo,"Black ops 2?")
    Rem //5
    
    if y= "a" then oo=msgbox ("Aime-tu Black ops 2?",VBYesNo,"Black ops 2?")
    Rem //-5
    if z= "b" then pp=msgbox ("Aime-tu Black ops 2?",VBYesNo,"Black ops 2?")
    Rem //5
    
    if aa= "a" then qq=msgbox ("Aime-tu Black ops 2?",VBYesNo,"Black ops 2?")
    Rem //-5
    if bb= "b" then rr=msgbox ("Aime-tu Black ops 2?",VBYesNo,"Black ops 2?")
    Rem //5
    
    if cc= "a" then ss=msgbox ("Aime-tu Black ops 2?",VBYesNo,"Black ops 2?")
    Rem //-5
    if dd= "b" then tt=msgbox ("Aime-tu Black ops 2?",VBYesNo,"Black ops 2?")
    Rem //5
    
    if ee= "a" then uu=msgbox ("Aime-tu Black ops 2?",VBYesNo,"Black ops 2?")
    Rem //-5
    if ff= "b" then vv=msgbox ("Aime-tu Black ops 2?",VBYesNo,"Black ops 2?")
    Rem //5
    
    if gg= "a" then ww=msgbox ("Aime-tu Black ops 2?",VBYesNo,"Black ops 2?")
    Rem //-5
    if hh= "b" then xx=msgbox ("Aime-tu Black ops 2?",VBYesNo,"Black ops 2?")
    Rem //5
    
    if ii= "a" then yy=msgbox ("Aime-tu Black ops 2?",VBYesNo,"Black ops 2?")
    Rem //-5
    if jj= "b" then zz=msgbox ("Aime-tu Black ops 2?",VBYesNo,"Black ops 2?")
    Rem //5
    
    
    if kk=VBYes then aaa=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //5
    if kk=VBNo then bbb=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //-5
    
    if ll=VBYes then ccc=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //5
    if ll=VBNo then ddd=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //-5
    
    if mm=VBYes then eee=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //5
    if mm=VBNo then fff=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //-5
    
    if nn=VBYes then ggg=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //5
    if nn=VBNo then hhh=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //-5
    
    if oo=VBYes then iii=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //5
    if pp=VBNo then jjj=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //-5
    
    if qq=VBYes then kkk=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //5
    if rr=VBNo then lll=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //-5
    
    if ss=VBYes then mmm=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //5
    if tt=VBNo then nnn=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //-5
    
    if uu=VBYes then ooo=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //5
    if vv=VBNo then ppp=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //-5
    
    if ww=VBYes then qqq=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //5
    if xx=VBNo then rrr=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //-5
    
    if yy=VBYes then sss=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //5
    if zz=VBNo then ttt=inputbox ("Quel est ta matière préféré?  (Choisi la lettre coorespondant à ta réponse)  a=Éducation physique  b=Français")
    Rem //-5

  5. A voir en vidéo sur Futura
  6. #5
    gael666666

    Re : Quiz vbs

    C'est car je programme le quiz en langage vbs et j'ai besoin d'aide car je ne sais pas pourquoi certaines questions ne veulent pas s'afficher

  7. #6
    gael666666

    Re : Quiz vbs

    J'ai trouver mon erreur, c'étais par rapport à mes constantes qui n'étaient parfois pas définie si l'on répondait non à une question. Au revoir

Discussions similaires

  1. Quiz
    Par tellif dans le forum Matériel astronomique et photos d'amateurs
    Réponses: 6
    Dernier message: 12/11/2012, 08h22
  2. Quiz d'électrochimie
    Par Tropique dans le forum Science ludique : la science en s'amusant
    Réponses: 9
    Dernier message: 05/08/2009, 03h52
  3. Petit quiz
    Par f6bes dans le forum Électronique
    Réponses: 38
    Dernier message: 09/04/2007, 21h21
  4. Petit quiz
    Par f6bes dans le forum Électronique
    Réponses: 3
    Dernier message: 08/04/2007, 11h30