Cómo diseñar una calculadora de movimiento lineal uniforme vb

El movimiento lineal uniformemente acelerado y el movimiento lineal de velocidad uniformemente variable son dos conceptos físicos diferentes. Según su pregunta, puede ser un movimiento lineal uniformemente acelerado.

La fórmula básica del movimiento lineal uniformemente acelerado en la física de la escuela secundaria es la siguiente:

S=Vo*t a*t^2/2, la llamamos fórmula 1, en el instrucciones de programación Utilice

Vt=Vo a*t, lo llamamos fórmula 2, úsela en las instrucciones de programación

De acuerdo con las dos fórmulas básicas anteriores, no es difícil de usar VB para cumplir con sus requisitos.

El siguiente es el código para VB60:

Private Sub Command1_Click()

'Proceso de cálculo

Dim S As Single, T As Single, Vo As Single, Vt como único, A como único

S = Val(Text1.Text):T = Val(Text2.Text):Vo = Val(Text3.Text):Vt = Val(Text4.Text)： A = Val(Text5.Text)

Si S lt;gt; 0 And T lt;gt; 0 And Vo lt.gt entonces

'Distancia, tiempo y Velocidad inicial, encuentre la velocidad terminal y la aceleración

' Según la fórmula 1, se puede encontrar la aceleración a, y según la fórmula 2, se puede encontrar la velocidad terminal Vt

A = (2*S - 2*Vo*T) / T^2' Según fórmula 1

Vt = Vo A*T' Según fórmula 2

Texto5.Texto = AT = (Vt - Vo) / A' Según fórmula 2

Texto2.Text = T

Texto4.Text = Vt

ElseIf S lt;gt ; 0 And Vt lt;gt; 0 And Alt；gt; 0 Entonces

'Conoce la distancia recorrida, la velocidad terminal, la aceleración, encuentra la velocidad inicial y el tiempo

Si Vt ^ 2 2 * A * S gt;= 0 entonces'Según la fórmula 3

Vo = Sqr(Vt ^ 2 2 * A * S)

Else

Vo = -Sqr(Abs(Vt ^ 2 2 * A * S))

End If

T = (Vt - Vo) / A' Según fórmula 2

Text2.Text = T

Text3.Text = Vo

ElseIf T lt;gt; 0 And Vo lt;gt 0 And Vt lt;gt; p>

'Conociendo el tiempo, velocidad inicial, velocidad terminal, encontrar la distancia y la aceleración

A = (Vt - Vo)/T' Según la ecuación 2

S = Vo * T A * T ^ 2 / 2

Texto1.Text = S

Texto5.Text = A

ElseIf T lt;gt 0 And Vo lt;gt.0 And A lt;gt; 0 Entonces

'Según la Fórmula 2, conozca el tiempo, la velocidad inicial y la aceleración, y encuentre la distancia recorrida y la velocidad terminal

Vt = Vo A * T 'Según la Fórmula 1, conoce el tiempo, velocidad inicial Velocidad y aceleración

S = Vo * T A * T ^ 2 / 2 'Según la fórmula 1, conoce el tiempo ,

Velocidad y aceleración inicial

Text1.Text = S

Text4.Text = Vt

ElseIf Vo lt;gt 0 And Vt lt;gt; A lt; gt; 0 entonces

'Dadas la velocidad inicial, la velocidad final y la aceleración, encuentra la distancia y el tiempo

T = (Vt - Vo) / A' Según fórmula 2

S = Vo * T A * T ^ 2 / 2 'Según fórmula 2

S = Vo * T A * T ^ 2 / 2 'Según fórmula 1

Text1.Text = S

Text2.Text = T

ElseIf T lt;gt; 0 And Vt lt;gt 0 And A lt;gt;

'Conociendo el tiempo, la velocidad terminal y la aceleración, encuentra la distancia y la velocidad inicial

Vo = Vt - A * T' Basado en la ecuación 2

S = Vo * T A * T ^ 2 / 2 'Basado en la ecuación 1

Texto1.Text = S

Texto3.Text = Vo

Else

MsgBox "¡Condiciones conocidas insuficientes o la entrada no es un número y no se puede realizar el cálculo!" Text5.Text se utiliza para mostrar o ingresar datos de aceleración

'S=Vo * T A * T ^ 2 / 2, Lo llamamos fórmula 1 y lo usamos en comentarios de programación

'Vt=Vo A * T. Lo llamamos fórmula 2 y lo usamos en comentarios de programación

'Vt ^ 2 = Vo ^ 2 - 2 * A * S, lo llamamos fórmula 3, utilizada en comentarios de programación

Etiqueta1. !"

Fin del subtítulo