Het script en de Html-body

Het script

<SCRIPT>
function Wissen (formulier,  min,max,   z01,z02,z03,z04)
{ 
     for (var i=1; i<=7; i++)
         {
          document.kladblok.y1.value  =  " "; 
          document.kladblok.y2.value  =  " "; 
          document.kladblok.y3.value  =  " "; 
          document.kladblok.y4.value  =  " ";
         }
     document.uitkomst.uitslag.value  =  " "; 
     document.uitkomst.ziekte.value  =  " "; 
     document.kladblok.y1.value  =  parseFloat(z01); 
     document.kladblok.y2.value  =  parseFloat(z02); 
     document.kladblok.y3.value  =  parseFloat(z03); 
     document.kladblok.y4.value  =  parseFloat(z04);  
}

function BerekenEerste (formulier, i, p1,p2,p3,p4) 
{
     var totaal;
     totaal = p1*0.25+p2*0.25+p3*0.25+p4*0.25;
     document.kladblok.y1.value  =  parseFloat(0.25*p1/totaal); 
     document.kladblok.y2.value  =  parseFloat(0.25*p2/totaal); 
     document.kladblok.y3.value  =  parseFloat(0.25*p3/totaal); 
     document.kladblok.y4.value  =  parseFloat(0.25*p4/totaal);  
}

function BerekenVolgenden (formulier, i, p1,p2,p3,p4) 
{
      var totaal,bewaar=0;
      totaal = p1*document.kladblok.y1.value+p2*document.kladblok.y2.value
                +p3*document.kladblok.y3.value+p4*document.kladblok.y4.value;
      document.kladblok.y1.value  =  
           parseFloat(document.kladblok.y1.value*p1/totaal); 
      document.kladblok.y2.value  =  
           parseFloat(document.kladblok.y2.value*p2/totaal); 
      document.kladblok.y3.value  =  
           parseFloat(document.kladblok.y3.value*p3/totaal); 
      document.kladblok.y4.value  =  
           parseFloat(document.kladblok.y4.value*p4/totaal);  

      if (i==7)
      { 
      bewaar = Math.max(document.kladblok.y1.value, document.kladblok.y2.value); 
      if (bewaar==document.kladblok.y1.value) {ziekte="astma bronchiale"}
      if (bewaar==document.kladblok.y2.value) {ziekte="decompensatie cordis"}
      bewaar = Math.max(bewaar, document.kladblok.y3.value); 
      if (bewaar==document.kladblok.y3.value) {ziekte="claudicatio intermittens"}
      bewaar = Math.max(bewaar, document.kladblok.y4.value); 
      if (bewaar==document.kladblok.y4.value) {ziekte="angina pectoris"}
      document.uitkomst.uitslag.value = bewaar; 
      document.uitkomst.ziekte.value = ziekte;
      }
}
</SCRIPT>

De Html-body

<FORM>
Wilt u starten of resetten? Klik dan eerst 
<INPUT  TYPE="button"  VALUE="hier" ONCLICK="Wissen(this.Form,0,7, 0.25,0.25,0.25,0.25)">
</FORM>

Beantwoordt nu de onderstaande zeven vragen.

<FORM>
1. <INPUT  TYPE="button"  VALUE="Ja"  
ONCLICK="BerekenEerste(this.Form,1    ,0.8,0.8,0.3,0.3)">
<INPUT  TYPE="button"  VALUE="Nee"  
ONCLICK="BerekenEerste(this.Form,1    ,1-0.8,1-0.8,1-0.3,1-0.3)">
Bent u kortademig als u zich inspant? 
</FORM>

<FORM>
2. <INPUT  TYPE="button"  VALUE="Ja"  
ONCLICK="BerekenVolgenden(this.Form,2    ,0.3,0.3,0.9,0.3)">
<INPUT  TYPE="button"  VALUE="Nee"  
ONCLICK="BerekenVolgenden(this.Form,2    ,1-0.3,1-0.3,1-0.9,1-0.3)">
Heeft u last van pijn aan uw benen? 
</FORM>

<FORM>
3. <INPUT  TYPE="button"  VALUE="Ja"  
ONCLICK="BerekenVolgenden(this.Form, 3    ,0.3,0.3,0.9,0.9)">
<INPUT  TYPE="button"  VALUE="Nee"  
ONCLICK="BerekenVolgenden(this.Form, 3    ,1-0.3,1-0.3,1-0.9,1-0.9)">
Heeft u last van pijn wanneer u zich inspant? 
</FORM>

<FORM>
4. <INPUT  TYPE="button"  VALUE="Ja"  
ONCLICK="BerekenVolgenden(this.Form,4    ,0.3,0.8,0.3,0.3)">
<INPUT  TYPE="button"  VALUE="Nee"  
ONCLICK="BerekenVolgenden(this.Form,4    ,1-0.3,1-0.8,1-0.3,1-0.3)">
Heeft u  's nachts gezwollen voeten? 
</FORM>

<FORM>
5. <INPUT  TYPE="button"  VALUE="Ja"  
ONCLICK="BerekenVolgenden(this.Form,5    ,0.65,0.65,0.3,0.3)">
<INPUT  TYPE="button"  VALUE="Nee"  
ONCLICK="BerekenVolgenden(this.Form,5    ,1-0.65,1-0.65,1-0.3,1-0.3)">
Vertoont uw lichaam blauwe plekken?
</FORM>

<FORM>
6. <INPUT  TYPE="button"  VALUE="Ja"  
ONCLICK="BerekenVolgenden(this.Form,6    ,0.65,0.3,0.65,0.9)">
<INPUT  TYPE="button"  VALUE="Nee"  
ONCLICK="BerekenVolgenden(this.Form,6    ,1-0.65,1-0.3,1-0.65,1-0.9)">
Heeft pijn aan het midden van uw borstbeen? 
</FORM>

<FORM>
7. <INPUT  TYPE="button"  VALUE="Ja"  
ONCLICK="BerekenVolgenden(this.Form,7    ,0.3,0.3,0.65,0.9)">
<INPUT  TYPE="button"  VALUE="Nee"  
ONCLICK="BerekenVolgenden(this.Form,7    ,1-0.3,1-0.3,1-0.65,1-0.9)">
Voelt u een hevige druk op uw borst? 
</FORM>

<FORM NAME="kladblok">
Tussenresultaten voor
A: <INPUT  TYPE="text"   NAME="y1"     SIZE=2>
B: <INPUT  TYPE="text"   NAME="y2"     SIZE=2>
C: <INPUT  TYPE="text"   NAME="y3"     SIZE=2>
D: <INPUT  TYPE="text"   NAME="y4"     SIZE=2>.
</FORM>

<FORM NAME="uitkomst">
U heeft derhalve waarschijnlijk 
<INPUT  TYPE="text"  NAME="ziekte"  SIZE=20>
met een kans van 
<INPUT  TYPE="text"  NAME="uitslag" SIZE=2>
</FORM>

Enschede, 24 januari, 2004