PROCEDIMIENTOS EN VISUAL NET

PROCEDIMIENTOS

Todo código ejecutable de una aplicación se ubica en rutinas de código o procedimientos.

Un procedimiento es un elemento del lenguaje compuesto por un conjunto de líneas de código, a las que se denomina cuerpo del procedimiento.
En Vb .Net se dispone de los siguientes tipos de procedimientos:

I. SUB: Procedimiento que realiza un conjunto de operaciones pero no devuelve valoral punto de llamada.

a) Definición:

[Ambito] Sub NombreProcedimiento [(ListaParametros)]
[CodigoEjecutable]
[Exit Sub/Return]
[CodigoEjecutable]
End Sub

b) Llamada

NombreProcedimiento[(ListaParametros)]

PROCEDIMIENTO DE EVENTO : Es un bloque de código que se ejecutara cuando desde el programa se haga referencia o se active un determinado objeto. Por ejemplo, cuandoel usuario haga clic en el objeto btnContinuar, se ejecutara el procedimiento de evento denominado “btnContinuar_click”

Private Sub btnContinuar_Click (ByVal sender As System.Object, ByVal semder As System.EventArgs) Handles btnContinuar.click
MsgBox(“Continuemos con Vb .Net”)
Me.Close()
End Sub

Lo primero que hay que notar es que Handles es la palabra que le indica al compilador de VisualBasic . NET que evento es el que “manipula” o maneja este procedimiento.

PROCEDIMIENTO SIN PARAMETROS (LIMPIA)











Private Sub Button1_Click(----------)
Dim N, I As Integer
Dim FAC As Long
N = Val(TextBox1.Text)
FAC = 1
For I = 1 To N
FAC = FAC * I
Next
TextBox2.Text = Str(FAC)
End Sub

Private Sub Limpia()TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End Sub

Private Sub Button2_Click(-------------)
Limpia()
End Sub

PROCEDIMIENTO CON PARAMETROS













Private Sub Button1_Click(----------)
Dim N, I As Integer
Dim FN As Long
N = Val(TextBox1.Text)
FACTORIAL(N,FN)
Next
TextBox2.Text = Str(FN)End Sub

Private Sub FACTORIAL(ByVal X As Integer, ByRef FAC As Long)
Dim I As Integer
FAC = 1
For I = 1 To X
FAC = FAC * I
Next
End Sub





Ejercicio ( ): Construir una aplicación en Vb .NET el cual permita ingresar un numero de equipos de Fútbol Profesional que participan en el Torneo Clausura del Fútbol Profesional Peruano. Además se debe ingresarel numero de equipos por partido. Se pide determinar el número de encuentros que se llevaran a cabo durante el torneo de Clausura.












Ámbito: Privado

Private Sub Button1_Click(----------------)
Dim N, M As Integer
Dim FN As Long
Dim FM As Long
Dim FNM As Long
Dim C As Long
N = Val(TextBox1.Text)
M = Val(TextBox2.Text)FACTORIAL(N, FN)
FACTORIAL(M, FM)
FACTORIAL(N - M, FNM)
C = FN / (FM * FNM)
TextBox3.Text = Str(C)
End Sub


Private Sub FACTORIAL(ByVal X As Integer, ByRef FAC As Long)
Dim I As Integer
FAC = 1
For I = 1 To X
FAC = FAC * I
Next
End Sub

OBS:
ListaParametros : Parámetros Formales
Parametros Formales : Parámetrode Valor, Parámetro de Referencia
Parámetros actuales


Ámbito: Publico

Private Sub Button1_Click(----------------)
Dim N, M As Integer
Dim FN As Long
Dim FM As Long
Dim FNM As Long
Dim C As Long
N = Val(TextBox1.Text)
M = Val(TextBox2.Text)
FACTORIAL(N, FN)
FACTORIAL(M, FM)
FACTORIAL(N - M, FNM)
C = FN / (FM* FNM)
TextBox3.Text = Str(C)
End Sub

Public Sub FACTORIAL(ByVal X As Integer, ByRef FAC As Long)
Dim I As Integer
FAC = 1
For I = 1 To X
FAC = FAC * I
Next
End Sub

II. FUNCTION: Procedimiento que realiza un conjunto de operaciones y devuelve un valor denominado valor de retorno al punto de código que realizo la llamada.

a)...