# Maak een turftabel
n=$counter
XSIZE=600
# geeft een <tr> aan tabel...
helptext=$empty
exotext=$empty
textanswer$n=$empty
formula$n=$empty
mathview=0
questiontype=7
image=0
cols=30
rows=1
math=0
!if $level=0
    R=$counter
!else
    R=$level
!endif
!if exam isin $session
    sometext=$empty
!else
    sometext=!record 67 of lang/remarks.$taal
!endif
DHTML=$empty
javascript=js/exo14.js
checkfile=exos/checkfile14.proc
help=!record 33 of lang/remarks.$taal
helptext=<a onmouseover="return escape('<img src=$module_dir/gifs/help/exo14.jpg>')">$help</a>
max=10
!if $R>0
    DHTML=$empty
    dhtml=$empty
    !if $R=1
	var2=A,B,C,D
	options=!randint 10,30
	half=$[round($options/2)]
    !endif
    !if $R>1
	var2=A,B,C,D,E,F
	options=!randint 40,60
	half=$[round($options/3)]
    !endif
    var1=!itemcnt $var2
    break=0
    a=0
    b=0
    c=0
    d=0
    vraag=<table $paperbg cellpadding="5">
    !for p=1 to $options
	letter=!randitem $var2
	!for I in $var2
	    !if $I = $letter
		!increase $I
	    !endif
	!next 1 
	vraag=!append line <th>$letter</th> to $vraag
	!increase break
	!if $break=$half
	    break=0
	    vraag=!append line <tr> to $vraag
	!endif
    !next p
    
    mm=!sort numeric item $A,$B,$C,$D,$E,$F
    mm=!item -1 of $mm
    m=!positionof item $mm in $A,$B,$C,$D,$E,$F
    modus=!item $m of $var2
    answer$n=!item 1 to $var1 of $A,$B,$C,$D,$E,$F
    answer$n=$(answer$n),$modus
    
    vraag=!append line </table> to $vraag
    width=300
    invultabel=<table bgcolor="orange" border=1>
    textanswer$n=<table $paperbg border=1 cellpadding="5">
    !for p=1 to $var1
	letter=!item $p of $var2
	sum=!item $p of $(answer$n)
	invultabel=!append line <th>$letter</th><th style="width:$width;height:40"><div id="div$p" name="div$p" style="position:relative;width:$width;height:40px;background-color:#e8ffff;"></div></th><tr> to $invultabel
	DHTML=!append item "div$p" + NO_DRAG to $DHTML
	textanswer$n=!append line <th>$letter</th><th>$sum</th><tr> to $(textanswer$n)
    !next p
    invultabel=!append line </table> to $invultabel
    textanswer$n=!append line <th>MODUS</th><th>$modus</th></table> to $(textanswer$n)
    dragnumbers=<table border=1>
    !for p=5 to 1 step -1
	dragnumbers=!append line <th><img src="$module_dir/gifs/turven/$p.gif" name="img$p" ></th> to $dragnumbers
	DHTML=!append item "img$p" + COPY + $max to $DHTML
    !next p
    dragnumbers=!append line </table> to $dragnumbers
    ss=!record 70 of lang/remarks.$taal
    question$n=$ss <br>$sometext
    #@Maak van de onderstaande gegevens een <em>turftabel</em><br>Sleep met je muis de "cijfers" naar de tabel.<br>En wat is de <em>Modus?</em>$vraag
    vv=<table><th>$dragnumbers</th><tr><th>$invultabel</th><tr><th><form name="myform1">MODUS = <input name="$n" value=""  size="20"  style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></form></th></table>
    exotext=$vv

    dhtml=<script type="text/javascript">SET_DHTML( CURSOR_MOVE , $DHTML );</script>
 !exit
!endif

