corsoVbs\Esercizio 5: Introduzione del Ciclo Do Loop

Guido Ruggeri su winguido tecnica,dal 23\12\2009, h. 20.15.

Nell'ultima lezione abbiamo parlato dell'esigenza di
indirizzare la sequenza di esecuzione delle varie righe di
istruzioni che compongono un programma.
Abbiamo cioè detto che non necessariamente vogliamo che le
diverse righe siano eseguite una dopo l'altra, a partire
dalla prima per finire con l'ultima.
Certo, questo è quanto farà l'interprete se non gli
diremo diversamente.
Per dirgli di fare diversamente, abbiamo detto, una volta
c'era l'istruzione GoTo, che però non è supportata da
VBScript.
Dovremo perciò ricorrere ad altri costrutti.
Iniziamo così a presentare il ciclo Do Loop.
Riprendiamo le tre righe del precedente esercizio 4.
Però aggiungiamoci altre due righe: una prima, e una dopo.
Nella prima riga, sciviamoci la parola:
Do
Nell'ultima riga, scriviamoci la parola:
Loop
L'esercizio, in definitiva, diventa questo:

Ed ora, un po' di pubblicità

Do
Cognome = InputBox("Cognome:")
Nome = InputBox("Nome:")
MsgBox "Nominativo: " & Nome & " " & Cognome
Loop

Do significa: fai, esegui, mentre Loop significa: ciclo,
giro.
Il significato dell'istruzione Loop, nel codice VBScript,
è quello di indicare all'interprete di ritornare nella
riga in cui c'è l'istruzione Do, e di riprendere da lì.
Quindi l'istruzione Loop può essere intesa come "adesso
fai un altro giro".
Otterremo quindi il risultato che, dopo aver fatto apparire
il primo nome e cognome che è stato immesso, il programma
tornerà a chiedere un nuovo cognome e un nuovo nome.
E così via.
Per questo, nel parametro di MsgBox, non ho più messo la
dicitura "Io mi chiamo: " e l'ho sostituita con "Nominativo:
". Perché il programma chiederà più volte un cognome e
un nome, quindi bisogna presuporre che non si stia riferendo
a me, ma che sia finalizzato a registrare una lunga serie di
nominativi.
Ad esempio, gli alunni di una classe, i partecipanti ad una
festa, eccetera.
Allora, come al solito, scrivete quelle 5 righe in un file
con estensione .vbs e poi provate ad eseguirlo.
Ma, attenzione.
C'è qualcosa di cui, se ci ragionate un attimo sopra,
potreste rendervi conto fin da ora, prima di provare ad
eseguire il programma.
Altrimenti, vorrà dire che ve ne accorgerete quando
proverete ad eseguirlo.
Oh, altro che, se ve ne accorgerete!
Ma ne riparleremo quando racconterete come è andata.
Guido Ruggeri.
***
n.b.
Con le istruzioni sopra riportate da Guido il pc ti chiede continuamente di immettere nuovi nominativi.
(nota di pcCiechi)

Roberto Pellizzaro

Dal momento che, Babbo Natale/Guido, è stato troppo cattivo, ecco un modo
per non riavviare:

control + shift + esc
si aprirà il task manager.

portarsi nella pagina tabulata "processi" e selezionare la voce "scripts",
quindi "tasto applicazione" e cliccare sulla voce "termina" e confermare.

Naturalmente in ambiente windows.

***
d.

come questa mattina avevo segnalato l'errore
nel'esercizio 4 lo stesso si ripete nell'esercizio 5 vi incollo quello che
ho scritto.
do
Nome = imputbox("nome")
Cognome = InputBox("Cognome:")
msbox "nominativo: "&nome & " &cognome"
loop
dove l'errore?

r.
Giovanni taverna.

riga quattro, tu scrivi, in fondo: "cognome"...e sulla stessa
riga, appena prima manca il famoso spazio circondato da virgolette; insomma,
la riga dovrebbe essere:
msbox "nominativo: " &nome & " " &cognome
come vedi cognome non è tra virgolettee tra le due virgolette c'è solo uno
spazio.