Differenze tra le versioni di "GOTO"

Da Gambas-it.org - Wikipedia.
 
(10 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 7: Riga 7:
  
  
 
+
Esempio:  
Esempio:
+
  Public Sub Main()
 
 
  ''<Font Color= #006400>' Gambas class file''</font>
 
 
  '''Public''' Sub Button1_Click()
 
 
    
 
    
   Dim i As Integer
+
   Dim b, j As Byte
  Dim j As Integer
 
 
   
 
   
   For i = 1 To 5
+
   For b = 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=red>GoTo</font> <Font Color=darkgreen>etichetta1</font>   <Font Color=gray>' ''Il programma salta alla riga dove è presente l'etichetta "etichetta1"''</font>
 
   Next
 
   Next
 
   
 
   
  Print "Questa riga sarà saltata !"
+
  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 ''<Font Color= #006400>' Terminato questo ciclo il programma uscirà dalla routine''</font>
+
     Print "Prova";; i;; j
+
   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
  
In console avremo:
 
  
Prova 1 1
+
Ma anche con comandi invertiti:
<BR>Prova 1 2
+
Public Sub Main()
<BR>Prova 1 3
+
 +
  Dim b As Byte
 +
 +
  <Font Color=darkgreen>etichetta1:</font>
 +
 +
  Inc b
 +
 +
  If b == 10 Then
 +
    Print b
 +
  Else
 +
    <Font Color=red>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 16:04, 6 lug 2024

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