Informatica

Solo disponible en BuenasTareas
  • Páginas : 3 (619 palabras )
  • Descarga(s) : 0
  • Publicado : 3 de noviembre de 2011
Leer documento completo
Vista previa del texto
Menu Principal

Public Class frmMenu
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuma.Click
frmSuma.Show()
End SubPrivate Sub btnEdad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdad.Click
frmEdad.Show()
End Sub

Private Sub btnCodigo_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles btnCodigo.Click
frmCadenas.Show()
End Sub

Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btnSalir.Click
End
End Sub
End Class

Formulario de Suma

Public Class frmSuma
Private Sub btnSuma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnSuma.Click
'Declaramos las variables a usar
Dim a As Single
Dim b As Single
Dim c As Single
'Convertimos a numero entero el valor
a =Single.Parse(Me.txtNumero1.Text)
b = Single.Parse(Me.txtNumero2.Text)
c = a + b
txtResultado.Enabled = True
'Convertimos en cadena el resultado
txtResultado.Text =c.ToString("###,#00.00")
End Sub

Private Sub btnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLimpiar.Click
txtNumero1.Clear()txtNumero2.Clear()
txtResultado.Clear()
txtResultado.Enabled = False
End Sub

Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnSalir.Click
Me.Close()
End Sub
End Class

Formulario de Edad

Public Class frmEdad

Private Sub frmEdad_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
lblFH.Text = Now
lblDia.Text = Microsoft.VisualBasic.Day(lblFH.Text)
End Sub

Private Sub btnEdadAnos_Click(ByVal sender As System.Object, ByVal e As...
tracking img