n=$counter
XSIZE=600
# geeft een <tr> aan tabel...
helptext=$empty
exotext=$empty
textanswer$n=$empty
formula$n=$empty
javascript=js/exo2.js
mathview=0
questiontype=7
image=0
cols=30
rows=1
math=0
checkfile=exos/checkfile2.proc
!if $level=0
    R=$counter
!else
    R=$level
!endif
keuze=!randitem 1,2
num=!randint 1,25
max=15
DHTML=$empty
table=$empty
blank=$empty
exotext=$empty
width=48
sometext=!record 33 of lang/remarks.$taal
helptext=<a onmouseover="return escape('<img src=$module_dir/gifs/help/exo2.jpg>')"> $sometext </a>
# pixels
!if $R=1
    max=15
    options=1
    aantal=!randint 2,10
    tot=!randint 2,6
    hoeveelheid=$[$aantal*$tot]
    answer$n=$aantal
    !if $keuze=1
	kind=!record 78 of $remarkdir/commonremarks.$taal
	# boy
    !else
	kind=!record 79 of $remarkdir/commonremarks.$taal
	# girl
    !endif
    dingen=!record 1 of lang/remarks.$taal
    #@ cat@kat@katten,dog@hond@honden,rabbit@konijn@konijnen
    dingen=!randitem $dingen
    dingen=!replace internal @ by , in $dingen
    dir=!item 1 of $dingen
    dier=!item 2 of $dingen
    dieren=!item 3 of $dingen
    winkel=!record 2 of lang/remarks.$taal
    #@ het asiel,een dierenasiel,een winkel,de dierenwinkel
    winkel=!randitem $winkel
    kind=!randitem $kind
    num=!randint 1,25
    plaatje=<img src=$module_dir/gifs/$dir/$num.gif>
    totaal=<table cellpadding="1">
    !for p=1 to $aantal
	totaal=!append line <td>$plaatje</td> to $totaal
    !next p
    totaal=$totaal</table>
    textanswer$n=$totaal
    !for p=1 to $options
        plaatje=<img src=$module_dir/gifs/$dir/$num.gif name="img$p" width="$width" height="$width">
	DHTML=!append item "img$p" + COPY + $max  to $DHTML
	table=!append line <th>$plaatje</th> to $table
	blank=$blank<div id="div$p" name="div$p" style="position:relative;height:50px;background-color:lightblue">$dier :</div><hr>
	DHTML=!append item "div$p"  to $DHTML
    !next p
    exotext=$blank
    ss=!record 31 of lang/remarks.$taal
    #@$kind haalt een $dier uit $winkel .Er zijn $hoeveelheid $dieren aanwezig in de winkel.<br>Maak een beelddiagram van het "$dieren aanbod" waarbij &eacute;&eacute;n plaatje $tot $dieren voorsteld.
    question$n=$ss<table border="1" cellpadding="4">$table</table>
    dhtml=<script type="text/javascript">SET_DHTML( CURSOR_MOVE , $DHTML);</script>
 !exit
!endif

!if $R>1
    #@cat@kat@katten,dog@hond@honden,rabbit@konijn@konijnen,bird@vogel@vogels,horse@paard@paarden 
    dingen=!record 10 of lang/remarks.$taal
    dingen=!shuffle $dingen
    options=!randitem 3,4,5
    factor=!randint 1,20
    !if $R=2
	f=!randitem 4,5,6
    !endif
    !if $R>2
	f=!randitem 7,9,11
    !endif
    factor=$[$factor*$f]
    lezers=0
    vraag1=$empty
    vraag2=$empty
    answer$n=$empty
    table=$empty
    DHTML=$empty
    nummers=!shuffle 2,3,4,4,5
    basis=!randint 1,6
    !for p=1 to $options
	num=!randint 1,25
	ding=!item $p of $dingen
	ding=!replace internal @ by , in $ding
	dir=!item 1 of $ding
	dier=!item 2 of $ding
	dieren=!item 3 of $ding
	plaatje=<img src=$module_dir/gifs/$dir/$num.gif name=img$p  width="$width" height="$width">
	blank=$blank<div id="div$p" name="div$p" style="position:relative;height:50px;background-color:lightblue">$dier :</div><hr>
	DHTML=!append item "img$p" + COPY + $max  to $DHTML
	DHTML=!append item "div$p"+ NO_DRAG  to $DHTML
	!if $p=$basis
	    aantal=1
	!else
	    aantal=!item $p of $nummers
	!endif
	tot=$[$aantal*$factor]
	vraag1=!append line <th>$dieren</th> to $vraag1
	vraag2=!append line <th>$plaatje</th> to $vraag2
	vraag3=!append line <th>$tot</th> to $vraag3
	answer$n=!append item $aantal to $(answer$n)
	lezers=$[$lezers+$tot]
	!for s=1 to $aantal
	    textanswer$n=!append line <td><img src=$module_dir/gifs/$dir/$num.gif width="$width" height="$width"> to $(textanswer$n)
	!next s
	textanswer$n=!append line <tr> to $(textanswer$n)
    !next p
    textanswer$n=<table bgcolor="lightblue">$(textanswer$n)</table>
    vraag=<table cellpadding=8 border=1 $paperbg>$vraag1<tr>$vraag2<tr>$vraag3</table>
    ss=!record 32 of lang/remarks.$taal
    #@Een populair jongerenblad organiseerd een enquete over <br><em>Het favoriete Huisdier</em> van haar lezers. $lezers lezers deden mee aan deze enquete.<br>Hieronder zie je een <em>tabel</em> van de resultaten. $vraag Maak van deze gegevens een beelddiagram waarbij elk plaatje $factor stemmen voorsteld<p>$table
    question$n=$ss
    exotext=$blank
    dhtml=<script type="text/javascript">SET_DHTML( CURSOR_MOVE , $DHTML);</script>
 !exit
!endif

