Differenze tra le versioni di "GOTO"

Da Gambas-it.org - Wikipedia.
Riga 10: Riga 10:
 
Esempio:
 
Esempio:
  
  ''<Font Color= #006400>' Gambas class file''</font>
+
<Font Color=gray>' ''Gambas class file''</font>
 
   
 
   
  '''Public''' Sub Button1_Click()
+
  '''Public''' Sub Main()
 
    
 
    
 
   Dim i As Integer
 
   Dim i As Integer
Riga 18: Riga 18:
 
   
 
   
 
   For i = 1 To 5
 
   For i = 1 To 5
     <Font Color= #B22222>GoTo</font> etichetta1      <Font Color= #006400>' ''Il programma salta alla riga dove è presente l'etichetta "etichetta1"''</font>
+
     <Font Color= #B22222>GoTo</font> etichetta1      <Font Color=gray>' ''Il programma salta alla riga dove è presente l'etichetta "etichetta1"''</font>
 
   Next
 
   Next
 
   
 
   
   Print "Passaggio"      <Font Color= #006400>' ''Questa riga del Print sarà saltata !''</font>
+
   Print "Riga che sarà saltata."      <Font Color=gray>' ''Questa riga del Print sarà saltata !''</font>
 
   
 
   
 
     <Font Color= #B22222>etichetta1:</font>
 
     <Font Color= #B22222>etichetta1:</font>
   For j = 1 To 3          <Font Color= #006400>' ''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
 
   Next
 
   Next

Versione delle 08:49, 27 apr 2015

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:

' Gambas class file

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

In console avremo:

Prova 1 1
Prova 1 2
Prova 1 3