Differenze tra le versioni di "GOTO"
Da Gambas-it.org - Wikipedia.
| (9 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 1: | Riga 1: | ||
| − | 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. | + | L'istruzione '''GOTO''' consente di saltare all'etichetta dichiarata all'interno della <SPAN style="text-decoration:underline">medesima</span> routine. Il programma continuerà il processo semplicemente dalla riga (ossia l'etichetta dichiarata) ove è saltato. |
GOTO etichetta | GOTO etichetta | ||
| Riga 8: | Riga 8: | ||
| − | Esempio: | + | Esempio: |
| − | + | '''Public''' Sub Main() | |
| − | |||
| − | |||
| − | '''Public''' Sub | ||
| − | Dim | + | Dim b, j As Byte |
| − | |||
| − | For | + | For b = 1 To 5 |
| − | <Font Color= #B22222>GoTo</font> etichetta1 | + | <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> | |
| − | etichetta1: | + | <Font Color=darkgreen>etichetta1:</font> |
| − | For j = 1 To 3 | + | |
| − | Print "Prova"; | + | For j = 1 To 3 <Font Color=gray>' ''Terminato questo ciclo il programma uscirà dalla routine''</font> |
| + | Print "Prova: "; b;; j | ||
Next | Next | ||
'''End''' | '''End''' | ||
| − | |||
| − | + | Ma anche con comandi invertiti: | |
| − | < | + | '''Public''' Sub Main() |
| − | < | + | |
| + | Dim b As Byte | ||
| + | |||
| + | <Font Color=darkgreen>etichetta1:</font> | ||
| + | |||
| + | Inc b | ||
| + | |||
| + | If b == 10 Then | ||
| + | Print b | ||
| + | Else | ||
| + | <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 | ||
| + | |||
| + | '''End''' | ||
Versione attuale delle 19:16, 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 b, j As Byte For b = 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: "; b;; j Next End
Ma anche con comandi invertiti:
Public Sub Main() Dim b As Byte etichetta1: Inc b If b == 10 Then Print b Else GoTo etichetta1 ' Il programma salta alla riga dove è presente l'etichetta "etichetta1" Endif End
