WebSVN – wimsdev – Diff – /trunk/wims/public_html/scripts/model/ca/src/qcm.oef

 \integer{cnt_question=items(\data_q)}
 \text{nopaste=\paste issametext no ? slib(utilities/nopaste )}
 \text{style = <style>
- .enonce{margin-bottom:0}
+  .enonce{margin-bottom:0}
- .qcm_prompt2{margin-top:.5em}
+  .qcm_prompt2{margin-top:.5em}
- img{vertical-align:middle;}
+  img{vertical-align:middle;}
- .q_num, .panel .wims_title{
+  .q_num, .panel .wims_title{
- font-size:120%;font-family:Impact, Charcoal, sans-serif;
+    font-size:120%;font-family:Impact, Charcoal, sans-serif;
- color:#777;
+    color:#717171;
- }
+  }
- .feedback{border:1px dashed grey;padding:.5em;margin-top:.5em;}
+  .feedback{border:1px dashed grey;padding:.5em;margin-top:.5em;}
- .reponse {
+  .reponse {
-   margin: 0 1em;
+    margin: 0 1em;
-   padding: .5em;
+    padding: .5em;
-   border-radius:5px;
+    border-radius:5px;
-   \style_reponse
+    \style_reponse
- }
+  }
- .panel{
+  .panel{
     padding:.5em 1em .5em 1em;
     margin:.5em 0;
     border:1px solid #d8d8d8;
     border-radius:5px;
     background-color: #f2f2f2;
- }
+  }
- .panel.callout{
+  .panel.callout{
     border-color:#c5e5f3;
     border-width:2px;
     \style_question
- }
+  }
- .callout .q_num, .callout .wims_title{color:black;}
+  .callout .q_num, .callout .wims_title{color:black;}
- .panel .wims_title, .panel .wimscenter{margin-top:-1.2em;}
+  .panel .wims_title, .panel .wimscenter{margin-top:-1.2em;}
- ol li{margin-bottom: .5em;list-style:upper-alpha;}
+  ol li{margin-bottom: .5em;list-style:upper-alpha;}
- input[type='checkbox'] { font-size:120%; }
+  input[type='checkbox'] { font-size:120%; }
- .strike{text-decoration:line-through;}
+  .strike{text-decoration:line-through;}
- .oef_indpartial{color:navy;}
+  .oef_indpartial{color:navy;}
- </style>
+</style>
+}
 \integer{N = min(\cnt_question,\N)}
 \integer{MAX=min(\N*\MAX,\cnt_question)}
 \text{battage=\alea issametext sí ? shuffle(\data_q,,) :\data_q}
  \text{preliminaire_test=\QUEST}
  \text{preliminaire_test=row(1,\preliminaire_test)}
  \text{inst_audio=wims(getopt Qaudio in \preliminaire_test)}
  \text{inst_image=wims(getopt Qimage in \preliminaire_test)}
  \text{inst_title=wims(getopt Qtitle in \preliminaire_test)}
  \text{rab_inst=}
  \text{rab_inst=\inst_title notsametext ?\rab_inst <h2 class="wims_title">\inst_title</h2>}
  \text{rab_inst=\inst_image notsametext ?\rab_inst <div class="wimscenter"><img src="\imagedir/\inst_image" alt="" /></div>}
- \if{\inst_audio notsametext }{
+  \if{\inst_audio notsametext }{
-     \text{rab_inst1= . isin \inst_audio ?
+    \text{rab_inst1= . isin \inst_audio ?
-       <audio controls>
+      <audio controls>
         <source src="\imagedir/\inst_audio" type="audio/mpeg">
         Désolé, votre navigateur est incompatible avec la lecture de fichiers audio.
-       </audio>}
+      </audio>}
-     \text{rab_inst=\rab_inst <div class="wimscenter audio">\rab_inst1[1;1]</div>}
+    \text{rab_inst=\rab_inst <div class="wimscenter audio">\rab_inst1[1;1]</div>}
- }
+  }
  \integer{test_inst=\inst_audio\inst_image\inst_title notsametext ? 1 : 0}
  \text{preliminaire=\test_inst=1 ? \rab_inst:&nbsp;}
  \matrix{QUEST=\test_inst=1 ? \QUEST[2..-1;]}
  \matrix{QUEST=\accolade issametext si ?wims(embraced randitem \QUEST):\QUEST}
 \preliminaire}
  \text{expl=\QUEST[2;]}
  \text{ligne=wims(upper \expl)}
  \text{ligne=wims(text select ABCDEFGHIJKLMNOPQRSTUVWXYZ in \ligne)}
