19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Public Sub Form_Open() Dim by As Byte ' Invoco la funzione nel modulo e le passo un valore di tipo Byte (in questo esempio: 6 )' Essa, a sua volta, mi passerà un valore: by = Module1.alibaba(6) Print byEnd
Public Function alibaba(a As Byte) As Byte ' Riceve dalla funzione chiamante un valore, ed un valore di tipo Byte a sua volta restituirà Dim b As Byte b = 2 ' Effettua la "fatica" per la quale la Funzione è stata concepita: b = b * a ' Restituisce, quindi, alla funzione chiamante il risultato dell'operazione: Return b End