Programacion

Proceso calcular
Definir añoactual,mesactual,año,mes,meses,edad Como Entero
Repetir
Escribir "Ingresar año actual"
Leer añoactual
Hasta Que añoactual>=1900 y añoactual=1900 y año=1 y mesactual=1 y mes

Visual Basic: procedimientos Sub. Funciones Function. Tipos de parámetros y de retorno. Ejemplos (CU00340A)
Escrito por Mario R. Rancel
Resumen: Entrega nº39 del curso Visual BasicNivel I.

Codificación aprenderaprogramar.com: CU00340A





MÓDULOS GENÉRICOS Y PARÁMETROS DE ENTRADA EN VISUAL BASIC.

Ya hemos visto que en Visual Basic una declaración de procedimiento siempre lleva unos paréntesis donde se pueden indicar parámetros de entrada. Los parámetros de entrada son indicados por el programador, o bien se generan automáticamente al tener lugar un evento yel propio ordenador envía ese parámetro de entrada al procedimiento que se dispara como consecuencia de que tenga lugar el evento.



Visual Basic



Veamos algunos ejemplos de procedimientos asociados a eventos.

Código 1 (versiones VB menos recientes) Código 1 (versiones VB más recientes)
Private Sub Text1_Change()
.
..
End Sub
Private Sub TextBox1_TextChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
.
.
.
End Sub




Código 2 (versiones VB menos recientes) Código 2 (versiones VB más recientes)
Private SubText1_KeyPress(KeyAscii As Integer)
.
.
.
End Sub
Private Sub Text1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
.
.
.
End Sub




El primer códigocorresponde a un procedimiento conducido por eventos que se invoca cuando el texto contenido en el TextBox Text1 cambia. En las versiones menos recientes de Visual Basic algunos procedimientos conducidos por eventos no tienen parámetros de entrada. En las versiones más recientes siempre suelen aparecer unos parámetros de entrada.

El segundo código sería el de un procedimiento conducido poreventos que se invoca cuando se produce la pulsación de una tecla en el TextBox1. En este caso, en las versiones menos recientes hay un parámetro (podría haber varios) que es enviado al procedimiento cuando tiene lugar el evento: un valor tipo Integer que se corresponde con el número asociado a la tecla pulsada según el código AscII. En las versiones más recientes esa información viene dentro delparámetro “e” que lleva distinta información asociada relacionada con el evento. Crea un TextBox, un Label y prueba el siguiente código:

Código (versiones VB menos recientes) Código (versiones VB más recientes)
'Curso VB aprenderaprogramar.com
Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer)
Label1 = ""
Label1 = KeyAscii
End SubREM Curso Visual Basic aprenderaprogramar.com
Option Explicit On
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Label1.Text =""
Label1.Text = "Valor numérico asociado a la tecla pulsada es " & Microsoft.VisualBasic.Asc(e.KeyChar)
End Sub
End Class




Comprobarás que cada vez que pulsas una tecla sobre el TextbBox aparece en pantalla un número: para la A, el 65, y para la a, el 97. Ese número es información que se pasa automáticamente al procedimiento cuando tiene lugar el evento. De esta forma...