DirectLink

Als iemand linkt naar http://www.wisfaq.nl/uitleg.asp in plaats van http://www.wisfaq.nl dan kan je met dit scriptje de bezoeker naar de beginpagina sturen. De tweede keer is er dan verder niets aan de hand.

<%
  IF NOT session("directlink") THEN
	session("directlink")=TRUE
	response.redirect "/"
  End If
%>

Jaja... mij krijg je niet gek...:-)

De rekentoets

Ik ben bezig om een leerroute 'de rekentoets' te maken in wiskundeleraar.nl. De leerroute bestaat uit 10 willekeurig gekozen opgaven uit een verzameling van 135 rekenopgaven uit de voorbeeldrekentoetsen van het CITO, van beterrekenen en een aantal eigen creaties...

De kunst is nu om aan elke leerling 10 willekeurige vragen toe te kennen. Dat gaat nog wel. Daarna moet ik de lijst met vragen koppelen aan de pagina's uit de leerroute. Dat kan ook.

Dat is nog een leuk werkje voor de vakantie...:-)

Lieve kleurtjes

Volgens mij zou zou deze 'functie' lieve kleurtjes moeten geven:

Function randombgcolor
 dim min, max, r, g, b
        min = 192
        max = 255
 RANDOMIZE()
        r = Int(((max - min + 1) * Rnd) + min)
        g = Int(((max - min + 1) * Rnd) + min)
        b = Int(((max - min + 1) * Rnd) + min)
 randombgcolor=RGB(r,g,b)
End function

Maar... hij doet het niet, dus nu snap ik het even niet meer...

Dan maar zo:

Function randombgcolor
 dim min, max, r, g, b
        min = 192
        max = 255
 RANDOMIZE()
        r = Hex(((max - min + 1) * Rnd) + min)
        g = Hex(((max - min + 1) * Rnd) + min)
        b = Hex(((max - min + 1) * Rnd) + min)
 randombgcolor = "#" & r & g & b
End function

Dat werkt wel... vreemd hoor:-)

Maar dat is hem niet geworden. Elke keer een ander kleurtje als je een antwoord 'dicht of open klapt' is ook niet alles.

Function randombgcolor(s1, s2, s3)
 dim r, b, g
     r = Hex(192 + (s1 MOD 64))
     b = Hex(192 + (s2 MOD 64))
     g = Hex(192 + (s3 MOD 64))
 randombgcolor = "#" & r & b & g
End function

Dat moet hem zijn. s1, s2 en s3 worden ingevuld op basis van unieke gegevens van de deelnemer. Die heeft dus altijd dezelfde kleur. Steeds hetzelfde en toch bij iedereen anders...:-)

Maar nog steeds niet helemaal tevreden.

Function randombgcolor(seed)
 dim r, b, g, index
 index=seed MOD 6
 IF index=0 THEN
         r = Hex(192 + (seed MOD 64))
  b = Hex(192 + (seed MOD 64))
  g = Hex(192)
 END IF
 IF index=1 THEN
         r = Hex(192 + (seed MOD 64))
  b = Hex(192)
  g = Hex(192 + (seed MOD 64))
 END IF
 IF index=2 THEN
         r = Hex(192)
  b = Hex(192 + (seed MOD 64))
  g = Hex(192 + (seed MOD 64))
 END IF
 IF index=3 THEN
         r = Hex(192 + (seed MOD 64))
  b = Hex(192 + (seed MOD 64))
  g = Hex(192)
 END IF
 IF index=4 THEN
         r = Hex(192 + (seed MOD 64))
  b = Hex(192)
  g = Hex(192 + (seed MOD 64))
 END IF
 IF index=5 THEN
         r = Hex(192)
  b = Hex(192 + (seed MOD 64))
  g = Hex(192 + (seed MOD 64))
 END IF
 randombgcolor = "#" & r & b & g
End function

Zo... dat moet dan maar.:-)

Weer een ergernis minder

Ik had al een tijdje een annotatiesysteem in wiskundeleraar.nl. Daarmee kan je, als je bent ingelogd, aan elke pagina een annotatie hangen. In de werkruimte kan je die annotaties dan zien en er is zelf een pagina met alle annotaties per werkruimte. Je kunt dan van de werkruimten waar je lid van bent de annotaties bekijken. Je kunt makkelijk springen van annotie naar pagina en van pagina naar werkruimte. Kortom: dolle pret.

Handig!

Eén van de ergernissen was dat het openklappen van het schermpje onderaan de pagina alleen werkt bij Internet Explorer. Dat is dan een beetje slordig. Ergens zat er dus iets niet goed met de code. Maar dat is nu gelukkig opgelost. Het werkt nu ook in CHROME, firefox, safari, opera... je zegt het maar...:-)

De code deugde gewoon niet. Nu heb ik één scriptje voor alle browsers en dat is dan weer een ergenis minder. Ik vind het mooi...

...en het bewijst maar weer dat als je iets wilt oplossen dat het uiteindelijk altijd lukt. Gewoon volhouden en geen genoegen nemen met flutoplossingen.

Maar daar was ik eigenlijk helemaal mee bezig. Ik wilde het puntensysteem voor de peerfeedback maken en daar gebruik ik ook uitklapschermpjes, vandaar!:-)

Alles op z'n tijd, rustig aan.