Kredi

Not







tKredi

tNot






  

            sitene ekle		

        <%%TEXTAREA><br />
      </FORM><br />
      <FORM action="" name="form2"><br />
        <TABLE><br />
          <TR><br />
            <TD><br />
              Ortalama<br />
            </TD><br />
          </TR><br />
          <TR><br />
            <TD><br />
              <INPUT type="text" size="8" name="ort" readonly><br />
            </TD><br />
          </TR><br />
        </TABLE><br />
      </FORM><br />
	<br />
    </CENTER><br />
<SCRIPT><br />
/*Osmangazi Üniversitesinde uygulanan harfli not sistemi şöyledir:<br />
AA:4.0;BA:3.5;BB:3.0;CB:2.5;CC:2.0;DC:1.5;DD:1.0;FF:0.0;;;<br />
Burada not bölümüne geçerli harflerden başka ve iki harften fazla girilememektedir.<br />
*/<br />
var carpim=0<br />
var kredy=0, not=0<br />
var tcarpim=0<br />
var tkredy=0<br />
var ortalama=0<br />
var Ncount=0<br />
function ekle()<br />
{<br />
var nn<br />
//Değerleri kutulardan al<br />
 	kredy = parseInt(document.form1.kredi.value)<br />
	not = nota(document.form1.not.value)<br />
//not değeri yanlış verildiğinde fonksiyondan dön<br />
	if(not==-1){<br />
		document.form1.kredi.value = "";<br />
		document.form1.not.value = "";<br />
		document.form1.kredi.focus();<br />
		return;<br />
	}<br />
//Hesaplamaları yap<br />
	tkredy += kredy<br />
	carpim =  kredy * not<br />
	tcarpim += carpim<br />
	ortalama = (Math.round((tcarpim / tkredy)*100))/100<br />
//Spnuçları yazdır<br />
	document.form1.tkredi.value = tkredy<br />
	document.form1.tnot.value = tcarpim<br />
	document.form2.ort.value = ortalama<br />
	nn=document.form1.not.value.toUpperCase()<br />
	document.form1.kredi.value = ""<br />
	document.form1.not.value = ""	<br />
	document.form1.kredi.focus()<br />
	Ncount++;<br />
//Textarea'ya yaz<br />
	document.form1.txtarea.value = Ncount + ") " + kredy + " kredi " + nn + "(" + not + ")\n" + document.form1.txtarea.value<br />
<br />
<br />
<br />
}<br />
//Adında nota geçmesine aldanmayın, not kısmından gelen harfnotuna<br />
//göre 4'lük sistemdeki değerini geri döndürür<br />
function nota(nt)<br />
{<br />
var ret;<br />
 	switch(nt)<br />
	{<br />
	 case "AA": case "Aa": case "aA": case "aa":<br />
	 {<br />
	  ret=4.0; break;<br />
	 }<br />
	 case "BA": case "Ba": case "bA": case "ba":<br />
	 {<br />
	  ret=3.5; break;<br />
	 }<br />
	 case "BB": case "Bb": case "bB": case "bb":<br />
	 {<br />
	  ret=3.0; break;<br />
	 }<br />
	 case "CB": case "Cb": case "cB": case "cb":<br />
	 {<br />
	  ret=2.5; break;<br />
	 }<br />
	 case "CC": case "Cc": case "cC": case "cc":<br />
	 {<br />
	  ret=2.0; break;<br />
	 }<br />
	  case "DC": case "Dc": case "dC": case "dc":<br />
	 {<br />
	  ret=1.5; break;<br />
	 }<br />
	 case "DD": case "Dd": case "dD": case "dd":<br />
	 {<br />
	  ret=1.0; break;<br />
	 }<br />
	 case "FF": case "Ff": case "fF": case "ff":<br />
	 {<br />
	  ret=0.0; break;<br />
	 }<br />
	 default:{ alert("Hatali giris"); ret=-1}<br />
	}<br />
return ret;<br />
}<br />
//Reset tuşuna basıldığında yapılacak olanlar<br />
function rst()<br />
{<br />
 	carpim=0<br />
	kredy=0<br />
	not=0<br />
	tcarpim=0<br />
	tkredy=0<br />
	ortalama=0<br />
	Ncount=0<br />
	document.form1.txtarea.value=""<br />
 	document.form1.kredi.value = ""<br />
	document.form1.not.value = ""	<br />
	document.form1.kredi.focus()<br />
	document.form2.ort.value=""<br />
}<br />
//Not kısmına girilecek olan tuşları kısıtlar<br />
function keyA(code)<br />
{<br />
 window.status=code;<br />
 if((code>=65)&&(code<=70)&&(!(code==69))) return true;<br />
 else if((code>=97)&&(code<=102)&&(!(code==101))) return true;<br />
 else return false;<br />
}<br />
//Kredi kısmına rakam dışında birşey girilmesini engeller<br />
function keyB(code)<br />
{<br />
 if((code>=48)&&(code<=57)) return true;<br />
 else return false;<br />
}<br />
</SCRIPT><br />
  <br />
</BODY><br />
</HTML><br />

</pre>
</div>
<br />
<br />
<SCRIPT language=VBScript>
<!--

Dim Bar, Line, SP
Bar = 0 
Line = "|"
sP = 100

Function Window_onLoad()
Bar = 95
sP = 10
END Function

Function Count()
If Bar < 100 Then
Bar = Bar + 1
Window.Status = "Yükleniyor: " & Bar & "%" & " " & String(Bar, Line)
setTimeout "Count()", SP
Else
Window.Status = "Yükleme Bitti"
Document.Body.Style.Display = "" 
End If 
End Function

Call Count()

-->
</SCRIPT></center></pre>
</div>
</pre>
</div>
<p> </p></body></html>