Differenze tra le versioni di "GOTO"

Da Gambas-it.org - Wikipedia.
Riga 31: Riga 31:
 
  '''Public''' Sub Main()
 
  '''Public''' Sub Main()
 
   
 
   
   Dim b As Integer
+
   Dim b As Byte
 
   
 
   
 
   <Font Color=darkgreen>etichetta1:</font>
 
   <Font Color=darkgreen>etichetta1:</font>

Versione delle 18: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