Para realizar este formulario se acudió a una de las fórmulas básicas de caída libre :
Vf=Vi + g*t
donde :
Vf : Velocidad Final
Vi : Velocidad Inicial
g : Gravedad
t : Tiempo
De acuerdo a esto se realizó la creación del formulario y del código mostrado en el mismo:
(Para mayor visualización de la imagen, hacer click en la misma)
Se debe aclarar que al presionar el botón "calcular" aparece una imagen que le indica al usuario que los valores estan en metros por segundo.
A continuacion se muestra el resultado despues de haber colocado los datos correctamente.
(Para mayor visualización de la imagen, hacer click en la misma)
Una posible mejora a este formulario podría incluir la realización de un cambio de unidades luego de obtenido el resultado, otra podría ser que, cuando se llenando dos de los tres datos, se calcule el dato faltante cualquiera fuese el dicho dato.
Néstor J. Guillermo Vásquez
16/06/2014 a las 11:11 pm
Buenas... disculpe mi estimado Néstor J. Guillermo Vásquez, podria ser tan amable de pasarme la aplicacion de un cuerpo en caida libre? y nose si me podria orientar a hacer mas aplicaciones relacionadas a Fisica y Estatica... Estaria muy agradecido
26/04/2019 a las 12:28 am
Estos cálculos no son correctos para la tierra porque no tiene en cuenta ni la forma del objeto ni la densidad atmosférica que va cambiando con la altura....todo cuerpo en caída libre tiene una velocidad maxima llamada velocidad terminal que es distinta para cada cuerpo dependiendo de su peso y forma, esta forma y peso no influye en la velocidad de caída en la luna pero aquí en la tierra si y mucho, por cierto que la fórmula de la caída libre de un cuerpo en el vacío es esta: Vf=Vi+g*(t*t) y no la que habéis puesto al comienzo de la página que es Vf=Vi+g*t....desconozco la fórmula que habéis utilizado en el programa porque no lo he descargado pero supongo que será la correcta y lo otro es solo una errata a la hora de escribir esta página.
03/07/2020 a las 5:33 pm
Private Sub CommandButton1_Click()
vi = TextBox1.Value
t = TextBox2.Value
If vi = "" And t = "" Then
MsgBox ("Ingresar Valores")
End If
If vi "" And t = "" Then
MsgBox ("Ingresar Velocidad Inicial")
End If
If vi = "" And t "" Then
MsgBox ("Ingresar Tiempo")
End If
If vi "" And t "" Then
MsgBox ("Velocidad en m/s")
Vf = vi + 10 * t
TextBox4.Value = Vf
End If
End Sub