GOSUB: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
Nessun oggetto della modifica |
Nessun oggetto della modifica |
||
| Riga 10: | Riga 10: | ||
Dim j As Integer | Dim j As Integer | ||
For i = 1 To | For i = 1 To 5 | ||
<Font Color= #B22222>GoSub</font> label1 ''<Font Color= #006400>' Il programma salta alla riga dove è presente l'etichetta "label1"''</font> | <Font Color= #B22222>GoSub</font> label1 ''<Font Color= #006400>' Il programma salta alla riga dove è presente l'etichetta "label1"''</font> | ||
Next | Next | ||
| Riga 28: | Riga 28: | ||
Prova 1 1 | Prova 1 1 | ||
Prova 1 2 | <BR>Prova 1 2 | ||
Prova 1 3 | <BR>Prova 1 3 | ||
Prova 2 1 | <BR>Prova 2 1 | ||
Prova 2 2 | <BR>Prova 2 2 | ||
Prova 2 3 | <BR>Prova 2 3 | ||
Prova 3 1 | <BR>Prova 3 1 | ||
Prova 3 2 | <BR>Prova 3 2 | ||
Prova 3 3 | <BR>Prova 3 3 | ||
Prova 4 1 | <BR>Prova 4 1 | ||
Prova 4 2 | <BR>Prova 4 2 | ||
Prova 4 3 | <BR>Prova 4 3 | ||
Prova 5 1 | <BR>Prova 5 1 | ||
Prova 5 2 | <BR>Prova 5 2 | ||
Prova 5 | <BR>Prova 5 3 | ||
Versione delle 18:38, 4 mar 2012
L'istruzione GOSUB consente di saltare all'etichetta dichiarata all'interno della medesima routine. Se poi il programma incontra l'istruzione RETURN, esso torna sopra e precisamente alla linea di codice successiva all'istruzione GOSUB.
Esempio:
' Gambas class file
Public Sub Button1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 5
GoSub label1 ' Il programma salta alla riga dove è presente l'etichetta "label1"
Next
Return ' Il programma esce fuori dalla routine, poiché questo è un normale Return
label1:
For j = 1 To 3
Print "Prova";; i;; j
Next
Return ' Questo Return è connesso e dipendente dal Gosub. Pertanto il programma torna su: alla riga successiva al Gosub
End
In console avremo:
Prova 1 1
Prova 1 2
Prova 1 3
Prova 2 1
Prova 2 2
Prova 2 3
Prova 3 1
Prova 3 2
Prova 3 3
Prova 4 1
Prova 4 2
Prova 4 3
Prova 5 1
Prova 5 2
Prova 5 3