ESTE PROGRAMA SE CREO A TRAVES DE VISUAL BASIC, FUNCIONA CREANDO LOS SIGUIENTES CONTROLES:
4 LABELS
3 TEXTBOX
1 COMBOBOX
3 COMMANDBUTTON.
SE INTRODUCEN LAS OPCIONES NECESARIAS EN LOS CONTROLES COMANDO Y EN EL FONDO DEL PROGRAMA PARA QUE FUNCIONE DE MANERA CORRECTA.
los codigos que se introducen en los diferentes controles son los siguientes:
Haga doble clic sobre el command1 y escriba el siguiente código
Private Sub Command1_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
End Sub
Nota: La función SETFOCUS, me permite dejar el puntero del
mouse en el primer cuadro texto, listo para que el usuario
empiece a escribir.
Haga doble clic sobre el command2 y escriba el siguiente código
Private Sub Command2_Click()
If Combo1 = "Sumar" Then
Text3 = Val(Text1) + Val(Text2)
ElseIf Combo1 = "Restar" Then
Text3 = Val(Text1) - Val(Text2)
ElseIf Combo1 = "Multiplicar" Then
Text3 = Val(Text1) * Val(Text2)
ElseIf Combo1 = "Dividir" Then
Text3 = Val(Text1) / Val(Text2)
End If
End Sub
Haga doble clic sobre el command3 y escriba el código que
corresponda para que el formulario se cierre y quede nuevamente
en el formulario No1
Private Sub Command3_Click()
End Sub
Haga doble clic sobre el formulario y escriba el siguiente código
Private Sub Form_Load()
Combo1.AddItem "Dividir"
Combo1.AddItem "Multiplicar"
Combo1.AddItem "Restar"
Combo1.AddItem "Sumar"
End Sub
No hay comentarios:
Publicar un comentario