<html>
<head>
<title>Function</title>
</head>
<body>
<%
function nilai
nilai=75
If nilai > 65 then
Grade="lulus"
Else
Grade="tidak lulus"
End If
Response.Write "Grade deliana : "&Grade&"<br>"
Hasil="Tidak Lulus"
If nilai >65 then
Hasil ="""anda lulus...!"""
End If
End Function
Response.Write"Dengan Nilai : "&nilai&"<br>"
Response.Write strhasil
%>
</body>
</html>
like this yooo
Selasa, 18 Oktober 2011
belajar asp
<html>
<head>
<title>penggunaan if</title>
<body>
<form>
Masukkan nilai ujian(0-100):<input type=text name=nilai> <br>
<nilai type=submit value="proses"> <br>
</form>
<%
dim strnilai, strhasil , grade
dim nilai
strnilai =request.querystring("nilai")
if strnilai=""then
strnilai="0"
end if
nilai=cint(strnilai)
response.write "Nilai Ujian Anda :"&nilai&"<br>"
if nilai<50 then
grade="E"
elseif nilai<60 then
grade="D"
elseif nilai<80 then
grade="C"
elseif nilai<90 then
grade="B"
else
grade="A"
end if
response.write "dengan grade:"&grade& "<br>"
strhasil="Anda Gagal"
if nilai>=60 then
strhasil="""Anda Lulus...!!!"""
end if
response.write strhasil
%>
</body>
</html>
<head>
<title>penggunaan if</title>
<body>
<form>
Masukkan nilai ujian(0-100):<input type=text name=nilai> <br>
<nilai type=submit value="proses"> <br>
</form>
<%
dim strnilai, strhasil , grade
dim nilai
strnilai =request.querystring("nilai")
if strnilai=""then
strnilai="0"
end if
nilai=cint(strnilai)
response.write "Nilai Ujian Anda :"&nilai&"<br>"
if nilai<50 then
grade="E"
elseif nilai<60 then
grade="D"
elseif nilai<80 then
grade="C"
elseif nilai<90 then
grade="B"
else
grade="A"
end if
response.write "dengan grade:"&grade& "<br>"
strhasil="Anda Gagal"
if nilai>=60 then
strhasil="""Anda Lulus...!!!"""
end if
response.write strhasil
%>
</body>
</html>
Langganan:
Komentar (Atom)