Differenze tra le versioni di "GOSUB"

Da Gambas-it.org - Wikipedia.
Riga 1: Riga 1:
 
L'istruzione '''GOSUB''' consente di saltare all'etichetta dichiarata all'interno della medesima routine. Se poi il programma incontra l'istruzione RETURN, esso torna sopra e precisamente alla linea di codice successiva all'istruzione GOSUB.
 
L'istruzione '''GOSUB''' consente di saltare all'etichetta dichiarata all'interno della medesima routine. Se poi il programma incontra l'istruzione RETURN, esso torna sopra e precisamente alla linea di codice successiva all'istruzione GOSUB.
 +
 +
GOSUB etichetta
 +
<BR>......
 +
<BR>etichetta:
 +
......
 +
<BR>Return
 +
 +
  
 
Esempio:
 
Esempio:
Riga 11: Riga 19:
 
   
 
   
 
   For i = 1 To 5
 
   For i = 1 To 5
     <Font Color= #B22222>GoSub</font> label1   ''<Font Color= #006400>' Il programma salta alla riga dove è presente l'etichetta "label1"''</font>
+
     <Font Color= #B22222>GoSub</font> etichetta1   ''<Font Color= #006400>' Il programma salta alla riga dove è presente l'etichetta "label1"''</font>
 
   Next
 
   Next
 
   
 
   
 
       Return  ''<Font Color= #006400>' Il programma esce fuori dalla routine, poiché questo è un normale Return''</font>
 
       Return  ''<Font Color= #006400>' Il programma esce fuori dalla routine, poiché questo è un normale Return''</font>
 
   
 
   
   label1:
+
   etichetta1:
 
   For j = 1 To 3
 
   For j = 1 To 3
 
     Print "Prova";; i;; j
 
     Print "Prova";; i;; j

Versione delle 18:46, 4 mar 2012

L'istruzione GOSUB consente di saltare all'etichetta dichiarata all'interno della medesima routine. Se poi il programma incontra l'istruzione RETURN, esso torna sopra e precisamente alla linea di codice successiva all'istruzione GOSUB.

GOSUB etichetta

......
etichetta: ......
Return


Esempio:

 ' Gambas class file

Public Sub Button1_Click()
 
 Dim i As Integer
 Dim j As Integer

 For i = 1 To 5
   GoSub etichetta1   ' Il programma salta alla riga dove è presente l'etichetta "label1"
 Next

     Return   ' Il programma esce fuori dalla routine, poiché questo è un normale Return

 etichetta1:
 For j = 1 To 3
   Print "Prova";; i;; j
 Next
 
   Return   ' Questo Return è connesso e dipendente dal Gosub. Pertanto il programma torna su: alla riga successiva al Gosub

End

In console avremo:

Prova 1 1
Prova 1 2
Prova 1 3
Prova 2 1
Prova 2 2
Prova 2 3
Prova 3 1
Prova 3 2
Prova 3 3
Prova 4 1
Prova 4 2
Prova 4 3
Prova 5 1
Prova 5 2
Prova 5 3