Comment faire un QCM à partir d'1 fichier ASCII ??

jomart2 Messages postés 1 Date d'inscription mercredi 23 mars 2005 Statut Membre Dernière intervention 23 mars 2005 - 23 mars 2005 à 21:43
NHenry Messages postés 15128 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 9 juin 2024 - 24 mars 2005 à 09:59
Je suis débutant sur Visual Basic et je ne comprends pas grand chose, ce serai sympa si vous pouviez me passer 2-3 conseils pour y arriver.
Merci d'avance

2 réponses

NHenry Messages postés 15128 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 9 juin 2024 159
24 mars 2005 à 09:58
Dans ton fichier met :

"Question", "Rep1","Rep2","Rep3",NumRep



Code

{public|private} type TQuestion

Question as string

Rep(0 to 2) as string

NumBonneRep as long

End Type



{public|private} Questions as collection



{private|public} sub ExtractQuestions

Questions=new collection

dim ligne as TQuestion

dim Question as string

dim Rep0 as string

dim Rep1 as string

dim Rep2 as string

dim NumRep as long



open NomDeFichier for input as #FileNum



do until eof(FileNum)

input #FileNum,Question,Rep0,Rep1,Rep2,NumRep

ligne.Question=Question

ligne.rep(0)=rep0

ligne.rep(1)=rep1

ligne.rep(2)=rep2

ligne.NumBonneRep=NumRep

Questions.add ligne

loop



puis pour choisir une question n parmis la collection :

Question : Questions(n).Question

Rep 1 : Questions(n).rep(0)


Questions(n).rep(1)


Questions(n).rep(2)


Questions(n).NumBonneRep


Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)



NH
0
NHenry Messages postés 15128 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 9 juin 2024 159
24 mars 2005 à 09:59
G oublier, après le loop:

Close #FileNum



et avant open :

FileNum=freefile


Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)



NH
0
Rejoignez-nous