Informatica

Páginas: 3 (619 palabras) Publicado: 3 de noviembre de 2011
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...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • Informatica
  • Informatica
  • Informatica
  • Informatica
  • Informatica
  • Informática
  • Informatica
  • Informatica

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS