Bonjour Patrick,
Je me suis fait aussi avoir par la question « description » ne pouvant pas être tirée au sort lors de mes essais…
Je pensais aux questions rédactionnelles ouvertes en parlant de question libre. La question ouverte n'a pas d'éditeur de texte, son énoncé contient un lien pour télécharger le PDF du sujet ; elle attend un fichier à soumettre par l'utilisateur en réponse. J'ai un doute sur le paramétrage directement dans Moodle, mais le code R/SARP.Moodle pour générer un fichier XML de ce type serait (je copie celui que j'ai utilisé) :
Je me suis fait aussi avoir par la question « description » ne pouvant pas être tirée au sort lors de mes essais…
Je pensais aux questions rédactionnelles ouvertes en parlant de question libre. La question ouverte n'a pas d'éditeur de texte, son énoncé contient un lien pour télécharger le PDF du sujet ; elle attend un fichier à soumettre par l'utilisateur en réponse. J'ai un doute sur le paramétrage directement dans Moodle, mais le code R/SARP.Moodle pour générer un fichier XML de ce type serait (je copie celui que j'ai utilisé) :
library( SARP.moodle )
## Combien de sujets différents ?
n.sujets <- 10
## Combien de sujets différents ?
n.sujets <- 10
## On prépare le fichier XML
debuter_xml.moodle( "2e_session" )
## La catégorie qui contiendra les questions parmi lesquelles tirer au sort
categorie.moodle( "Examen/Session 2/Sujets" )
texte.lien <- "Cliquer ici pour télécharger l'énoncé de votre sujet…"
debuter_xml.moodle( "2e_session" )
## La catégorie qui contiendra les questions parmi lesquelles tirer au sort
categorie.moodle( "Examen/Session 2/Sujets" )
texte.lien <- "Cliquer ici pour télécharger l'énoncé de votre sujet…"
## Le dossier [dans le répertoire de travail] qui contient chaque sujet possible en PDF (ou autre)
definir_dossier.image.moodle( 'Individuels', local = TRUE )
for ( i in 1:n.sujets ) {
for ( i in 1:n.sujets ) {
## Les sujets s'appellent énoncé.v_XX.pdf, XX étant le numéro du sujet (01 à 10 ici)
nom.sujet <- paste0( "Individuels/énoncé.v_",
formatC( i, width = 2, format = 'd', flag = '0' ),
".pdf" )
énoncé <- paste0( "<b>Numéro de sujet</b> : ", i,
"<br />",
lier_fichier.moodle( nom.fichier = nom.sujet,
texte.lien = texte.lien,
interne = TRUE ),
"<br />",
"Vous avez 1 h 30 pour rédiger votre copie,",
" la numériser au besoin",
" et déposer le PDF sur le dépôt de devoir",
" ou <i>via</i> le formulaire ci-dessous.",
"<br />",
"Bon courage !" )
question_ouverte.moodle( texte = énoncé,
titre = paste0( "Sujet 2<sup>e</sup> session",
" — numéro ", i ),
editeur = 'Aucun', avec.texte = FALSE,
n.annexes = 1, n.optionnelles = 0 )
}
## On a fini
finir_xml.moodle
formatC( i, width = 2, format = 'd', flag = '0' ),
".pdf" )
énoncé <- paste0( "<b>Numéro de sujet</b> : ", i,
"<br />",
lier_fichier.moodle( nom.fichier = nom.sujet,
texte.lien = texte.lien,
interne = TRUE ),
"<br />",
"Vous avez 1 h 30 pour rédiger votre copie,",
" la numériser au besoin",
" et déposer le PDF sur le dépôt de devoir",
" ou <i>via</i> le formulaire ci-dessous.",
"<br />",
"Bon courage !" )
question_ouverte.moodle( texte = énoncé,
titre = paste0( "Sujet 2<sup>e</sup> session",
" — numéro ", i ),
editeur = 'Aucun', avec.texte = FALSE,
n.annexes = 1, n.optionnelles = 0 )
}
## On a fini
finir_xml.moodle
En espérant que cela clarifie la méthode… et sa réalisation.
Pour les questions clozes, je suis d'accord, on ne peut pas tout faire avec…
