Visual basic 6 – Capitulo 05 – Procedimientos y funciones

Introducción

Los procedimientos y funciones son bloques de código reutilizables que nos permiten organizar y modularizar nuestro código en Visual Basic 6. Los procedimientos son bloques de código que realizan una serie de acciones, mientras que las funciones son bloques de código que devuelven un valor. En este capítulo, aprenderemos sobre los procedimientos y funciones en Visual Basic 6, cómo declararlos, llamarlos y cómo pueden ayudarnos a escribir código más limpio y eficiente.

Procedimientos Sub

Un procedimiento Sub es un bloque de código que realiza una serie de acciones y no devuelve ningún valor. La sintaxis para declarar un procedimiento Sub en Visual Basic es la siguiente:

Private Sub NombreDelProcedimiento(parametro1 As TipoDeDato, parametro2 As TipoDeDato)
    ' Código del procedimiento
End Sub

Ejemplo

Private Sub Saludar(nombre As String)
    MsgBox("¡Hola, " & nombre & "!")
End Sub

Para llamar a este procedimiento, simplemente escribimos el nombre del procedimiento seguido de los valores de los parámetros:

Saludar("Juan")

Funciones

Una función es similar a un procedimiento Sub, pero en lugar de realizar acciones, devuelve un valor. La sintaxis para declarar una función en Visual Basic 6 es la siguiente:

Private Function NombreDeLaFuncion(parametro1 As TipoDeDato, parametro2 As TipoDeDato) As TipoDeDatoDeRetorno
    ' Código de la función
    Return valorDeRetorno
End Function

Ejemplo

Private Function Sumar(num1 As Integer, num2 As Integer) As Integer
    Return num1 + num2
End Function

Para llamar a esta función, utilizamos el nombre de la función y le pasamos los valores de los parámetros. Podemos utilizar el valor de retorno de la función para asignarlo a una variable o utilizarlo directamente en otra operación:

Dim resultado As Integer
resultado = Sumar(5, 3)   ' resultado = 8

MsgBox("La suma es: " & Sumar(10, 20))   ' Muestra "La suma es: 30"

Ejercicios Resueltos

Ejercicio 1: Crear una función que reciba dos números y devuelva el mayor de ellos.

Private Function ObtenerMayor(num1 As Integer, num2 As Integer) As Integer
    If num1 > num2 Then
        Return num1
    Else
        Return num2
    End If
End Function

Dim mayor As Integer
mayor = ObtenerMayor(15, 7)   ' mayor = 15

Ejercicio 2: Crear un procedimiento que muestre los números del 1 al 10 en pantalla.

Private Sub MostrarNumeros()
    For i As Integer = 1 To 10
        MsgBox(i)
    Next
End Sub

MostrarNumeros()

Ejercicio 3: Crear una función que calcule el área de un triángulo y otra función que calcule el área de un cuadrado.

Private Function AreaTriangulo(base As Double, altura As Double) As Double
    Return (base * altura) / 2
End Function

Private Function AreaCuadrado(lado As Double) As Double
    Return lado * lado
End Function

Dim areaTriangulo As Double
Dim areaCuadrado As Double

areaTriangulo = AreaTriangulo(5, 8)   ' areaTriangulo = 20
areaCuadrado = AreaCuadrado(4)   ' areaCuadrado = 16

Conclusiones

En este capítulo, hemos aprendido sobre los procedimientos y funciones en Visual Basic 6. Los procedimientos Sub nos permiten realizar acciones sin devolver un valor, mientras que las funciones nos permiten devolver valores. Hemos visto cómo declararlos, llamarlos y cómo pueden ayudarnos a escribir código más modular y reutilizable. Hemos resuelto ejercicios prácticos para poner en práctica los conocimientos adquiridos.