Voici les composants de mon programme :
Code : Tout sélectionner
Enumeration
#Fenetre_Question
#Fenetre_Resultat
EndEnumeration
Enumeration
#Police
#Police2
EndEnumeration
Enumeration
#Texte ; énoncé de la question
#tNumero ; dans l'exemple n° de département
#tReponse ; dans l'exemple nom du département
#Bonne_Reponse
#Mauvaise_Reponse_1
#Mauvaise_Reponse_2
#Region ; dans l'exemple région où se situe le département
EndEnumeration
#NbDep = 95
#Nb_Questions = 40
Structure Question
QuestionPosee.b ;Déja posée oui ou non
Question.i ;La question
Reponse.i[3] ;Trois réponses possibles
ReponseUtilisateur.i ;Réponse donnée par l'utilisateur
EndStructure
Global NewList QCM.Question()
Global NewList Message$()
Global Dim Departement.s(3,#NbDep)
Global x, Compteur, Points, rep1$
Global Hasard, X1, X2, X3
Je vous remercie tous de tout coeur de l'aide que vous allez m'apporter