Hola

PRACTICA SOBRE EVENTOS Y PROPIEDADES 05/10
Option Explicit Private Sub Aplicar_Click() If Sumar.Value = True Then Text3.Text = Val(Text1.Text) + Val(Text2.Text) ElseIf Restar.Value = True ThenText3.Text = Val(Text1.Text) - Val(Text2.Text) ElseIf Multiplicar.Value = True Then Text3.Text = Val(Text1.Text) * Val(Text2.Text) ElseIf Dividir.Value = True Then Text3.Text = Val(Text1.Text) /Val(Text2.Text) Else Text3.Text = Val(Text1.Text) ^ Val(Text2.Text) End If End Sub Private Sub Finalizar_Click() End End End Sub

End If End Sub Private Sub Text2_Change() If Text2.Text = "" Or Text2 = ""Then Limpiar.Enabled = False Aplicar.Enabled = False Else Limpiar.Enabled = True Aplicar.Enabled = True End If End Sub

Private Sub Limpiar_Click() Text1.Text = "" Text2.Text = "" Text3.Text = ""Text1.SetFocus Sumar.Value = True End Sub Private Sub Sumar_Click() Operador.Caption = "+" End Sub Private Sub Restar_Click() Operador.Caption = "-" End Sub Private Sub Multiplicar_Click()Operador.Caption = "*" End Sub Private Sub Dividir_Click() Operador.Caption = "/" End Sub Private Sub Potencia_Click() Operador.Caption = "^" End Sub

LA PRACTICA DEBE DE CUMPLIR CON TODOS LOS EVENTOS QUE SEPROPONEN. 1.- LOS BOTONES DE APLICAR Y LIMPIAR DEBEN ESTAR DESHABILITADOS MIENTRAS NO SE INTRODUZCAN VALORES PARA HACER LAS OPERACIONES. YA QUE EL USUARIO INTRODUZCA LOS 2 NÚMEROS AUTOMÁTICAMENTE SE DEBENDE HABILITAR 2.- AL ESCOGER LA OPERACIÓN CON LOS BOTONES DE RADIO EN LA PARTE DEL SIGNO CAMBIARA POR LA OPERACIÓN QUE ESTA PIDIENDO QUE SE REALICE. EN ESTE CASO ESTAS HACIENDO UNA SUMA NOTE SE QUEESTA EL SIGNO DE SUMA SI FUESE UNA RESTA CAMBIARIA. 3.- EL BOTÓN LIMPIAR DEBE DEJAR EN BLANCO LAS CAJAS DE TEXTO Y TENER SELECCIONADO POR DEFAULT EL BOTÓN DE RADIO SUMAR. 4.- EL BOTÓN ABOUT DEBERÁMANDARTE A UN FORMULARIO CON TUS DATOS ASÍ COMO LA FECHA Y EL LUGAR EN QUE SE REALIZO EL PROGRAMA 5.- FINALIZAR SALIR COMPLETAMENTE DEL PROGRAMA. 6.- EL ARCHIVO FINAL DEBERÁ SER ENTREGADO AL PROFESOR...