movimiento parabolico Software

Software “Movimiento Parabólico”

 Diseño del Software:

 Programación del Software “Movimiento Parabólico”
o Lenguaje de Programación - “Visual Basic.Net 2010”
En el código desarrollado sepuede encontrar el símbolo (‘) donde nos especifican comentarios
para ubicarnos y explicarnos el uso del Código fuente.
Public Class Form1
Dim
Dim
Dim
Dim
Dim
Dim

vGravedad As Double = 10largo As Integer
nFinal As Integer
nInicial As Integer
nArriba As Integer
nAbajo As Integer

Private Sub esquinas()
nFinal = Me.lblFinal.Location.X
nInicial = Me.lblinicial.Location.X
nArriba= Me.lblarriba.Location.Y
nAbajo = Me.lblAbajo.Location.Y
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.pbObjeto.Top = 290Me.pbObjeto.Left = 3
Me.lblEtiquetaTMedio.Visible = False
Me.lblTiempoSubida.Visible = False
lblttotaltrans.Visible = False
lbletiempototaltrans.Visible = False
Label4.Visible = FalseLabel5.Visible = False
Me.lblTiempo.Text = "00.0"
End Sub
Dim segundo As Integer = 0
Dim milisegundo As Integer = 0
Sub tiempo()
Me.lblTiempo.Text = 0
Me.lblTiempo.Text = segundo.ToString.PadLeft(2, "0")& "."
Me.lblTiempo.Text &= milisegundo.ToString.PadLeft(1).ToString
Me.lblTiempo.Refresh()
End Sub
Private Sub btnLanzar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs)
IfTimer1.Enabled = True Then
Timer1.Enabled = False
Else
Timer1.Enabled = True
Dim segundo As Integer = 0
Dim milisegundo As Integer = 0
End If

'CONVERTIMOS LOS RADIANES EN ANGULO
Dim radianes =0, vSenAngulo = 0, vCosAngulo As Double = 0
radianes = (Math.PI / 180)
'**Hallamos el Seno del Angulo (y)
vSenAngulo = Math.Sin(Me.txtAngulo.Text * (radianes))
'**Hallamos el Coseno del Angulo (x)vCosAngulo = Math.Cos(Me.txtAngulo.Text * (radianes))
'Hallamos la Velocidad X(hallamos vx)
Dim vVelocidadX As Double = 0
vVelocidadX = Me.txtVelocidad.Text * vCosAngulo
lblVelocidadX.Text =...