vanakam
<HTML>
<HEAD>
<body bgcolor="#786786">
<img src="3D.jpg" height="200" width="200" align="left"/>
<img src="3D.jpg" height="200" width="200" align="right"/>
<marquee direction="up"><img src="3D.jpg" height="200" width="200" align="right"/></marquee>
</CENTER>
<marquee>WELCOME TO THURUVI DESIGNER </marquee>
</body>
<TITLE>CGPA</TITLE>
<SCRIPT LANGUAGE="vbscript">
<!--
Sub Button1_OnClick
int z=1
a = Document.Form1.Text1.Value
b = Document.Form1.Text2.Value
c = Document.Form1.Text3.Value
d = Document.Form1.Text4.Value
e = Document.Form1.Text5.Value
f = Document.Form1.Text6.Value
a1 = Document.Form1.C1.Value
b1 = Document.Form1.C2.Value
c1 = Document.Form1.C3.Value
d1 = Document.Form1.C4.Value
e1 = Document.Form1.C5.Value
f1 = Document.Form1.C6.Value
if ((CInt(a)>=50) and (CInt(a)<59)) then
z=z+(CInt(a1)*6)
end if
if((CInt(a)>=60) and (CInt(a)<69)) then
z=z+(CInt(a1)*7)
end if
if((CInt(a)>=70) and (CInt(a)<79)) then
z=z+(CInt(a1)*8)
end if
if ((CInt(a)>=80) and (CInt(a)<89)) then
z=z+(CInt(a1)*9)
end if
if((CInt(a)>=90) and (CInt(a)<=100)) then
z=z+(CInt(a1)*10)
end if
if ((CInt(b)>=50) and (CInt(b)<59)) then
z=z+(CInt(b1)*6)
end if
if((CInt(b)>=60) and (CInt(b)<69)) then
z=z+(CInt(b1)*7)
end if
if((CInt(b)>=70) and (CInt(b)<79)) then
z=z+(CInt(b1)*8)
end if
if ((CInt(b)>=80) and (CInt(b)<89)) then
z=z+(CInt(b1)*9)
end if
if((CInt(b)>=90) and (CInt(b)<=100)) then
z=z+(CInt(b1)*10)
end if
if ((CInt(c)>=50) and (CInt(c)<59)) then
z=z+(CInt(c1)*6)
end if
if((CInt(c)>=60) and (CInt(c)<69)) then
z=z+(CInt(c1)*7)
end if
if((CInt(c)>=70) and (CInt(c)<79)) then
z=z+(CInt(c1)*8)
end if
if ((CInt(c)>=80) and (CInt(c)<89)) then
z=z+(CInt(c1)*9)
end if
if((CInt(c)>=90) and (CInt(c)<=100)) then
z=z+(CInt(c1)*10)
end if
if ((CInt(d)>=50) and (CInt(d)<59)) then
z=z+(CInt(d1)*6)
end if
if((CInt(d)>=60) and (CInt(d)<69)) then
z=z+(CInt(d1)*7)
end if
if((CInt(d)>=70) and (CInt(d)<79)) then
z=z+(CInt(d1)*8)
end if
if ((CInt(d)>=80) and (CInt(d)<89)) then
z=z+(CInt(d1)*9)
end if
if((CInt(d)>=90) and (CInt(d)<=100)) then
z=z+(CInt(d1)*10)
end if
if ((CInt(e)>=50) and (CInt(e)<59)) then
z=z+(CInt(e1)*6)
end if
if((CInt(e)>=60) and (CInt(e)<69)) then
z=z+(CInt(e1)*7)
end if
if((CInt(e)>=70) and (CInt(e)<79)) then
z=z+(CInt(e1)*8)
end if
if ((CInt(e)>=80) and (CInt(e)<89)) then
z=z+(CInt(e1)*9)
end if
if((CInt(e)>=90) and (CInt(e)<=100)) then
z=z+(CInt(e1)*10)
end if
if ((CInt(f)>=50) and (CInt(f)<59)) then
z=z+(CInt(f1)*6)
end if
if((CInt(f)>=60) and (CInt(f)<69)) then
z=z+(CInt(f1)*7)
end if
if((CInt(f)>=70) and (CInt(f)<79)) then
z=z+(CInt(f1)*8)
end if
if ((CInt(f)>=80) and (CInt(f)<89)) then
z=z+(CInt(f1)*9)
end if
if((CInt(f)>=90) and (CInt(f)<=100)) then
z=z+(CInt(f1)*10)
end if
Document.Form1.Text7.Value =z/ (CInt(a1) + CInt(b1) + CInt(c1)+CInt(d1) + CInt(e1) + CInt(f1))
End Sub
-->
</SCRIPT>
</HEAD>
<BODY BGCOLOR="white"><br><br><br><br><br><br><br><br><br>
<CENTER>
<FORM NAME="Form1">
Enter a Number <INPUT TYPE="text" NAME="Text1">
CREDIT POINT <INPUT TYPE="TEXT" NAME="C1"><P>
Enter a Number <INPUT TYPE="text" NAME="Text2">
CREDIT POINT <INPUT TYPE="TEXT" NAME="C2"><P>
Enter a Number <INPUT TYPE="text" NAME="Text3">
CREDIT POINT <INPUT TYPE="TEXT" NAME="C3"><P>
Enter a Number <INPUT TYPE="text" NAME="Text4">
CREDIT POINT <INPUT TYPE="TEXT" NAME="C4"><P>
Enter a Number <INPUT TYPE="text" NAME="Text5">
CREDIT POINT <INPUT TYPE="TEXT" NAME="C5"><P>
Enter a Number <INPUT TYPE="text" NAME="Text6">
CREDIT POINT <INPUT TYPE="TEXT" NAME="C6"><P>
<INPUT TYPE="button" NAME="Button1" VALUE="CGPA"><P>
Total : <INPUT TYPE="text" NAME="Text7">
</FORM>
</CENTER>
<marquee>THAMIZHAN S.VINAYAGAMOORTHY :) </marquee>
</BODY>
</HTML>
THIS IS SAMPLE HTML PROGRAM TO CALCULATE THE C.G.P.A DONE IN OUR LAB
<HEAD>
<body bgcolor="#786786">
<img src="3D.jpg" height="200" width="200" align="left"/>
<img src="3D.jpg" height="200" width="200" align="right"/>
<marquee direction="up"><img src="3D.jpg" height="200" width="200" align="right"/></marquee>
</CENTER>
<marquee>WELCOME TO THURUVI DESIGNER </marquee>
</body>
<TITLE>CGPA</TITLE>
<SCRIPT LANGUAGE="vbscript">
<!--
Sub Button1_OnClick
int z=1
a = Document.Form1.Text1.Value
b = Document.Form1.Text2.Value
c = Document.Form1.Text3.Value
d = Document.Form1.Text4.Value
e = Document.Form1.Text5.Value
f = Document.Form1.Text6.Value
a1 = Document.Form1.C1.Value
b1 = Document.Form1.C2.Value
c1 = Document.Form1.C3.Value
d1 = Document.Form1.C4.Value
e1 = Document.Form1.C5.Value
f1 = Document.Form1.C6.Value
if ((CInt(a)>=50) and (CInt(a)<59)) then
z=z+(CInt(a1)*6)
end if
if((CInt(a)>=60) and (CInt(a)<69)) then
z=z+(CInt(a1)*7)
end if
if((CInt(a)>=70) and (CInt(a)<79)) then
z=z+(CInt(a1)*8)
end if
if ((CInt(a)>=80) and (CInt(a)<89)) then
z=z+(CInt(a1)*9)
end if
if((CInt(a)>=90) and (CInt(a)<=100)) then
z=z+(CInt(a1)*10)
end if
if ((CInt(b)>=50) and (CInt(b)<59)) then
z=z+(CInt(b1)*6)
end if
if((CInt(b)>=60) and (CInt(b)<69)) then
z=z+(CInt(b1)*7)
end if
if((CInt(b)>=70) and (CInt(b)<79)) then
z=z+(CInt(b1)*8)
end if
if ((CInt(b)>=80) and (CInt(b)<89)) then
z=z+(CInt(b1)*9)
end if
if((CInt(b)>=90) and (CInt(b)<=100)) then
z=z+(CInt(b1)*10)
end if
if ((CInt(c)>=50) and (CInt(c)<59)) then
z=z+(CInt(c1)*6)
end if
if((CInt(c)>=60) and (CInt(c)<69)) then
z=z+(CInt(c1)*7)
end if
if((CInt(c)>=70) and (CInt(c)<79)) then
z=z+(CInt(c1)*8)
end if
if ((CInt(c)>=80) and (CInt(c)<89)) then
z=z+(CInt(c1)*9)
end if
if((CInt(c)>=90) and (CInt(c)<=100)) then
z=z+(CInt(c1)*10)
end if
if ((CInt(d)>=50) and (CInt(d)<59)) then
z=z+(CInt(d1)*6)
end if
if((CInt(d)>=60) and (CInt(d)<69)) then
z=z+(CInt(d1)*7)
end if
if((CInt(d)>=70) and (CInt(d)<79)) then
z=z+(CInt(d1)*8)
end if
if ((CInt(d)>=80) and (CInt(d)<89)) then
z=z+(CInt(d1)*9)
end if
if((CInt(d)>=90) and (CInt(d)<=100)) then
z=z+(CInt(d1)*10)
end if
if ((CInt(e)>=50) and (CInt(e)<59)) then
z=z+(CInt(e1)*6)
end if
if((CInt(e)>=60) and (CInt(e)<69)) then
z=z+(CInt(e1)*7)
end if
if((CInt(e)>=70) and (CInt(e)<79)) then
z=z+(CInt(e1)*8)
end if
if ((CInt(e)>=80) and (CInt(e)<89)) then
z=z+(CInt(e1)*9)
end if
if((CInt(e)>=90) and (CInt(e)<=100)) then
z=z+(CInt(e1)*10)
end if
if ((CInt(f)>=50) and (CInt(f)<59)) then
z=z+(CInt(f1)*6)
end if
if((CInt(f)>=60) and (CInt(f)<69)) then
z=z+(CInt(f1)*7)
end if
if((CInt(f)>=70) and (CInt(f)<79)) then
z=z+(CInt(f1)*8)
end if
if ((CInt(f)>=80) and (CInt(f)<89)) then
z=z+(CInt(f1)*9)
end if
if((CInt(f)>=90) and (CInt(f)<=100)) then
z=z+(CInt(f1)*10)
end if
Document.Form1.Text7.Value =z/ (CInt(a1) + CInt(b1) + CInt(c1)+CInt(d1) + CInt(e1) + CInt(f1))
End Sub
-->
</SCRIPT>
</HEAD>
<BODY BGCOLOR="white"><br><br><br><br><br><br><br><br><br>
<CENTER>
<FORM NAME="Form1">
Enter a Number <INPUT TYPE="text" NAME="Text1">
CREDIT POINT <INPUT TYPE="TEXT" NAME="C1"><P>
Enter a Number <INPUT TYPE="text" NAME="Text2">
CREDIT POINT <INPUT TYPE="TEXT" NAME="C2"><P>
Enter a Number <INPUT TYPE="text" NAME="Text3">
CREDIT POINT <INPUT TYPE="TEXT" NAME="C3"><P>
Enter a Number <INPUT TYPE="text" NAME="Text4">
CREDIT POINT <INPUT TYPE="TEXT" NAME="C4"><P>
Enter a Number <INPUT TYPE="text" NAME="Text5">
CREDIT POINT <INPUT TYPE="TEXT" NAME="C5"><P>
Enter a Number <INPUT TYPE="text" NAME="Text6">
CREDIT POINT <INPUT TYPE="TEXT" NAME="C6"><P>
<INPUT TYPE="button" NAME="Button1" VALUE="CGPA"><P>
Total : <INPUT TYPE="text" NAME="Text7">
</FORM>
</CENTER>
<marquee>THAMIZHAN S.VINAYAGAMOORTHY :) </marquee>
</BODY>
</HTML>
No comments:
Post a Comment