RETURN: differenze tra le versioni

Da Gambas-it.org - Wikipedia.
Vai alla navigazione Vai alla ricerca
Nessun oggetto della modifica
Nessun oggetto della modifica
Riga 1: Riga 1:
'''Return''': determina l'uscita dalla routine.
'''Return''': determina l'uscita <SPAN Style="text-decoration:underline">immediata</span> e diretta dalla routine.


Esempio:
Esempio:
Riga 16: Riga 16:




===Differenza fra "''Break''" e "''Return''"===
===Differenza fra "''Break''" e "''Return''" all'interno di un ciclo===
L'effetto prodotto dall'istruzione "''Return''" consiste nella circostanza che l'uscita dalla routine sarà definitiva, ossia non saranno eseguite altre istruzioni eventualmente sottostanti.
L'effetto prodotto dall'istruzione "''Return''" all'interno di un ciclo consiste nella circostanza che l'uscita dalla routine sarà immediata e definitiva, ossia non saranno eseguite altre istruzioni eventualmente sottostanti.
<BR>Diversamente l'istruzione "''Break''" fa uscire il processo del codice dal ciclo, ma non causa la necessaria, diretta e immediata uscita dalla routine.


Esempio:
Esempio:

Versione delle 10:23, 11 ago 2020

Return: determina l'uscita immediata e diretta dalla routine.

Esempio:

Public Sub Button1_Click()

Dim a As Byte

For a = 1 To 100
  If a = 55 Then
    Print "a = "; a
    Return
  Endif
Next

End


Differenza fra "Break" e "Return" all'interno di un ciclo

L'effetto prodotto dall'istruzione "Return" all'interno di un ciclo consiste nella circostanza che l'uscita dalla routine sarà immediata e definitiva, ossia non saranno eseguite altre istruzioni eventualmente sottostanti.
Diversamente l'istruzione "Break" fa uscire il processo del codice dal ciclo, ma non causa la necessaria, diretta e immediata uscita dalla routine.

Esempio:

bo As Boolean


Public Sub Form_Open()
 
 Me.Show
 
 Ciclo()
 
End

Private Procedure Ciclo()
 
 Dim a As Byte
 
 Do
   If bo Then Return
   If a == 20 Then Break
   Me.Caption = CStr(a)
   Wait 0.3
   Inc a
 Loop
 
 Me.Caption = "Istruzione successiva al ciclo 'For...Next'"
  
End

Public Sub Button1_Click()
 
 bo = True
 
End