Differenze tra le versioni di "GOTO"
Da Gambas-it.org - Wikipedia.
| Riga 15: | Riga 15: | ||
For i = 1 To 5 | For i = 1 To 5 | ||
| − | <Font Color= #B22222>GoTo</font> etichetta1 <Font Color=gray>' ''Il programma salta alla riga dove è presente l'etichetta "etichetta1"''</font> | + | <Font Color= #B22222>GoTo</font> <Font Color=darkgreen>etichetta1</font> <Font Color=gray>' ''Il programma salta alla riga dove è presente l'etichetta "etichetta1"''</font> |
Next | Next | ||
Print "Riga che sarà saltata." <Font Color=gray>' ''Questa riga del Print sarà saltata !''</font> | Print "Riga che sarà saltata." <Font Color=gray>' ''Questa riga del Print sarà saltata !''</font> | ||
| − | <Font Color= | + | <Font Color=darkgreen>etichetta1:</font> |
For j = 1 To 3 <Font Color=gray>' ''Terminato questo ciclo il programma uscirà dalla routine''</font> | For j = 1 To 3 <Font Color=gray>' ''Terminato questo ciclo il programma uscirà dalla routine''</font> | ||
Print "Prova";; i;; j | Print "Prova";; i;; j | ||
| Riga 33: | Riga 33: | ||
Dim i As Integer | Dim i As Integer | ||
| − | <Font Color= | + | <Font Color=darkgreen>etichetta1:</font> |
Inc i | Inc i | ||
| Riga 39: | Riga 39: | ||
Print i | Print i | ||
Else | Else | ||
| − | <Font Color= #B22222>GoTo</font> etichetta1 <Font Color=gray>' ''Il programma salta alla riga dove è presente l'etichetta "etichetta1"''</font> | + | <Font Color= #B22222>GoTo</font> <Font Color=darkgreen>etichetta1</font> <Font Color=gray>' ''Il programma salta alla riga dove è presente l'etichetta "etichetta1"''</font> |
Endif | Endif | ||
'''End''' | '''End''' | ||
Versione delle 19:07, 22 mag 2023
L'istruzione GOTO consente di saltare all'etichetta dichiarata all'interno della medesima routine. Il programma continuerà il processo semplicemente dalla riga (ossia l'etichetta dichiarata) ove è saltato.
GOTO etichetta
......
etichetta: ......
Esempio:
Public Sub Main() Dim i As Integer Dim j As Integer For i = 1 To 5 GoTo etichetta1 ' Il programma salta alla riga dove è presente l'etichetta "etichetta1" Next Print "Riga che sarà saltata." ' Questa riga del Print sarà saltata ! etichetta1: For j = 1 To 3 ' Terminato questo ciclo il programma uscirà dalla routine Print "Prova";; i;; j Next End
Ma anche con comandi invertiti:
Public Sub Main()
Dim i As Integer
etichetta1:
Inc i
If i = 10 Then
Print i
Else
GoTo etichetta1 ' Il programma salta alla riga dove è presente l'etichetta "etichetta1"
Endif
End
