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.
Pueden ver los vídeos directamente en youtube:
Visita nuestro canal en youtube donde encontrarás cursos completos 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
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
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
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
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
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
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
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
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:
Reviewed by Liliana Nataly Arcila Diaz
on
10:50
Rating:
No hay comentarios: