Top Ad unit 728 × 90

Recientes

recent

Procedimientos y Funciones I - Programación en Visual Basic Net con Visual Studio 2013 (21-25)

En este artículo revisaremos trabajaremos ya con procedimientos y funciones y las diferencias y similitudes que existen entre estos; revisaremos además los ámbitos de declaración en el lenguaje de programación Visual Basic Net.

Puedes ver todos los vídeos directamente en youtube:

Visita nuestro canal en youtube y revisa cursos de Desarrollo de software y aprende a diseñar sistemas informáticos totalmente gratis:


En este vídeo trabajaremos ya con procedimientos y funciones y las diferencias y similitudes que existen entre estos; revisaremos además los ámbitos de declaración en el lenguaje de programación Visual Basic.  Net



Procedimientos y Funciones


Todas las instrucciones deben estar incluidas en un procedimiento o función, a las que llamaremos mediante su identificador.

En Visual Basic tenemos 4 tipos:
Los procedimientos que ejecutan un código a petición sin devolver ningún resultado.
Las funciones que ejecutan un código y devuelven el resultado al código que las llamó.

Los procedimientos de propiedades que permiten manejar las propiedades de los objetos creados.
Los procedimientos de operador utilizados para modificar el funcionamiento de un operador cuando se aplica a una clase o una estructura.



Procedimientos


La visibilidad de un procedimiento viene determinada por  la declaración private, public o internal. Por defecto si no se indica nada se entiende que es public.
Un procedimiento puede recibir o no parámetros, ejecuta instrucciones,  pero nunca retorna ningún valor.



Función

Una función puede recibir o no parámetros, ejecuta ciertas instrucciones y la ejecución return devuelve un valor de salida de la función.


Procedimiento de Propiedades

Estos procedimientos se llaman “encapsuladores” ya que el valor de la propiedad se encapsula. Se utilizarán cuando queramos modificar y/o recuperar un valor (Set / Get).


Procedimiento de Operadores

Permite la redifinición de un operador estándar del lenguaje para utilizarlo en tipo personalizados (clase o estructura).


Public Class frmProcedimientosyFunciones2
    Private _numero1 As Integer
    Private _numero2 As Integer
    Public Property Numero1
        Get
            Return _numero1
        End Get
        Set(value)
            _numero1 = value
        End Set
    End Property

    Public Property Numero2
        Get
            Return _numero2
        End Get
        Set(value)
            _numero2 = value
        End Set
    End Property

Código del btnSumar

    Private Sub btnSumar_Click(sender As Object, e As EventArgs) Handles btnSumar.Click
        Dim num1 As Integer
        Dim num2 As Integer
        num1 = Val(txtNumero1.Text)
        num2 = Val(+txtNumero2.Text)

        txtResultado.Text = sumar(num1, num2)
    End Sub
    'Procedimiento limpiar, para dejar vacías las cajas de texto
    Private Sub limpiar()
        txtNumero1.Clear()
        txtNumero2.Clear()
        txtResultado.Clear()
    End Sub
    'Función sumar que recibe 2 parámetros de entrada
    Private Function sumar(num1 As Integer, num2 As Integer) As Integer
        Dim resultado As Integer = num1 + num2
        Return resultado
    End Function

Código del btnLimpiar

    Private Sub btnLimpiar_Click(sender As Object, e As EventArgs) Handles btnLimpiar.Click
        Call limpiar()
    End Sub

    'Función operaciones que recibe 3 parámetros de entrada
    Private Function operaciones(num1 As Integer, num2 As Integer, op As String) As Double
        Dim resultado As Double
        If (op = "s") Then

            resultado = num1 + num2
        ElseIf (op = "r") Then
            resultado = num1 - num2
        ElseIf (op = "m") Then
            resultado = num1 * num2
        Else
            resultado = num1 / num2
        End If
        Return resultado
    End Function

Código del btnRestar

    Private Sub btnRestar_Click(sender As Object, e As EventArgs) Handles btnRestar.Click
        'Declaración de variables
        Dim numero1 As Integer
        Dim numero2 As Integer
        Dim resultado As Double
        'Entrada de datos
        numero1 = Val(txtNumero1.Text)
        numero2 = Val(txtNumero2.Text)
        'Llamamos a la función Operaciones y le enviamos los parámetros necesarios
        resultado = operaciones(numero1, numero2, "r")

        txtResultado.Text = resultado
    End Sub

Código del btnMultiplicar

    Private Sub btnMultiplicar_Click(sender As Object, e As EventArgs) Handles btnMultiplicar.Click
        'Declaración de variables
        Dim numero1 As Integer
        Dim numero2 As Integer
        Dim resultado As Double
        'Entrada de datos
        numero1 = Val(txtNumero1.Text)
        numero2 = Val(txtNumero2.Text)
        'Llamamos a la función Operaciones y le enviamos los parámetros necesarios
        resultado = operaciones(numero1, numero2, "m")

        txtResultado.Text = resultado
    End Sub

Código del btnDividir

    Private Sub btnDividir_Click(sender As Object, e As EventArgs) Handles btnDividir.Click
        'Declaración de variables
        Dim numero1 As Integer
        Dim numero2 As Integer
        Dim resultado As Double
        'Entrada de datos
        numero1 = Val(txtNumero1.Text)
        numero2 = Val(txtNumero2.Text)
        'Llamamos a la función Operaciones y le enviamos los parámetros Necesarios
        resultado = operaciones(numero1, numero2, "d")

        txtResultado.Text = resultado
    End Sub

Código del btnPropiedades

    Private Sub btnPropiedades_Click(sender As Object, e As EventArgs) Handles btnPropiedades.Click
        Numero1 = Val(txtNumero1.Text)
        Numero2 = Val(txtNumero2.Text)
        Dim suma As Integer
        suma = Numero1 + Numero2
        txtResultado.Text = suma
    End Sub

    Private Sub frmProcedimientosyFunciones2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
    Structure cliente
        Public nombre As String
        Public apellidos As String
        Public telefono As String
    End Structure

Código del btnEstructura

    Private Sub btnEstructura_Click(sender As Object, e As EventArgs) Handles btnEstructura.Click
        Dim cliente1 As cliente
        cliente1.nombre = "Juan Carlos"
        cliente1.apellidos = "Arcila Díaz"
        cliente1.telefono = "979026684"
    End Sub
End Class


Formulario:


Procedimientos y Funciones I (21-25) Programación en Visual Basic Net con Visual Studio 2013

Saludos Imperio, un abrazo a la distancia.
Procedimientos y Funciones I - Programación en Visual Basic Net con Visual Studio 2013 (21-25) Reviewed by Liliana Nataly Arcila Diaz on 10:50 Rating: 5

No hay comentarios:

All Rights Reserved by www.IncanatoIT.com - Desarrollando Software © 2014 - 2015
Powered By Blogger, Designed by Sweetheme

Formulario de contacto

Nombre

Correo electrónico *

Mensaje *

IncanatoIt.com. Con la tecnología de Blogger.