Wakala
Programación SGBD
Prácticas 15-26
María Esther Camacho Armenta
Cordero Elenes Juan Manuel
Grupo 502
Práctica 15:Manejo de propiedades de los componentes en el desarrollo de aplicaciones para demostrar la interactividad de los eventos
Public Class Practica15cordero
Private Sub aceptar_Click(ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles aceptar.Click
saludo.Text = "¡Hola Mundo!"
End Sub
End Class
Práctica 16: Suma De Valores Numéricos
Public Classpractica16cordero
Dim suma As Double
Private Sub sumar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sumar.Click
suma = suma + TextBox1.Textlabelresultado.Text = suma
End Sub
End Class
Práctica 17: Uso de operadores aritméticos
Public Class pratica17cordero
Private Sub aceptar_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles aceptar.Click
salariobruto.Text = horastrabajadas.Text * pagoporhora.Text
descuento.Text = 0.2 * salariobruto.Text
salarioneto.Text =salariobruto.Text - descuento.Text
End Sub
Private Sub limpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles limpiar.Click
nombreyapellidos.Text = ""horastrabajadas.Text = ""
pagoporhora.Text = ""
salariobruto.Text = ""
descuento.Text = ""
salarioneto.Text = ""
nombreyapellidos.Focus()
End SubPrivate Sub salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles salir.Click
Me.Close()
End Sub
End Class
Práctica 18: Uso de operadores para el manejode fechas
Public Class Practica18cord
Private Sub aceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aceptar.Click
edad.Text = Year(Date.Today) -...
Regístrate para leer el documento completo.