¡Hola!
Bueno, el día de ayer me bajé un manual de Visual Basic 2008 y el día de hoy me he animado a crear mi primer programa, y voilá!, funcionó.
Lo que vamos a hacer es una
Aplicación de Windows Forms, a la cual vamos a llamar
"CalcularEdades".
Nos vamos a la vista de diseño y arrastramos
cuatro Labels, cuatro TextBox y un botón, los cuales usaremos para introducir los nombres y las edades de nuestras personas a calcular la edad. Los acomodamos de manera que quede más o menos así:
Les ponemos los nombres "txtNombre1" y "txtNombre2" a los campos que corresponderán a los nombres de las personas.
Los nombres para los campos de las edades serán "txtEdad1" y "txtEdad2" respectivamente para cada personaje.
Una vez que hemos realizado los anteriores pasos, le damos a F7 (entrar en modo de código) y lo dejamos de la siguiente manera:
Public Class Form1
Private Sub Button1_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles Button1.Click
Try Dim nombre1
As String = txtNombre1.Text
Dim nombre2
As String = txtNombre2.Text
Dim edad1
As Integer =
CInt(txtEdad1.Text)
Dim edad2
As Integer =
CInt(txtEdad2.Text)
If edad1 > edad2
Then MsgBox(nombre1 &
" es " & RestarEdades(edad1, edad2) &
" años mayor que " & nombre2 &
".")
ElseIf edad1 < edad2
Then MsgBox(nombre2 &
" es " & RestarEdades(edad2, edad1) &
" años mayor que " & nombre1 &
".")
Else MsgBox(nombre1 &
" y " & nombre2 &
" tienen la misma edad. (" & edad1 &
" años)")
End If Catch MsgBox(
"Debes escribir un número.")
End Try End Sub Function RestarEdades(
ByVal E1
As Integer,
ByVal E2
As Integer)
As Integer Return E1 - E2
End Function
End Class
Explicación:Try: Si en los campos correspondientes a las edades se pusieron números, se realiza la operación.
Dim nombre1
As String = txtNombre1.Text: Declaramos la
Dim nombre2
As String = txtNombre2.Text: Declaramos la variable para el nombre 1.variable para el nombre 2.
Dim edad1
As Integer = txtEdad1.Text: Declaramos la
variable para la edad 1.
Dim edad2
As Integer = txtEdad2.Text: Declaramos la variable para la edad 2.
If edad1 > edad2
Then: Si la edad1 es mayor a la edad 2...
MsgBox(nombre1 &
" es " & RestarEdades(edad1, edad2) &
" años mayor que " & nombre2 &
"."): Así decimos que el usuario 1 es mayor que el usuario 2 por tantos años.
ElseIf edad1 < edad2
Then: Si la edad1 es menor a la edad 2...
MsgBox(nombre2 &
" es " & RestarEdades(edad2, edad1) &
" años mayor que " & nombre1 &
"."): Así decimos que el usuario 2 es mayor que el usuario 1 por tantos años.
Else: si no se cumplen ninguna de las otras dos opciones..
MsgBox(nombre1 &
" y " & nombre2 &
" tienen la misma edad. (" & edad1 &
" años)"): Decimos que ambos tienen la misma edad.
End If: Finalizamos el bloque If
Catch: Contrario del "try", si en los campos no se escribieron números...
MsgBox(
"Debes escribir un número."): Pedimos que escriban números.
End Try: Finalizamos el bloque Try y con ello el código.
Lo otro es la función de restar edades, la cual es lógica, no obstante, si tienen dudas, me preguntan en el mismo post.
Una vez terminado todo esto, pulsamos F5 y listo, nuestro programa para comprobar edades está finalizado y funcionando.
Saludos, y espero que les sirva.
