Differenze tra le versioni di "GOTO"

Da Gambas-it.org - Wikipedia.
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= #006400>' ''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 "Passaggio"      <Font Color= #006400>' ''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= #006400>' ''Terminato questo ciclo il programma uscirà dalla routine''</font>
 
     Print "Prova";; i;; j
 
     Print "Prova";; i;; j
 
   Next
 
   Next

Versione delle 05:41, 28 lug 2012

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 Button1_Click()
 
 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 "Passaggio"      ' 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