|
I Metodi si dividono in due categorie: Procedure e Funzioni. La procedura è il sistema più semplice di far eseguire operazioni ad un programma. Ecco come si presenta una procedura:
SINTASSI:
Sub <nomeprocedura>()
<istruzioni>
End Sub
Per richiamare la procedura, userò direttamente <nomeprocedura>.
Pensiamo a una procedura del genere:
CODICE:
Sub Io()
Dim return
return = InputBox("Inserisci un valore")
wscript.echo("Il valore immesso è " & return)
End Sub
E se noi volessimo decidere quale messaggio visualizzare nell'inputbox e nel wscript.echo ? Non c'è problema, esistono gli argomenti:
SINTASSI:
Sub <nomeprocedura>(<arg1>,<arg2>)
<istruzioni>
End Sub
Teoricamente gli argomenti potrebbero essere infiniti, ma nemmeno devono essere per forza 2... Ecco come cambia la procedura Io di prima:
CODICE:
Sub Io(input,out)
Dim return
return = InputBox(input)
wscript.echo(out & return)
End Sub
Basterà richiamare la sub come segue:
Io "Inserisci un valore","Il valore immesso è "
Le funzioni, invece ci consentono di dare un valore di uscita, ad esempio può essermi utile se devo calcolare l'area di un cerchio a partire dal raggio.
SINTASSI:
Function <nomefunzione>(<arg>)
<istruzioni>
End Function
All'apparenza sempra così, invece ecco dal punto di vista pratico:
CODICE:
Function areacerchio(raggio)
areacerchio = CDbl(raggio)*CDbl(raggio)*3.14
End Function
Se richiamo direttamente, mi da errore, perchè deve dare il valore a qualcosa. Ad esempio se voglio creare un piccolo programma per calcolarla, farò così:
CODICE:
Option Explicit 'Tutto va dichiarato
On Error Resume Next 'Se fa errore, non notifica
Dim r
'Dichiaro le variabili
r = InputBox("Raggio del cerchio")
'Richiede il raggio
wscript.echo(areacerchio(r))
'Visualizza il raggio
Function areacerchio(raggio)
areacerchio = CDbl(raggio)*CDbl(raggio)*3.14
'Esegue raggio * raggio * 3.14
End Function
Ecco come funziona. |
|
Feeds
Sondaggio
Condividi
Numeri
