Introducción

Las funciones y procedimientos son elementos fundamentales en la programación estructurada, ya que permiten organizar y reutilizar código de manera eficiente. En QuickBASIC 4.5, puedes crear y utilizar funciones y procedimientos para modularizar tu código y hacerlo más legible y mantenible. En este manual, exploraremos en detalle cómo crear y utilizar funciones y procedimientos, junto con ejercicios resueltos para consolidar tu comprensión.

Funciones en QuickBASIC 4.5

Una función es un bloque de código que realiza una tarea específica y devuelve un valor. La ventaja de usar funciones es que puedes encapsular tareas complejas en unidades más pequeñas y reutilizables. La sintaxis básica para crear una función es la siguiente:

FUNCTION nombreFuncion(argumentos)
    ' Código de la función
    nombreFuncion = valorRetorno
END FUNCTION

Ejercicio 1: Crear una función que calcule el área de un círculo a partir de su radio.

FUNCTION AreaCirculo(radio)
    AreaCirculo = 3.14159 * radio^2
END FUNCTION

CLS
radio = VAL(INPUT$("Ingrese el radio del círculo: "))
PRINT "El área del círculo es: "; AreaCirculo(radio)

Procedimientos en QuickBASIC 4.5

Un procedimiento es similar a una función, pero no devuelve un valor. Se utiliza para ejecutar una serie de acciones o modificar valores sin necesidad de devolver un resultado. La sintaxis básica para crear un procedimiento es:

SUB nombreProcedimiento(argumentos)
    ' Código del procedimiento
END SUB

Ejercicio 2: Crear un procedimiento que imprima un mensaje personalizado.

SUB ImprimirMensaje(nombre$)
    PRINT "Hola, "; nombre$; "! Bienvenido a QuickBASIC 4.5."
END SUB

CLS
nombre$ = INPUT$("Ingrese su nombre: ")
ImprimirMensaje nombre$

Paso de Argumentos

Tanto en funciones como en procedimientos, puedes pasar argumentos para que el código dentro de la función o procedimiento los utilice. Los argumentos pueden ser valores que se proporcionan al llamar a la función o procedimiento.

Ejercicio 3: Crear una función que calcule la suma de dos números ingresados por el usuario.

FUNCTION Sumar(num1, num2)
    Sumar = num1 + num2
END FUNCTION

CLS
n1 = VAL(INPUT$("Ingrese el primer número: "))
n2 = VAL(INPUT$("Ingrese el segundo número: "))
PRINT "La suma es: "; Sumar(n1, n2)

Alcance de Variables

Es importante tener en cuenta el alcance de las variables dentro de funciones y procedimientos. Las variables declaradas dentro de una función o procedimiento solo son visibles dentro de ese bloque.

Ejercicio 4: Crear una función que verifique si un número es par.

FUNCTION EsPar(numero)
    IF numero MOD 2 = 0 THEN
        EsPar = 1
    ELSE
        EsPar = 0
    END IF
END FUNCTION

CLS
num = VAL(INPUT$("Ingrese un número: "))
IF EsPar(num) THEN
    PRINT "El número es par."
ELSE
    PRINT "El número es impar."
END IF

Conclusiones

En este capítulo, hemos explorado la creación y el uso de funciones y procedimientos en QuickBASIC 4.5. Estas herramientas te permiten modularizar tu código, mejorar su legibilidad y reutilizar funcionalidades en diferentes partes de tu programa. A través de los ejercicios resueltos, has aprendido a crear funciones y procedimientos, a pasar argumentos y a manejar el alcance de las variables.