Subversion Repositories wimsdev

Rev

Rev 12489 | Rev 14334 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12489 Rev 13082
Line 33... Line 33...
33
  smodule=$dir
33
  smodule=$dir
34
  !distribute line $wims_oefdefault_qnum\
34
  !distribute line $wims_oefdefault_qnum\
35
$wims_oefdefault_qcmlevel\
35
$wims_oefdefault_qcmlevel\
36
$wims_oefdefault_scoredelay\
36
$wims_oefdefault_scoredelay\
37
$wims_oefdefault_qcmpresent\
37
$wims_oefdefault_qcmpresent\
38
$wims_oefdefault_presentsol\
38
$wims_oefdefault_sol\
39
$wims_oefdefault_check\
39
$wims_oefdefault_check\
40
wims_oefdefault_expow\
40
$wims_oefdefault_expow\
41
wims_oefdefault_sepow\
41
$wims_oefdefault_sepow\
42
wims_oefdefault_precw\
42
$wims_oefdefault_precw\
-
 
43
$wims_oefdefault_feed\
-
 
44
$wims_oefdefault_good\
-
 
45
$wims_oefdefault_hint\
43
  into qnum,qcmlevel,scoredelay,intro_qcmpresent,intro_presentsol,intro_check,\
46
  into qnum,qcmlevel,scoredelay,intro_qcmpresent,intro_sol,intro_check,\
44
  expow,sepow,precw
47
  intro_expow,intro_sepow,intro_precw,intro_feed,intro_good,intro_hint
45
!endif
48
!endif
46
 
49
 
47
!! calcul du nombre d'exercices
50
!! calcul du nombre d'exercices
48
!if /////classes/ isin /////$smodule
51
!if /////classes/ isin /////$smodule
49
    !! adresse du module d'exo d'une classe
52
    !! adresse du module d'exo d'une classe
Line 113... Line 116...
113
  !bound intro_presentsol between integer 0 and 2 default $wims_oefdefault_presentsol
116
  !bound intro_presentsol between integer 0 and 2 default $wims_oefdefault_presentsol
114
  !bound intro_expow between 1 and 6 default $wims_oefdefault_expow
117
  !bound intro_expow between 1 and 6 default $wims_oefdefault_expow
115
  !bound intro_sepow between 1 and 6 default $wims_oefdefault_sepow
118
  !bound intro_sepow between 1 and 6 default $wims_oefdefault_sepow
116
  !bound intro_precw between 0 and 1 default $wims_oefdefault_precw
119
  !bound intro_precw between 0 and 1 default $wims_oefdefault_precw
117
 
120
 
118
  intro_check=!listintersect $intro_check and 1,2,3,4
121
  intro_check=!listintersect $intro_check and 1,2
119
  !bound random within 0,1 default 0
122
  !bound random within 0,1 default 0
120
  !if $scoredelay!=$empty and $scoredelay!=0
123
  !if $scoredelay!=$empty and $scoredelay!=0
121
    d_=!items2words $scoredelay
124
    d_=!items2words $scoredelay
122
    !distribute words $d_ into delay1,delay2
125
    !distribute words $d_ into delay1,delay2
123
    !bound delay1 between integer 0 and 2000 default 0
126
    !bound delay1 between integer 0 and 2000 default 0
124
    !bound delay2 between integer $delay1 and 2000
127
    !bound delay2 between integer $delay1 and 2000
125
    scoredelay=$delay1,$delay2
128
    scoredelay=$delay1,$delay2
126
  !endif
129
  !endif
-
 
130
 
127
  iniparm=$empty
131
  iniparm=$empty
128
  !if $expert_=yes
132
  !if $expert_=yes
129
    !if $intro_check!=$empty
133
    !if $intro_check!=$empty
130
  	  !for k in $intro_check
134
  	  !for k in $intro_check
131
  	    iniparm=$(iniparm)&intro_check=$k
135
  	    iniparm=$(iniparm)&intro_check=$k
132
      !next k
136
      !next k
133
    !endif
137
    !endif
134
    iniparm=qnum=$qnum&qcmlevel=$qcmlevel&scoredelay=$scoredelay&intro_presentsol=$intro_presentsol$(iniparm)&intro_qcmpresent=$intro_presentsol&intro_expow=$intro_expow&intro_sepow=$intro_sepow&intro_precw=$intro_precw&intro_expert=yes
138
    !for c in expow,sepow,precw,sol,hint,good,feed,qcmpresent
-
 
139
      iniparm=$(iniparm)&intro_$c=$(intro_$c)
135
  !else
140
    !next
136
    iniparm=qnum=$qnum&qcmlevel=$qcmlevel&scoredelay=$scoredelay
-
 
137
  !endif
141
  !endif
-
 
142
  iniparm=qnum=$qnum&qcmlevel=$qcmlevel&scoredelay=$scoredelay&seedrepeat=$seedrepeat$iniparm
-
 
143
 
138
  !! ------  write data in the sheet file.
144
  !! ------  write data in the sheet file.
139
  !! analyse series already in the sheet
145
  !! analyse series already in the sheet
140
  listmod=$empty
146
  listmod=$empty
141
  listiniparm=$empty
147
  listiniparm=$empty
142
  !for i=1 to $shexocnt
148
  !for i=1 to $shexocnt