- \if{\ligne issametext and \expl notsametext }{
+  \if{\ligne issametext and \expl notsametext }{
-  \matrix{explication = \explication;}
+    \matrix{explication = \explication;}
-  \integer{debut = 2}
+    \integer{debut = 2}
- }
+  }
- \if{\ligne issametext and \expl issametext }{
+  \if{\ligne issametext and \expl issametext }{
-  \matrix{explication = \explication;}
+    \matrix{explication = \explication;}
-  \integer{debut = 3}
+    \integer{debut = 3}
+  }
   \if{\ligne notsametext}{
-     \matrix{explication = \explication;\expl}
+    \matrix{explication = \explication;\expl}
-  \integer{debut = 3}
+    \integer{debut = 3}
- }
+  }
   \integer{cnt_choix=rows(\QUEST)-\debut}
   \text{CNT_choix=\CNT_choix,\cnt_choix}
-   \text{Choix=}
+  \text{Choix=}
-   \text{mix=shuffle(\cnt_choix)}
+  \text{mix=shuffle(\cnt_choix)}
-   \for{j=\debut+1 to \cnt_choix + \debut+1}{
+  \for{j=\debut+1 to \cnt_choix + \debut+1}{
-     \text{choix= \QUEST[\j;]}
+    \text{choix= \QUEST[\j;]}
-     \text{choix=wims(replace internal , by  &#44; in \choix)}
+    \text{choix=wims(replace internal , by  &#44; in \choix)}
-     \matrix{Choix = \Choix, \choix[1;]}
+    \matrix{Choix = \Choix, \choix[1;]}
-   }
+  }
-   \text{Choix=wims(nonempty items \Choix)}
+  \text{Choix=wims(nonempty items \Choix)}
-   \text{Choix= \Choix[\mix]}
+  \text{Choix= \Choix[\mix]}
-   \matrix{CHOIX=\CHOIX
+  \matrix{CHOIX=\CHOIX
      \Choix}
-   \text{H = wims(nospace \QUEST[\debut;])}
+  \text{H = wims(nospace \QUEST[\debut;])}
-   \text{cnt_c=items(\H)}
+  \text{cnt_c=items(\H)}
-   \text{Rep = }
+  \text{Rep = }
-   \for{ k = 1 to \cnt_c}{
+  \for{ k = 1 to \cnt_c}{
-     \text{Rep = \Rep, position(\H[\k],\mix)}
+    \text{Rep = \Rep, position(\H[\k],\mix)}
-   }
+  }
-   \text{Rep = wims(sort items wims(nonempty items \Rep))}
+  \text{Rep = wims(sort items wims(nonempty items \Rep))}
-   \matrix{rep = \rep
+  \matrix{rep = \rep
     \Rep}
+}
 \text{CNT_choix=wims(nonempty items \CNT_choix)}
 \integer{cnt_step = \U[1] + 1}
 \matrix{STEPS = }
 \matrix{CNT = }
 \text{CONDSTEP=}
 \for{ u = 1 to \cnt_step -1}{
-   \matrix{STEPS =\STEPS
+  \matrix{STEPS =\STEPS
 wims(makelist r x for x = \N*\u -\N+1 to \N*\u)}
-   \matrix{CNT =\CNT
+  \matrix{CNT =\CNT
 wims(makelist x for x = \N*\u -\N+1 to \N*\u)}
-   \text{condstep= wims(values \u+1 for x = (\u-1)*\N +1 to \u*\N)}
+  \text{condstep= wims(values \u+1 for x = (\u-1)*\N +1 to \u*\N)}
-   \text{CONDSTEP= wims(append item \condstep to \CONDSTEP)}
+  \text{CONDSTEP= wims(append item \condstep to \CONDSTEP)}
+}
- \matrix{STEPS = \STEPS
+\matrix{STEPS = \STEPS
  wims(makelist r x for x = \N*\cnt_step-\N+1 to \MAX)
+}
 \matrix{CNT = \CNT
  wims(makelist x for x = \N*\cnt_step-\N+1 to \MAX)
+}
   \for{h=1 to \etape[\step]}{
     \if{\question[\h;] notsametext }{
       \if{\h <= \etape[\step] - \N}
-        {<div class="panel">}
+        {<fieldset class="panel">}
-        {\if{r \h isitemof \nstep}{<div class="panel callout">}}
+        {\if{r \h isitemof \nstep}{<fieldset class="panel callout">}}
+      }
    \if{(\h <= \etape[\step] - \N or r \h isitemof \nstep) and \question[\h;] notsametext }{
      <div class="enonce">
        \if{\cnt_step > 1 and \MAX > 1}{<span class="q_num">\h. </span>}
         </ol>
       </div>
+      }
+   }
    \if{\question[\h;] notsametext
-    and (\h <= \etape[\step] - \N or r \h isitemof \nstep)}{</div>}
+    and (\h <= \etape[\step] - \N or r \h isitemof \nstep)}{</fieldset>}
+  }
+ }
 \answer{}{\REP1;\CHOIX[1;]}{type=\format}{option=\option}
 \answer{}{\REP2;\CHOIX[2;]}{type=\format}{option=\option}
 \answer{}{\REP3;\CHOIX[3;]}{type=\format}{option=\option}

Subversion Repositories wimsdev

(root)/trunk/wims/public_html/scripts/model/ca/src/qcm.oef – Rev 15179 → 17142