mi padre y yo

mi padre y yo
¡¡¡¡igualitos!!!!

Buscar este blog

viernes, 25 de junio de 2010

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