Programmeren voor dummies (2)

function kapIPv6(ip)
    dim s
    iF ip<>"" AND InStr(ip,":")>0 Then
        s=Replace(ip,":","|",1,3)
        s=Left(s,Instr(s,":")-1)
        s=Replace(s,"|",":",1,3)
        kapIPv6=s
    else
        kapIPv6=""
    end if
end function

Programmeren voor dummies

Function RemoveNumber(s)
     s=replace(s,"0. ","")
     s=replace(s,"1. ","")
     s=replace(s,"2. ","")
     s=replace(s,"3. ","")
     s=replace(s,"4. ","")
     s=replace(s,"5. ","")
     s=replace(s,"6. ","")
     s=replace(s,"7. ","")
     s=replace(s,"8. ","")
     s=replace(s,"9. ","")
     s=replace(s,"A. ","")
     s=replace(s,"B. ","")
     s=replace(s,"C. ","")
     s=replace(s,"D. ","")
     s=replace(s,"E. ","")
     s=replace(s,"F. ","")
     s=replace(s,"G. ","")
     s=replace(s,"H. ","")
     s=replace(s,"I. ","")
     s=replace(s,"J. ","")
     s=replace(s,"K. ","")
     s=replace(s,"L. ","")
     s=replace(s,"M. ","")
     s=replace(s,"N. ","")
     s=replace(s,"O. ","")
     s=replace(s,"P. ","")
     s=replace(s,"Q. ","")
     s=replace(s,"R. ","")
     s=replace(s,"S. ","")
     s=replace(s,"T. ","")
     s=replace(s,"U. ","")
     s=replace(s,"V. ","")
     s=replace(s,"W. ","")
     s=replace(s,"X. ","")
     s=replace(s,"Y. ","")
     s=replace(s,"Z. ","")
     RemoveNumber=s
End Function

Website maken

Ik kwam er, in eerste instantie, niet uit. Ik wilde als moderator een knopje maken om snel een rekenvraag te kunnen bewerken. Dat lijkt redelijk eenvoudig. Dat was het uiteindelijk ook wel, maar 't viel niet mee.



Maar 't is weer gelukt. Als je niet dagelijk met dit soort dingen bezig bent dan moet je soms wel erg diep graven om de dingen boven water te krijgen. Uiteindelijk lukt dat altijd.

Ik heb (als moderator) nu ook bij de vragen plaatjes van de wiskunde- c.q. rekendocent.



Dat is ook handig. Misschien moet ik dat aanklikbaar maken voor een overzicht van de nagekeken opdrachten per docent. Dat is leuk om te weten...:-)

Opgelost

Er waren websitegewijs nog een paar dingen die voor verbetering vatbaar waren. Bij 't inloggen moet op de startpagina komen en niet op de pagina waar je 't laatst was. Als beheerder is dat wel handig, maar als docent of leerling is dat niet handig.

Als je inlogt met een verkeerde gebruikersnaam of wachtwoord zou het wel handig zijn om daarvan een melding te krijgen. Ook een goed idee...

Wel aan... dat is inmiddels opgelost. De navigatie verbetert en je krijgt nu een melding als je verkeerd inlogt:



Is dat leuk? Ja dat is leuk...:-)

Zonder herhaling...

Tien vragen kiezen uit een verzameling van meer dan 150 vragen, zonder herhaling? Dat is dan ook weer opgelost:

function KenOpgavenToe(UserID)
   dim vraagnummer, opgavenummer, error
   FOR vraagnummer=1 to 10
      opgavenummer=GeefOpgaveRandom(8376)
      WHILE StaatInDeLijst(UserID, opgavenummer)
         opgavenummer=GeefOpgaveRandom(8376)
      WEND 
      error=ZetOpdrachtInDatabase(UserID, vraagnummer, opgavenummer)
   NEXT
end function

't Is altijd belangrijk dat je zorgt dat het 'eindig' is, zullen we maar zeggen...:-)

ggd en kgv in asp...

function ggd(a,b)
   a = abs(a)
   b = abs(b)
   if a = 0 then
      ggd = b
   else 
      if b = 0 then
         ggd = a
      else 
         if a > b then
            ggd = ggd(b, a mod b)
         else
            ggd = ggd(a, b mod a)
         end if
      end if
   end if
end function

function kgv(a,b)
   kgv=a*b/ggd(a,b)
end function

Romeinse cijfers

Die functies voor de romeinse getallen hebben we ook. Alleen niet zelf bedacht, maar beter goed gepikt dan slecht geprogrammeerd.

function roman(arabic)
   ...
end function

Wat het doet? Je stopt er een 'getal' in en er komt een 'romeins getal' uit. Hoe moeilijk kan dat zijn?:-)

Daar word ik nu vrolijk van...:-)

Function Viertallig(lngNumber)
 Dim strFour
 strFour=""
 While lngNumber > 0
  IF lngNumber Mod 4 = 0 Then
   strFour = "0" & strFour
  Else If lngNumber Mod 4 = 1 Then
   strFour = "1" & strFour
  Else If lngNumber Mod 4 = 2 Then
   strFour = "2" & strFour
  Else If lngNumber Mod 4 = 3 Then
   strFour = "3" & strFour
  End if
  End if
  End if
  End if
  lngNumber = lngNumber \ 4
 Wend
 Viertallig = strFour
End Function

De complete programmatekst staat HIER.