 Buono sconto 4% su Toner e Cartucce agli utenti AZpoint. SU Iomiricarico.it!!
| Si ringrazia Matteo Gentile per la concessione del materiale pubblicato in questo articolo.
|
Questo esempio (che in realtà è un giochino) genera un numero casuale
(grazie all'istruzione Rnd( ) ) compreso tra 0 e 100 e il visitatore deve
indovinarlo.
sfrutta l'Oggetto Session per
memorizzare le variabili, la funzione IsNumeric() per verificare se è stato
immesso effettivamente un numero, e la funzione CInt() per convertire le
variabili di sessione in numeri interi.
Dato che esiste una parte di
inizializzazione che deve essere presente appena apro la pagina, se azzero la
ricerca o se non ho immesso un numero intero, è stata racchiusa in una Sub.
Vediamo
il codice dell'esempio (Indovina.asp):
<html>
<body><center>
<%
Sub Inizializza( )
Response.Write("<b>Inserisci un numero tra 0 e 100<br>")
Randomize()
indovina=CInt(100*Rnd())
Session("indovina")=indovina
Session("Tentativo")=0
Session("Inf")=0
Session("Sup")=100
End
Sub
bottone=Request.form("bottone")
IF NOT bottone="Azzera" THEN
num=request.form("num")
IF Not num="" Then
Check=IsNumeric(num)
IF Check=True THEN
num=CInt(num)
indovina=CInt(Session("indovina"))
Tentativo=CInt(Session("Tentativo"))+1
Session("Tentativo")=Tentativo
Response.Write("<b>Tentativo numero " & Tentativo &
"<br>")
Inf=CInt(Session("Inf"))
Sup=CInt(Session("Sup"))
IF (num>indovina) THEN
Response.Write("<b>Il numero è
compreso tra " & Inf & " e " & num)
Session("Sup")=num
ELSEIF (num<indovina) THEN
Response.Write("<b>Il numero è
compreso tra " & num & " e " & Sup)
Session("Inf")=num
ELSEIF (num=indovina) THEN
REsponse.Write("<b>Esatto!")
END IF
Else
Inizializza()
End IF
Else
Inizializza()
End IF
ELSE
Session.Abandon
Inizializza()
END IF
%>
<br>
<form
method=post action="Indovina.asp">
<input type=text size=2
name="num">
<input type=submit name="bottone" value="Prova">
<input type=submit name="bottone" value="Azzera">
</form>
</center>
</body>
</html>
Clicca qui per vedere
l'esempio.
|
Shopping
