<html>
<head><title>Esercizio 3</title></head>
<body>
<script language="vbscript">
<!--
sub iniziogioco()
errori.value = 0
Soluzione.value= string(len(parola.value),"*")
end sub
sub prova()
sol = "" ' valori iniziali
err = 1
for x=1 to len(parola.value)
carattere = mid(parola.value,x,1)
if carattere=lettera.value then
sol = sol & lettera.value
err = 0
else
sol=sol & mid(soluzione.value,x,1)
end if
next
errori.value = cint(errori.value) + err
Soluzione.value = sol
lettera.value = ""
lettera.focus()
if instr(1,Soluzione.value,"*") = 0 then
MsgBox "Hai Vinto"
end if
end sub
//-->
</script>
Parola da indovinare <input type="password" name="parola"/>
<input type="button" value="Start" onclick="iniziogioco()"/><br />
Lettera Proposta <input type="text" name="lettera" size="1" maxlength="1"/>
<input type="button" name="prova" value="Prova" onclick="prova()"/><br/>
Soluzione Parziale <input type="text" name="Soluzione"/><br/>
Errori <input type="text" name="errori" size="3"/>
</body>
</html>