Códigos Para Visual Basic
End Sub
-poner mensaje
Private Sub Command2_Click()
Me.Hide
Form2.Show
-boton siguiente
PrivateSub Command3_Click()
End
End Sub
-boton salir
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
-boton borrar
Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)
MsgBox "Se ha realizado la suma, para realizar otra suma oprime el botón BORRAR"
End Sub
-boton calcular
Private Sub Command1_Click()
Text3.Text =Val(Text1.Text) + Val(Text2.Text)
MsgBox "Se ha realizado la suma, para realizar otra suma oprime el botton BORRAR"
End Sub
-sumar
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) -Val(Text2.Text)
MsgBox "Se ha realizado la resta, para realizar otra suma oprime el botton BORRAR"
End Sub
-restar
Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)MsgBox "Se ha realizado la multiplicacion, para realizar otra suma oprime el botton BORRAR"
End Sub
-multiplicar
Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)MsgBox "Se ha realizado la divicion, para realizar otra suma oprime el botton BORRAR"
End Sub
Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
MsgBox "Se ha realizado ladivicion, para realizar otra suma oprime el botton BORRAR"
End Sub
-divicion
Private Sub Command5_Click()
Text3.Text = Val(Text1.Text) ^ Val(Text2.Text)
MsgBox "Se ha realizado laexponenciación, para realizar otra suma oprime el botton BORRAR"
End Sub
-exponensacion
Private Sub Command6_Click()
Text3.Text = Sqr (Val(Text1.Text)) Val(Text2.Text)
MsgBox "Se ha realizado la raizcuadrada, para realizar otra suma oprime el botton BORRAR"
End Sub
-raiz cuadrada
Private Sub Option1_Click()
Text3.Text = Sqr(Val(Text1.Text) + Val(Text2.Text))
End Sub
-hipotenusa...
Regístrate para leer el documento completo.