Imports System.Math

Public Class Form1

    Private Sub ObjComponentizeSpeed_Click(sender As System.Object, e As System.EventArgs) Handles ObjComponentizeSpeed.Click
        Dim init_norm, init_tan, entry_angle, init_speed As Double

        init_speed = CDbl(ObjInitialSpeed.Text)
        entry_angle = CDbl(ObjAngleOfAttack.Text) * (PI / 180)

        init_norm = init_speed * Sin(entry_angle)
        init_tan = init_speed * Cos(entry_angle)

        ObjInitialSpeedNormalComponent.Text = init_norm
        ObjInitialSpeedTangentialComponent.Text = init_tan

    End Sub

    Private Sub ObjRecalculateSpeed_Click(sender As System.Object, e As System.EventArgs) Handles ObjRecalculateSpeed.Click
        Dim init_norm, recalc_norm, init_tan, recalc_tan, restitution_coefficient As Double

        restitution_coefficient = CDbl(RestitutionCoefficient.Text)
        init_norm = CDbl(ObjInitialSpeedNormalComponent.Text)
        init_tan = CDbl(ObjInitialSpeedTangentialComponent.Text)

        recalc_norm = init_norm * restitution_coefficient
        recalc_tan = init_tan

        ObjNewSpeedNormalComponent.Text = recalc_norm
        ObjNewSpeedTangentialComponent.Text = recalc_tan

    End Sub

    Private Sub ObjReintegrateSpeed_Click(sender As System.Object, e As System.EventArgs) Handles ObjReintegrateSpeed.Click
        Dim new_speed, recalc_norm, recalc_tan

        recalc_norm = CDbl(ObjNewSpeedNormalComponent.Text)
        recalc_tan = CDbl(ObjNewSpeedTangentialComponent.Text)

        new_speed = Sqrt((recalc_norm * recalc_norm) + (recalc_tan * recalc_tan))

        ObjNewSpeed.Text = new_speed

    End Sub

    Private Sub ResetState_Click(sender As System.Object, e As System.EventArgs) Handles ResetState.Click

        ObjInitialSpeed.Text = ""
        ObjInitialSpeedNormalComponent.Text = ""
        ObjInitialSpeedTangentialComponent.Text = ""
        ObjNewSpeed.Text = ""
        ObjNewSpeedNormalComponent.Text = ""
        ObjNewSpeedTangentialComponent.Text = ""
        ObjAngleOfAttack.Text = ""
        RestitutionCoefficient.Text = ""

    End Sub
End Class