Annotation of capa/capa51/GUITools/ideas/of5tool/multiplechoice.tcl, revision 1.1
1.1 ! albertel 1: proc MCinit {} {
! 2: global problem
! 3:
! 4: set problem(MCeditleaf) 0
! 5: }
! 6:
! 7: proc MCadd {} {
! 8: global problem MCchoiceList
! 9:
! 10: set addMultiple [toplevel .mcaddMultiple]
! 11:
! 12: if { $problem(editing) == 0 } {
! 13: set probnum $problem(num)
! 14: set problem(prob.$problem(num).numleaf) 0
! 15: set problem(prob.$problem(num).type) "Multiple Choice"
! 16: set problem(prob.$problem(num).val) 1
! 17: } else {
! 18: set probnum $problem(editing)
! 19: }
! 20:
! 21: set labelFrame [frame $addMultiple.labelFrame ]
! 22: set probValFrame [frame $addMultiple.probValFrame ]
! 23: set hintFrame [frame $addMultiple.hintFrame ]
! 24: set explFrame [frame $addMultiple.explFrame ]
! 25: set questFrame [frame $addMultiple.questFrame ]
! 26: set listFrame [frame $addMultiple.listFrame ]
! 27: set buttonFrame [frame $addMultiple.buttonFrame]
! 28: pack $labelFrame $probValFrame $questFrame $hintFrame $explFrame \
! 29: $listFrame $buttonFrame -side top
! 30: pack config $probValFrame -anchor w
! 31:
! 32: label $labelFrame.probLabel -text "Problem $probnum"
! 33: pack $labelFrame.probLabel
! 34:
! 35: label $probValFrame.label -text "Problem Value\n"
! 36: scale $probValFrame.value -variable problem(prob.$probnum.val) -from 1 -to 9 -orient h
! 37: pack $probValFrame.label $probValFrame.value -side left
! 38:
! 39: label $questFrame.label -text "Question:"
! 40: entry $questFrame.entry -textvariable problem(prob.$probnum.quest) \
! 41: -width 80 -xscrollcommand "$questFrame.scroll set"
! 42: scrollbar $questFrame.scroll -command "$questFrame.entry xview" \
! 43: -orient h
! 44: pack $questFrame.label $questFrame.entry $questFrame.scroll -side top
! 45: pack configure $questFrame.label -anchor w
! 46: pack configure $questFrame.scroll -fill x
! 47:
! 48: label $hintFrame.label -text "Hint:"
! 49: entry $hintFrame.entry -textvariable problem(prob.$probnum.hint) \
! 50: -width 80 -xscrollcommand "$hintFrame.scroll set"
! 51: scrollbar $hintFrame.scroll -command "$hintFrame.entry xview" \
! 52: -orient h
! 53: pack $hintFrame.label $hintFrame.entry $hintFrame.scroll -side top
! 54: pack configure $hintFrame.label -anchor w
! 55: pack configure $hintFrame.scroll -fill x
! 56:
! 57: label $explFrame.label -text "Explanation:"
! 58: entry $explFrame.entry -textvariable problem(prob.$probnum.expl) \
! 59: -width 80 -xscrollcommand "$explFrame.scroll set"
! 60: scrollbar $explFrame.scroll -command "$explFrame.entry xview" \
! 61: -orient h
! 62: pack $explFrame.label $explFrame.entry $explFrame.scroll -side top
! 63: pack configure $explFrame.label -anchor w
! 64: pack configure $explFrame.scroll -fill x
! 65:
! 66: set MCchoiceList [ listbox $listFrame.list \
! 67: -yscrollcommand "$listFrame.scroll set" \
! 68: -width 80 -height 10 ]
! 69: scrollbar $listFrame.scroll -command "$listFrame.list yview" \
! 70: -orient v
! 71: pack $listFrame.list $listFrame.scroll -side left
! 72: pack configure $listFrame.scroll -fill y
! 73:
! 74: button $buttonFrame.leaf -text "Add leaf" -command MCaddLeaf
! 75: button $buttonFrame.edit -text "Edit leaf" -command MCeditLeafOptions
! 76: button $buttonFrame.done -text "Done" -command "
! 77: if { [ MCcheckIfDone $probnum ] } {
! 78: destroy $addMultiple
! 79: set problem(adding) 0
! 80: set problem(editing) 0
! 81: set problem(editleaf) 0
! 82: updateProblemList $probnum
! 83: } else {
! 84: tk_messageBox -icon error \
! 85: -message "At least one leaf needs all options to be correct."
! 86: -type ok
! 87: }
! 88: "
! 89: button $buttonFrame.cancel -text "Cancel" -command "
! 90: destroy $addMultiple
! 91: incr problem(num) -1
! 92: #(FIXME) unset possible set vars dealing with this problem
! 93: "
! 94: pack $buttonFrame.done $buttonFrame.leaf $buttonFrame.edit \
! 95: $buttonFrame.cancel -side left
! 96: }
! 97:
! 98: proc MCaddLeaf {} {
! 99: global problem
! 100:
! 101: if { $problem(editing) == 0 } {
! 102: set probnum $problem(num)
! 103: } else {
! 104: set probnum $problem(editing)
! 105: }
! 106:
! 107: if { $problem(MCeditleaf) == 0 } {
! 108: set leaf [incr problem(prob.$probnum.numleaf)]
! 109: set problem(prob.$probnum.leaf.$leaf.numoptions) 1
! 110: } else {
! 111: set leaf $problem(MCeditleaf)
! 112: }
! 113:
! 114: set addLeaf [toplevel .mcaddleaf]
! 115:
! 116: set labelFrame [frame $addLeaf.label]
! 117: set buttonFrame [frame $addLeaf.button]
! 118: pack $labelFrame $buttonFrame -side top
! 119: pack configure $buttonFrame -anchor s
! 120:
! 121: label $labelFrame.label -text "Adding options for leaf $leaf"
! 122: pack $labelFrame.label -side top
! 123:
! 124:
! 125: for { set i 1 } { $i <= $problem(prob.$probnum.leaf.$leaf.numoptions) } { incr i } {
! 126: set leafFrame [frame $addLeaf.frame$i]
! 127: label $leafFrame.label -text "Leaf $leaf Option $i:"
! 128: checkbutton $leafFrame.correct -text Correct -offvalue 2 \
! 129: -variable problem(prob.$probnum.leaf.$leaf.option.$i.correct)
! 130: entry $leafFrame.entry \
! 131: -textvariable problem(prob.$probnum.leaf.$leaf.option.$i) \
! 132: -width 80 -xscrollcommand "$leafFrame.scroll set"
! 133: scrollbar $leafFrame.scroll -command "$leafFrame.entry xview" \
! 134: -orient h
! 135: pack $leafFrame -before $buttonFrame
! 136: pack $leafFrame.label $leafFrame.correct $leafFrame.entry \
! 137: $leafFrame.scroll -side top -anchor w
! 138: pack configure $leafFrame.scroll -fill x
! 139: }
! 140:
! 141: button $buttonFrame.add -text "Add option" -command {
! 142: if { $problem(editing) == 0 } { set probnum $problem(num)
! 143: } else { set probnum $problem(editing) }
! 144:
! 145: if { $problem(MCeditleaf) == 0 } { set leaf $problem(prob.$probnum.numleaf)
! 146: } else { set leaf $problem(MCeditleaf) }
! 147: set optnum [incr problem(prob.$probnum.leaf.$leaf.numoptions)]
! 148: set leafFrame [frame .mcaddleaf.frame$optnum]
! 149: pack $leafFrame -before .mcaddleaf.button
! 150:
! 151: label $leafFrame.label -text "Leaf $leaf Option $optnum:"
! 152: checkbutton $leafFrame.correct -text Correct -offvalue 2 \
! 153: -variable problem(prob.$probnum.leaf.$leaf.option.$optnum.correct)
! 154: entry $leafFrame.entry \
! 155: -textvariable problem(prob.$probnum.leaf.$leaf.option.$optnum) \
! 156: -width 80 -xscrollcommand "$leafFrame.scroll set"
! 157: scrollbar $leafFrame.scroll \
! 158: -command "$leafFrame.entry xview" \
! 159: -orient h
! 160: pack $leafFrame.label $leafFrame.correct $leafFrame.entry \
! 161: $leafFrame.scroll -side top -anchor w
! 162: pack configure $leafFrame.scroll -fill x
! 163: }
! 164: button $buttonFrame.cancel -text "Cancel" -command "
! 165: destroy $addLeaf
! 166: #(FIXME) this needs to do alot more
! 167: "
! 168: button $buttonFrame.done -text "Done" \
! 169: -command "
! 170: destroy .mcaddleaf
! 171: MCupdateLeafList $leaf $probnum
! 172: set problem(MCeditleaf) 0"
! 173: pack $buttonFrame.add $buttonFrame.cancel $buttonFrame.done -side left
! 174: }
! 175:
! 176: proc MCcheckIfDone { probnum } {
! 177: global problem
! 178:
! 179: set found 0
! 180: for { set i 1 } { i <= $problem(prob.$probnum.numleaf } { incr i } {
! 181: set found 1
! 182: for { set j 1 } { j <= $problem(prob.$probnum.leaf.$i.numoptions) } { incr j } {
! 183: catch {
! 184: if { $problem(prob.$probnum.leaf.$i.option.$j.correct) != 1 } {
! 185: set found 0
! 186: }
! 187: }
! 188: }
! 189: }
! 190: return $found
! 191: }
! 192:
! 193:
! 194: proc MCeditLeafOptions {} {
! 195: global problem MCchoiceList
! 196:
! 197: set leaf [$MCchoiceList curselection]
! 198: if { $leaf == "" } { return }
! 199: incr leaf
! 200: set problem(MCeditleaf) $leaf
! 201:
! 202: if { $problem(editing) == 0 } {
! 203: set probnum $problem(num)
! 204: } else {
! 205: set probnum $problem(editing)
! 206: }
! 207:
! 208: MCaddLeaf
! 209: }
! 210:
! 211: proc MCupdateLeafList { leaf probnum } {
! 212: global problem MCchoiceList
! 213:
! 214: set numLeafs [$MCchoiceList size]
! 215: set numOpt $problem(prob.$probnum.leaf.$leaf.numoptions)
! 216:
! 217: if { $numLeafs < $leaf } {
! 218: } else {
! 219: $MCchoiceList delete [ expr $leaf - 1 ]
! 220: }
! 221:
! 222: set string "Leaf $leaf, $numOpt options"
! 223:
! 224: $MCchoiceList insert [ expr $leaf - 1 ] "$string"
! 225: }
! 226:
! 227: proc MCexportHeader { fileid probnum } {
! 228: global problem
! 229:
! 230: puts $fileid "//****************************"
! 231: puts $fileid "/LET prob_val=$problem(prob.$probnum.val)"
! 232: if { $problem(prob.$probnum.hint) != "" } {
! 233: puts $fileid "/HIN $problem(prob.$probnum.hint)"
! 234: } else {
! 235: puts $fileid "//HIN No hint unless this line is uncommented and modified"
! 236: }
! 237: if { $problem(prob.$probnum.expl) != "" } {
! 238: puts $fileid "/EXP $problem(prob.$probnum.expl)"
! 239: } else {
! 240: puts $fileid "//EXP No explanation unless this line is uncommented and modified"
! 241: }
! 242: puts $fileid "/IMP \"../Tools/Problem\#\""
! 243: puts $fileid "$problem(prob.$probnum.quest)"
! 244: puts $fileid "//----------------------------"
! 245: }
! 246:
! 247: proc MCexportLeafs { fileid probnum } {
! 248: global problem
! 249:
! 250: #(FIXME) need to put out same number of Opts?
! 251: #(FIXME) extra char at begging of alphabet so as to get rid of the expr?
! 252: set alphabet abcdefghijklmnopqrstuvwxyz
! 253:
! 254: for { set i 1 } { $i <= $problem(prob.$probnum.numleaf) } { incr i } {
! 255: for { set j 1 } { $j <= $problem(prob.$probnum.leaf.$i.numoptions) } { incr j } {
! 256: set var ""
! 257: append var s $i [string index $alphabet [ expr $j - 1 ] ]
! 258: puts $fileid "/LET $var=\"$problem(prob.$probnum.leaf.$i.option.$j)\""
! 259: }
! 260: puts $fileid "/LET mix$i=random(1,$problem(prob.$probnum.leaf.$i.numoptions),1)"
! 261: for { set j 1 } { $j <= $problem(prob.$probnum.leaf.$i.numoptions) } { incr j } {
! 262: set var ""
! 263: append var a $i [string index $alphabet [ expr $j - 1 ] ]
! 264: puts $fileid "/LET $var=$problem(prob.$probnum.leaf.$i.option.$j.correct)"
! 265: }
! 266: puts $fileid "//"
! 267: }
! 268: puts $fileid "//Nof5aux follows"
! 269: }
! 270:
! 271: proc MCexportAns { fileid probnum } {
! 272: global problem
! 273:
! 274: #(FIXME) need to put out same number of Opts?
! 275: #(FIXME) extra char at begging of alphabet so as to get rid of the expr?
! 276: set alphabet abcdefghijklmnopqrstuvwxyz
! 277: set ALPHABET ABCDEFGHIJKLMNOPQRSTUVWXYZ
! 278:
! 279: for { set i 1 } { $i <= $problem(prob.$probnum.numleaf) } { incr i } {
! 280: set questStr "/LET s$i=choose(mix$i"
! 281: set ansStr "/LET a$i=choose(mix$i"
! 282: for { set j 1 } { $j <= $problem(prob.$probnum.leaf.$i.numoptions) } { incr j } {
! 283: append questStr ",s$i"
! 284: append questStr [string index $alphabet [ expr $j - 1 ] ]
! 285: append ansStr ",a$i"
! 286: append ansStr [string index $alphabet [ expr $j - 1 ] ]
! 287: }
! 288: append questStr ")"
! 289: append ansStr ")"
! 290: puts $fileid "$questStr"
! 291: puts $fileid "$ansStr"
! 292: }
! 293: puts $fileid "/LET seed=random(1,300,1)"
! 294: set line "/MAP(seed;"
! 295: set end ";"
! 296: for { set i 1 } { $i <= $problem(prob.$probnum.numleaf) } { incr i } {
! 297: if { $i != $problem(prob.$probnum.numleaf) } {
! 298: append line "M$i,"
! 299: append end "s$i,"
! 300: } else {
! 301: append line "M$i"
! 302: append end "s$i)"
! 303: }
! 304: }
! 305: append line $end
! 306: puts $fileid "$line"
! 307: puts $fileid "/LET it=tex(\"\\item\[\] \",\"\")"
! 308: puts $fileid "/DIS(tex(\"\\begin\{choicelist\}\",\"\"))"
! 309: for { set i 1 } { $i <= $problem(prob.$probnum.numleaf) } { incr i } {
! 310: puts $fileid "/DIS(it) [string index $ALPHABET [expr $i - 1] ]) /DIS (M$i)"
! 311: }
! 312: puts $fileid "/DIS(tex(\"\\end\{choicelist\}\",\"\"))"
! 313: set line "/MAP(seed;"
! 314: set end ";"
! 315: for { set i 1 } { $i <= $problem(prob.$probnum.numleaf) } { incr i } {
! 316: if { $i != $problem(prob.$probnum.numleaf) } {
! 317: append line "b$i,"
! 318: append end "a$i,"
! 319: } else {
! 320: append line "b$i"
! 321: append end "a$i)"
! 322: }
! 323: }
! 324: append line $end
! 325: puts $fileid "$line"
! 326: for { set i 1 } { $i <= $problem(prob.$probnum.numleaf) } { incr i } {
! 327: puts $fileid "/LET NM$i=b$i*(b$i==1)+1"
! 328: }
! 329: for { set i 1 } { $i <= $problem(prob.$probnum.numleaf) } { incr i } {
! 330: puts $fileid "/LET lett$i=choose(NM$i,\"\",\"[string index $ALPHABET [expr $i -1 ] ]\")"
! 331: }
! 332: set line "/LET Nof5right=lett1"
! 333: for { set i 2 } { $i <= $problem(prob.$probnum.numleaf) } { incr i } {
! 334: append line "+lett$i"
! 335: }
! 336: puts $fileid "$line"
! 337: puts $fileid "//**************************"
! 338: puts $fileid "/DIS(stdline)"
! 339: puts $fileid "/ANS(Nof5right,wgt=prob_val,str=mc)"
! 340: puts $fileid "//**************************"
! 341: }
! 342:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to multiplechoice.tcl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / GUITools / ideas / of5tool