Ora si comincia a fare sul serio. Tenetevi stretti.
In fondo al post è riportato il codice dell'oracolo universale che, copiato e incollato in un file di testo e poi salvato col nome di "oracolo.vbs" può essere eseguito per vedere cosa fa.
Ma prima sarebbe meglio analizzarlo e introdurre alcuni fondamentali concetti della programmazione:
Dati
Variabili
Operatori
Istruzioni di controllo
Dati: sono sostanzialmente di due tipi:
- numeri (quelli che 2 + 2 fa 4)
- stringhe di caratteri (quelle che "ABC" + "ZZZ" fa "ABCZZZ")
Una "variabile" è il nome che assegnamo ad una zona di memoria destinata a contenere dati.
Per creare la variabile "pippo" è sufficiente assegnarle un valore (questo è un classico della programmazione: se volete sembrare davvero esperti softwaristi quando dovete dare un generico nome a una variabile, con pippo farete sempre un figurone) .
Esempio:
pippo = ("Ehi questa è una variabile")
Il segno di "uguale" tra pippo e "Ehi questa è una variabile" è un Operatore che effettua l'assegnazione del valore alla variabile.
provate questo per esempio:
Codice:
pippo = ("Ehi questa è una variabile")
msgbox(pippo)
(fa la stessa cosa di msgbox("Ehi questa è una variabile") perchè pippo è stato creato assegnandogli proprio il valore "Ehi questa è una variabile")
la funzione InputBox("qualcosa") visualizza (come msgbox) il "qualcosa" ma poi chiede all'utente di digitare qualcosa con la tastiera.
Quello che digitiamo può essere assegnato ad una variabile in questo modo:
Codice:
Risposta = InputBox("Quello che digiti finirà dentro la variabile Risposta")
msgbox(Risposta)
L'istruzione di controllo If - then - else dovrebbe essere intuitiva dall'esempio.
La Funzione Left(Risposta,1) estrae il primo carattere a sinistra contenuto nella variabile Risposta
Ecco l'Oracolo Universale
Codice:
Istruzioni = "L'oracolo è pronto a rispondere alle tue domande"
msgbox(Istruzioni)
Risposta = InputBox("Scrivi la tua domanda: la risposta sarà solo un SI o un NO")
PrimoCarattere = Left(Risposta,1)
If PrimoCarattere = "" then
Msgbox("Grazie lo stesso")
ElseIf PrimoCarattere > "L" then
Msgbox("La risposta è NO")
ElseIf PrimoCarattere < "M" then
Msgbox("La risposta è SI")
End If