Procedimientos y Funciones.Básico

Los procedimientos y las funciones son la manera de organizar

nuestro proyecto. Según va creciendo, necesitamos una forma

de organizar este.

Con una mejor organización conseguiremos un código mas

limpio y mas fácil de entender para todos.

La diferencia principal entre un procedimiento y una función,

consiste en que el procedimiento se ejecuta y no devuelve un valor

y la función al ejecutarse si lo devuelve.

Podemos hacer que el procedimiento devuelva un valor, pero

no es lo normal. Para eso ya están las funciones.

Un procedimiento en Gambas suele ser declarado de esta forma:

De esta manera, nuestro procedimiento es reconocido en todo el proyecto.

PUBLIC SUB Nombre_del_Procedemiento()

Instruccion1

Instruccion2

..

END

Y de esta forma solo es reconocido en el modulo que se encuentra.

PRIVATE SUB Nombre_del_Procedimiento()

Instruccion1

Instruccion2

..

END

Como veis un procedimiento que comienza con PUBLIC o PRIVATE 

ocurre igual que cuando declaramos las variables. Su ámbito o 

lugar reconocido cambia según como lo definamos.

En Gambas tenemos una serie de procedimientos que son especiales 

del lenguaje.Como es en un proyecto gráfico:

PUBLIC FORM_OPEN()

END

Y en uno de Texto:

PUBLIC SUB Main()

END

Ambos son el comienzo de nuestro programa. Desde el que se inician por primera vez. Recomiendo que también veáis el tema correspondiente en el manual de Gambas.

Veamos un ejemplo juntos de un procedimiento y una función:

Podemos crear un proyecto de consola o gráfico

-----código----

PUBLIC FORM_OPEN()

'Declaramos nuestras variables del tipo entero

DIM multiplicando AS Integer

DIM multiplicador As Integer 'Lo usaremos para el contador de un bucle

DIM resultado AS Integer

multiplicando=5 'Asignamos un valor a nuestra variable

FOR multiplicador=1 TO 10 'El bucle ira de 1 a 10.

  'Pasamos los valores a la función Multiplicar y los devuelva 

  'en la variable resultado

   resultado=Multiplicar(multiplicando,multiplicador)

   'Usamos el carácter “&” para unir la expresión

   PRINT multiplicando & " * " & multiplicador & " = " & resultado

NEXT

END

'La función recibirá dos valores enteros y devolverá una valor entero

PUBLIC FUNCTION Multiplicar(a AS Integer ,b AS Integer) AS Integer

DIM valor AS Integer 'Almacenara el resultado de la operación

valor=a * b

RETURN valor 'Devolvemos el valor de la operación

END

---código----