Estimado:
Te pido disculpas es que no logro entender porque cuatro formularios?
En uno solo podrías tranquilamente poner los botones con las funciones de suma(+), resta(-), producto(*) y cociente(/).
Ejemplo;
Supongamos que tenes un text1 donde permitis al operador ingresar los números a calcular?
Si hay algo dentro del text1, bien podes limpiarlo autorizando al boton limpiar con la siguiente directiva: text1=""
Luego el operador presiona el boton (suma) y tomas en variable global a nivel del formulario el valor del text1, algo así --total o calcular= val(text1.text)-- donde sumar es una variable de tipo long declarada en la cabecera del formulario.
Si queres sumar con decimales tenes que declararla como "double" que te permite utilizar numeros de coma flotante de 64 bits
----------------------------------------------------------------------------------------------------
Aquí te dejo un código que hice hace un ratito para vos, espero que te sea de alguna utilidad.
tenes que colocar en el formulario un textbox y cinco commandbutton, las explicaciones te las dejé en el código.
----------------------------------------------------------------------------------------------------
'variables del tipo global a nivel del formulario
'para tener siempre a mano el último numero agregado
Dim ultimonumeroagregado As Double
Dim calcular As Double
'total que pasa por todos los tipos de calculos
Dim total As Double
Private Sub Command1_Click()
'para el caso de la suma se asigna a -calcular- el valor de total mas el ultimo numero agregado
calcular = total + ultimonumeroagregado
'se actualiza el valor de total
total = calcular
'se muestra al usuario el valor calculado
Text1 = calcular
End Sub
Private Sub Command2_Click()
calcular = total - ultimonumeroagregado
total = calcular
Text1 = calcular
End Sub
Private Sub Command3_Click()
'el controlador de errores es por el desbordamiento si se quiere dividir por 0
On Error GoTo msg
calcular = total / ultimonumeroagregado
total = calcular
Text1 = calcular
msg:
Text1 = total
End Sub
Private Sub Command4_Click()
calcular = total * ultimonumeroagregado
total = calcular
Text1 = calcular
End Sub
Private Sub Command5_Click()
'al hacer clic se vacía el text1 y la variable total se pone a 0
Text1.Text = ""
total = 0
End Sub
Private Sub Form_Load()
'necesitas un text1 y 5 commandbutton en un formulario
Text1.Text = "Ingrese aquí los números a calcular"
Command1.Caption = "+"
Command2.Caption = "-"
Command3.Caption = "/"
Command4.Caption = "*"
Command5.Caption = "Limpiar"
Text1.Alignment = 1 '(dígitos a la derecha)
End Sub
Private Sub Text1_Click()
'cada vez que haces foco en el text1 se vacía para permitir ingresar datos
Text1.Text = ""
End Sub
Private Sub Text1_LostFocus()
'cuando dejas de hacer foco en el text1 se actualiza la variable -ultimonumeroagregado-
ultimonumeroagregado = Val(Text1.Text)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
'esta opción es para que el text acepte numeros solamente, punto, coma y retroceso para borrado
Select Case KeyAscii
Case 13
KeyAscii = 0 ' Para que no beepee
Case 44, 46, 8, 48 To 57
'Case 44 (",") o case 46 (".") o case 48 to 57 (todos los números)
Case Else
' No es una tecla numérica, no admitirla
KeyAscii = 0
Beep
End Select
End Sub
-----------------------------------------------------------------------------------------
Ojala que te sea de utilidad.
Un fuerte abrazo y cualquier cosa a tu disposición.
Desde Bragado, Buenos Aires, Argentina.
Luis Pedro Méndez.
dado el nombre año de nacimiento año actual (mediante conmbos estos ultimos)
calcular la edad y mostrar en una lista los nombres y edad de cada persona...
necesito crear una base de datos para una empresa
nesecito ingresar nombres y apellidos, titulos optenidos edad, sexo,num. de Ced.