Page 1 sur 1

Recuperer le resultat

Publié : jeu. 17/août/2006 11:48
par MetalOS
Salut les progPure_icien.

Voila je cherche a faire un ptit questionnaire tous simple en console et j'aimerais recuperer le resultat des bonne reponse donc ajouter +1 a une variable pour recuperer mon resultat final. :( Mais ca marche pas, quelqu'un peut m'aider svp merci.

Voici mon code:

Code : Tout sélectionner

#reponsebonne1 = 1
#reponsebonne2 = 2
#reponsebonne3 = 3



OpenConsole()
ConsoleTitle("QCM.")
EnableGraphicalConsole(1)
ConsoleColor(15,1)



ConsoleLocate(20, 10)
 Print("Bienvenue sur le QCM.")
ConsoleLocate(0,20)
 Print("Presser la touche [ENTREE] pour continuer.")
 Input()
 ClearConsole()
 
ConsoleLocate(15, 10)
 PrintN("Question 1: ")
  ConsoleLocate(27,13)
   ConsoleColor(12,1)
    Print("Reponse 1: ")
  ConsoleLocate(27, 14) 
   ConsoleColor(12,1)
    Print("Reponse 2: ")
  ConsoleLocate(27, 15)
   ConsoleColor(12,1)
    PrintN("Reponse 3: ")
     Print("Reponse saisie: ")
     a.s = Input()
      
   If a.s = Str(#reponsebonne2)
    PrintN("Resultat: Vrai")
  Else
    PrintN("Resultat: Faux")
  EndIf 
  
  If a.s = Str(#reponsebonne2)
    resultat.c + 1
  Else
    resultat.c + 0
  EndIf

 PrintN("")
 Print("Presser la touche [ENTREE]")


PrintN("")
Print("Resultat final: Nb questions reussi ")
Debug resultat.c
Print(resultat.c)
Print(" /10")
 
   
Input()

Publié : jeu. 17/août/2006 13:10
par Progi1984
Tout simplement :

Code : Tout sélectionner

#reponsebonne1 = 1
#reponsebonne2 = 2
#reponsebonne3 = 3



OpenConsole()
ConsoleTitle("QCM.")
EnableGraphicalConsole(1)
ConsoleColor(15,1)



ConsoleLocate(20, 10)
 Print("Bienvenue sur le QCM.")
ConsoleLocate(0,20)
 Print("Presser la touche [ENTREE] pour continuer.")
 Input()
 ClearConsole()
 
ConsoleLocate(15, 10)
 PrintN("Question 1: ")
  ConsoleLocate(27,13)
   ConsoleColor(12,1)
    Print("Reponse 1: ")
  ConsoleLocate(27, 14)
   ConsoleColor(12,1)
    Print("Reponse 2: ")
  ConsoleLocate(27, 15)
   ConsoleColor(12,1)
    PrintN("Reponse 3: ")
     Print("Reponse saisie: ")
     a.s = Input()
     
   If a.s = Str(#reponsebonne2)
    PrintN("Resultat: Vrai")
  Else
    PrintN("Resultat: Faux")
  EndIf
 
  If a.s = Str(#reponsebonne2)
    resultat.c + 1
  Else
    resultat.c + 0
  EndIf

 PrintN("")
 Print("Presser la touche [ENTREE]")


PrintN("")
Print("Resultat final: Nb questions reussi ")
Debug resultat.c
Print(Str(resultat.c))
Print(" /10")
 
   
Input()

Publié : jeu. 17/août/2006 13:37
par MetalOS
Merci progi1984, la pauvre erreur :D j'ai loupé le Str. Encore merci.