L’interfaccia si compone di un campo password in cui inserire la parola da cercare, un campo testo in cui inserire la lettera, un campo testo in cui appare l’andamento del gioco (lettere indovinate e asterischi) e un campo testo che memorizza gli errori.

Parola da indovinare
Lettera Proposta
Soluzione Parziale
Errori

Premendo il pulsante start, tramite l’evento OnClick attiviamo la funzione iniziogioco() che pone a zero il campo errori e maschera la soluzione parziale. Per compiere quest’ultima operazione, si utilizzano le funzioni string e len: string genera un numero di asterischi uguale alla lunghezza (len) della parola da indovinare.

Alla pressione del pulsante prova, si cerca la lettera proposta tra le lettere della parola; nel caso si trovi, essa viene sostituita. Per rendere il gioco completo, viene visualizzato un messaggio nel caso la soluzione non contenga più asterischi.

<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>

Il tutto si basa sulle funzioni InStr, che restituisce la posizione di un’occorrenza all’interno di una parola, e Mid, che estrae una sottostringa da una frase.
24 / 32

Il FileSystem Object