Estructuras en la programación orientada a objetos (página 2)

Se presiona el botón Pasar, y aunque
aparentemente no sucede nada, lo que se hace es que la variable
"b", que es de tipo "empleado" (la estructura
creada), recibe los valores de
la variable "a" (que también es del tipo "empleado" (la
estructura creada).

Al presionar el botón Mostrar, el bloque de la
derecha aparece con los mismos datos que el
bloque de la izquierda. Lo que se ha hecho es imprimir en los
cuadros de texto de la
derecha los valores
provenientes de la variable "b", que es de tipo "empleado" (la
estructura creada).

El botón Limpiar quita el contenido de los seis
cuadros de texto. Sin embargo, no modifica el contenido de las
variables, de
manera que si se presiona Limpiar, se borra todo el contenido de
los seis cuadros de texto, pero si se presiona nuevamente
Mostrar, aparecería en el bloque de la derecha lo que
continuaba almacenado en la variable "b" del tipo "empleado"
(estructura creada).

CÓDIGO
DEL PROGRAMA

CÓDIGO DEL MÓDULO
DONDE SE DECLARA LA ESTRUCTURA Y DOS VARIABLES PÚBLICAS
CON EL TIPO DE LA ESTRUCTURA

CÓDIGO DEL
FORMULARIO

Public Class Form1

Private Sub
Buttoncapturar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncapturar.Click

a.nombre = TextBoxnombre1.Text

a.edad = Val(TextBoxedad1.Text)

a.salario =
Val(TextBoxsalario1.Text)

End Sub

Private Sub Buttonpasar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonpasar.Click

b = a

End Sub

Private Sub
Buttonmostrar_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles Buttonmostrar.Click

TextBoxnombre2.Text = b.nombre

TextBoxedad2.Text = b.edad

TextBoxsalario2.Text = b.salario

End Sub

Private Sub
Buttonlimpiar_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles Buttonlimpiar.Click

TextBoxnombre1.Text = ""

TextBoxedad1.Text = ""

TextBoxsalario1.Text = ""

TextBoxnombre2.Text = ""

TextBoxedad2.Text = ""

TextBoxsalario2.Text = ""

End Sub

Private Sub
TextBoxsalario1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles
TextBoxsalario1.KeyPress

If (Asc(e.KeyChar) >=
48 And Asc(e.KeyChar)
<= 57) Or
(Asc(e.KeyChar)) = 8 Then 'Los únicos
caracteres que se permiritá introducir en el TextBox
serán los números del 0 al 9 (ASCII del 48 al
57) y se permitirá también usar el Backspace (ASCII
8) para borrar. El punto (ASCII 46) se evalúa más
adelante.

'No se hace nada porque el caracte
presionado es válido.

Else

If (Asc(e.KeyChar)) =
46 Then 'Si se introduce un punto, se evaluará que no
haya más de uno.

Dim contadorpuntos
As Integer 'Para programar
que no se permitan varios puntos cuando se introduzca el
salario.

Dim caracterevaluado
As String 'Para evaluar
caracter por caracter con el Mid().

Dim longitudcadena
As Integer = Len(TextBoxsalario1.Text)
'Variable para almacenar la longitud de la
cadena que hay en un Textboxsalario1.

For ciclo
As Integer = 1 To longitudcadena 'Para evaluar caracter por caracter hasta encontrar un
punto.

caracterevaluado = Mid(TextBoxsalario1.Text, ciclo,
1)

If caracterevaluado
= "." Then

contadorpuntos += 1

End If

Next

If contadorpuntos >
0 Then 'Si ya se ha digitad un punto.

e.KeyChar = ""
'Reemplaza la letra o caracter digitado por
un valor
vacío de manera que no se permita la introducción de más de un
punto.

End If

Else 'Si el
caracter introducido es inválido.

e.KeyChar = ""
'Reemplaza la letra o caracter digitado por
un valor vacío de manera que no se permita l a
introducción de caracteres inválidos.

End If

End If

End Sub

Private Sub
TextBoxedad1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBoxedad1.KeyPress

If (Asc(e.KeyChar) >=
48 And Asc(e.KeyChar)
<= 57) Or
(Asc(e.KeyChar)) = 8 Then 'Los únicos
caracteres que se permiritá introducir en el TextBox
serán los números del 0 al 9 (ASCII del 48 al 57) y
se permitirá también usar el Backspace (ASCII 8)
para borrar.

'No se hace nada porque el caracte
presionado es válido

Else

e.KeyChar = ""
'Reemplaza la letra o caracter digitado por
un valor vacío de manera que no se permita la
introducción de caracteres inválidos.

End If

End Sub

End Class

Jaime Montoya

Santa Ana, 29 de febrero de 2008

El Salvador