Differenze tra le versioni di "RETURN"

Da Gambas-it.org - Wikipedia.
(Creata pagina con ''''Return''': determina l'uscita dalla routine. Esempio: '''Public''' Sub Button1_Click() Dim a As Byte For a = 1 To 100 If a = 55 Then Print "a = "; a ''...')
 
Riga 13: Riga 13:
 
  Next
 
  Next
 
   
 
   
 +
'''End'''
 +
 +
 +
===Differenza fra "''Break''" e "''Return''"===
 +
L'effetto prodotto dall'istruzione "''Return''" consiste nella circostanza che l'uscita dalla routine sarà definitiva, ossia non saranno eseguite altre istruzioni eventualmente sottostanti.
 +
 +
Esempio:
 +
bo As Boolean
 +
 +
 +
'''Public''' Sub Form_Open()
 +
 
 +
  Me.Show
 +
 
 +
  Ciclo()
 +
 
 +
'''End'''
 +
 +
'''Private''' Procedure Ciclo()
 +
 
 +
  Dim a As Byte
 +
 
 +
  Do
 +
    If bo Then <FONT Color=#B22222>Return</font>
 +
    If a == 20 Then <FONT Color=blue>Break</font>
 +
    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'''
 
  '''End'''

Versione delle 08:01, 11 ago 2020

Return: determina l'uscita 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"

L'effetto prodotto dall'istruzione "Return" consiste nella circostanza che l'uscita dalla routine sarà definitiva, ossia non saranno eseguite altre istruzioni eventualmente sottostanti.

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